VBAのエラーコード１３を解決したいです

Question

VBAのエラーを解決したいです

VBAで入力した月日に関連して色が変わるコードを作っているのですが
型変換の仕方がわからないので教えてください

13

型が一致しません

該当のソースコード

VBA
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim j As long
Dim mycell As Range
for i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
for j = 8 To 15
Set mycell = Cells(i, j)
If 30 <= DateDiff("d", mycell, Date) And mycell <> "" Then

Range(Cells(i,3),Cells(i,7)).Interior.Color = RGB(255,0,0)

Elseif 14 <= DateDiff("d", mycell, Date) And mycell <> "" Then
Range(Cells(i,3),Cells(i,7).Interior.Color = RGB(255,255,0)

Elseif 7 <= DateDiff("d", mycell, Date) And mycell <> "" Then

Range(Cells(i,3),Cells(i,7).Interior.Color = RGB(0,255,255)

Elseif 7 > DateDiff("d", mycell, Date) Then

Range(Cells(i,3),Cells(i,7).Interior.Color = RGB(255,255,255)

End if
Next
Next

ちょうどSet ｍycell とif式の間にエラーが発生します

試したこと

my cell as dateで変換しようとしたのですができませんでした

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[m.ts10806]

>VBAのコードについて質問です
タイトルに全く内容がないので、要件を記載してください。
https://teratail.com/help/question-tips#questionTips3-1

コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564

エラー内容を記載してください。
https://teratail.com/help/question-tips#questionTips3-4-2

「うまくいかない」「できない」では情報はゼロです。
https://teratail.com/help/question-tips#questionTips3-4-1

[Y.H.]

> If 30 <= DateDiff('d, mycell, Date) And mycell <> '' Then
> ・・・略・・・
>ちょうどSet ｍycell とif式の間にエラーが発生します

'd → 'd'
入力ミスが多すぎるのでは？

[m.ts10806]

>VBAのコードについて質問です
タイトルに全く内容がないので、要件を記載してください。
https://teratail.com/help/question-tips#questionTips3-1

コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564

エラー内容を記載してください。
https://teratail.com/help/question-tips#questionTips3-4-2

「うまくいかない」「できない」では情報はゼロです。
https://teratail.com/help/question-tips#questionTips3-4-1

Answer 1

[型が一致しません
mycell as dateで変換しようとしたのですができませんでした]
この件に関するネットがありましたので　URL　記載してみました
https://kosapi.com/post-2409/
DateDiff【ﾃﾞｲﾄﾃﾞｨﾌ】関数の書式と引数の説明
Dim mycell As Variantの様です

Answer 2

とりあえず、mycellは日付か空白のいずれかと仮定してますが、

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    Dim j As Long
    Dim mycell As Range
    For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 8 To 15
            Set mycell = Cells(i, j)
            If mycell <> "" Then
                If 30 <= DateDiff("d", mycell, Date) Then
                    Range(Cells(i, 3), Cells(i, 7)).Interior.Color = RGB(255, 0, 0)
                ElseIf 14 <= DateDiff("d", mycell, Date) Then
                    Range(Cells(i, 3), Cells(i, 7)).Interior.Color = RGB(255, 255, 0)
                ElseIf 7 <= DateDiff("d", mycell, Date) Then
                    Range(Cells(i, 3), Cells(i, 7)).Interior.Color = RGB(0, 255, 255)
                ElseIf 7 > DateDiff("d", mycell, Date) Then
                    Range(Cells(i, 3), Cells(i, 7)).Interior.Color = RGB(255, 255, 255)
                End If
            End If
        Next
    Next
End Sub

変数を使うともう少しスッキリするかな。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    Dim j As Long
    Dim mycell As Range, diff As Long, mycolor As Long
    
    For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 8 To 15
            Set mycell = Cells(i, j)
            If mycell <> "" Then
                diff = DateDiff("d", mycell, Date)
                If 30 <= diff Then
                    mycolor = RGB(255, 0, 0)
                ElseIf 14 <= diff Then
                    mycolor = RGB(255, 255, 0)
                ElseIf 7 <= diff Then
                    mycolor = RGB(0, 255, 255)
                ElseIf 7 > diff Then
                    mycolor = RGB(255, 255, 255)
                End If
                Range(Cells(i, 3), Cells(i, 7)).Interior.Color = mycolor
            End If
        Next
    Next
End Sub

Answer 3

'Rows.Countの後は,
for i = 4 To Cells(Rows.Count. 1).End(xlUp).Row
for i = 4 To Cells(Rows.Count, 1).End(xlUp).Row

'Rangeの)が足りていない
Range(Cells(i, 3), Cells(i, 7).Interior.Color = RGB(255,0,0)
Range(Cells(i, 3), Cells(i, 7)).Interior.Color = RGB(255, 0, 0)

'指定は基本的に"（ダブルクォーテーション）で囲む
If 30 <= DateDiff('d, mycell, Date) And mycell <> '' Then
If 30 <= DateDiff("d", mycell, Date) And mycell <> "" Then

Cells

VBAで位置を変化させるような1つのセルを指定する場合の書き方の基本は、

Cells(行, 列)
このように書いて下さい。

基本的な構文の記入ミスですが、手打ちだと思うので最初は慣れるまでRange()と書いてから中にCells()と書くようにすれば徐々にミスをなくせます。

Comments

[tassan]

回答ありがとうございました。ソースの該当箇所を確認したところそのようなミスがなかったので、コピペではなく手打ちで入力したことが原因だと思います。質問内容を訂正したので再度お答えいただければ幸いです。

[退会済みユーザー]

ソースコードを元のデータからエラーが発生する箇所を全てコピペしてください。
上記のコードは打ち間違いを修正すればエラーは出ませんので調査が出来ません。

ちなみに
my cell as dateと書いていますがmycell as dateの書き間違いですか？
仮にmycellだとしてCells(i, j)に入っているデータは何ですか？
my cellだとすれば値はいつ何を入れてますか？
as dateで変換といっていますがas dataで変換は出来ません。

正しいソースコードと的確な質問は正しい答えが素早く手に入るため、あなたの利益になります。

[退会済みユーザー]

As dataの補足すると例えば下記の記述がありますね。
Dim mycell As Range
これは変数mycellのデータ型をRangeに定義しますという意味です。
この変数mycellにはRange型以外入れませんよ。
それ以外を入れたらエラー出してくださいねってお願いしてる状態です。
なので例えば
dim mycell as dataを別に作ったとしてここに文字列や数字を入れたらエラーになります。
型が一致しませんになります。

なので変換する場合は下記の参考サイトのような形で変換処理を行う必要があります。
https://vba-labo.rs-techdev.com/archives/119
該当セルにどのような形で記入しているかで変換方式は多数ありますが、変換元のデータを参照して必要なプログラムを組むので元のデータがないと変換できないのです。