Excel VBA質問箱 IV

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

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


12356 / 13645 ツリー ←次へ | 前へ→

【10896】オートフィルターについて hisao 04/2/18(水) 13:54 質問
【10900】Re:オートフィルターについて IROC 04/2/18(水) 14:37 回答
【10905】Re:オートフィルターについて hisao 04/2/18(水) 15:47 発言
【10908】Re:オートフィルターについて Asaki 04/2/18(水) 15:54 回答
【10910】Re:オートフィルターについて IROC 04/2/18(水) 16:02 回答
【10914】Re:オートフィルターについて hisao 04/2/18(水) 16:37 発言
【10915】Re:オートフィルターについて IROC 04/2/18(水) 16:39 回答
【10916】Re:オートフィルターについて hisao 04/2/18(水) 17:15 発言
【10917】Re:オートフィルターについて Asaki 04/2/18(水) 17:31 回答
【10918】Re:オートフィルターについて hisao 04/2/18(水) 17:32 発言
【10919】Re:オートフィルターについて Asaki 04/2/18(水) 17:35 発言
【10920】Re:オートフィルターについて hisao 04/2/18(水) 17:51 お礼
【10930】Re:オートフィルターについて IROC 04/2/19(木) 8:35 回答
【10944】Re:オートフィルターについて hisao 04/2/19(木) 11:26 お礼

【10896】オートフィルターについて
質問  hisao E-MAIL  - 04/2/18(水) 13:54 -

引用なし
パスワード
   いつもお世話になります。
オートフィルターで抽出した行についてのみ、一挙に例えばE列に"*"の様な
印を入れる方法は無いでしょうか。

【10900】Re:オートフィルターについて
回答  IROC  - 04/2/18(水) 14:37 -

引用なし
パスワード
   フィルタで抽出した範囲の選択は、
編集 ジャンプ セル選択 可視セル 
で出来ますよ。

【10905】Re:オートフィルターについて
発言  hisao E-MAIL  - 04/2/18(水) 15:47 -

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

早速お返事有り難うございます。
ところで次のように作ったところ
 Selection.SpecialCells(xlCellTypeVisible).Columns("E:E").Select
 Selection.FormulaR1C1 = "*"
連続した行しか"*"が入らなかったのですが
申し訳ありませんが 今少し教えて下さい。

>フィルタで抽出した範囲の選択は、
>編集 ジャンプ セル選択 可視セル 
>で出来ますよ。

【10908】Re:オートフィルターについて
回答  Asaki  - 04/2/18(水) 15:54 -

引用なし
パスワード
   こんにちは。

>Selection.SpecialCells(xlCellTypeVisible).Columns("E:E")
>Selection.FormulaR1C1 = "*"
 ↓
Selection.Columns("E:E").SpecialCells(xlCellTypeVisible).Value = "*"
ではどうなりますか?

【10910】Re:オートフィルターについて
回答  IROC  - 04/2/18(水) 16:02 -

引用なし
パスワード
   マクロの自動記録する部分の手順は、
1.オートフィルタ
2.E1を選択
3.shift + ctrl + ↓ キーで抽出範囲を選択。
4.ジャンプ 可視セル で、抽出範囲の可視セルを選択

ここまで記録したら、
最後の行に
selection.Value = "*"
を追加すれば、出来るかと思います。

【10914】Re:オートフィルターについて
発言  hisao E-MAIL  - 04/2/18(水) 16:37 -

引用なし
パスワード
   ▼IROC さん:
ご多忙中申し訳ありません。
どうも うまく行きません。
オートフィルターを使ったとき、空白行も表示されているため
空白行も"*"が入ってしまいました。
何かの拍子で空白行が非表示になってうまく行った事もあるのですが 何故かよく解りません。
前回教えて頂いた方法では 何故か 全部のセルが"*"になってしまいました。
宜しくお願いします。


>マクロの自動記録する部分の手順は、
>1.オートフィルタ
>2.E1を選択
>3.shift + ctrl + ↓ キーで抽出範囲を選択。
>4.ジャンプ 可視セル で、抽出範囲の可視セルを選択
>
>ここまで記録したら、
>最後の行に
>selection.Value = "*"
>を追加すれば、出来るかと思います。

【10915】Re:オートフィルターについて
回答  IROC  - 04/2/18(水) 16:39 -

引用なし
パスワード
   >オートフィルターを使ったとき、空白行も表示されているため
どのようなデータを、なにをキーワードにして、フィルタしているのでしょうか?

【10916】Re:オートフィルターについて
発言  hisao E-MAIL  - 04/2/18(水) 17:15 -

引用なし
パスワード
   ▼IROC さん:
例えば注文番号 15437の様な数字を選びます。この数字だけが選択されるのですが、空白の行も非表示にはなりません(選択はされないのですが)
使用の目的は2つのシート間で注文番号更に枝番が同じ物(重複データー)を識別したいのです。A表と同じ注文番号、枝番を持つ物をB表から選びます。
find関数でやろうとしたのですが 私の力では同注番で枝番が複数有っても注番毎に1つしか選んでくれません。そこで A表の注番、枝番同じ物をB表から選択し 印を入れる作業を繰り返えすマクロを作りたいのです。データーはA表は5千、B表は2万程度有り どうしてもマクロでないと抽出不能です。
宜しくお願いします。

>>オートフィルターを使ったとき、空白行も表示されているため
>どのようなデータを、なにをキーワードにして、フィルタしているのでしょうか?

【10917】Re:オートフィルターについて
回答  Asaki  - 04/2/18(水) 17:31 -

引用なし
パスワード
   >空白の行も非表示にはなりません(選択はされないのですが)
データの最終行より後ろの行のことですか?

【10918】Re:オートフィルターについて
発言  hisao E-MAIL  - 04/2/18(水) 17:32 -

引用なし
パスワード
   ▼Asaki さん:
はい。そうです。

>>空白の行も非表示にはなりません(選択はされないのですが)
>データの最終行より後ろの行のことですか?

【10919】Re:オートフィルターについて
発言  Asaki  - 04/2/18(水) 17:35 -

引用なし
パスワード
   では、Selectionの範囲を、データがある範囲のみにしておけばよいのではないでしょうか?

【10920】Re:オートフィルターについて
お礼  hisao E-MAIL  - 04/2/18(水) 17:51 -

引用なし
パスワード
   そう言う事ですね。お騒がせしました。
後は どの程度のスピードで出来るか?やってみます。有り難うございました。

▼Asaki さん:
>では、Selectionの範囲を、データがある範囲のみにしておけばよいのではないでしょうか?

【10930】Re:オートフィルターについて
回答  IROC  - 04/2/19(木) 8:35 -

引用なし
パスワード
   >3.shift + ctrl + ↓ キーで抽出範囲を選択。

この作業でデータのある範囲のみを選択しているはずですが・・・?

【10944】Re:オートフィルターについて
お礼  hisao E-MAIL  - 04/2/19(木) 11:26 -

引用なし
パスワード
   ▼IROC さん:
恐れ入ります。
shift + ctrl + ↓。E列にデーターが入って居ればその通りなんですが
データーが入っているのはA列等でE列はまだ空白のため全E列が選択されてしまいました。よって オートフィル実行後 
A=range("A60000").end(XLup).row
range("E2:E"&A).select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "=""*"""
とする事にしました。お世話になりました。

>>3.shift + ctrl + ↓ キーで抽出範囲を選択。
>
>この作業でデータのある範囲のみを選択しているはずですが・・・?

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