Excelワークシートでマクロを結合

Question

行の最初の列に値が入力されたときに特定のセルにデフォルト値が設定されるワークシートマクロを作成しようとしています。その行の他のセルに同じ行を追加します。たとえば、ユーザーが2Aに何らかの値を入力すると、セル2Cおよび2Dにはそれぞれ番号10および20が自動的に入力されます。次に、ユーザーが2Sで値を入力すると、その同じ値がセル2Iと2Jに自動的に戻されます。

Ralphさん、ありがとうございました。私はstackoverflowのと、一般的なインターネット検索で同様の質問を研究して見つけたもののオフに基づいて、私は次のようにまとめる：

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim A As Range, S As Range, InteA As Range, InteS As Range, r As Range 
Set A = Range("A:A") 
Set S = Range("S:S") 
Set InteA = Intersect(A, Target) 
Set InteS = Intersect(S, Target) 
Application.EnableEvents = False 
If Not InteA Is Nothing Then 
    For Each r In InteA 
     r.Offset(0, 2).Value = "10" 
     r.Offset(0, 3).Value = "20" 
    Next r 
ElseIf Not InteS Is Nothing Then 
    For Each r In InteS 
     r.Offset(0, -9).Value = Target 
     r.Offset(0, -10).Value = Target 
     r.Offset(0, -11).Value = Target 
    Next r 
End If 

Letscontinue: 
Application.EnableEvents = True 
Exit Sub 
Whoa: 
MsgBox Err.Description 
Resume Letscontinue 
End Sub    

Answer 1

実行するマクロを取得するには、いくつかの種類のイベントが発生することがあります。ワークシートに何か変更が加えられたときにマクロを実行しようとするのは魅力的ですが、それがどれくらいの頻度でトリガーされるのか想像してみてください。すべての時間。あなたが列Aに入力していない場合、10 & 20がそれらのセルに飛び込み始めて、列Aに入力していない場合にプロセスをスキップするために条件付きコードを書き込むと心配する必要があります。

あなたが好むかもしれない別のオプション。データがAに存在する場合、10 & 20になり、列CおよびDの数式を入力

= IF（A2 <> ""、10、 ""）または= IF（ISNUMBER（A2）、10 、0）...好きなものは何でも。

ヘッダー行とデータ行を選択し、[挿入]メニューの[実際のExcelテーブル]に変換します。 （Insert ... Table）列Aに入力すると、数式が新しい行に拡張されます。

マクロは避けられますか？