messageboxについて

解決


超初心者  2008-08-05 04:53:27  No: 140176

はじめまして!!
今VBをやり始めたんですが5つあるコンボボックスに1から5までの値を選べるようにしています。
全て空欄というエラーと数字の重複したときのエラーをMessageBoxで出したいと思ってるんですが実際今の知識だとかなりの長文になってしまし見づらくなってしまします。

仮に1つのコンボボックスであれば
if me.combobox1.text=""
messagebox.show("未入力です")
end if

という形で出来ると思うのですが5つともなると・・・・・・。
よろしくお願いします。


横須賀の熊  2008-08-05 18:28:18  No: 140177

コンボボックスを、
コントロール配列にすればよいかと思います。


横須賀の熊  2008-08-05 18:29:51  No: 140178

Dim nCnt as integer

For nCnt = 0 to 4
  if me.combobox1(nCnt).text=""
    messagebox.show("未入力です")
  end if
Next nCnt

と出来ます。


超初心者  2008-08-07 00:19:36  No: 140179

横須賀の熊さんありがとうございます。
おかげで上手くいきました。
またよろしくお願いします。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加