|
▼かみちゃん さん:
すみません。リストのプログラムは
Private Sub 登録_Click()
Dim varRag As Variant
Dim myArray As Integer
varRag = Array(txtNum, txtDay, txtName, txtAdr, txtTel1, txtTel2, txtBirth, txtCar, txtYear, txtD, txtShaken)
'初めて入力される場合は、最初の行を選択します。
If Range("A13") = Empty Then
Range("A13").Select
txtNum = 1
For myArray = 0 To 10
With Selection
.Offset(, myArray) = varRag(myArray)
End With
Next myArray
Else
'2回目以降の入力であれば最終行の1行次の行を選択します。
Range("A65536").End(xlUp).Offset(1).Select
For myArray = 0 To 10
With Selection
txtNum = .Row - 12
.Offset(, myArray) = varRag(myArray)
End With
Next myArray
End If
'テキストボックスをすべて初期化します。
txtNum = ""
txtDay = ""
txtName = ""
txtAdr = ""
txtTel1 = ""
txtTel2 = ""
txtBirth = ""
txtCar = ""
txtYear = ""
txtD = ""
txtShaken = ""
End Sub
としたのですが、これでできたものをクリックでもダブルクリックでもいいので
(最初からではなく)その都度データをユーザーフォームで表示させたいのです。
|
|