![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBAで作業した後の選択範囲についての相談です。
コピーした値の貼り付け後に、範囲が反転した状態であるものを解除したいと
考えています。
任意のセルを選択すれば解除できると思うので、
With wb
.Worksheets(1).Cells(1, 1).Select
End With
こちらのコードを単発で実行すれば問題なく動くのですが、
他のコードと組み合わせて実行すると、実行時エラー438が返ってきます。
コード記載していませんが、wbのSetなどは間違っていません。
原因がわからずです。どなたか詳しい方、教えていただけますか。
No.5ベストアンサー
- 回答日時:
wbがNullとかいうオチはないですよね、、
ブレークポイント打って他の変数とかも中身みてみたら分かりそうな気しますが
何度もご回答いただき、ありがとうございました。
ブレークポイントを打ちながら分析してみたところ、
With wb
.Activate
.Worksheets(1).Activate
.Worksheets(1).Cells(1, 1).Select
End With
Withでwbだけの指定がどうもダメだったようで、
wb.Worksheets(1)まで指定したところ、エラーなく動きました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Visual Basic(VBA) A列の最終行に合わせて範囲をコピー 2 2022/09/04 19:10
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
セルを選択解除
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
12
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
13
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
14
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
17
VBAで文字列を数値に変換したい
Excel(エクセル)
-
18
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
19
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
20
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Excel vba 条件分岐 空白セルが...
-
Sub Auto_Open() 実行されない
-
ステップモードの動作確認方法
-
Excel VBA 選択範囲の罫線色の...
-
ACCESSで別DBにあるクエリを...
-
エクセルのVBAにショートカット...
-
ExcelVBAで毎月月初の最初にBoo...
-
最小化ボタンで最小化したフォ...
-
Excelで、チェックボックスにチ...
-
Excelのマクロ実行後に動作が重...
-
Excel VBAのステップイン
-
エクセルで条件をつけて図形を...
-
エクセルで非表示行を抜かして...
-
エクセルでの6ヶ月平均の出し方
-
ワードで、グレーの部分しか入...
-
PHPで最も近い緯度経度をDBデー...
-
フルスクリーンモードで開いたP...
-
メフィスト賞の応募歴は無しだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
VBAでのユーザフォームの表示有...
-
エクセル マクロ 別シートから...
-
ACCESSで別DBにあるクエリを...
-
最小化ボタンで最小化したフォ...
-
Excel vba 条件分岐 空白セルが...
-
ascW関数の結果がおかしい
-
メニューバーのイベントが2回...
-
GetAsyncKeyState() を利用する...
-
ExcelVBAで毎月月初の最初にBoo...
-
Excelで、チェックボックスにチ...
-
excel2010でボタンが反応しなく...
-
Excelのマクロ実行後に動作が重...
-
実行時エラー9 インデックスが...
-
Excel VBAのステップイン
-
ステップモードの動作確認方法
-
excelのvbaを使って日付を置換...
-
質問2回目になっちゃいます ex...
おすすめ情報
With wb
.Worksheets(1).Activate
.Worksheets(1).Cells(1, 1).Select
End With
アクティブの一文を入れましたが、Activateの行でエラーのようです。
コピーでの範囲(点線)ではなく、ドラッグした状態での選択範囲の解除になります。
With wb
.Activate
.Worksheets(1).Activate
.Worksheets(1).Cells(1, 1).Select
End With
Activateのところで止まってしまいますね。。。
コードでは
With wb の前に、別のワークブックでの作業(コピーペースト)となっています。
ブックをまたぐ際にエラーとなるようですが…
使い回しもしていないと思います。
2つのワークブックを使っていて、
Dim opwb As Workbook
Dim addwb As Workbook
Set opwb = Workbooks("データ.xlsm")
Set addwb = Workbooks.Add(Template:=ThisWorkbook.Path & "\" & "書式.xlsm")
で動かしています。
若干簡略させたコードを載せたいのですが、文字数オーバーのため、難しく…