|
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
こんな感じで作っています。
色々なサイトを回りながら、少しずつ手を加えていってる状態ですので、
かなり不完全ですが、
よろしかったら、ご教授お願い致します。
長々と申し訳ありません。
|
|