【やりたい事】
ActiveCell.EntireRow.Clear のコードに
ブックやシートも指定したいです
以下マクロにて
ws.ActiveCell.EntireRow.Clear としたら
デバックとなりました
出来れば、変数を利用し、ブックとシートを指定した上での
アクティブセルを指定したいです
ご存じの方、宜しくお願いします
【コード】
Sub あいうえお()
Dim filePath As String
filePath = "C:\Users\2020\OneDrive\マクロ\vlookup.xlsm"
Dim wb As Workbook
Set wb = Workbooks.Open(filePath)
Set ws = wb.Worksheets("反映先")
ActiveCell.EntireRow.Clear
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
ActiveCellが示すセルは状況依存です。
意図的に指定しているのならまだ理解できますが、開いただけのファイルのActiveCellを操作するというのは、実際にどこのセルを操作しているのかわからないことになるので、そのようなプログラムを作成する意図が不明と言わざるを得ません。
>ブックやシートも指定したいです
ActiveCellの意味を理解なさっていないように思われます。
ActiveCellは現在アクティブなセルを示すものですから、「一番トップにあるWindowのActiveSheet上の選択状態にあるセル」を意味します。
ですので、ブックやシートを指定することに意味はありません。
(暗黙的に決まっているので)
トップに無いブックやシートを指定すれば、(当然ですが)エラーになります。
>出来れば、変数を利用し、ブックとシートを指定した上での
>アクティブセルを指定したいです
どうしても「ActiveCell」に対しての操作を行いたいのなら・・
ws.Activate
ActiveCell.Clear
のように、対象となるセルを保持しているシートをアクティブにしてから実行すれば可能ですが、最初に記したように「意図不明のコード」と言わざるを得ません。
お返事ありがとうございます
ブックを約3つ開きマクロを
使い作業しています
ですので、自分でもわかりますいように、指定してえきたいという意味です
アクティブセルは、指定しなくても
常に1つということですね
No.1
- 回答日時:
ちょっと質問。
>Set wb = Workbooks.Open(filePath)
で初めてファイルが開くわけですが、どのようにして「ActiveCell」を決定するのでしょうか?
それが決まっていないので「ws.ActiveCell.EntireRow.Clear」はエラーになるのでしょう。
何らかの目的Cellが初めから決まっているのでしたら、
ActiveCell.EntireRow.Clear
ではなく、
wb.ws.Range("a1").EntireRow.Clear
※ActiveCellがA1の場合の例
っとすればいいわけです。
シート名が反映先ということですので、何らかの別のシートを選択(=ActiveCell)して、Worksheets("反映先")の同じ行をクリアーしたいというのであれば、まだほかに作戦もありそうです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】VLOOKUPにて参照元にデータが無い場合【該当なし】と表示したい 3 2024/06/08 16:45
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 【マクロ】1つのマクロの中に、ブック指定とシート指定が混在しても良いのですか? 2 2024/05/16 07:13
- Excel(エクセル) VBA バックグラウンドで別ブックを開いてデータ転記 3 2024/04/04 14:24
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/01 17:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
列を増やさずに、月だけの件数を求める場合
Excel(エクセル)
-
-
4
【マクロ】ファイル名の変更について
Excel(エクセル)
-
5
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
Excel(エクセル)
-
6
VBAについての質問です
Excel(エクセル)
-
7
【マクロ】アクティブセルの行のデータをクリアするマクロについて
Excel(エクセル)
-
8
エクセルで上位バイトのセルと下位バイトのセルを1つのセルにして16進数を作る方法
Excel(エクセル)
-
9
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
10
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
11
【Microsoft Office Excel Compote 】マイクロソフトオフ
Excel(エクセル)
-
12
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
13
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
14
Excelにて数式を使用して 工数計算をしたいのですが、 計算方法が分からないので教えて下さい。 1
Excel(エクセル)
-
15
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
16
エクセルで日付の入ったセルの月別の個数が知りたい
Excel(エクセル)
-
17
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
18
エクセルの計算
Excel(エクセル)
-
19
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
20
エクセル②
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
別ブックをダイアログボックス...
-
【VBA】全シートの計算式を全て...
-
vbaでvbaProjectのパスワード解...
-
ワイルドカード「*」を使うとう...
-
vbaで他のブックに転記したい。...
-
VBS Bookを閉じるコード
-
VBAで別のブックにシートをコピ...
-
エクセルVBAで書式と値の貼付け...
-
ACCESSVBA からExcelの他ブック...
-
Excel2007VBAファイルの表示に...
-
Excelブックがアクティブになっ...
-
エクセルのマクロを使ってメー...
-
【Excel VBA】書き込み先ブック...
-
Excel-VBAでのファイルの開き方
-
【ExcelVBA】zip圧縮されたCSV...
-
VBSでExcelのオープン確認
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
(マクロ)データをAブックからB...
-
VBS Bookを閉じるコード
-
VBA 別ブックからコピペしたい...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【VBA】全シートの計算式を全て...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
おすすめ情報