VBAのコード入力時に 型が一致しません とエラー表示が出てしまいます、、。
対処法がわからず困っています。修正方法を教えていただきたいです。
以下のものが入力したコードです。
よろしくお願いいたします。(´;ω;`)
Sub AA1()
Dim i
For i = 60 To 104
If Cells(i, "D") Like "*入*" Then
Range(Cells(i, "AM"), Cells(i, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i, "D") Like "*退*" Then
Range(Cells(i, "AM"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i, "D") = "空" Then
Range(Cells(i, "AN"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i, "D").Interior.Color = RGB(252, 228, 214) And Cells(i, "D") = "" Then '空白でオレンジ色なら
Range(Cells(i, "AL"), Cells(i, "AN")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
Next i
Dim i1
For i1 = 60 To 104
If Cells(i1, "E") Like "*入*" Then
Range(Cells(i1, "AS"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i1, "E") Like "*退*" Then
Range(Cells(i1, "AM"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i1, "E") = "空" Then
Range(Cells(i1, "AO"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Cells(i1, "E").Interior.Color = RGB(252, 228, 214) And Cells(i1, "E") = "" Then '空白でオレンジ色なら
Range(Cells(i1, "A0"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
Next i1
End Sub
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
No5です。
連投失礼。
テストデータを修正し忘れましたので、訂正しておきます。
誤:For r = 16 To 27
↓ ↓ ↓
正:For r = 60 To 104

No.5
- 回答日時:
こんにちは
>型が一致しません とエラー表示が出てしまいます、、。
>対処法がわからず困っています。
エラーが発生した場合、メッセージとエラーの発生した行が表示されますので、その状態での変数の値などを調べてみれば対処できると思います。
イミディエイトウインドウやウォッチウィンドウを利用しましょう。
ざっと見ただけですが、エラーの直接の原因は最後の方にある、
>Range(Cells(i1, "A0"), Cells(i1, "AQ"))~~
が、セル位置の指定として正しくないのでエラーになっているのでしょう。
(「A0」という列番号は存在しませんので)
エラーが発生しているのは、その行ではありませんか?
以下は、ご質問には関係ありませんけれど・・・
全体的に見て、同じような処理を繰り返し記述なさっていますが、事前に整理してからコード化すれば、多少なりとも単純化できそうに思います。
(理解しやすいとは限りませんけれど・・)
考え方は多少変わってしまいますけれど、例えば、以下のような記述でも同様の処理は可能と思います。
(ご提示の内容と同等なので、色付けするのみでキャンセルはしません)
Sub AA1()
Dim r As Long, c As Long, orange As Long
Dim pos, p As Long, txt As String, cf As Boolean
orange = RGB(252, 228, 214)
pos = Split("394 424 382 394 383 413", " ")
For r = 16 To 27
For c = 0 To 1
txt = Cells(r, 4 + c).Text
cf = Cells(r, 4 + c).Interior.Color = orange
If InStr(txt, "入") Then p = pos(c) _
Else If InStr(txt, "退") Then p = pos(2 + c) _
Else If txt = "空" Or (txt = "" And cf) Then p = pos(4 + c) _
Else p = 0
If p > 0 Then Cells(r, Int(p / 10)).Resize(, p Mod 10).Interior.Color = vbRed
Next c
Next r
End Sub
No.1
- 回答日時:
「型が一致しません」よりも前に「Nextに対応するForがありません」とかが出てこなければおかしいように思います。
というか、Ifは行頭に書かれていなければならないのですが、このソースではElseIf が何か所か出てきます。これは「ElseIf」という変数として認識されるように思います。
For~Next と If~Else~End If の入れ子の構造をはっきり認識するところから始めてみてはいかがでしょうか。
とりあえず、私が書き直してみたコードを載せますが、何をやりたいのか不明なので、これが正解かどうかはわかりません。
Sub AA1()
Dim i
For i = 60 To 104
If Cells(i, "D") Like "*入*" Then
Range(Cells(i, "AM"), Cells(i, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
Else
If Cells(i, "D") Like "*退*" Then
Range(Cells(i, "AM"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
Else
If Cells(i, "D") = "空" Then
Range(Cells(i, "AN"), Cells(i, "AL")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
End If
If Cells(i, "D").Interior.Color = RGB(252, 228, 214) And Cells(i, "D") = "" Then '空白でオレンジ色なら
Range(Cells(i, "AL"), Cells(i, "AN")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
End If
Next i
Dim i1
For i1 = 60 To 104
If Cells(i1, "E") Like "*入*" Then
Range(Cells(i1, "AS"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
Else
If Cells(i1, "E") Like "*退*" Then
Range(Cells(i1, "AM"), Cells(i1, "AP")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
Else
If Cells(i1, "E") = "空" Then
Range(Cells(i1, "AO"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
Else
If Cells(i1, "E").Interior.Color = RGB(252, 228, 214) And Cells(i1, "E") = "" Then '空白でオレンジ色なら
Range(Cells(i1, "A0"), Cells(i1, "AQ")).Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
End If
End If
End If
Next i1
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのループ処理について教えてください 3 2024/11/15 11:47
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Excel(エクセル) エクセルマクロでデータ出力の際の条件がうまく機能しません。 2 2023/09/30 13:01
- Visual Basic(VBA) VBA listBoxについて 2 2024/03/26 16:14
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) VBAコードについて 2 2024/03/10 12:41
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Excel(エクセル) エクセルマクロでデータ出力の際の条件がうまく機能しません。 5 2023/10/01 12:50
このQ&Aを見た人はこんなQ&Aも見ています
-


VBA 2次元配列の出力
Visual Basic(VBA)
-


Visualbasicの現状について教えてください
Visual Basic(VBA)
-


不要項目の行削除方法について
Visual Basic(VBA)
-
-
4

VBAでセルの書式を変えずに文字列を置換する方法をご教示ください
Visual Basic(VBA)
-
5

VBAのループ処理について教えてください
Visual Basic(VBA)
-
6

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
7

エクセルの改行について
Visual Basic(VBA)
-
8

エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
9

【ExcelVBA】5万行以上のデータ比較の効率的な処理方法について
Visual Basic(VBA)
-
10

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
11

以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
12

VBAの「To」という語句について
Visual Basic(VBA)
-
13

改行文字「vbCrLf」とは
Visual Basic(VBA)
-
14

VBA Application.Matchについての質問です
Visual Basic(VBA)
-
15

VBAで特定の文字が入った行をコピーして貼り付けたい
Visual Basic(VBA)
-
16

VBAでユーザーフォームを指定回数繰り返して入力を行う方法
Visual Basic(VBA)
-
17

vbaマクロについて
Visual Basic(VBA)
-
18

【マクロ】変数を使った、文字の種類の変更にて、エラーとなる。
Visual Basic(VBA)
-
19

[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
-
20

エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報









