作業ブックのシートに下記のコードを設定しております。
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
このコードは、セルF15に不特定の文字が表示されるとマクロ「担当者情報総合」が実行されますが、
このコードに「指定シート名」を追加できる方法を教えてください。
指定シート名は「質疑」としてください。
同じく
If Range("$F$18").Value = "確認申請" Then
Call 確認申請関係シート表示
End If
このコードは、セルF18に「確認申請」と文字が表示されるとマクロ「確認申請関係シート表示」が実行されますが、
このコードに「指定シート名」を追加できる方法を教えてください。
指定シート名は「質疑」としてください。
以上となります。
宜しくお願い致します。
No.2
- 回答日時:
Worksheet_Changeは特定のシートに変更があった場合に呼び出されます。
これを「質疑」シートに書いておけばシート名を指定する必要はありません。逆に、他の場所に書いて「質疑」シートの変更を捉えることはできません。Range("$F$18")の方は、ThisWorkbook.Sheets("質疑").Valueと書けば、他の場所に書いても「質疑」シートのF18セルを参照できます。
No.3
- 回答日時:
>このコードに「指定シート名」を追加できる方法を教えてください。
>指定シート名は「質疑」としてください。
これは、2つの解釈ができます。
解釈1
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
に、以下の機能を追加したい。
セルF15に不特定の文字が記入された時、
担当者情報総合 を実行し、
更に、新規シート「質疑」 を追加したい。
この解釈での回答がNo1の方です。
解釈2
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
現在の機能は
セルF15に不特定の文字が記入された時、
担当者情報総合 を実行しているが、
このシートは シート「質疑」 ではない。
シート「質疑」上のセルF15に不特定の文字が記入された時にも、
担当者情報総合 を実行できるようにしたい。
この解釈での回答がNo2の方です。
あなたが希望されるのは、どちらの解釈でしょうか?
No.4ベストアンサー
- 回答日時:
解釈2の場合、以下の2つの方法があります。
案1.シートモジュールに登録する。
質疑のシートモジュールに、作業ブックのシートに登録してあるものと全く同じものを作成する。
案2.Thisworkbookに以下のプロシージャを登録する。
①現行の作業ブックのシートに登録してあるプロシージャは削除する。
このシートのシート名は、「●●」と仮定します。
②Thisworkbookに以下のプロシージャを登録する。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "●●" Or Sh.Name = "質疑" Then
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
End If
If Sh.Name = "●●" Or Sh.Name = "質疑" Then
If Range("$F$18").Value = "確認申請" Then
Call 確認申請関係シート表示
End If
End If
End Sub
そうすると、シート名が●● 又は 質疑 で、
セルF15に不特定の文字が表示されるとマクロ「担当者情報総合」が実行されます。
同様に、シート名が●● 又は 質疑 で、
セルF18に「確認申請」と文字が表示されるとマクロ「確認申請関係シート表示」が実行されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/01 17:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) ExcelのVBAコードについて教えて下さい。 2 2022/06/25 14:04
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルVBAの配列について
Visual Basic(VBA)
-
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
-
4
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
5
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
6
Cellsのコードが打てません
Visual Basic(VBA)
-
7
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
-
8
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
Visual Basic(VBA)
-
9
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
10
VBAのコードを教えてください
Visual Basic(VBA)
-
11
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
12
VBのWPFとはなんでしょうか?
Visual Basic(VBA)
-
13
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
14
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
15
VBA コード
Visual Basic(VBA)
-
16
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
17
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
18
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
19
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
20
引数に数値、文字列の混在
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
ユーザーフォームに別シートか...
-
エクセルVBAについて
-
VBA レジストリの値の読み方に...
-
VBAの計算で@が出てしまう件
-
FileCopy時のエラー
-
【VBA】マクロの入ったファイル...
-
ExcelのVBAです。フォルダ内の...
-
Excel-VBAのmsgBox()の不思議
-
Excelのマクロでワードのテキス...
-
VBA listBoxから
-
VBA 複数条件の分岐処理の上手...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel マクロについての相談
-
VBA実行後に元のセルに戻りたい
-
VBA listBoxについて
-
CADシステムに図面番号を入力し...
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックからコピペしたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報
回答ありがとうございます。
申し訳ありません、このコードをどこに追加をすればよろしいでしょうか?
下記のように追加をするとエラー1004が出てしまい、コードの
activesheet.name= "質疑"が黄色くなってしまします。
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets.add
ActiveSheet.Name = "質疑"
宜しくお願い致します。