| |
こんにちは
初歩的な質問だったらすみません
どうしてもうまくいかないので、よろしくお願いします
Sub VBAテスト()
Dim 数字 As Long
Dim Mydate As Long
Dim Mydate2 As Date
Dim Mydate3 As Date
Mydate = Month(Date)
MsgBox Mydate
Select Case Mydate
Case 4
数字 = 9
Case 5
数字 = 8
Case 6
数字 = 7
Case Else
数字 = 6
End Select
MsgBox 数字
Mydate2 = DateSerial(Year(Date), 数字, Day(Date))
MsgBox Mydate2
Mydate3 = Sheets("Sheet1").Range("D2").Value
MsgBox Mydate3
Sheets("Sheet1").Select
Range("B2").Select
Selection.Formula = "=DATEDIF(Mydate3,Mydate2,""M"")"
End Sub
上のコードを走らせると
=DATEDIF(Mydate3,Mydate2,"M")
まんまでて、#Nameエラーになります
おそらく変数の使い方が変なんだとは思いますが、
どこがおかしいのかご指摘いただけると助かります。
よろしくお願いします
|
|
かかこ
- 12/1/12(木) 15:02 -
