Excel VBA質問箱 IV

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

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


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

51828 / 76736

←次へ　｜　前へ→


	【29764】Re:リストボックスからリストボックスへリスト移動時

初心者 - 05/10/13(木) 10:25 -


	引用なし

	パスワード

Private Sub UserForm_Initialize()
　　ListBox1.RowSource = "サンドイッチ!B3:B13"
　　ListBox2.RowSource = "サイドメニュー!B4:B7"
　　ListBox3.RowSource = "コールドドリンク!B4:B18"
　　サイドS = True
　　ドリンクS = True
　　ドリンクCOLD = True
　　Image1.Picture = LoadPicture(ThisWorkbook.Path & "\default.gif")
　　With ListBox4
　　　　.Clear '念のためクリア
　　　　.ColumnCount = 3 '隠れ２列あり
　　　　.ColumnWidths = .Width & ";0;0"
　　　　.TextColumn = 2
　　End With
　　With ListBox5
　　　　.Clear '念のためクリア
　　　　.ColumnCount = 2
　　　　.ColumnWidths = .Width & ";0" '隠れ１列あり
　　End With
End Sub

Private Sub サイド100_Click()
　　ListBox4.RowSource = "100円!B3:B20"
End Sub

Private Sub サイドCOLD_Click()
　　If サイドサイズS = True Then
　　　　ListBox4.RowSource = "追加決定!B22:B36"
　　ElseIf サイドサイズM = True Then
　　　　ListBox4.RowSource = "追加決定!D22:D32"
　　ElseIf サイドサイズL = True Then
　　　　ListBox4.RowSource = "追加決定!F22:F29"
　　ElseIf サイドサイズS = False Then
　　　　ListBox4.RowSource = "追加決定!H14:H47"
　　End If
End Sub

Private Sub サイドHOT_Click()
　　If サイドサイズS = True Then
　　　　ListBox4.RowSource = "追加決定!B17:B21"
　　ElseIf サイドサイズM = True Then
　　　　ListBox4.RowSource = "追加決定!D17"
　　ElseIf サイドサイズL = True Then
　　　　ListBox4.RowSource = ""
　　ElseIf サイドサイズS = False Then
　　　　ListBox4.RowSource = "追加決定!H8:H13"
　　End If
End Sub

Private Sub サイドL_Click()
　　ListBox2.RowSource = "サイドメニュー!B4"
End Sub

Private Sub サイドM_Click()
　　ListBox2.RowSource = "サイドメニュー!B4"
End Sub

Private Sub サイドS_Click()
　　ListBox2.RowSource = "サイドメニュー!B4:B7"
End Sub

Private Sub サイドサイズL_Click()
　　If サイドCOLD Then
　　　　ListBox4.RowSource = "追加決定!F22:F29"
　　ElseIf サイドHOT = True Then
　　　　ListBox4.RowSource = ""
　　ElseIf サイドサイド = True Then
　　　　If サイドサイズS = True Then
　　　　　　ListBox4.RowSource = "追加決定!B14:B16"
　　　　ElseIf サイドサイズM = True Then
　　　　　　ListBox4.RowSource = "追加決定!D14"
　　　　ElseIf サイドサイズL = True Then
　　　　　　ListBox4.RowSource = "追加決定!F14"
　　　　End If
　　End If
End Sub

Private Sub サイドサイズM_Click()
　　If サイドCOLD Then
　　　　ListBox4.RowSource = "追加決定!D22:D32"
　　ElseIf サイドHOT = True Then
　　　　ListBox4.RowSource = "追加決定!D17"
　　ElseIf サイドサイド = True Then
　　　　If サイドサイズS = True Then
　　　　　　ListBox4.RowSource = "追加決定!B14:B16"
　　　　ElseIf サイドサイズM = True Then
　　　　　　ListBox4.RowSource = "追加決定!D14"
　　　　ElseIf サイドサイズL = True Then
　　　　　　ListBox4.RowSource = "追加決定!F14"
　　　　End If
　　End If
End Sub

Private Sub サイドサイズS_Click()
　　If サイドCOLD Then
　　　　ListBox4.RowSource = "追加決定!B22:B36"
　　ElseIf サイドHOT = True Then
　　　　ListBox4.RowSource = "追加決定!B17:B21"
　　ElseIf サイドサイド = True Then
　　　　If サイドサイズS = True Then
　　　　　　ListBox4.RowSource = "追加決定!B14:B16"
　　　　ElseIf サイドサイズM = True Then
　　　　　　ListBox4.RowSource = "追加決定!D14"
　　　　ElseIf サイドサイズL = True Then
　　　　　　ListBox4.RowSource = "追加決定!F14"
　　　　End If
　　End If
End Sub

Private Sub サイドサイド_Click()
　　ListBox4.RowSource = "追加決定!H3:H7"
End Sub

Private Sub サイドサンド_Click()
　　ListBox4.RowSource = "追加決定!B3:B13"
End Sub

Private Sub ドリンクCOLD_Click()
　　If ドリンクS = True Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B18"
　　ElseIf ドリンクM = True Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B14"
　　ElseIf ドリンクL = True Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B11"
　　End If
End Sub

Private Sub ドリンクHOT_Click()
　　If ドリンクS = True Then
　　　　ListBox3.RowSource = "ホットドリンク!B4:B8"
　　ElseIf ドリンクM = True Then
　　　　ListBox3.RowSource = "ホットドリンク!B8"
　　ElseIf ドリンクL = True Then
　　　　ListBox3.RowSource = ""
　　End If
End Sub

Private Sub ドリンクL_Click()
　　If ドリンクCOLD = True Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B11"
　　ElseIf ドリンクHOT = True Then
　　　　ListBox3.RowSource = ""
　　End If
End Sub

Private Sub ドリンクM_Click()
　　If ドリンクCOLD Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B14"
　　ElseIf ドリンクHOT = True Then
　　　　ListBox3.RowSource = "ホットドリンク!B8"
　　End If
End Sub

Private Sub ドリンクS_Click()
　　If ドリンクCOLD Then
　　　　ListBox3.RowSource = "コールドドリンク!B4:B18"
　　ElseIf ドリンクHOT = True Then
　　　　ListBox3.RowSource = "ホットドリンク!B4:B8"
　　End If
End Sub

Private Sub 追加決定_Click()
　　Dim Li1 As Integer, Lc2 As Integer
　　'ListBox2に転送時にお互いのListIndex値を覚えておく
　　With ListBox4
　　　　Li1 = .ListIndex
　　　　If .List(Li1, 2) < 0 Then
　　　　　　ListBox5.AddItem .List(Li1, 1) '2列目（C列）のデータを追加
　　　　　　Lc2 = ListBox5.ListCount '追加された行
　　　　　　ListBox5.List(Lc2 - 1, 1) = Li1
　　　　　　.List(Li1, 2) = Lc2
　　　　End If
　　End With
End Sub

Private Sub 追加消去_Click()
　　Dim i As Integer
　　
　　For i = ListBox5.ListCount - 1 To 0 Step -1
　　　　If ListBox5.Selected(i) Then
　　　　　　ListBox5.RemoveItem (i)
　　　　　　Exit For
　　　　End If
　　Next i
End Sub

こんな感じで作っています。
色々なサイトを回りながら、少しずつ手を加えていってる状態ですので、
かなり不完全ですが、
よろしかったら、ご教授お願い致します。

長々と申し訳ありません。

0 hits

▼

【29677】リストボックスからリストボックスへリスト移動時 初心者 05/10/11(火) 17:29