人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: FujiiRock
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● うぃんど
●100ポイント ベストアンサー

一例

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
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ