ThisWorkbookコードまたは別のモジュールでコードが記述されていて別のシートで動作する場合は、 "Workbook_SheetChange"を使用する方法を見つけようとしています。 シートは別のマクロで作成され、データはアップロードされ、別々に処理されますが、作成するシートの枚数はわかりません。 "Workbook_SheetChange"を使用できる方法はありますか: - コードが別のモジュール に書き込まれている場合、または新しいシートが作成されたときに自動的にコードをコピーします。新しいシートコードにVBAコードを追加する
答えて
これはAdding code to new excel sheet dynamicallyの複製であることに同意しますが、まだ説明が必要な場合があります。
VBAでは、ワークシートの変更ごとにWorkbook_SheetChangeイベントが発生します。これはよりもはるかに優れています
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
If ActiveSheet.Name = "Sheet1" then
'Do one thing
Else
'Do another
End If
End Sub
:あなたは2つの異なる手順を実行したいのであれば、あなたのような何かを行うことができます「コードを書き込み、書き込みコード。」
新しいワークブックを作成する場合は、難しくなります。必要な場合はお知らせください。
@MacroMan ...あなたは絶対に正しいです、そして私は絶対に間違っています!私が言ったことは、_Access_については真実ですが、Excelについては真実ではありません。誰も私の間違ったアドバイスに耳を傾けないように編集する! –
@ C.White害はありません:) –
ありがとうございました。すべての回答ありがとうございますが、コードが「Worksheet_」の特定のシートコードに含まれていれば完全に動作しますが、ブックブックのコードでは、 t。私は何度かエラーが出るか、何もしません。実行時エラー-2147417848(80010108)メソッド '_workheet'オブジェクトの 'Cells'が失敗しました –
- 1. 新しいシートvbaにEventListenerを追加
- 2. コードを追加VBA
- 3. VBAにアクセスExcelに新しいシートを追加するには?
- 4. VBAのサブフォームに新しいレコードを追加する
- 5. vbaの行の選択に新しい行を追加する
- 6. VBA - シートコード名インデックスを取得する方法
- 7. エクセルVBA次の行に追加する追加のエントリエクセルVBAでちょっと新しい
- 8. VBAにアクセス - サブフォームに新しい行を追加
- 9. VBAでサブフォームに新しいレコードを追加
- 10. 新しいコントロールを追加した後に新しい行を追加する
- 11. VBA実行時にMS Wordに新しいフィールドコードを追加するには
- 12. VBAコードのaddinf情報をセルに追加するには
- 13. 正しい場所に情報を追加するためのVBAコード
- 14. リストにないユーザーフォームから新しい名前を追加します。 Excel VBA
- 15. VBAにテキストを追加しながらセミコロンを追加する
- 16. VBA Hyperlinks.Addメソッドを追加してアドレスにローカルフォルダを追加する
- 17. excel vba +プログラムでボタンにコードを追加する方法
- 18. VBAコードからセルに式を追加する
- 19. Excel VBAコード特定のセルにテキストを追加する方法
- 20. CountIf数式をVBAコードのセルに追加する
- 21. セル内に複数のハイフンを追加するVBAコード
- 22. 新しいワークブックを開いてVBAでイメージを追加する方法は?
- 23. VBAを使用してMS Accessで新しいレコードを追加する方法?
- 24. Excel VBA - jumplistに追加されていない新しいワークブックを作成
- 25. コードからJavaリソースバンドルに新しいエントリを追加
- 26. VBAでのSQLテーブルの追加/更新
- 27. コードの背後にあるテーブルに新しい行を追加する問題
- 28. コードを使用してWPFリボンに新しいアイテムを追加する
- 29. 新しいリソースを新しいリソースに追加する
- 30. 新しいリストに新しい項目を追加する
可能性のある複製http://stackoverflow.com/questions/15082722/adding-code-to-new-excel-sheet-dynamically – Spidey
あなたが何をしているのかわからない - すべてで動作する変更イベントのように聞こえるシート? Thisworkbookモジュールの 'Workbook_SheetChange'イベントにコードを追加するだけで、あなたが求めているように聞こえるようになります。例えばこのコードをThisWorkbookモジュールに追加します: 'Private Sub Workbook_SheetChange(ByVal Sh As Object、ByVal Target as Range):MsgBox Sh.Name&" "&Target.Address:End Sub' - あなたが_any_シート上の値を変更するたびに、シート名とセルアドレスを教えてください。 –