EXCEL2003 VBAについて
EXCEL2003で12個の同じ体裁の複数シートで構成されたブックがあります。
(1)シート1の[A1]に数値を入力するとシート名に文字列で構成された[E1]セルの内容を反映させる
(2)シート2~12の[A1]セルにはシート1[A1]の値が入る
(3)シート2~12にも[E1]の内容がシート名に反映される・・・はず
(4) (1)処理時に自動的に(3)の処理が行われず、シート2~12に関しては、手動でA1をダブルクリックした後ESCキーでキャンセルし、シート名を更新しています。
しかしこの方法ですとこれをシート2~12全てでやらなければなりません。
(1)の入力だけで(2)を自動更新させる方法についてアドバイス頂けないでしょうか。
どうぞよろしくお願いします。
Sheet内スクリプト
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ERR:
If Target.Cells(1, 1).Address = "$A$1" Then
Me.Name = Cells(1, 5)
End If
Target.Cells(1, 1).Select
Exit Sub
ERR:
MsgBox "その名前には変更出来ません。", vbCritical + vbOKOnly, "ERROR"
Resume Next
End Sub
No.2ベストアンサー
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'★A1セル以外なら何もしないで終了
If Target.Cells(1, 1).Address <> "$A$1" Then Exit Sub
Dim 値, シート, I, シート数, 名, エラー
値 = Me.Cells(1, 5)
シート数 = ThisWorkbook.Worksheets.Count
'★全シートに同じ処理を行う
For I = 1 To シート数
'★n番目のシートを対象にする
Set シート = ThisWorkbook.Worksheets(I)
'★A1セルに値を設定
シート.Cells(1, 1) = 値
名 = シート.Cells(1, 5)
On Error Resume Next
'★シート名を変更
シート.Name = 名
'★エラー状態を記録
エラー = err.Number
On Error GoTo 0
'★エラーが発生した場合はメッセージボックスを表示
If エラー <> vbNormal Then
MsgBox 名 & "には変更できません", vbCritical, "ERROR"
End If
Next
Me.Cells(1, 1).Select
End Sub
No.1
- 回答日時:
>>(1)シート1の[A1]に数値を入力するとシート名に文字列で構成された[E1]セルの内容を反映させる
>>(3)シート2~12にも[E1]の内容がシート名に反映される・・・はず
説明がよくわかりません。
(1) シート1のE1セルにある文字列 -> シート1の名前に設定
は、わかりましたが、
(3) の説明だと、シート2~12の名前もシート1の名前(シート1のE1セルの文字列)に設定
になりますよね。
同じ名前のシート名が12個になります。(実際はエラーとなりますが)
もしかして、私の勘違い?
正しいのは下の説明?
(3)シート2~12 それぞれ [E1]セルからシート名を設定
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
共有しているエクセルのファイ...
-
パソコンからL判で印刷する方法
-
弥生の青色申告オンライン を初...
-
タックインデックスシール
-
数量・会社ごとに異なる単価表...
-
わかる方教えてください! 今日...
-
最近、やよいの青色申告クライ...
-
弥生青色申告オンラインで貸借...
-
会計
-
Excelの改ページプレビューの既...
-
エクセル 背景色のついたセル位...
-
弥生会計オンラインで、バック...
-
バーコードリーダー Excel 連動
-
やよいの青色申告22 のわからな...
-
マネーフォワードの財布が毎回...
-
一太郎で封筒の宛名印刷したい...
-
会計ソフト おすすめは?
-
EXCEL2016のファイルが突然、古...
-
勘定奉行の売上削除
-
「Windows7」サポート
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンからL判で印刷する方法
-
共有しているエクセルのファイ...
-
弥生の青色申告オンライン を初...
-
タックインデックスシール
-
無料エクセル→PC版エクセル
-
数量・会社ごとに異なる単価表...
-
一太郎2022に古いATOKは使える...
-
みつも郎で
-
男が新卒で経理の職に就くのは...
-
一太郎で封筒の宛名印刷したい...
-
■複式簿記■ スマホでは『複式簿...
-
添付のエクセルの車検証・運転...
-
わかる方教えてください! 今日...
-
Googleスプレッドシートで合計...
-
出金伝票の書き方ですが、 勘定...
-
numbersで累計を計算するには
-
弥生会計オンラインで、バック...
-
弥生の青色申告の借方勘定科目...
-
アンインストールができない。
-
エクセル 背景色のついたセル位...
おすすめ情報