Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67195 / 76734

←次へ　｜　前へ→


	【14098】Re:エラー回避について

miran - 04/5/20(木) 22:13 -


	引用なし

	パスワード

>コードを見せていただかないと、なにも解らないと思いますが。。。

コードはこれになります。分析お願いいたします。

Private Sub CommandButton1_Click()
　　If ListBox1.ListIndex < 0 Then
　　　　MsgBox "商品が選択されていません", vbCritical, "商品選択エラー"
　　End If
　　　If TextBox2.Text = "" Then
　　　　TextBox2.SetFocus
　　　　MsgBox "数量を入力してください", vbCritical, "数量未入エラー"
　　End If
　　On Error GoTo trap1
　　
　　If TextBox1.Text = Date Then
　　
　　　　ElseIf CByte(Right(TextBox1.Text, 2)) >= 32 Then
　　　　　　MsgBox "32以上の日付になっています。", vbExclamation, "日付エラー１"
　　　　　　TextBox1.SetFocus
　　　　Else
　　　　　　HIZUKE = CByte(Right(TextBox1.Text, 2))
　　　　End If
　　
　　Exit Sub
　　On Error GoTo trap2
　　　　KOSU = TextBox2.Text
Exit Sub
trap1:
　　　　MsgBox "日付が認識されません。再入力してくい。",　_
　　　　　vbExclamation, "日付エラー２"
　　　　TextBox1.SetFocus
Exit Sub

ここからが処理されません。
trap2:
　　　　MsgBox "数字を入力してください。", vbCritical, "入力エラー"
　　　　TextBox2.Text = ""
　　　　TextBox2.SetFocus
On Error GoTo 0
　　If OptionButton1.Value = True Then
　　　 TATE = ListBox1.ListIndex + 4
　　　
　　ElseIf OptionButton2.Value = True Then
　　　 TATE = ListBox1.ListIndex + 15
　　　　
　　ElseIf OptionButton3.Value = True Then
　　　　TATE = ListBox1.ListIndex + 24
　　End If
　　If Right(TextBox1.Text, 2) <= 15 Then
　　　　YOKO = CByte(Right(TextBox1.Text, 2)) + 5
　　 Else
　　　　YOKO = CByte(Right(TextBox1.Text, 2)) + 6
　　End If
　　　KOSU = TextBox2.Text
　　If Cells(TATE, YOKO) = "" Then
　　　　Cells(TATE, YOKO) = "=" & KOSU
　　Else
　　　　Cells(TATE, YOKO) = Cells(TATE, YOKO) + KOSU
　　End If
End Sub

0 hits

▼

【14095】エラー回避について miran 04/5/20(木) 21:12