|
ありがとうございます。以下がソ−スですが
UserFormのコ−ド
Private Sub CommandButton1_Click()
Sheets(1).Cells(1, 1) = TextBox1.Value
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
標準モジュ−ルのプロシジャ−
Sub 読み()
Sheets(2).Select
UserForm1.Show
y = Sheets(1).Cells(1, 1)
Sheets(1).Cells(1, 1).ClearContents
For l = 15 To Range("A65536").End(xlUp).Row
If Cells(l - 1, 2) = "" Then
F = Cells(l, 2).Value
ElseIf Cells(l, 2).Value = "" Then
Else
k = Cells(l, 1)
NTD(F, k) = Cells(l, y)
End If
Next l
End Sub
よろしくお願い致します。
|
|