Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30455 / 76732

←次へ　｜　前へ→


	【51544】数式を挿入

isida - 07/9/24(月) 12:55 -


	引用なし

	パスワード

いろいろログも調べたのですが合うものがないので
質問させていただきます
下記の数式を行毎に挿入したいのですがよろしくお願いします。
L9==IF(ISBLANK(H9),"",IF(I9="X",(H9*J9/1000000),IF(I9="L",H9*J9/1000000,IF(I9="P",(H9*H9)/1000000*0.785))))
N9==IF(H9>0,L9*M9,"")
O9==IF(K9>0,K9/N9/3600,"")
V9==IF(P9>0,AVERAGE(P9:U9),"")
W9==IF(ISBLANK(P9),"",N9*V9*3600)

1.H9に数値が（1以上）入力されたら各列に数式書込
2.L9は数式はX・L・Pの値がI9表示済みなのでこの値によって
　Xの場合　=H9*J9/1000000
　Lの場合　=H9*J9/1000000
　Pの場合　=(H9*H9)/1000000*0.785
というようにSelect Caseになるのでしょうか条件で数式を変えたい
あとは
.Offset(, 6).FormulaR1C1 ="=IF(RC[-6]>0,RC[-2]*RC[-1],"""")"
.Offset(, 7).FormulaR1C1 ="=IF(RC[-4]>0,RC[-4]/RC[-1]/3600,"""")"
.Offset(, 14).FormulaR1C1 ="=IF(RC[-6]>0,AVERAGE(RC[-6]:RC[-1]),"""")"
.Offset(, 15).FormulaR1C1 ="=IF(ISBLANK(RC[-7]),"""",RC[-9]*RC[-1]*3600)"
かな？上記自動記録からの数式です

3.範囲はH9:H95になります

お手数掛けますがどうぞよろしくお願いします

1 hits

▼

【51544】数式を挿入 isida 07/9/24(月) 12:55

≪