Results of 1 - 1 of about 670 for 』（ ! ---- | ----* (0.107 sec.)
』（ (95996), ---- (-96118)
- [[20051005015010]]
- #score: 4667
- @digest: 3f07918ae5a59531640b92a7fdfdc726
- @id: 17331
- @mdate: 2005-10-04T17:19:13Z
- @size: 1733
- @type: text/plain
- #keywords: 車簿 (13814), insertrow (11762), textbox10 (8278), 配車 (5992), 力願 (4150), 振分 (3974), 簿") (3557), sheetname (2776), ン_ (2434), 力ボ (2324), lll (2271), textbox9 (2020), textbox8 (1842), 付加 (1668), textbox7 (1665), ト別 (1480), textbox6 (1470), 協力 (1428), タ") (1362), textbox5 (1286), controls (1276), 行挿 (1226), textbox (1128), textbox4 (1115), text (1078), setfocus (968), textbox3 (847), ご協 (837), textbox1 (825), worksheets (799), 65536 (672), textbox2 (660)
- 『行挿入の振分けについて』（さぶ）
Excel2000 WinXP 度々で申し訳ありません。 以下のコードは、シート名によってデータを振分けておりますが、入力のあったシートの 行を一行挿入したいのですが、分かりませんので、ご協力願います。 Private Sub 入力ボタン_Click() Dim e As Long Dim i As Long If Not LLL(TextBox10.Text) Then Exit Sub e = Worksheets("配車簿").Cells(65536, 1).End(xlUp).Row + 1 For i = 1 To 10 Worksheets("配車簿").Cells(e, i).Value = Controls("TextBox" & i).Text Next i e = Worksheets(TextBox10.Text).Cells(65536, 1).End(xlUp).Row + 1 For i = 1 To 9 Worksheets(TextBox10.Text).Cells(e, i).Value = Controls("TextBox" & i).Text Next i TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox1.SetFocus End Sub Function LLL(ByVal SheetName As String) Dim i As Long For i = 1 To Worksheets.Count If Worksheets(i).Name = SheetName Then LLL = True Exit Function End If Next i LLL = False End Function ↓このようなコードを付加えて、シート別に行いたいのですが、 Dim insertRow As Long insertRow = Range("データ").Rows.Count Range("データ").Rows(insertRow).Insert Shift:=xlDown どこに、どのように付加えたらよいか分かりません。 皆様のご協力をお願い致します。... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200510/20051005015010.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97034 documents and 608188 words.
訪問者：