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 '隠れ2列あり
    .ColumnWidths = .Width & ";0;0"
    .TextColumn = 2
  End With
  With ListBox5
    .Clear '念のためクリア
    .ColumnCount = 2
    .ColumnWidths = .Width & ";0" '隠れ1列あり
  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 質問
【29688】Re:リストボックスからリストボックスへ... hine 05/10/11(火) 20:15 発言
【29691】Re:リストボックスからリストボックスへリ... りん 05/10/11(火) 22:07 回答
【29703】Re:リストボックスからリストボックスへリ... 初心者 05/10/12(水) 9:08 質問
【29740】Re:リストボックスからリストボックスへリ... りん 05/10/12(水) 21:40 回答
【29763】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 10:25 質問
【29764】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 10:25 質問
【29704】Re:リストボックスからリストボックスへリ... 初心者 05/10/12(水) 9:13 質問
【29732】Re:リストボックスからリストボックスへリ... りん 05/10/12(水) 19:23 発言
【29760】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 9:35 発言

51828 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free