質問: excelでactivexコンボボックスにa,b,c,dと4つ値があり、 bを選択したら、セルD33に設定されている以下数式から=IF(SUM($AR33:AR33)=0,"",SUM($AR33:AR33)) 以下数式に =IF(SUM($AR34:AR34)=0,"",SUM($AR34:AR34)) に変更したいのですが、 セルD33だけでなく同様のことをD33〜AM33までに適用したいです。 すません。どんな感じでやったらよいでしょうか。。。
回答: 一例 ``` Option Explicit Sub Macro1() ' 式を入れる Range("D33").FormulaR1C1 = "=IF(SUM(R[1]C44:R[1]C[40])=0,"""",SUM(R[1]C44:R[1]C[40]))" ' コピー Range("D33").Select Selection.AutoFill Destination:=Range("D33:AM33"), Type:=xlFillDefault End Sub ```