Excel2000 UFを用いたプログラミング

質問

はじめまして、お世話になります。
今回Excel2000でユーザーフォームを用いたプログラミングを作成したいと思っています。
当方、プログラミングは少しかじった程度で不明な点が多々あった為、助けていただきたく、投稿致しました。宜しくお願い致します。

今回作成したいプログラムは以下の物です。
※添付ファイルと併せて、読んでいただけると幸いです。

あ-1~え-4まで数値を入力し、コマンドボタン"実行"を押すと　Yes　No の確認画面を出し、
Yesを押すと以下の作業を繰り返す。(Noを押すと処理せず、戻る)

(1)　あ-1 に入力された数値を B列(受付No) から検索する。
(2)　ヒットした行の F列(材料) に あ-2 と あ--3 の和を入力する。
(3)　い ~ え まで同じ処理を繰り返す。(この時、 X-1 が空白だった場合は終了する。)
(4)　あ-1~え-4までの入力値を空白にして、スタートの状態に戻る。

※　X=その時対象となっているあ~えいずれかの行

補足として
・X-1には０~4000ぐらいまでの数値が入る。
・X-2には必ず数値が入る。
・X-3には数値が入らないこともある。(その場合F列にはX-2のみの数値を入力)

となります。

尚、テキストボックスは

　　　1　　2　　3
　　　4　　5　　6
　　　7　　8　　9
　　　10　11　12　　　　という順に割り当てています。　　

例）　あ-1　= TextBox1　 う-2 = TextBox8

この様なプログラムを作成したいのですが、実行のコマンドボタンにどの様なソースコードを打てばようでしょうか？
ご回答の程宜しくお願い致します。

回答No.3

nobu_suzuki1 · ベストアンサー

解釈があっているか不安な上、少し手間がかかりますが以下をお試しください。

UserForm2を追加、UserForm2にYesボタンとNoボタンを配置（ラベル等はご自由に配置してください。）YesをCommandButton1　NoをCommandButton2として頂くようにお願いします。
Module1を追加
また、ご自分のUserForm1を表示させるコードをモードレス（UserForm1.show 0)としてください。

UserForm1のコードを以下の通りに変更
Private Sub CommandButton1_Click()

Dim ans As Integer
Dim i As Integer
Dim c As Range

SetAns "Wait"
UserForm2.Show 0

'ワークシートのB列からテキストボックスの番号を検索し、値を変更
With Worksheets("Sheet1")
i = 1
Do While i <= 10
If Me.Controls("Textbox" & i).Text = "" Then Exit Do
Do While GetAns = "Wait"
DoEvents
Loop
If GetAns = "Yes" Then
Set c = .Range("B1:B65536").Find(Me.Controls("Textbox" & i).Text, LookIn:=xlValues)
If IsNumeric(Me.Controls("Textbox" & i + 2)) Then
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text) + Val(Me.Controls("Textbox" & i + 2).Text)
Else
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text)
End If
End If
i = i + 3
SetAns "Wait"
Loop
End With

'Textboxをクリア
For i = 1 To 12
Me.Controls("Textbox" & i).Text = ""
Next

UserForm2.Hide

End Sub

--------------------------------------------------------------
UserForm2のコードを以下のように記述

Private Sub CommandButton1_Click()
SetAns "Yes"
End Sub

Private Sub CommandButton2_Click()
SetAns "No"
End Sub

--------------------------------------------------------------
Module1のコードを以下のように記述

Dim ans As String

Function GetAns() As String
GetAns = ans
End Function

Sub SetAns(YesNoAns As String)
ans = YesNoAns
End Sub

お礼

遅くなってしまい申し訳ありませんでした。
動作確認を行った所、満点の動作でした。

最後までお付き合いありがとうございました。
とっても助かりました！

これにて解決とさせていただきます。

回答No.2

nobu_suzuki1

No選択時の挙動を勘違いしていたようなので訂正します。
また、X-1が空白の時ですが終了するというのはそこから先の(1)～(4)の処理をすべて飛ばして、テキストボックスをリセットしUserFormを再度表示すると解釈し作成しましたが、UserForm自体を消すなど別の処理をするという意味なのでしょうか。

Private Sub CommandButton1_Click()

Dim ans As Integer
Dim i As Integer
Dim c As Range

'実行確認Noを選択した場合戻り値=7、7だったら実行中止
ans = MsgBox("実行しますか？", vbYesNo, "実行確認")
If ans = 7 Then Exit Sub

'ワークシートのB列からテキストボックスの番号を検索し、値を変更
With Worksheets("Sheet1")
i = 1
Do While i <= 10
If Me.Controls("Textbox" & i).Text = "" Then Exit Do
Set c = .Range("B1:B65536").Find(Me.Controls("Textbox" & i).Text, LookIn:=xlValues)
If IsNumeric(Me.Controls("Textbox" & i + 2)) Then
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text) + Val(Me.Controls("Textbox" & i + 2).Text)
Else
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text)
End If
i = i + 3
Loop
End With

'Textboxをクリア
For i = 1 To 12
Me.Controls("Textbox" & i).Text = ""
Next

End Sub

お礼

再び回答ありがとうございます。
誤って捕捉に打ってしまいました。
ご確認いただければ幸いです。

補足

表記が不十分で申し訳ないです。

実行確認時
Noの場合は最初の回答のソースで完璧です。

Yesの場合に困っているのですが、
数値を入れた列の分だけ確認画面が出てしまいます。
(あ～う まで数値を入力すると3回出てしまう。)

これをいかなる時も一括で1回の確認画面で処理を行いたいのです…。

うまく表現できません…。
伝わりますでしょうか…

厚かましくて申し訳ないです。

回答No.1

nobu_suzuki1

これでいかがでしょう
ところで実行確認時にNoが押された場合、そのX-1～X-3はスキップしてX+1-1から処理するようにしましたがこれでいいでしょうか。

Private Sub CommandButton1_Click()

Dim ans As Integer
Dim i As Integer
Dim c As Range

With Worksheets("Sheet1")
i = 1
Do While i <= 10
If Me.Controls("Textbox" & i).Text = "" Then Exit Do
ans = MsgBox("実行しますか", vbYesNo, "確認")
If ans = 6 Then
Set c = .Range("B1:B65536").Find(Me.Controls("Textbox" & i).Text, LookIn:=xlValues)
If IsNumeric(Me.Controls("Textbox" & i + 2)) Then
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text) + Val(Me.Controls("Textbox" & i + 2).Text)
Else
c.Offset(0, 4).Value = Val(Me.Controls("Textbox" & i + 1).Text)
End If
End If
i = i + 3
Loop

End With

For i = 1 To 12
Me.Controls("Textbox" & i).Text = ""
Next

End Sub

お礼

回答ありがとうございました。
先ほど確認致しましたが、完璧な動作でした。
ありがとうございます。

実行確認の処理について質問があるのですが、
数値を1列入力すると確認画面が1回。
2列入力すると2回、3列だと3回…
となる仕様なのですが、これを全て1回に統一する為にはどうしたら良いでしょうか？

よろしければ回答お願い致します。

P.S.
>>ところで実行確認時にNoが押された場合、そのX-1～X-3はスキップしてX+1-1から処理するようにしましたがこれでいいでしょうか。

ありがとうございます。要望通りです！！