先日ここで、インプットボックスを使ったシート間コピーを教えて頂きました。
その中で、コピー先を選択した後にそのシートがselectされた状態にして、ペースト確認のmsgboxを表示したいのですが、どの様したらいいのでしょうか?
Sub コピー()
Dim CopyArea As Range
Dim PasteArea As Range
On Error GoTo ErrorHandler
Dim a As String
Set CopyArea = Application.InputBox(prompt:= _
"コピー元を指定して下さい", Title:="コピー元", Type:=8)
BUCK:
Set PasteArea = Application.InputBox(prompt:= _
"貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8)
Sheets(****).Select
If MsgBox("貼り付けます。" & Chr(10) & "よろしいですか?キャンセルで再選択。", vbOKCancel + vbQuestion) = vbOK Then
CopyArea.Copy PasteArea
Else
GoTo BUCK
End If
Exit Sub
ErrorHandler:
MsgBox "処理が取り消されました"
End Sub
No.4
- 回答日時:
> セルや行、列の位置
アドレスを取得して表示するということですか?
Sub コピー()
Dim CopyArea As Range
Dim PasteArea As Range
On Error GoTo ErrorHandler
Dim a As String
Set CopyArea = Application.InputBox(prompt:= _
"コピー元を指定して下さい", Title:="コピー元", Type:=8)
BUCK:
Set PasteArea = Application.InputBox(prompt:= _
"貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8)
sn = PasteArea.Worksheet.Name
pa = PasteArea.Address
Sheets(sn).Select
If MsgBox(sn & "の" & pa & "に貼り付けます。" _
& Chr(10) & "よろしいですか?" _
& Chr(10) & "キャンセルで再選択。", vbOKCancel + vbQuestion) = vbOK Then
CopyArea.Copy PasteArea
Else
GoTo BUCK
End If
Exit Sub
ErrorHandler:
MsgBox "処理が取り消されました"
End Sub
No.3
- 回答日時:
すいません
間違えました
× Set b=Rnge(Application.InputBox)'"C2"と入力
○ Set b=Range(Application.InputBox)'"C2"と入力
No.1ベストアンサー
- 回答日時:
前質問の時、色々やってみたが(色々なケースを考慮すると、うまくいかなかった部分があり)、回答は断念し、あげていませんが、その一部に作っていました。
x = b.Worksheet.Name
これをSheet(X)という風に使えばどうですか。
---
Sub test01()
Set a = Application.InputBox("コピー元", Type:=8)
Set b = Application.InputBox("コピー先", Type:=8)
x = b.Worksheet.Name
MsgBox x
'a.Copy b
End Sub
この回答への補足
早速のご回答ありがとうございます。コピー先は必ず別シートになるので出来ます!
最近すっかり煮詰まってしまい、一つ一つの動作に感動している今日この頃です。
欲張って、もう1つ質問なのですが、Set b=Application.InputBoxで得たセルや行、列の位置を、仮にy=b.で取得するためにはどの様な命令文を入れればいいのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
マウントしたディスクにcpで、...
-
一行おきに貼り付ける 可能でし...
-
エクセルVBA 実行時エラー'...
-
DataTableに入っているデータを...
-
Eclipseのコード入力時の、行コ...
-
Ctrl + Cなど複数の入力キー...
-
コピーした文章が改行がされて...
-
Subversionで作業一段落の作業...
-
Listviewに表示された文字のコ...
-
Activesheet.Pasteで困っています
-
jakarta poiを使用し、EXCELの...
-
excel vba シートがなければコ...
-
Delphi6 ShowMessage のタイトル
-
C++言語で、構造体のコピーは可...
-
テーブルのコピーについて
-
ホームページをまねされないよ...
-
バッチで当日日付で作成される...
-
文字列の切り出し
-
シートに張り付けたボタンがシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
DataTableに入っているデータを...
-
Eclipseのコード入力時の、行コ...
-
C++言語で、構造体のコピーは可...
-
Ctrl + Cなど複数の入力キー...
-
一行おきに貼り付ける 可能でし...
-
マウントしたディスクにcpで、...
-
Activesheet.Pasteで困っています
-
文字列の切り出し
-
jakarta poiを使用し、EXCELの...
-
Listviewに表示された文字のコ...
-
【UWSC】WEBページ内コピーした...
-
他プロジェクトのFormを自プロ...
-
Excelでコピーしたセル(テキス...
-
エクセルVBA 実行時エラー'...
-
VBScript でサブフォルダも含め...
-
シートに張り付けたボタンがシ...
-
Eclipseでコピーするとき行数な...
-
【再質問】Eclipseのコード入力...
-
バッチで当日日付で作成される...
おすすめ情報
