マクロ初心者です。エクセルのマクロについてです。

Question

現在知識が全くない状態でマクロを使ったプログラミングを改良しようとしています。

現在のプログラミングでは、与えられたデータをあらかじめ計算し、その値を直接プログラミングに組み込んでます。
今回は直接プログラムに打ち込んである値を、別シートのマクロで自動的に計算し、その結果をプログラムが読み込むようにしたいと思います。

簡単に言えば、マクロのプログラムに直接計算結果を組み込むのではなく、別シートで計算したものをプログラムに組み込みたいということです。

例として、
100円と200円の商品を買い、それを二人で半分ずつ支払う計算結果と
200円と400円の商品を買い、それを二人で半分ずつ支払う計算結果
をプログラムに組み込むとすると、現在では一人あたり150円と、300円という数字を直接プログラムに打ち込んでいます。
これを、別シートで計算し、それをマクロのプログラムに読み込ませることは可能でしょうか？
また、可能ならば、大体の流れはどういったものになるのか教えてもらえませんでしょうか？
よろしくお願いします。

keithin · Accepted Answer

たとえば。
sub macro1()
　dim res
　res = 1 + 2
　range("A1") = res
end sub

こういった具合に，「res」という計算結果をＡ１セルに記入します。
resの具体的な計算内容は，「１＋２」という具合にマクロに直接記入されています。

これを。
sub macro2()
　dim x1, x2, res
　x1 = worksheets("Sheet2").range("A1").value
　x2 = worksheets("Sheet2").range("A2").value
　res = x1 + x2
　worksheets("Sheet1").raneg("A1") = res
end sub

こういった具合に，「resの結果をＡ１に記入する」は同じですが，
resの具体的な計算内容として
１．シート２のＡ１をＸ１に一回受ける
２．シート２のＡ２をＸ２に一回受ける
３．Ｘ１とＸ２を使ってresを計算する

といった段取りで組み立てることができます。

＃補足
こういう内容は，エクセルマクロの「一番最初の基礎」です。
基礎過ぎて，いろんな書きぶり（＝応用）ができるので，恐らく様々な回答が寄せられて，見ているだけでもオナカイッパイになってしまうと思います。
どれでなきゃならないってのも無いので一つずつマスターしていって欲しいとは思いますが，今は目の前の仕事優先で「マクロの勉強がしたい」んじゃないと思いますので，どれでも一個使ってやっつけてください。

tsubuyuki · Answer

では・・オナカイッパイになりつつも、消化の良い食事を目指して
私からも一皿だけ振る舞わせてくださいませ（笑）。
１番さまから模範解答が出ていますし、その二番煎じも良いところですので、
どちらかと言うと「飲んだ後のラーメン」かもしれません（笑）。

さてさて、例として提示されている
> 100円と200円の商品を買い、それを二人で半分ずつ支払う計算結果
これについて見ていきます。

この計算を「エクセルのシート上で計算させるとしたら」どうされますでしょう？
基本で考えると、Ａ１セルに「１００」、Ｂ１セルに「２００」と数字を直接打ち、
Ｃ１セル辺りに「=(A1+B1)/2」くらいで入力していきますね。

この中の
　　Ｃ１セルに「=(A1+B1)/2」
の部分をＶＢＡに書いてやるのがまずは簡単かと思います。

ものすごく簡単に書くと
Sub Test1()
　　Range("C1").Value = "=(A1+B1)/2"
End Sub
もうコレだけです。ダブルクォーテーション「"」がミソです。

続いて、こんな書き方。
Sub Test2()
　　Range("C2").Value = (Range("A2").Value + Range("B2").Value) / 2
End Sub
コレでもＯＫです。計算をＶＢＡの中だけで完結させる方法です。

二つの違いに注目してくださいませ。
上記Test1は「計算式」をＣ列に返しますが、
Test2は「計算結果」をＣ列に返します。

コレがＶＢＡによる計算の大体の基礎です。
これらの他にも、１番さんの回答に見られるように「変数」をつかってみたり、
さらに進んで「配列」を使ってみたり、
いろんな書き方がありますので、お好みで、あるいは場合によって
書き分けられるようになると書いていて楽しくなってきますよ。

では、蛇足ではありますが、ちょっとだけお遊びコードを。
Sub SampleM()
Dim Val1 As Long, Val2 As Long
Dim Ans As Long

Val1 = Application.InputBox(prompt:="一つ目の数値を入力してください", _
　　　　　　　　　　　　　　　　Title:="数値１指定", _
　　　　　　　　　　　　　　　　Type:=1)
　　　　If Val1 = False Then
　　　　　　MsgBox "キャンセルされました。" & vbNewLine & _
　　　　　　　　　"処理を中止します", vbOKOnly, _
　　　　　　　　　"処理中止"
　　　　　　Exit Sub
　　　　End If

Val2 = Application.InputBox(prompt:="一つ目の数字は「" & Val1 & "」です。" &　vbNewLine & _
　　　　　　　　　　　　　　　　　　　　vbNewLine & _
　　　　　　　　　　　　　　　　　　　　"二つ目の数値を入力してください。", _
　　　　　　　　　　　　　　　　Title:="数値２指定", _
　　　　　　　　　　　　　　　　Type:=1)
　　　　If Val2 = False Then
　　　　　　MsgBox "キャンセルされました。" & vbNewLine & _
　　　　　　　　　"処理を中止します", vbOKOnly, _
　　　　　　　　　"処理中止"
　　　　　　Exit Sub
　　　　End If

Ans = (Val1 + Val2) / 2

MsgBox "一つ目の数字は「" & Val1 & "」です。" & vbNewLine & _
　　　　　"二つ目の数字は「" & Val2 & "」です。" & vbNewLine & _
　　　　　vbNewLine & _
　　　　　"二人で割ると「" & Ans & "」です。", vbOKOnly, _
　　　　　"計算結果"

Range("A2").Value = Ans
End Sub

こんなやり方も無しではないですね＾＾；

マクロ初心者です。エクセルのマクロについてです。

では・・オナカイッパイになりつつも、消化の良い食事を目指して

たとえば。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング