オートフィルタ(AutoFilter)でのデータ抽出:Excel VBA入門
オートフィルタ(AutoFilterメソッド)でのデータ抽出 Topへ データリストから必要なデータを表示し、他のデータは非表示にします。 expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown) Field 必ず指定します。フィルタの対象となるフィールド番号を整数で指定します。 フィールド番号は、リストの左端列が「1」となります。 Criteria1 省略可能。抽出条件となる文字列 ("101" など) を指定します。 "=" と指定すると、空白セルが抽出されます。 "<>" と指定すると空白以外のフィールドが抽出されます。 この引数を省略すると、抽出条件はALLになります。 引数OperatorにxlTop10Itemsが指定されている場合は、引数Criteria1に項目数を指定します
Excel VBA:ExcelのVBAでGetOpenFilenameメソッドを使ってCSVファイルから読み込んだデータをアクティブセルに貼り付けるサンプルプログラム
GetOpenFilenameメソッドを使い[ファイルを開く]ダイアログボックスを表示して選択したCSVファイルのデータをインポートしてアクティブセルを起点に貼り付けるサンプルプログラム。 サンプルプログラム中のSplit関数の第二引数に別の区切り記号を指定すれば、カンマ区切りのCSVファイルに限らず、別の区切り記号を使ったテキストファイルに流用が可能。 以下にサンプルプログラムを記述。 VBAサンプルプログラム 以下のサンプルプログラムは、実行時にカレントディレクトリをデスクトップフォルダ変更した上で[ファイルを開く]ダイアログボックスを表示している。 Sub Sample01() Dim OpenFileName 'カレントディレクトリをデスクトップに変更 Set wScriptHost = CreateObject("WScript.Shell") ChDir wScriptHost
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
