|
▼レミ さん:
よくはわかりませんが、わかる範囲で。。。(^^;)
>Dim as mytuki1s Range
>Dim as mytuki1e Range
Dim mytuki1s As Range
Dim mytuki1e As Range の間違いかな?
でも、日付を入れるなら、
Dim mytuki1s As Date
Dim mytuki1e As Date でよいのでは?
したがって
With Sheet("A")
mytuki1s = Format(.Range("A1").Value, "yyyy/mm/dd")
mytuki1e = Format(.Range("A2").Value, "yyyy/mm/dd")
End With
とすればよいのでは?
>Sheets("B").Select
オートフィルターをかける範囲は?Sheets("B")のどの範囲?
> Selection.AutoFilter Field:=6, Criteria1:=">=" & mytuki1s, Operator:=xlAnd, _
> Criteria2:="<=" & mytuki1e
>===============================================================
>97で上記を実行するとシートAの A1=2005/3/1 A2=2005/3/31
>が mytuki1s=32631 mytuki1e=20578 となってしまうようです
>
>
|
|