Excel VBA質問箱 IV

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

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


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

52347 / 76732

←次へ　｜　前へ→


	【29224】Re:任意の行のレコードをユーザフォーム...

Lion - 05/9/27(火) 23:53 -


	引用なし

	パスワード

こんばんは

>　　Ａ　　　Ｂ　　　　Ｃ　　　Ｄ　　　Ｅ・・・・・ＣＸ
>１　名前　登録番号　　登録日　項目1　項目2　　　　項目##
>２　・　　　・　　　　・　　　・　　　・　　　　　　・
>３　・　　　・　　　　・　　　・　　　・　　　　　　・
>
>Ａ，Ｂ，Ｃはテキスト、Ｄ以降は入力値がある場合に０と１であらわしています。
>Ａ，Ｂ，Ｃはテキストボックスから、Ｄ以降はチェックボックスから入力しています。

とのことですので
UserFormに
LISTBOX1とTEXTBOX1から3
CHECKBOC1から100を配置してください。
>入力しています
とのことですから、すでに配置できてると思いますが。

下記のコードを入力して下さい。
リストボックスをクリックして
各項目が表示されるか確認してください。

Private Sub UserForm_Initialize()
Dim LASROW1 As Long
Dim myDRange1 As String
Dim f As Long

With ListBox1
　　.ColumnCount = 3
　　.ColumnWidths = "80;80;50"
End With

LASROW1 = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
myDRange1 = "Sheet1!A2:C" & LASROW1
ListBox1.RowSource = myDRange1

If Worksheets("Sheet1").Range("A2").Value = "" Then
　　ListBox1.RowSource = ""
End If

For f = 1 To 3
　　Controls("TEXTBOX" & f).Value = ""
Next
For f = 1 To 100
　　Controls("CHECKBOX" & f).Value = False
Next
End Sub
'----------------------------------------------------------
Private Sub ListBox1_Click()
Dim f As Long
Dim myNAME As String
Dim myLID As Long

myNAME = ListBox1.Column(0)
myLID = ListBox1.ListIndex + 2

For f = 1 To 3
　　Controls("TEXTBOX" & f).Value = Worksheets("Sheet1").Cells(myLID, f).Value
Next

For f = 1 To 100
　　If Worksheets("Sheet1").Cells(myLID, f + 3).Value = 0 Then
　　　　Controls("CHECKBOX" & f).Value = False
　　End If
　　
　　If Worksheets("Sheet1").Cells(myLID, f + 3).Value = 1 Then
　　　　Controls("CHECKBOX" & f).Value = True
　　End If

　　If Worksheets("Sheet1").Cells(myLID, f + 3).Value = "" Then
　　　　Controls("CHECKBOX" & f).Value = False
　　End If
Next
End Sub

0 hits

▼

【29162】任意の行のレコードをユーザフォームへ貼付け うくれれ 05/9/27(火) 0:01