エクセルの入力方法についてです。

質問

エクセルの入力方法についてです。

例えば
A2～A10セルの中にすでに数字が入っていてる状態で
それぞれの数字にA1のセルにドロップダウンで指定した数字をかけるには
どのようにすれば組めるでしょうか？

例えばA1［1］（1～4） 　A2［3］A3［3］A4［5］のとき
A1を［1］→［2］として　　A2［6］A3［6］A4［10］としたい・・・。
データ群にドロップダウンの数字をかけて可変表示させたいのです。

エクセルは2003です。
ちなみにマクロについては理解していないので必要ならこの機会に勉強してみます。
その他不明な点ありましたらおっしゃってください。

どなたか解法よろしくお願いします。

回答No.1

fate1979 · ベストアンサー

マクロは必要ないと思います。

列Ｂを作り、基本値を入れ込みます。
列Ａで数式を作り、それぞれドロップダウンするＡ１と掛け算させます。

※「A$1」は、下にコピペしたときに、「1」の値を変えさせないためです。

　｜　　Ａ　　 　　　｜Ｂ
１｜　　２　　 　　　 ｜なし
２｜　　=A$1*B2 　｜3
３｜　　=A$1*B3 　｜3
４｜　　=A$1*B4 　｜5
５｜　　=A$1*B5 　｜10

お礼

ほかの方のやり方を試してみましたが
このやり方なら確実でしたので、シートを工夫して
このやり方でやってみようと思います。

ありがとうございました！

補足

回答ありがとうございます

説明不足であったので申し訳ないのですが
この方法だとＢに相当する列（あるいは行）が必要になるので
それではだめなのです。

上記の表でいうなら、Ｂ列無しに
Ａ１がドロップダウンのセル（仮に１とする）
Ａ２～Ａ５に数字を入力
そのあとＡ１を１→２にするとＡ２～Ａ５のセルの値が２倍される
というものです。

回答No.3

mu2011

一例です。
シートタブ上で右クリック→コードの表示→以下のコードを貼り付けてお試しください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
For Each c In Range("A2:A10")
If IsNumeric(c) And c <> "" Then
c.Value = c * Range("a1")
End If
Next
End Sub

お礼

回答ありがとうございます

No.2のかた同様、効果はあるんですが
求めている形式にはなりませんでした。。

参考にして勉強してみます

回答No.2

xls88

≫VBAの例です。
シート見出しを右クリック＞コードの表示＞表示されたコードウインドウに下記コードをコピペ
「形式を選択して貼り付け」から「演算」の「乗算」が実行されます。
コードは上記操作を「新しいマクロの記録」で得られたコードを編集しました。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Copy
Range("A2:A4").PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Select
End Sub

ワークシートのイベントプロシージャ
http://excelvba.pc-users.net/fol3/3_6.html

お礼

回答ありがとうございます

VBAをワークシートにあわせてコピペしてみたんですが
対象のセルがすべてドロップダウンになってしまいました。
コピーになっているため？

こういう入力方法？もあるんですね。
勉強になりました