Excel2003 vba
お世話になります。以下のようなコードを書いているのですが、意図しない動きをしているのでご教授願いたいです。
No|名前 |食べられる
1 |リンゴ|○
2 |テレビ|
3 |電話 |
4 |バナナ|○
5 |ミカン|○
上のようなデータにオートフィルタをかけて、○がついているデータだけを配列に取り込もうとしています。
Dim Buff As Variant
Cells(1, 1).AutoFilter field:=3, Criteria1:="○"
Range("A1").CurrentRegion.Select
Buff = Range("A2", "C6").SpecialCells(xlCellTypeVisible) '一番上はフィールド名なのでA2から
フィルタがかかった状態で見えている「リンゴ」「バナナ」「ミカン」のデータだけをBuffに取り込んでいるつもりなのですが、Buffの中には1行目にかかれている「リンゴ」のデータしか入ってきません。
フィルタがかかっている時は違うデータの取り方があるのでしょうか。
よろしくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
例データ
A列 B列 C列
1ax
2by
3cz
4at
5sy
6au
7gr
8st
ーー
コード B列がaの、C列の値を配列に
Sub test01()
Dim d(100)
Dim Buff As Variant
Cells(1, 1).AutoFilter field:=2, Criteria1:="a"
Range("A1").CurrentRegion.Select
Set Buff = Range("A1:C8").SpecialCells(xlCellTypeVisible)
For Each cl In Buff
If cl.Column = 3 Then
d(k) = cl
k = k + 1
MsgBox cl
End If
Next
End Sub
ーー
表示されるもの
X,t,u
No.3
- 回答日時:
こんばんは。
配列というのは、全部が繋がっているものか、マトリックス(格子)になっているものだけです。
普通は、一旦、セルに貼り付けしてから、再度取り直しますが、直接、取得するなら、以下のコードのようにします。
配列に取得したものを、出力する場合は、配列が、縦横が逆に取れていますから、取得した後に、Transpose 関数で、縦横を転換する必要があります。
'-------------------------------------------
Sub Test1()
Dim Buff() As Variant
Dim r As Range
Dim c As Range
Dim d As Range
Dim i As Long
Dim col As Long
Dim k As Long
With ActiveSheet
.Cells(1, 1).AutoFilter field:=3, Criteria1:="○"
With .AutoFilter.Range
Set r = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
col = .Columns.Count
End With
End With
For Each c In r.Rows
ReDim Preserve Buff(col - 1, i)
For Each d In c.Cells
Buff(k, i) = d
k = k + 1
Next d
k = 0
i = i + 1
Next c
'Range("A15").Resize(UBound(Buff, 2) + 1, col).Value = Application.Transpose(Buff)
End Sub
'-------------------------------------------
No.2
- 回答日時:
いやーはずしてました。
やったことはありませんがそれでいいと思っていました。
下のコードを実行してみたら
Sub Buddd()
Dim s As Variant
s = Union(Range("A1:B3"), Range("A10:B13"))
Debug.Print UBound(s, 1)
End Sub
結果は3
飛び飛びの範囲はvariantに代入すると最初の範囲しか入らないようです。
フィルタではなく、そういう問題があるんですね。
ちょっとアプローチを変えてみます。
できそうでできなかったので、むず痒くて^^;
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
VBAのautofilter、criteriaの配列指定について(Excel2016)
Excel(エクセル)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
6
EXCEL VBA Dictionaryで複数の値を格納→離れた位置に出力する方法
Excel(エクセル)
-
7
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
8
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
9
エクセルのフィルタオプションで「ある文字列を含まない」条件は?
Excel(エクセル)
-
10
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
11
エクセルで折り返しと縮小の同時設定は無理?
Excel(エクセル)
-
12
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
13
Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel(エクセル)
-
14
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
15
マクロ F8が効かない
Excel(エクセル)
-
16
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
エクセルで時間の判定をしています。0時以上5時以下の場合は○と判定したいので、以下のイフ関数を試しま
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、絶対値の平均を算...
-
array関数で格納した配列の型を...
-
.NET - 配列変数を省略可能の引...
-
[エクセル]連続する指定範囲か...
-
ExcelのINDEXとMATCH関数でスピ...
-
リストボックスの列見出し(Exc...
-
SUMPRODUCT関数を用いた最小値
-
読み込みで一行おきに配列に格納
-
Excelのセルの色指定をVBAから...
-
二次元配列の中の各行の要素を...
-
VBA 配列に格納した値の平均の...
-
【VBA】配列に数式を仕込む方法...
-
配列がとびとびである場合の書き方
-
VBA-読み込んだテキストフ...
-
バイト配列の構造体変換について
-
iniファイルのキーと値を取得す...
-
VB.NET→クリスタルレポートにお...
-
Dictionaryを使い4つの条件の一...
-
Excel VBA 配列の分割について
-
【VBA】 動的な変数(定数)の指定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[エクセル]連続する指定範囲か...
-
Excelのセルの色指定をVBAから...
-
array関数で格納した配列の型を...
-
ExcelのINDEXとMATCH関数でスピ...
-
エクセルで、絶対値の平均を算...
-
表にフィルターをかけ、絞った...
-
配列がとびとびである場合の書き方
-
DataSetから、DataTableを取得...
-
読み込みで一行おきに配列に格納
-
VBA 配列に格納した値の平均の...
-
Excel オートフィルタのリスト...
-
Datatableへの代入
-
SUMPRODUCT関数を用いた最小値
-
【VBA】ユーザーフォーム リス...
-
.NET - 配列変数を省略可能の引...
-
Excel VBA 配列の分割について
-
VB6.0 ファイルの一括読込み
-
スプレットシートのGetTextにつ...
-
iniファイルのキーと値を取得す...
-
INDEX(D:D,L3)の意味は?
おすすめ情報