Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19901 / 76732 ←次へ | 前へ→

【62257】Re:AdvancedFilterがうまくいきません
発言  kanabun  - 09/7/4(土) 16:50 -

引用なし
パスワード
   ▼hiro さん:

>また、他に気になる点があります。criteriarangeがCriteriaRange、copytorangeがCopyToRangeとならないので、コードとして認識していないのかなと心配しています。

それは大丈夫かと思いますよ

たとえば、抽出範囲をRangeオブジェクト型の変数に入れてコードを記述すると、

 Dim r As Range  '← Rangeオブジェクト型変数
 With Worksheets("作業明細")
   Set r = .Range("C3", .Cells(.Rows.Count, 3).End(xlUp))
 End With
このあと、
 r.
とタイプすると、メソッド候補リストに AdvancedFilter があるので[TAB]キー
でそれを選び、そのあとスペースを打ち込むと、
 「Action As XlFilterAction, [CriteriaRange], [CopyToRange],[Unique] 」
とパラメータリストが出てきますよね?
そのとき、Action,CriteriaRange, CopyToRange,Unique と大文字小文字を区別
して打ち込めば、モジュール内のそのほかのパラメータリストもみな一括変更さ
れます。↓

 r.AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Worksheets("日付集計1").Range("A3"), _
  Unique:=True
End Sub

すべて小文字だと「コードとして認識していない」かと不安になりますが、
ちゃんと認識しています。
たとえば プロシージャのどこかに
Dim value as double
と、value という変数を宣言したとすると、(こんな変数名あり得ないのですが)
そのプロジェクト内のすべてのモジュールの Rangeオブジェクトの
Valueプロパティが "value" に変わってしまいます。
VBE は プロジェクト全体で変数名、プロパティ、プロシージャ名の
大文字小文字を統一するように管理しています。

先ほど宣言した
> Dim value as double
は、一端
Dim Value as double
と直して、
すぐ この一行を削除しておいてください (^^

967 hits

【62250】AdvancedFilterがうまくいきません hiro 09/7/4(土) 3:17 質問
【62251】Re:AdvancedFilterがうまくいきません かみちゃん 09/7/4(土) 8:13 発言
【62252】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 9:34 発言
【62254】Re:AdvancedFilterがうまくいきません かみちゃん 09/7/4(土) 13:47 発言
【62258】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 19:09 お礼
【62256】Re:AdvancedFilterがうまくいきません kanabun 09/7/4(土) 15:53 発言
【62259】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 19:38 お礼
【62257】Re:AdvancedFilterがうまくいきません kanabun 09/7/4(土) 16:50 発言
【62260】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 20:25 お礼

19901 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free