Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53503 / 76736

←次へ　｜　前へ→


	【28046】Re:顧客リストをユーザーフォームで

rina - 05/8/27(土) 10:37 -


	引用なし

	パスワード

▼かみちゃんさん：
すみません。リストのプログラムは

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

としたのですが、これでできたものをクリックでもダブルクリックでもいいので
（最初からではなく）その都度データをユーザーフォームで表示させたいのです。

0 hits

▼

【28038】顧客リストをユーザーフォームで rina 05/8/27(土) 0:34