すべてのワークシートの列のすべてのセルに値を追加

Question

ウェブサイトでこのマクロが見つかりましたが、スプレッドシートのすべての行をコピーする必要があることを除いて、すべてのシート。誰もそれで私を助けることができますか？ ThisWorkbookで

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub 
    [B1] = [B1] + [A1] 
End Sub 

Answer 1

、任意のワークシートが変更されたとき、それは変更するためにWorkbook_SheetChangeイベントにコードを置きます。たとえば：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub 
    [B1] = [B1] + [A1] 
End Sub 

：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
'put your code here 
End Sub 

は、だからあなたの上記のコードのために、それはこのことでしょう