Excel VBA質問箱 IV

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

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


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

32307 / 76734

←次へ　｜　前へ→


	【49665】ユーザーフォームのListBox1に該当が無い場合

今田 - 07/6/15(金) 1:09 -


	引用なし

	パスワード

教えて下さい
ユーザーフォームのListBox1に該当する値が無かった場合の
処理方法をお聞きしたいのですが普通に考えると、

１．リスト項目を追加する
２．別にテキストボックスとコマンドボタンを配置し単独に入力する
くらいしか思いつかないのですがどんな方法がベストなんでしょうか？
よろしくお願いします。
ちなみに１と２の方法も教授いただけるとありがたいのですが・・・

２の方法で実行する場合、条件として転記先はI列の３行目からスタートです
空きセルの場合順番に３行目から転記させたいのですが
以上　よろしくお願いします。

Private Sub initAndReady()
　　Dim ER As Long
　　Dim d As Date
　　
　　d = Date
　　ER = Range("A65536").End(xlUp).Row
　　If ER < 3 Then
　　　TextBox1.Value = "001"
　　Else
　　　TextBox1.Value = Format(Range("A" & ER).Value + 1, "000")
　　End If
　　
　　ListBox1.RowSource = "Sheet1!M2:M60"
　　ListBox2.RowSource = "Sheet1!P2:P6"
　　ListBox3.RowSource = "Sheet1!R2:R10"

　　TextBox2.Text = ""
　　TextBox3.Text = "○○仕様　　［記入例］"

　　TextBox4.Text = "容量アップ3→5　　［記入例］"
　　TextBox5.Tag = 0
　　TextBox5.Text = 0
　　TextBox6.Tag = 0
　　TextBox6.Text = 0
End Sub

4 hits

▼

【49665】ユーザーフォームのListBox1に該当が無い場合 今田 07/6/15(金) 1:09

≪