Excel VBA質問箱 IV

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

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


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

41560 / 76807

←次へ　｜　前へ→


	【40327】ifを使ったコード

てつじ - 06/7/11(火) 17:11 -


	引用なし

	パスワード

こんにちは、いつもお世話になっています。
今まで皆さんより色々なアドバイス等うけ、自分で下記のコードを作成したのですが、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

1 hits

▼

【40327】ifを使ったコード てつじ 06/7/11(火) 17:11

≪