Excel VBA質問箱 IV

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

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


3700 / 13646 ツリー ←次へ | 前へ→

【60539】計算式 A 09/2/26(木) 15:04 質問[未読]
【60540】Re:計算式 横入り 09/2/27(金) 4:48 発言[未読]
【60543】Re:計算式 Abebobo 09/2/27(金) 9:20 発言[未読]
【60646】Re:計算式 A 09/3/6(金) 12:55 お礼[未読]
【60644】Re:計算式 A 09/3/6(金) 12:10 お礼[未読]

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

引用なし
パスワード
   初めて利用させていただきます。
VBA初心者です。
本などを参考にしてエクセルマクロを作成しています。
大体は作ることが出来ましたが、どうしても分からないことがあります。
A列に最大でも20種類程度の3桁〜4桁程度の番号が入ります。
入る順番も、バラバラです。
この番号ひとつひとつに、計算式を付けたいです。
式は、数量*グラム/0.〜/1000と言うものです。
式自体はシンプルなので、セルに式をVBAで組み込むことは出来ました。
ただ、A列に番号が入った時、その番号に式を関連付ける事がどうしても出来ません。
どなたか、分かる方がいらっしゃいましたら、お知恵を少しお貸しいただけませんでしょうか?
シートに組み込んだのは、このような式です。
A列は番号、B列には数量、E列はグラム、G,K,O列には、B列の数量をある割合で割り振ったものを
G,K,Oの数量に対して、H,L,Pの各セルに計算式をいれました。
ですが、これでは各セルに式が固定されてしまって
A列の番号が変わると、それに式が対応できません。
分からないのは、毎回A列にランダムに入る3〜4桁の番号を判断して、
その番号に対してこの式を用いると言うことは、可能なのでしょうか?

Private Sub 計算式()

Sheets("***").Select
'
  Range("H11").Formula = "=G11*E11/0.9/1000"
'

End Sub

【60540】Re:計算式
発言  横入り  - 09/2/27(金) 4:48 -

引用なし
パスワード
   ▼A さん:
>シートに組み込んだのは、このような式です。
>A列は番号、B列には数量、E列はグラム、G,K,O列には、B列の数量をある割合で割り振ったものを
>G,K,Oの数量に対して、H,L,Pの各セルに計算式をいれました。

>毎回A列にランダムに入る3〜4桁の番号を判断して、
>その番号に対してこの式を用いると言うことは、可能なのでしょうか?
この式って何ですか?

結局、あなたのされたい計算において、
A列の番号はどこにどのように影響してくるものかを示さないと、
禅問答のようで誰にもわかりませんね。
マクロ以前に手作業でやろうとしたらどうなるのか、それを示しては?

【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

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

【60644】Re:計算式
お礼  A  - 09/3/6(金) 12:10 -

引用なし
パスワード
   おっしゃるっ通りですね。
質問の仕方が悪く、大変失礼しました。
もう少し、質問内容を推考します。

【60646】Re:計算式
お礼  A  - 09/3/6(金) 12:55 -

引用なし
パスワード
   Abebobo様

ありがとうございます。
思うような形になりました。
本当に、ありがとうございます。

3700 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free