Excel VBA質問箱 IV

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

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


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

21582 / 76732

←次へ　｜　前へ→


	【60543】Re:計算式

Abebobo - 09/2/27(金) 9:20 -


	引用なし

	パスワード

投稿しなおす前の説明のほうがわかりやすかったです。

シート名　”対応表”に　以下のように数字に対する表を作っておいて

コード　　　　係数
100　　　　0.9
300　　　　0.52
800　　　　0.75
1200　　　　0.66

Sub test()
Dim I_r　As Range
Dim S_r　As Range
Dim Kd　 As Double

For Each I_r In Sheet1.Range("A1:A10")　
　With I_r
　　For Each S_r In Sheets("対応表").Range("A1:A20")
　　　If I_r.Value = S_r.Value Then
　　　　Kd = S_r.Offset(, 1).Value
　　　　Exit For
　　　End If
　　Next
　　If Kd <> 0 Then
　　　.Offset(, 7).Formula = _
　　　　　　　　　"=G" & .Row & "*E" & .Row & "/" & Kd & "/1000"
　　Else
　　　.Offset(, 7).Formula = "対応表未記入"
　　End If
　End With
　Kd = 0
Next

End Sub

こんなコードでどうでしょう？

2 hits

▼

【60539】計算式 A 09/2/26(木) 15:04