数字間差を求めるＶＢＡのソースを教えて下さい。

質問

どなたかご存じでしたら回答願います。
数字選択式宝くじのミニロトの抽選結果をエクセルにつけております。
下記のような抽選結果があったとします。
この結果について、エクセルＶＢＡを実行すると、
数字間差を計算するためのソースはどうゆうふうな記述をすればよいですか？

【抽選結果シート】・・・最新の抽選結果を一番したのセルに入力しています。
第１　第２　第３　第４　　第５　　ボ数字
1　　　2　　　5　　　6　　　　7　　　　21
10　　　4　　　11　　13　　　15　　　　18
8　　　9　　　17　　21　　　28　　　　　9
14　　16　　　18　　20　　　25　　　　10
19　　22　　　23　　24　　　27　　　　21
　　　　　　　　：
　　　　　　　　 ：

【抽選結果シート】・・・ＶＢＡ実行後、ボ数字の右側が自動計算される。
第１ 第２　第３　第４　第５　　ボ数字　　差12　差23　差34 差45　 差15 差123 差1234 差12345 　
1　　　2　　5　　　6　　　7　　　　21　　　　1　　　　3　　　1　　　　1　　　6　　　　13　　　131　　　1311
4　　10　　11　　13　　15　　　　18　　　　6　　　　1　　　2　　　　2　　　11　　　61　　　612　　　6122
8　　　9　　17　　21　　28　　　　9　　　　 1　　　　8　　　4　　　　7　　　20　　　18　　　184　　　1847
14　　16　　18　　20　　25　　　　10　　　　2　　　　2　　　2　　　　5　　　11　　　22　　　222　　　2225
19　　22　　23　　24　　27　　　　21　　　　3　　　　1　　　1　　　　3　　　8　　　　31　　　311　　　3113

【注意事項】
　　１）差の計算ルールは下記のとおりです。尚、計算結果にマイナスは発生しません。
　　　　　　差１２・・・・抽選結果シートの「第２-第１」です。
　　　　　　差２３・・・・抽選結果シートの「第３-第２」です。
　　　　　　差３４・・・・抽選結果シートの「第４-第３」です。
　　　　　　差４５・・・・抽選結果シートの「第５-第４」です。
　　　　　　差１５・・・・抽選結果シートの「第５-第１」です。

　２）差123、差1234、差12345については下記のとおりです。
　　　　　差１２３　　　・・・　「差１２」と「差２３」の結果を結合（ａｎｄ）したものです。
　　　　　差１２３４　　・・・ 「差１２」と「差２３」と「差３４」の結果を結合（ａｎｄ）したものです。
　　　　　差１２３４５　・・・　「差１２」と「差２３」と「差３４」と「差４５」の結果を結合（ａｎｄ）したものです。
　３）使用しているエクセルは、エクセル２０１０です。
　４）ＶＢＡは、抽選結果シートに結果が全て入力されていれば第１回抽選結果から最新抽選結果迄　　　の計算をします。　

以上、ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

はて。わざわざマクロなど使わなくても、各列に所定の数式を埋めておくだけですが。

Ａ列に回数
Ｂ～Ｇ列に第１～ボ
Ｈ～Ｌ列に差
Ｍ、Ｎ、Ｏ列に差の結合
１行目にタイトル行
２行目からデータ。

sub macro1()
　dim lastRow as long
　lastrow = range("A65536").end(xlup).row
　range("H2:K" & lastrow).formula = "=ABS(C2-B2)"
　range("L2:L" & lastrow).formula = "=ABS(G2-B2)"
　range("M2:M" & lastrow).formula = "=(H2&I2)*1"
　range("N2:N" & lastrow).formula = "=(M2&J2)*1"
　range("O2:O" & lastrow).formula = "=(N2&K2)*1"

’通常は以下の細工は不要
　with range("H2:O" & lastrow)
　.value = .value
　end with

end sub

お礼

いつも回答頂きありがとうございます。
早速試してみようと思いますが、
コメントに、”通常は以下の細工は不要”とありますが、
その下に書かれているのを、実行するとしないのでは
何がちがうのですか？

回答No.2

keithin

＞早速試してみようと思いますが、

はて？
寄せられた回答を、実地に試してみることもしないで「お礼」を書いているのですか？
でしたらまずそこから考え違いを直して、まずご自分の手を動かし実際にやってみてから、確かにうまく出来ましたなり意図したのと違うこういう結果になりましたなりを、返答なさるようにしてみてはいかがでしょう。

そういう中で、既に回答を差し上げてからずいぶん時間も経ちましたが、思いつきで「どうなりますか」と聞く前に実際にご自分でやってみて、するとしないでどう違うのか確認することも当然できたと思うのですが、あなたはどう思いますか？

＞するとしない

回答したように、わざわざマクロを使うまでもなく数式を用意しておけば結果を得られるご相談です。
いったいどんな式を用意すればよかったのか、わかるようになっています。