マクロの初心者です。エクセル2010を使用しています。
以下のようなマクロをいろいろ検索し参考にして作りましたが、
シート1でコピーし、シート2の任意のセルに貼り付けをして、そのままシート2で終了するには、どうすればよいでしょうか。
現在では、シート2のセルに貼り付け、その他の処理を終えると、シート1のコピー元に戻って終了してしまいます。
そして、このマクロを個人用マクロとして、すべてのブックで使用するのは可能でしょうか。
その場合はどうすればよいのでしょうか。
アドバイスをよろしくお願いします。
Sub 値と横連結()
Application.DisplayAlerts = False
With Application.InputBox _
("貼付先セルをクリック")
Selection.Copy
.PasteSpecial paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
If Selection.Count = 1 Then Exit Sub
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Selection.Font
.Name = "MS Pゴシック"
.Size = 8
End With
Selection.Borders.LineStyle = xlContinuous
Selection.Borders.Color = -10375249
Selection.Merge True
Application.DisplayAlerts = True
End With
End Sub
No.1ベストアンサー
- 回答日時:
個人用マクロブックの作り方:
開発タブから「新しいマクロの記録」を開始する
マクロの保存先は個人用マクロブックにする
てきとーに操作し、記録終了する
エクセルを一回再起動し、その際に個人用マクロブックの保存を聞かれたら、当然はいと答える。
個人用マクロブックの使い方:
ALT+F11を押す
プロジェクトエクスプローラから個人用マクロブック(personal)を展開し、必要に応じて標準モジュールを追加、下記のマクロを記入する
sub macro2()
dim h1 as range
dim h2 as range
on error resume next
’コピー元と貼り付け先を取得する
set h1 = selection
set h2 = application.inputbox("Select destination", type:=8)
if h2 is nothing then exit sub
’書式と値を張り付ける
h2.parent.select
set h2 = h2.resize(h1.rows.count, h1.columns.count)
h1.copy destination:=h2
h2.value = h1.value
end sub
ファイルメニューから終了してエクセルに戻り、マクロを実行する。
#質問は「貼り付け先を任意のセルに指定したい」なので、説明されてないマクロ後半の書式設定については割愛です。どこの書式を設定したいのか不明ですし。追加で質問しないでください。
この回答への補足
有難うございました。
質問が言葉足らずでした。
貼り付けをするシートは方眼用紙スタイルにして、セルの幅を固定させて使用していますので、
セレクトするセルは任意の列と行にして、貼り付けと同時に横連結、、いろいろ書式も含めて一度のマクロで処理出来たら、便利かしらと思っています。未熟すぎて思い通りのマクロができません。
ご回答いただいたマクロで活用させていただきます。有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセル シート内の一番下のセ...
-
【エクセル】「実行時エラー’10...
-
エクセルで○をつけるマクロ設定
-
任意のセルでマクロを実行させたい
-
EXCELのダイアログシートって、...
-
フォルダ内にある全ファイルの...
-
勤務表でチェックした日付を別...
-
エクセルファイルを開いた回数...
-
エクセルVBAの別sheetの空白行...
-
こんなマクロなんですが。
-
エクセルVBAで内容変更のたびに...
-
【エクセル マクロ】【初質問】...
-
エクセルVBAコード
-
1〜13のシート支出簿を一つの会...
-
エクセルのマクロの実行が途中...
-
セルの一部分だけを太字にする方法
-
excelで画像のハイパーリンクを...
-
Excelのシート上のShapeにイベ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルで複数のシートのクリ...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
エクセルで特定の行だけ行削除...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
【エクセル】フリーワード検索...
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
シートではなくBOOK間で重複し...
-
フォルダ内にある全ファイルの...
-
EXCELのダイアログシートって、...
-
エクセル:セル内の文字列の最...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
エクセルで○をつけるマクロ設定
-
エクセル マクロ 一定時間おき...
-
Excelにて、同じ画像を複数のセ...
おすすめ情報