|
▼フィルター さん:
>エラーが
>コンパイルエラー
>参照が不正または不完全です
>
>Private Sub CommandButton42_Click()が黄色になり
>
>.Rangeが青い色でした、
なぜだか、わかりますか?
。。。。。。。。。。。。。。。。
> .Range
と、Rangeのまえにピリオド(.)が付いていますね?
これは、それ以前に With句を使って 親であるシートを指定していて、
> With Worksheets("DATA")
.Range の (.)は With句で宣言された Worksheets("DATA") が(.)の前につく
ことを意味しているのに、
修正後の構文では .Range の前に With 句が宣言されていないからです。
それらの .Range を
With Worksheets("DATA")
:
End With
ブロックの中に移動してください。。。
>> With Worksheets("DATA")
>> Set fRange = .Range("A1").CurrentRegion 'フィルタ範囲
>> Set cRange = .Range("AO1") '抽出条件範囲先頭セル
>> 'cRange に抽出条件をセット
>> cRange.CurrentRegion.ClearContents
>> cRange(1, 1).Value = .Range("F1").Value 'F列見出し
>> cRange(1, 2).Value = .Range("L1").Value 'L列見出し
>> cRange(1, 3).Value = .Range("R1").Value 'R列見出し
>> cRange(1, 4).Value = .Range("X1").Value 'X列見出し
>> cRange(1, 5).Value = .Range("AD1").Value 'AD列見出し
>> cRange(1, 6).Value = .Range("AJ1").Value 'AJ列見出し
>> cRange.Range("A2,B3,C4,D5,E6,F7").Value = ss
>> End With
>> Set CopyTo = Worksheets("WAREA").Range("A1") 'ここへ抽出する
>> CopyTo.Parent.UsedRange.ClearContents
>>
>>
>> 'フィルタオプションによる別シートへ抽出の実行
|
|