エクセルVBAについて、ご教授お願いします。

質問

表を作成しました。

　１　商品名　商品区分　　単価　　　
　２　ミカン　 　1　　　　　　　 \50
　３　リンゴ　　2　　　　　　 　 \80
4 モモ　　　8　　　　　　　　\100　
Msgboxに商品区分と単価上昇率を入力し、コマンドボタンの単価変更をクリックすると、
エクセル（商品区分、単価）のデータを読み下記の条件で実行します。
------------------------------------------------------------------------------------
A.単位上昇率に関してエラーチェックを行います。
'B.エラーが見つかった場合にのみ、対象商品区分の単位上昇率を元にワークシート上の明細を更新する
'C.処理条件をメッセージボックスにて表示する。
-------------------------------------------------------------------------------------
どうしても思うような処理を作成できず悩んでいます。
良い方法をご存じの方がいらっしゃいましたら、どうかお教えください。

Option Explicit
Sub ユーザーフォーム表示() 'P79
単価変更画面.Show

End Sub

'単価変更版
'-------------------------------------------
'A.単位上昇率に関してエラーチェックを行います。
'B.エラーが見つかった場合にのみ、対象商品区分の単位上昇率を元にワークシート上の明細を更新する
'C.処理条件をメッセージボックスにて表示する。
'－－－－－－－－－－－－－－－－－－－－－－
Private Sub 終了_click()
End
End Sub

Private Sub 商品区分_change()

End Sub

Private Sub 単価上昇率_change()

End Sub

Private Sub 単価変更_Click()

Dim i As Long
Dim cut As Integer
Dim 単価上昇率 As String
Dim 商品区分 As String

If IsNumeric(単価上昇率) = False Then
MsgBox ("数値を入力して下さい。")
単価変更画面.単価上昇率.SetFocus
i = Cells(i, 4)
End If
i = 3
cut = 0
Do While Cells(i, 4) <> ""
If Cells(i, 4) = 単価変更画面.商品区分.Text Then
　 Cells(i, 6) = Cells(i, 6) * (1 + 単価変更画面.単価上昇率.Text / 100)

cut = cut + 1
End If
　　 i = i + 1
　　 Loop

If cut = 0 Then

MsgBox ("該当する商品は存在 しませんでした。 ")
単価変更画面.商品区分.SetFocus
Else
MsgBox (cut & "件の明細を変更しました。")
End If

End Sub

回答No.1

seastar3 · ベストアンサー

要するに、ある商品区分の行だけ単価上昇率を上乗せした単価をF列に書き出したいのですね。
単価上昇率と単位上昇率が混在しているので、趣旨があいまいになっています。
とりあえず、影さんのコードをそれらしく手直ししてみると、以下のようになります。
これを参考にデバッグしてみましょう。

' 単価上昇率テキストボックスが書き換わった際にチェックするようにする。もっと細かいチェックも個々に書き込む。
Private Sub 単価上昇率_change()
If Not IsNumeric(Value(単価変更画面.単価上昇率.Text)) Then
MsgBox ("数値を入力して下さい。")
単価変更画面.単価上昇率.SetFocus
End If
End Sub

' 単価上昇率を数値化してから計算式に入れる。
Private Sub 単価変更_Click()

Dim i As Long
Dim cut As Integer
Dim 単価上昇率 As String
Dim 商品区分 As String
i = 3
cut = 0

Do While Cells(i, 4) <> ""
If Cells(i, 4) = value(単価変更画面.商品区分.Text) Then
Cells(i, 6) = Cells(i, 4) * (1 + value(単価変更画面.単価上昇率.Text) / 100)
cut = cut + 1
End If
i = i + 1
Loop

If cut = 0 Then
MsgBox ("該当する商品は存在 しませんでした。 ")
単価変更画面.商品区分.SetFocus
Else
MsgBox (cut & "件の明細を変更しました。")
End If
End Sub

お礼

回答ありがとうございました。とてもわかりやすかったです。
正常に起動しました。

回答No.2

CC_T

要望の回答になってませんが、すいません。

とりあえず、Private Sub 単価変更_Click()　で、i = Cells(i, 4) がありますが、
ここでiが初見、ということでiの初期値ゼロでCells(0, 4)指定になってエラーになるような・・・。

あとは、商品区分や単価上昇率は表では数値のようですがsub中では文字型のStringで宣言ているのに、
商品区分をわわざIsNumericで数値かチェックかけたり、掛け算で使ったりしてません？とか
単価変更画面.単価上昇率.Text　など文字型なのに掛け算に使ってるとか（Value、では？）、

とまぁそのへんが原因で何を入れても該当なしで終了メッセージ出すか、数値が変わらないかってところじゃないですか？
そういうのはデバッグのウォッチ式で監視したり、デバッグ用に所どころにmsgboxで表示させてみたりして、型が適切かチェックをしていけばつぶせるかと。

お礼

ありがとうございます。大変参考になりました。
またデバックについて教えて頂きありがとうございます。
試してみます。