エクセルマクロが重い

質問

こんにちは。
ご教授くださいませ。

すでに先方が作っているエクセルのシートがありまして、
そのシートの表組み規則にのっとって入力するユーザーフォーム
を私のほうで作ったのですが、重いです。

selectの多用はだめ！というところまでは調べたのですが
じゃあどうしたらいいかわかりません。

■
'--------------------8時から
If OptionButton1.Value = True Then

ActiveCell.Offset(3, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox1.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox2.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox3.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox4.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox5.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox6.Value

ActiveCell.Offset(3, 0).Range("A1").Select
ActiveCell = UserForm3.TextBox12.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox11.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox10.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox9.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox8.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox7.Value

ActiveCell.Offset(3, 0).Range("A1").Select
ActiveCell = UserForm3.TextBox13.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox14.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox15.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox16.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox17.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox18.Value

ActiveCell.Offset(3, 0).Range("A1").Select
ActiveCell = UserForm3.TextBox24.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox23.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox22.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox21.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox20.Value
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = UserForm3.TextBox19.Value

ActiveCell.Offset(3, 0).Range("A1").Select
ActiveCell = UserForm3.TextBox25.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox26.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox27.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox28.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox29.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = UserForm3.TextBox30.Value

'ActiveWorkbook.Save
MsgBox "入力しました。", vbInformation, "確認"

End If
'--------------------8時から（ＥＮＤ

■

基本の流れは...
最初にオプションボタン３つのどれか1個の
選択を求め、その条件に応じて
始基点となるセルが変わります。
で、あとは与えられた表組みを縦や横に
移動しながら、対応するテキストボックスの
値を入れる、という
我ながら頭の悪い方法で^^;

.selectではない、スマートな方法があればと思います。
ぜひお知恵を！

回答No.1

keithin · ベストアンサー

■簡単な方法
'--------------------8時から
If OptionButton1.Value = True Then

activecell.offset(3, -1) = userform3.textbox1
activecell.offset(3, 0) = userform3.textbox2
activecell.offset(3, 1) = userform3.textbox3
activecell.offset(3, 2) = userform3.textbox4
activecell.offset(3, 3) = userform3.textbox5
activecell.offset(3, 4) = userform3.textbox6

activecell.offset(6, -1) = userform3.textbox7
activecell.offset(6, 0) = userform3.textbox8
activecell.offset(6, 1) = userform3.textbox9
activecell.offset(6, 2) = userform3.textbox10
activecell.offset(6, 3) = userform3.textbox11
activecell.offset(6, 4) = userform3.textbox12
　：
以下同文
　：
'ActiveWorkbook.Save
MsgBox "入力しました。", vbInformation, "確認"

End If

★もうちょっと違う方法
dim i,j
'--------------------8時から
If OptionButton1.Value = True Then

for i = 0 to 4
　for j = 1 to 6
　activecell.offset( i * 3 + 3, j - 2) = me.controls("TextBox" & (i * 6 + j))
　next j
next i

'ActiveWorkbook.Save
MsgBox "入力しました。", vbInformation, "確認"

End If

＃補足
そもそも「セレクトしないマクロ」を書くというのは，「マクロで変数を使う事を覚える」のとほとんど同義です。
ユーザーフォームまで手を出す段階に来たなら，変数を使いこなすスキルは「絶対に必要な要件」です。マクロの参考書とか使い，ガンバってもう一歩先を勉強して下さい。

＞その条件に応じて始基点となるセルが変わります。

前述までの回答は，「始基点のセルをセレクトする」ところは今のプログラムのまま使用する前提で書いてあります（どんな具合にセレクトしてるのかご相談に掲示されていませんのでね）。

でも，
変更前に例えば：
worksheets("シート名").cells(行番号, 列番号).select
のようにしてActivecellにしている部分を

set 始点セル = worksheets("シート名").cells(行番号, 列番号)
に改め，

始点セル.offset(3, -1) = userform3.textbox1
などのような書きぶりにしていきます。

そうやって「始点セル」を「アナタのプログラムで自力で取得する」ことを覚えれば，更に実際には今みたいに「なぜか中途半端な場所にActivecellがあって，わざわざ最初からそこから３下がって１つ左から開始」みたいなちゅうぶらりんなことを止めて，さっさと「最初のTextBox1が入るセル」を基点セルとして計算し利用するといった，もっと明確にすっきりしたプログラムに直す事もできるようになります。

お礼

神現る（笑

大変！参考になりました。

これは...

>for i = 0 to 4
　for j = 1 to 6
　activecell.offset( i * 3 + 3, j - 2) = me.controls("TextBox" & (i * 6 + j))
　next j
next i

美しい。。。(笑

なかなか私の場合、知識を詰め込むことは
しても、それを咀嚼し応用していく、
センスがないというか、ないんですよ...
私の物事全般ですが...ハイ^^;

本当にありがとうございました！
今後ともよろしくお願いいたします。