
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
No4です。
>Set r = Intersect(Selection, ActiveSheet.AutoFilter.Range)
>の行です
多分、Selection か AutoFilter.Range が取れてないってことだと思いますけれど・・
Office2019 の場合は AutoFilter をかけていないと、ActiveSheet.AutoFilterがNothingになるので、前の行でそれをチェックしています。
(365では仕様が変わっているのかも知れませんね)
Selection はユーザの選択範囲ですが、セル範囲を選択していればエラーにはならないはずと思いますが、何か別の図形などを一緒に含んでしまっていることはありませんか?
多少チェックポイントを増やしてみた例を以下に示しておきます。
もしも、以下で『オートフィルタ範囲を取得できません』の表示が出るなら、365と2019の仕様の違いだと思われますので、当方の環境では確認できません。
その場合には、オートフィルタの範囲を取得できさえすれば良いので、直接Rangeで指定するようにしてしまえば、とりあえずは動作すると思います。
Sub sample()
Dim r As Range, c As Range
If ActiveSheet.AutoFilter Is Nothing Then MsgBox "オートフィルタが設定されていません": Exit Sub
On Error Resume Next
Set r = ActiveSheet.AutoFilter.Range
If Err.Number <> 0 Or r Is Nothing Or TypeName(r) <> "Range" Then _
MsgBox "オートフィルタ範囲を取得できません": Exit Sub
If TypeName(Selection) <> "Range" Then MsgBox "選択範囲が不正です": Exit Sub
On Error GoTo 0
Set r = Intersect(Selection, r)
If r Is Nothing Then MsgBox "有効な範囲が指定されていません": Exit Sub
For Each c In r.Cells
If Not c.EntireRow.Hidden Then c.Value = c.Value
Next c
End Sub
No.3
- 回答日時:
No2です。
>どこかの行が引っかかってるというわけは無さそうです
状況がわかりかねます。
実行できずに、エディターに入力した時点でエラー表示になるってことでしょうか?
それとも、実行はできるけれどエラーが表示されるってことでしょうか?
後者なら、「どこの行か不明」ってことはないと思いますけれど・・
前者の場合は、バージョン等環境の違いかもしれません。
ちなみに、当方は Office2019 ですが、問題なく実行できます。
入力した時点では問題なく実行も出来ます。
エラーが表示された際、特定の行に色が付いていないのでどこの行か不明なのですが
エラーになった行を特定できる機能があるのならお手数ですが教えて頂きたいです
Office365です
No.2
- 回答日時:
No1です。
>フィルターをかけVBAで列を選択し、やってみたのですが
>エラー 424
>オブジェクトが必要です
>が出てしまいました
あら・・・
出そうなものはチェックしたつもりだったのですが、
どの行でエラーになっているのでしょうか?
すみません。No1のコードにタイポがありました。
これが原因とは限らないのですが、訂正しておきます。
>Dim f As Range, c As Range
↓ ↓ ↓
Dim r As Range, c As Range
※ ちなみに当方の環境では、No1のままのコードでも、
処理はできエラーはでませんね。
(とは言え、訂正はしておいてください)
ありがとうございます。
直しましたがやはり同じエラーです
どこかの行が引っかかってるというわけは無さそうです
VBAは大分初心者なので見落としてるところがあるのかもしれません
No.1
- 回答日時:
こんにちは
手作業でやるには、一発では無理そうですね。
若干手間が掛かりますが、ソート機能を利用すればひとつずつ処理するよりは速いでしょう。
1)フィルターをかける
2)空き列に何らかのマークを入力し、最終行までフィルコピー
3)フィルターを外して、マークでソート
以上で、対象の行だけ固まりますので、その範囲をまとめてコピー、値をペースト
4)再度ソートで元の順序に戻す
(元の順を記録しておくために、ナンバリングの列が必要になります)
「そんなかったるいことやってらんねぇ!」という場合はVBAで。
フィルターをかけた状態で、値に変換したい列を選択して以下を実行することで、可能と思います。
(フィルターがない場合や、対象範囲が選択されていなければなにもしません)
Sub sample()
Dim f As Range, c As Range
If ActiveSheet.AutoFilter Is Nothing Then Exit Sub
Set r = Intersect(Selection, ActiveSheet.AutoFilter.Range)
If r Is Nothing Then Exit Sub
For Each c In r.Cells
If Not c.EntireRow.Hidden Then c.Value = c.Value
Next c
End Sub
ありがとうございます。
フィルターをかけVBAで列を選択し、やってみたのですが
エラー 424
オブジェクトが必要です
が出てしまいました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 可視セルだけコピーしたい ※条件付き書式で非表示 2 2021/11/01 12:01
- その他(コンピューター・テクノロジー) スプレッドシートのフィルターについて 関数が入っているセルを条件としてフィルターをかけたいのですが、 1 2022/05/30 17:17
- Visual Basic(VBA) 【Excel VBA】シートの中から特定の文字列のセル位置を取得するには? 6 2021/11/03 23:11
- Excel(エクセル) エクセル集計後の列に商品名を入れる方法を探しています。 2 2021/12/08 20:56
- Excel(エクセル) エクセル 指定した列の全ての行の元の値に7%掛けた合計にしたい 2 2021/11/30 15:12
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) excel関数について お世話になります。上のセルに関数を入れセル右下をダブルクリックすると、関数は 4 2021/11/17 12:11
- Excel(エクセル) エクセルのマクロ作成について教えてください 5 2023/02/20 00:39
- Visual Basic(VBA) オートフィルタの結果をコピーして、別ブックに値で貼り付けたい 1 2021/11/08 21:24
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
複数指定セルの可視セルのみを別シートに転記するVBAについて
Visual Basic(VBA)
-
excelで可視セルのみ置換
Excel(エクセル)
-
-
4
エクセルでフィルターをかけた列にデータを貼り付けする方法
Excel(エクセル)
-
5
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
6
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
8
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
9
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
10
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
11
【Excel】 可視セルへの貼り付けについて
Excel(エクセル)
-
12
Excel2016 まとめてのコピペができない時があります
Excel(エクセル)
-
13
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
14
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
15
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
16
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
17
エクセル オートフィルタで絞り込みをしたデータの色つけ
Excel(エクセル)
-
18
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
19
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
20
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Aの値からBの値を除するとは??
-
エクセルで可視セルにのみ値貼...
-
信頼区間の1.96や1.65ってどこ...
-
マイナスからプラスへ転じた時...
-
値差の%計算方法について
-
数学のデータの相関の散布図で...
-
「Aに対するBの割合」と「Aに対...
-
10%引いた元の数字を出すには?
-
2÷3などの余りについて
-
エクセルの問題です。絶対値の...
-
ある商品のロス率を5%見込み、...
-
エクセルのオートフィル?ドラ...
-
エクセル 3つの値の中からデー...
-
平方根の値とはなんですか?
-
20'(角度)の計算がわかりま...
-
変数とパラメータとは違うもの...
-
パーセントの出し方を教えて下さい
-
2310/n が素数となるんですが...
-
ニューラルネットワークの重み...
-
上昇率の計算式
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
信頼区間の1.96や1.65ってどこ...
-
「Aに対するBの割合」と「Aに対...
-
Aの値からBの値を除するとは??
-
2÷3などの余りについて
-
エクセルで可視セルにのみ値貼...
-
ある商品のロス率を5%見込み、...
-
マイナスからプラスへ転じた時...
-
20'(角度)の計算がわかりま...
-
数学のデータの相関の散布図で...
-
エクセルの問題です。絶対値の...
-
変数とパラメータとは違うもの...
-
エクセルのオートフィル?ドラ...
-
EXCELの分散分析表のP-値が....
-
10%引いた元の数字を出すには?
-
値差の%計算方法について
-
Excelで1つしかない値だけを抽...
-
大きな負の値?負の大きな値???
-
シグマを平均値で割る
-
エクセル 3つの値の中からデー...
-
パーセントの出し方を教えて下さい
おすすめ情報