[[20051005015010]]　『行挿入の振分けについて』（さぶ）　ページの最後に飛ぶ

『行挿入の振分けについて』（さぶ）

 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
 どこに、どのように付加えたらよいか分かりません。
 皆様のご協力をお願い致します。

コメント返信：

[ 一覧(最新更新順) ]

[[20051005015010]] 『行挿入の振分けについて』（さぶ） ページの最後に飛ぶ

[[20051005015010]]　『行挿入の振分けについて』（さぶ）　ページの最後に飛ぶ