Excel VBA質問箱 IV

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

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


67194 / 76733 ←次へ | 前へ→

【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, "日付エラー1"
      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, "日付エラー2"
    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

1 hits

【14095】エラー回避について miran 04/5/20(木) 21:12 質問
【14096】Re:エラー回避について Asaki 04/5/20(木) 22:00 回答
【14098】Re:エラー回避について miran 04/5/20(木) 22:13 発言
【14100】Re:エラー回避について Asaki 04/5/20(木) 22:19 回答
【14103】Re:エラー回避について miran 04/5/20(木) 22:34 発言
【14104】Re:エラー回避について Asaki 04/5/20(木) 22:37 回答
【14105】Re:エラー回避について miran 04/5/20(木) 22:48 質問
【14106】Re:エラー回避について Asaki 04/5/20(木) 22:56 回答
【14107】Re:エラー回避について miran 04/5/20(木) 23:05 発言
【14110】Re:エラー回避について Asaki 04/5/20(木) 23:11 回答
【14109】Re:エラー回避について Asaki 04/5/20(木) 23:06 回答
【14112】Re:エラー回避について miran 04/5/20(木) 23:22 お礼
【14108】Re:エラー回避について ちゃっぴ 04/5/20(木) 23:06 回答
【14101】Re:エラー回避について ちゃっぴ 04/5/20(木) 22:21 回答
【14102】Re:エラー回避について ちゃっぴ 04/5/20(木) 22:23 発言
【14111】Re:エラー回避について ちゃっぴ 04/5/20(木) 23:18 発言
【14113】Re:エラー回避について Asaki 04/5/20(木) 23:23 発言
【14114】Re:エラー回避について ちゃっぴ 04/5/20(木) 23:37 発言

67194 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free