| 投稿日 | ： 2005/02/28(Mon) 08:06 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: VBからExcelのオートフィルタを設定 |
> Dim F2,F3 as string
> Dim YY,MM,DD,zY,zM,zD as integer
上記の使い方が間違っています。ここの変数関係の １行に複数の変数を
宣言する時の注意 をご覧下さい。
> '↓（ここでエラーになります）
> xlsApp.AutoFilter.Filters(DayCol).Criteria1 = zD
↓
.Range("A2").AutoFilter field:=1, Criteria1:="1"
事前バインディングしていればインテリセンス機能が働くので xlsApp. と入力しても
AutoFilter が表示されないので解るかと思うのですが。
又、AutoFilter をポイントして F1 キー を押すとヘルプが表示され使用例等も記載
されていますよ。
後は、自分で同様の要領で調べて下さい。
Private Sub cmdNEW_Click() イベントの End Sub はどこへいったんでしょうかね。
ペーストしても間違いが起きる位ですから。