|
こんにちは、いつもお世話になっています。
今まで皆さんより色々なアドバイス等うけ、自分で下記のコードを作成したのですが、comboboxの○と▲は名前です。○の名前を選択した際は上手くいくのですが▲を選択したらエラーが出てしまいます。
どうかお助け下さい。 又コードにおかしい所があれば、指摘下さい。
Dim i As Long, Co As Long, Cou As Long
For i = 5 To 89
If ComboBox2 = "○○○○" Then
Select Case i
Case 5 To 11: Cou = 11: Co = -3
Case 12 To 18: Cou = 13: Co = -10
Case 19 To 25: Cou = 15: Co = -17
Case 26 To 32: Cou = 17: Co = -24
Case 33 To 39: Cou = 19: Co = -31
Case 40 To 46: Cou = 21: Co = -38
End Select
ElseIf ComboBox2 = "▲▲▲▲” Then
Select Case i
Case 48 To 54: Cou = 11: Co = -3
Case 55 To 61: Cou = 13: Co = -10
Case 62 To 68: Cou = 15: Co = -17
Case 69 To 75: Cou = 17: Co = -24
Case 76 To 82: Cou = 19: Co = -31
Case 83 To 89: Cou = 21: Co = -38
End Select
End If
Next i
Worksheets("臨時雇出役認証票").Cells(Cou, Co + i).Value = Me.Controls("TextBox" & i).Value
Worksheets("臨時雇出役認証票").Range("C4").Value = Me.Controls("combobox2").Value
|
|