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までに適用したいです。
すません。どんな感じでやったらよいでしょうか。。。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/11/12 08:38:26
  • 終了:2013/11/12 21:46:23

ベストアンサー

id:windofjuly No.1

うぃんど回答回数2625ベストアンサー獲得回数11492013/11/12 10:22:29

ポイント100pt

一例

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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません