マクロで任意の複数セルにデータを一度に入力する

質問

マクロで任意の複数セルにデータを一度に入力するにはどうしたら、
いいでしょうか？
例えば、ボタンをクリックするとA1とA2にパソコン 10万
といったデータを入力したいです。
マクロ初心者ですので、よろしくお願いします。

回答No.4

keithin · ベストアンサー

相変わらず具体的なヤリタイ事が，まるで説明できてません。

＞選択してるセルと他の指定したセルに値を入れたい

例えば：
Ａ１とＡ２を選択しているときに，選択されたセルに値を入れたい：
sub macro4()
　selection = "パソコン10万"
end sub

例えば：
Ｂ１を選択しているときに，Ｂ１とその下のＢ２とついでにＢ３にも「選択しなくても」記入したい
sub macro5()
　activecell.range("A1:A3") = "パソコン１０万"
end sub

「選択した」だの「指定した」だの，アナタのヤリタイキモチばっかりで「具体的にエクセルで何したい」のか，目に見えるエクセルの様子がさっぱり情報不足だってことです。

お礼

遅くなりました。
大変参考になりました。ありがとうございました。
ただ、初心者とは何をどう質問して良いかすら
わからないものです。その辺りを考慮頂きたかったですね。

回答No.3

hallo-2007

>選択してるセルと
Sub ボタン1_Click()
Selection.Value = "10万円"
End Sub

>他の指定したセルに値を入れたいのです。
Sub ボタン1_Click()
Range("A1").Value = "10万円"
Selection.Value = "10万円"
End Sub

という事でしょうか。

お礼

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

回答No.2

mar00

複数のセルをCtrlキーを押しながら選択してパソコン 10万と入力して
Ctrlキーを押しながらEnterではダメなんでしょうか。
どうしてもマクロという事であればマクロの記録で上記の操作を
すればできます。

回答No.1

keithin

はて？
いま多分お判りの方法で
sub macro1()
　range("A1") = "パソコン１０万"
　range("A2") = "パソコン１０万"
end sub

のように作成すれば，「マクロを起動するアクション」は１回でつるつるっとデータが記入されていきますが，いったいどこにこだわりがあるのでしょうか。

それでとりあえずご質問の直接の回答としては，
sub macro2()
　range("A1:A2") = "パソコン 10万"
end sub

のようでイイですね。

また例えば
sub macro3()
　range("A1,C3") = "パソコン 20万"
end sub
などのような事もやればできます。

補足

すみません。下手な説明で。
やりたいのは、任意のセルを選択して、
ボタンをクリックすると選択してるセルと
他の指定したセルに値を入れたいのです。し
わかりにくい説明ですみません。
早速の回答ありがとうございます。
後少しお付き合い頂けると有難いです。