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にアクセスExcelに新しいシートを追加するには?
- 2. vbaの行の選択に新しい行を追加する
- 3. VBAのサブフォームに新しいレコードを追加する
- 4. エクセルVBA次の行に追加する追加のエントリエクセルVBAでちょっと新しい
- 5. VBAにアクセス - サブフォームに新しい行を追加
- 6. VBA - シートコード名インデックスを取得する方法
- 7. VBAでサブフォームに新しいレコードを追加
- 8. 新しいコントロールを追加した後に新しい行を追加する
- 9. VBAコードのaddinf情報をセルに追加するには
- 10. 正しい場所に情報を追加するためのVBAコード
- 11. リストにないユーザーフォームから新しい名前を追加します。 Excel VBA
- 12. VBA Hyperlinks.Addメソッドを追加してアドレスにローカルフォルダを追加する
- 13. VBAにテキストを追加しながらセミコロンを追加する
- 14. Excel VBAコード特定のセルにテキストを追加する方法
- 15. セル内に複数のハイフンを追加するVBAコード
- 16. VBAコードからセルに式を追加する
- 17. CountIf数式をVBAコードのセルに追加する
- 18. 新しいワークブックを開いてVBAでイメージを追加する方法は?
- 19. VBAを使用してMS Accessで新しいレコードを追加する方法?
- 20. VBAでのSQLテーブルの追加/更新
- 21. VBAでの新しい行グリッチの追加
- 22. コードの背後にあるテーブルに新しい行を追加する問題
- 23. コードを使用してWPFリボンに新しいアイテムを追加する
- 24. 新しいリソースを新しいリソースに追加する
- 25. ボーダーを追加し、合計行の後に値を削除するvbaコード
- 26. コメントを追加した後にVBAコードをトリガーする方法は?
- 27. プライマリキーでリンクテーブルを追加するためのVBAコード
- 28. VBA、私は私のマクロこの式に追加したいVBA
- 29. JTableで新しい行を追加した後のFireコード
- 30. VBAに列を追加する方法
可能性のある複製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_シート上の値を変更するたびに、シート名とセルアドレスを教えてください。 –