Excel VBA質問箱 IV

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

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


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

1263 / 76807

←次へ　｜　前へ→


	【81199】Re:処理を中断

Jaka - 20/3/5(木) 18:49 -


	引用なし

	パスワード

文字連結に+を使っているのか、足し算なのか解らんけど。
（尚、文字連結に+を使っている人を見ると、何考えているんだと思う方です。）

Dim errst as string

If datebox.Text = "" Then
　　errst = "日付" + tmp & vblf
end if

If namebox.Text = "" Then
　　errst = "担当者名" + tmp & vblf
end if

If manbox.Text = "" Then
　　errst = "1万円札の枚数" + tmp & vblf
end if

If gosenbox.Text = "" Then
　　errst = "5" + sen & vblf
end if

If nisenbox.Text = "" Then
　　errst = "2" + sen & vblf
end if

If senbox.Text = "" Then
　　errst = "1" + sen & vblf
end if

If gohyakubox.Text = "" Then
　　errst = "500" + hoka & vblf
end if

If hyakubox.Text = "" Then
　　errst = "100" + hoka & vblf
end if

If gojubox.Text = "" Then
　　errst = "50" + hoka & vblf
end if

If jubox.Text = "" Then
　　errst = "10" + hoka & vblf
end if

If gobox.Text = "" Then
　　errst = "5" + hoka & vblf
end if

If itibox.Text = "" Then
　　errst = "1" + hoka & vblf
End If

if errst <> "" then
　 msgbox left(errst,len(errst)-1), , "入力漏れ"
　 exit sub
end if

2 hits

▼

【81195】処理を中断 はるあき 20/3/5(木) 13:30