![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になります。
WINDOWS7 EXCELL2010 です。
下記で御指導いただいたばかりです。
http://oshiete.goo.ne.jp/qa/8787962.html
二つ質問があります。
1
「元本」のシートをコピーした時、コピー先がアクティブになります。
これを「元本」シートがいつもアクティブになるようにしたいのですが。
2
添付図のように最初にコピーの作業をした時は上手くゆくのですが二回目以降でこのボタンをクリックすると図のようになります。 もう一度クリックすると作動します。
同作業を繰り返すと同現象が発生します。
誠に恐れ入りますが 「1 と 2」の解決方法を御指導いただけないでしょうか。
参考に
Sub SheetCopy()
'
' SheetCopy Macro
' 元本のシートをコピーする
Dim NewSheetName As String
NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で新しいシート名を入力してください")
Sheets("元本").Copy After:=Sheets(1)
Sheets("元本 (2)").Select
Sheets("元本 (2)").Name = NewSheetName
Range("A1").Select
ActiveCell.FormulaR1C1 = NewSheetName
Range("A2").Select
Dim myBut As Object
For Each myBut In ActiveSheet.Buttons
If myBut.Caption = "SheetCopy" Then myBut.Delete
Next
End Sub
![「VBAでコピーした時コピー元のシートをア」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/284849_5497d5fe039d5/M.jpg)
No.1ベストアンサー
- 回答日時:
最後の End subの直前にでも
Sheets("元本").Select
を挿入することで1は解決するでしょう。
でも2の方は再現できませんでしたのでわかりません。
御回答をありがとうございました。
2 の方は色々試しましたがうまく行かないのであきらめました。
その対策として Ctrl + c で対応することにしました。
お陰様で、
元本 をアクティブにするのは上手くできました。
No.2
- 回答日時:
>「元本」シートがいつもアクティブになるようにしたいのですが。
エクセルの仕様でコピーされたシートがアクティブになりますので
コピー後、>「元本」シートをアクティブにすれば良いでしょう
>2 添付図のように最初にコピー・・・
こちらでは、そのような現象は確認できませんでした。
Sub SheetCopy()
Dim NewSheetName As String
Dim myBut As Object
NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で新しいシート名を入力してください")
Application.ScreenUpdating = False
Sheets("元本").Copy After:=Sheets(1)
With ActiveSheet
.Name = NewSheetName
.Range("A1").FormulaR1C1 = NewSheetName
.Range("A2").Select
For Each myBut In .Buttons
If myBut.Caption = "SheetCopy" Then myBut.Delete
Next
End With
Sheets("元本").Activate
Application.ScreenUpdating = True
End Sub
御回答をありがとうございました。
2 の方は色々試しましたがうまく行かないのであきらめました。
その対策として Ctrl + c で対応することにしました。
お陰様で、
元本 をアクティブにするのは上手くできました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
月利10%は年利に直すと何%...
-
B/L スプリット?コンバイン?
-
L/Cで要求されるB/L、NEGOCIABL...
-
運用利率とは?
-
VBAでコピーした時コピー元のシ...
-
キャッシュフロー表に必要な計...
-
普通分配金と特別分配金の計算方法
-
議事録を作成中‼︎ 言い回しで奮...
-
回覧板の日にち記入は失礼?
-
A3サイズ書類を入れるカバンか...
-
AFP 提案書の作成について
-
AFPの提案書にかなりてこず...
-
社交辞令を使う方に質問があります
-
技術提案書の書き方について
-
国土交通省へ提案を出すには?
-
提案書を書いています。一つ質...
-
使えない学級委員
-
カラオケ機種はどうやって作ら...
-
賃貸マンションの不動産取得税...
-
発案者と提案者の違いを教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月利10%は年利に直すと何%...
-
B/L スプリット?コンバイン?
-
運用利率とは?
-
L/Cで要求されるB/L、NEGOCIABL...
-
個別元本と基準価額について(...
-
債務超過の会社と銀行
-
知人に貸したお金を、最初の額...
-
根抵当権の元本確定するときと...
-
元利金等とアドオン方式
-
ヘッジファンドの管理報酬と、...
-
法律の範囲内での対応
-
年金原価係数の摩訶不思議
-
キャッシュフロー表に必要な計...
-
女子大生1年です!! FP技能士3...
-
フラット35の団体信用生命保険料
-
不動産鑑定士の勉強
-
半年複利の場合の平均利回り
-
普通分配金と特別分配金の計算方法
-
VBAでコピーした時コピー元のシ...
-
加重平均利息の計算について
おすすめ情報