Excel VBA質問箱 IV

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

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


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

2914 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【65273】ListBoxにNullが入ってしまう。 きしやん 10/5/4(火) 17:44

【65274】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/4(火) 18:19

【65275】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/4(火) 18:52

【65276】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/4(火) 18:57

【65283】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 10:15

【65284】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 10:30

【65285】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 10:55

【65286】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 11:02

【65288】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 11:24

【65290】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 15:03

【65291】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 15:15

【65292】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 15:38

【65287】Re:ListBoxにNullが入ってしまう。 kanabun 10/5/5(水) 11:14

【65289】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 14:34

【65296】Re:ListBoxにNullが入ってしまう。 kanabun 10/5/5(水) 21:06

【65306】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/7(金) 9:18


	【65273】ListBoxにNullが入ってしまう。

きしやん

- 10/5/4(火) 17:44 -


	引用なし

	パスワード

またまた超初心者のきしやんです。
ﾕｰｻﾞｰﾌｫｰﾑに時刻のﾘｽﾄﾎﾞｯｸｽがあり
下記のコードでListBox1にNullがはいってしまいます。

Option Explicit
Dim stjikoku As Date, hizuke As Date, hizuke1 As Date
Dim st1 As Integer, st2 As Integer, st3 As Integer, st4 As Integer, mybtn As Integer
Dim sp1 As Integer, sp2 As Integer, sp3 As Integer, sp4 As Integer, rolly As Integer
Dim paper As Integer, fulecon As Integer
Dim seisanryou As Integer, tounyuryou As Integer, zaikoryou As Integer
Dim mymsg As String, mytitle As String, grade As String, grade1 As String, grade2 As String, mylbl As String
Dim jikan As Single
Private Sub CommandButton1_Click()
　CommandButton1.Visible = False
　　
　　Worksheets("sheet3").Select
　Range("d9").Select
　　mytitle = "ｷｬﾝﾍﾟｰﾝ確認"
　　hizuke = Worksheets("sheet4").Range("c4")
　　hizuke1 = Worksheets("sheet4").Range("c5")
　　grade = Worksheets("sheet1").Range("t18")
　　mymsg = hizuke & "～" & hizuke1 & "のｷｬﾝﾍﾟｰﾝは" & Chr(13) _
　　　　& grade & "です"
　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)

inputboxdata100:
　　hizuke = Worksheets("sheet4").Range("c4")
　　mymsg = hizuke & "の生産量を入力して下さい"
　　mytitle = "生産量入力"
　　seisanryou = Application.InputBox(prompt:=mymsg, Title:=mytitle, Type:=1)
　Worksheets("sheet6").Range("c5").Value = seisanryou
　mytitle = "生産量"
　mymsg = hizuke & "～" & hizuke1 & "の生産量は" & Chr(13) & seisanryou & "tですね?"
　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　If mybtn = vbNo Then
　　GoTo inputboxdata100

End If

inputboxdata101:
　 hizuke = Worksheets("sheet4").Range("c4")
　　mymsg = hizuke & "のNo.1ｻｲﾛの在庫量を入力して下さい"
　　mytitle = "在庫量入力"
　　zaikoryou = Application.InputBox(prompt:=mymsg, Title:=mytitle, Type:=1)
　Worksheets("sheet3").Range("d4").Value = zaikoryou
　mytitle = "在庫量"
　mymsg = hizuke & "のNo.1ｻｲﾛの在庫量は" & Chr(13) & zaikoryou & "tですね?"
　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　　
　　If mybtn = vbNo Then
　　GoTo inputboxdata101

End If

inputboxdata102:
　 hizuke = Worksheets("sheet4").Range("c4")
　　mymsg = hizuke & "のNo.2ｻｲﾛの在庫量を入力して下さい"
　　mytitle = "在庫量入力"
　　zaikoryou = Application.InputBox(prompt:=mymsg, Title:=mytitle, Type:=1)
　Worksheets("sheet3").Range("d13").Value = zaikoryou
　mytitle = "在庫量"
　mymsg = hizuke & "のNo.2ｻｲﾛの在庫量は" & Chr(13) & zaikoryou & "tですね?"
　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　　
　　If mybtn = vbNo Then
　　GoTo inputboxdata102

End If
　　
inputboxdata103:
　 hizuke = Worksheets("sheet4").Range("c4")
　　mymsg = hizuke & "のNo.17ｻｲﾛの在庫量を入力して下さい"
　　mytitle = "在庫量入力"
　　zaikoryou = Application.InputBox(prompt:=mymsg, Title:=mytitle, Type:=1)
　Worksheets("sheet3").Range("d22").Value = zaikoryou
　mytitle = "在庫量"
　mymsg = hizuke & "のNo.17ｻｲﾛの在庫量は" & Chr(13) & zaikoryou & "tですね?"
　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　　
　　If mybtn = vbNo Then
　　GoTo inputboxdata103
　　
Else
　　　　Worksheets("sheet3").Select
　　Range("d9").Select

　 grade1 = "TH-700BJ"
　 grade2 = Worksheets("sheet1").Range("t18")
　 If StrComp(grade1, grade2, vbTextCompare) = 0 Then
　
　 Call CommandButton2_Click
　　Else
　Exit Sub
　
End If
End If

End Sub

'****************************************************************
'TH-700BJの場合のｻｲﾛ投入'
'****************************************************************

Private Sub CommandButton2_Click()
　　
　　mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
　　mytitle = "投入時刻"
　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)

　　stjikoku = ListBox1　･･･････････　ここにNullが入ってしまいます。
　　mymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね"
　　mytitle = "投入時刻"
　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　Worksheets("sheet3").Range("d9").Value = stjikoku
　　If mybtn = vbNo Then
　　Exit Sub
End If

　　mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
　　mytitle = "投入時刻"
　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)

End Sub
Private Sub CommandButton4_Click()

　　jikan = ListBox2
　Worksheets("sheet3").Range("d10").Value = jikan
　　mymsg = "No.1ｻｲﾛの投入時間は" & jikan & "時間ですね"
　　mytitle = "投入時間"
　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　If mybtn = vbNo Then
　　Exit Sub
End If

End Sub

どうか宜しくお願いします。


	【65274】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/4(火) 18:19 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>ユーザーフォームに時刻のリストボックスがあり

ListBox1 は、どのように設定しているのですか？
RowSource か、AddItem 等、その内容がわからないので、答えづらいです。


	【65275】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/4(火) 18:52 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>ユーザーフォームに時刻のリストボックスがあり
>
>ListBox1 は、どのように設定しているのですか？
>RowSource か、AddItem 等、その内容がわからないので、答えづらいです。

早速の回答ありがとうございます。
ListBox1 はRowSourceでシートより選択し、内容は16：30のような
時刻です。


	【65276】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/4(火) 18:57 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>>ユーザーフォームに時刻のリストボックスがあり
>>
>>ListBox1 は、どのように設定しているのですか？
>>RowSource か、AddItem 等、その内容がわからないので、答えづらいです。
>
>早速の回答ありがとうございます。
>ListBox1 はRowSourceでシートより選択し、内容は16：30のような
>時刻です。

どのように設定しているのか、シートを再現できるように説明していただけませんか？
きしやんさんのブックを掲示板では、基本的には、見ることができないことに配慮していただければと思います。


	【65283】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/5(水) 10:15 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>>>ユーザーフォームに時刻のリストボックスがあり
>>>
>>>ListBox1 は、どのように設定しているのですか？
>>>RowSource か、AddItem 等、その内容がわからないので、答えづらいです。
>>
>>早速の回答ありがとうございます。
>>ListBox1 はRowSourceでシートより選択し、内容は16：30のような
>>時刻です。
>
>どのように設定しているのか、シートを再現できるように説明していただけませんか？
>きしやんさんのブックを掲示板では、基本的には、見ることができないことに配慮していただければと思います。

かみちゃんさん
説明不足ですみません。
ｲﾝﾌﾟｯﾄﾎﾞｯｸｽで生産量等、各必要項目を入力させ、入力された値をシート(sheet3)に貼りつけ、シート上で計算させて、結果を別シート(sheet1)のセルを塗りつぶす
例えば一日を24セル(24時間)にして8時間なら8セルを塗りつぶして一本の線にする
ような感じです。
今回の質問の件は、投入時刻はある程度決まっているためシート(sheet4)に
決まった時刻を入力しておいて、ﾕｰｻﾞｰﾌｫｰﾑのﾘｽﾄﾎﾞｯｸｽにRowSourceで設定して、
選択させて、別シート(sheet1)セルの塗りつぶし開始位置を設定したいと
考えております。
以上まだ説明不足かもしれませんが、宜しくお願いします。


	【65284】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/5(水) 10:30 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。 > 投入時刻はある程度決まっているためシート(sheet4)に > 決まった時刻を入力しておいて、ﾕｰｻﾞｰﾌｫｰﾑのﾘｽﾄﾎﾞｯｸｽにRowSourceで設定して、きしやんさんのブックが見てみると、簡単にわかりそうなのですが、こちらで再現用のシートを作るにあたって ListBox1のRowSourceプロパティの値を教えてください。あと、 Sheet4のシート内容を以下のようにサンプルデータで教えてください。　　A　　B　　C 1 2 3 上記のようなシート内容を提示されるときは、投稿欄右下にある「等幅」にチェックをつけてください。


	【65285】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/5(水) 10:55 -


	引用なし

	パスワード

▼かみちゃんさん： >こんにちは。かみちゃん　です。 > >> 投入時刻はある程度決まっているためシート(sheet4)に >> 決まった時刻を入力しておいて、ﾕｰｻﾞｰﾌｫｰﾑのﾘｽﾄﾎﾞｯｸｽにRowSourceで設定して、 > >きしやんさんのブックが見てみると、簡単にわかりそうなのですが、 >こちらで再現用のシートを作るにあたって >ListBox1のRowSourceプロパティの値を教えてください。 > >あと、 >Sheet4のシート内容を以下のようにサンプルデータで教えてください。 > >　　A　　B　　C >1 >2 >3 > >上記のようなシート内容を提示されるときは、投稿欄右下にある「等幅」にチェックをつけてください。かみちゃんさんありがとうございます。 >　　A　　　B　　C >1　14：00 >2　18：00 >3　22：00 以上のようなものです。


	【65286】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/5(水) 11:02 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>　　A　　　B　　C
>>1　14：00
>>2　18：00
>>3　22：00
>以上のようなものです。

Sheet4の内容はわかりましたが、それは、日付型で入力していますよね？

>>ListBox1のRowSourceプロパティの値を教えてください。

ということも聞いているのですが、いかがでしょうか？

> ListBox1にNullがはいってしまいます。

もしかして、
stjikoku = ListBox1
で「型が一致しません」というエラーになりませんか？
それは、ListBox1 で、値の一覧から選択していますか？
選択していない場合は、上記のエラーが出て ListBox1 は Null というより ""
という値が格納されます。
Dim stjikoku As Date
と宣言されているので、「型が一致しません」というエラーになると思います。

それとも、選択しているのに、Null が入るということですか？


	【65287】Re:ListBoxにNullが入ってしまう。

kanabun - 10/5/5(水) 11:14 -


	引用なし

	パスワード

▼きしやんさん：
横から失礼します。

>下記のコードでListBox1にNullがはいってしまいます。

それはListBox1のどのアイテムも「選択されていない」からでは？

>Private Sub CommandButton1_Click()
　（途中省略）
　
　　▼ここで CommandButton2をコードでクリックさせています　
>　 Call CommandButton2_Click
>
>End Sub

▼CommandButton2が押されてから、ListBoxのアイテムを選択する
　いとまもなく、ListBox1のいま選択されているアイテムを変数に
　代入しようとしています。
>Private Sub CommandButton2_Click()
>　　
>　　mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
>　　mytitle = "投入時刻"
>　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>
>　　stjikoku = ListBox1　･･･････････　ここにNullが入ってしまいます。

'------------------- (改良案)

>　 Call CommandButton2_Click
の行を削除し、
代わりに、（CommandButton2の最初のコード部分）MsgBox 表示を
>　　mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
>　　mytitle = "投入時刻"
>　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>
そこに移動して、

ユーザーがListBox1からどれかの時刻を選択したあと、

Private Sub CommandButton2_Click()
　 if ListBox1.ListIndex < 0 Then
　　　　Msgbox "Listから時刻を選択してください"
　　　　Exit Sub
　 end if
　stjikoku = ListBox1.VALUE

のように直してみてはどうですか？


	【65288】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/5(水) 11:24 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>>　　A　　　B　　C
>>>1　14：00
>>>2　18：00
>>>3　22：00
>>以上のようなものです。
>
>Sheet4の内容はわかりましたが、それは、日付型で入力していますよね？
>
>>>ListBox1のRowSourceプロパティの値を教えてください。
>
>ということも聞いているのですが、いかがでしょうか？
>
>> ListBox1にNullがはいってしまいます。
>
>もしかして、
>stjikoku = ListBox1
>で「型が一致しません」というエラーになりませんか？
>それは、ListBox1 で、値の一覧から選択していますか？
>選択していない場合は、上記のエラーが出て ListBox1 は Null というより ""
>という値が格納されます。
>Dim stjikoku As Date
>と宣言されているので、「型が一致しません」というエラーになると思います。
>
>それとも、選択しているのに、Null が入るということですか？

事象がわかりました。
「Nullの使い方が不正です」というエラーが出るのですね？
それは、やはりListBox1で選択していないときに限定されていると思います。

なんとなく、MsgBox がしつこい感じはしますが、以下のような修正するといかがですか？

ポイントは★の行です。（kanabunさんとかぶりますが・・・）
☆の行は変更箇所です。

Private Sub CommandButton2_Click()
　Do
　　mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
　　mytitle = "投入時刻"
　　mybtn = MsgBox(mymsg, vbOKCancel + vbInformation, mytitle) '☆
　　If mybtn = vbCancel Then Exit Do '☆
　　If ListBox1.ListIndex > -1 Then '★
　　　stjikoku = ListBox1

　　　mymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね"
　　　mytitle = "投入時刻"
　　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　　If mybtn = vbYes Then
　　　　Worksheets("Sheet3").Range("D9").Value = stjikoku
　　　End If
　　End If '★
　Loop
End Sub


	【65289】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/5(水) 14:34 -


	引用なし

	パスワード

▼kanabun さん： >▼きしやんさん： >横から失礼します。 > >>下記のコードでListBox1にNullがはいってしまいます。 > >それはListBox1のどのアイテムも「選択されていない」からでは？ > > >>Private Sub CommandButton1_Click() >　（途中省略） >　 >　　▼ここで CommandButton2をコードでクリックさせています　 >>　 Call CommandButton2_Click >> >>End Sub > >▼CommandButton2が押されてから、ListBoxのアイテムを選択する >　いとまもなく、ListBox1のいま選択されているアイテムを変数に >　代入しようとしています。 >>Private Sub CommandButton2_Click() >>　　 >>　　mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" >>　　mytitle = "投入時刻" >>　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle) >> >>　　stjikoku = ListBox1　･･･････････　ここにNullが入ってしまいます。 > > >'------------------- (改良案) > >>　 Call CommandButton2_Click >の行を削除し、 >代わりに、（CommandButton2の最初のコード部分）MsgBox 表示を >>　　mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" >>　　mytitle = "投入時刻" >>　　mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle) >> >そこに移動して、 > >ユーザーがListBox1からどれかの時刻を選択したあと、 > >Private Sub CommandButton2_Click() >　 if ListBox1.ListIndex < 0 Then >　　　　Msgbox "Listから時刻を選択してください" >　　　　Exit Sub >　 end if >　stjikoku = ListBox1.VALUE > >のように直してみてはどうですか？ kanabun さんありがとうございます。 Call CommandButton2_Clickの項は説明不足でしたが、まだ作成途中ですが条件分岐を考えておりまして、select caseも考えていますが、構文が複雑になるかと思い、subﾙｰﾁﾝ的なものが出来ればと考えております。このような場合kanabun さんの方法で可能でしょうかどうか宜しくお願いします。


	【65290】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/5(水) 15:03 -


	引用なし

	パスワード

▼かみちゃんさん： >こんにちは。かみちゃん　です。 > >>>>　　A　　　B　　C >>>>1　14：00 >>>>2　18：00 >>>>3　22：00 >>>以上のようなものです。 >> >>Sheet4の内容はわかりましたが、それは、日付型で入力していますよね？ >> >>>>ListBox1のRowSourceプロパティの値を教えてください。 >> >>ということも聞いているのですが、いかがでしょうか？ >> >>> ListBox1にNullがはいってしまいます。 >> >>もしかして、 >>stjikoku = ListBox1 >>で「型が一致しません」というエラーになりませんか？ >>それは、ListBox1 で、値の一覧から選択していますか？ >>選択していない場合は、上記のエラーが出て ListBox1 は Null というより "" >>という値が格納されます。 >>Dim stjikoku As Date >>と宣言されているので、「型が一致しません」というエラーになると思います。 >> >>それとも、選択しているのに、Null が入るということですか？ > >事象がわかりました。 >「Nullの使い方が不正です」というエラーが出るのですね？ >それは、やはりListBox1で選択していないときに限定されていると思います。 > >なんとなく、MsgBox がしつこい感じはしますが、以下のような修正するといかがですか？ > >ポイントは★の行です。（kanabunさんとかぶりますが・・・） >☆の行は変更箇所です。 > >Private Sub CommandButton2_Click() >　Do >　　mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい" >　　mytitle = "投入時刻" >　　mybtn = MsgBox(mymsg, vbOKCancel + vbInformation, mytitle) '☆ >　　If mybtn = vbCancel Then Exit Do '☆ >　　If ListBox1.ListIndex > -1 Then '★ >　　　stjikoku = ListBox1 > >　　　mymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね" >　　　mytitle = "投入時刻" >　　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle) >　　　If mybtn = vbYes Then >　　　　Worksheets("Sheet3").Range("D9").Value = stjikoku >　　　End If >　　End If '★ >　Loop >End Sub かみちゃんさんありがとうございます。早速試してみました結果、 mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" ＯＫクリックで進まず、cancelクリックで mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい" OKｸﾘｯｸでListBox1選択可能になり、時刻選択後CommandButton2 ｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" OKｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね" はいｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" OKｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね" はいｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" OKｸﾘｯｸでmymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね" 以下繰り返し、いいえでmymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい"に進めました。私はDO Loopはあまり使ったことがないのでご教授願えれば幸いです。


	【65291】Re:ListBoxにNullが入ってしまう。

かみちゃん

- 10/5/5(水) 15:15 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> 私はDO Loopはあまり使ったことがない

仕様どおりのつもりです。
ただ、MsgBoxがしつこい感じはしたと思います。

Private Sub CommandButton2_Click()

End Sub

を現在のコードから全部差替えてください。
説明を読む以上、☆の行の修正ができていないなど、きちんと差し替えられていないように感じます。

Private Sub CommandButton2_Click()
　Do
　　mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
　　mytitle = "投入時刻"
　　mybtn = MsgBox(mymsg, vbOKCancel + vbInformation, mytitle) '☆
　　If mybtn = vbCancel Then Exit Do '☆
　　If ListBox1.ListIndex > -1 Then '★
　　　stjikoku = ListBox1

　　　mymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね"
　　　mytitle = "投入時刻"
　　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
　　　If mybtn = vbYes Then
　　　　Worksheets("Sheet3").Range("D9").Value = stjikoku
　　　End If
　　End If '★
　Loop

　'◆ここにコードは書かない◆

End Sub

>mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
>ＯＫクリックで進まず、cancelクリックで

ListBox1が選択されていない場合、何度も
「No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい」
を表示するようにしています。
「キャンセル」をクリックしたら、Exit Do で Loopを抜けますが、
Loop と End Subの間にコードを書いているのではないですか？
そこには何も書かないコードを修正提案しています。

今一度ご確認ください。


	【65292】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/5(水) 15:38 -


	引用なし

	パスワード

▼かみちゃんさん： >こんにちは。かみちゃん　です。 > >> 私はDO Loopはあまり使ったことがない > >仕様どおりのつもりです。 >ただ、MsgBoxがしつこい感じはしたと思います。 > >Private Sub CommandButton2_Click() > >End Sub > >を現在のコードから全部差替えてください。 >説明を読む以上、☆の行の修正ができていないなど、きちんと差し替えられていないように感じます。 > >Private Sub CommandButton2_Click() >　Do >　　mymsg = "No.1ｻｲﾛの投入時間をﾘｽﾄﾎﾞｯｸｽより選択して下さい" >　　mytitle = "投入時刻" >　　mybtn = MsgBox(mymsg, vbOKCancel + vbInformation, mytitle) '☆ >　　If mybtn = vbCancel Then Exit Do '☆ >　　If ListBox1.ListIndex > -1 Then '★ >　　　stjikoku = ListBox1 > >　　　mymsg = "No.1ｻｲﾛの投入時刻は" & stjikoku & "ですね" >　　　mytitle = "投入時刻" >　　　mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle) >　　　If mybtn = vbYes Then >　　　　Worksheets("Sheet3").Range("D9").Value = stjikoku >　　　End If >　　End If '★ >　Loop > >　'◆ここにコードは書かない◆ > >End Sub > >>mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい" >>ＯＫクリックで進まず、cancelクリックで > >ListBox1が選択されていない場合、何度も >「No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい」 >を表示するようにしています。 >「キャンセル」をクリックしたら、Exit Do で Loopを抜けますが、 >Loop と End Subの間にコードを書いているのではないですか？ >そこには何も書かないコードを修正提案しています。 > >今一度ご確認ください。かみちゃんさんありがとうございます。修正して試してみました。｢キャンセル｣で進みました。ありがとうございました。


	【65296】Re:ListBoxにNullが入ってしまう。

kanabun - 10/5/5(水) 21:06 -


	引用なし

	パスワード

▼きしやんさん： >>Private Sub CommandButton2_Click() >>　 if ListBox1.ListIndex < 0 Then >>　　　　Msgbox "Listから時刻を選択してください" >>　　　　Exit Sub >>　 end if >>　stjikoku = ListBox1.VALUE >> >>のように直してみてはどうですか？ ListBoxにNullがはいってしまう原因と対処法についてはお分かりになりましたでしょうか？ >Call CommandButton2_Clickの項は説明不足でしたが、 >まだ作成途中ですが条件分岐を考えておりまして、select caseも >考えていますが、構文が複雑になるかと思い、subﾙｰﾁﾝ的な >ものが出来ればと考えております。 >このような場合kanabun さんの方法で可能でしょうかえ～っと、UserFormの各論のまえに概論をひとつ。ユーザーフォームというのは、いわば高機能な「複合InputBox」なので、UserForm のなかで個々のデータ入力を一回一回 InputBoxで個別に実行するのは、入力したデータの表示がすぐ消えてしまうので、ユーザーにとって決して入力しやすいインターフェースではないと思います。 UserFormを複合InputBoxとして利用するなら、複数入力項目別に TextBoxやComboBoxを置いておいて、ユーザーに自由に（相互の値を確認させながら）入力させ、全部入力が終わった時点で、 [OK]ボタンを押すようにするのがいいでしょう。そのような「複合InputBoxとしての UserForm」のイメージを参考までに、以下に紹介します。新しいUserFormに LabelとTextBoxとComboBox をそれぞれ4つづつ、以下のLayoutの感じで配置します ┏━━━━━━━━━━━━━━━━━━━━━━━┓ ┃ [Label1] 【TextBox1 】　　【ComboBox1】　　 ┃ ┃ [Label2] 【TextBox2 】　　【ComboBox2】　　 ┃ ┃ [Label3] 【TextBox3 】　　【ComboBox3】　　 ┃ ┃ [Label4] 【TextBox4 】　　【ComboBox4】　　 ┃ ┃　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　【CommandButton1】【CommandButton2】　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　┃ ┗━━━━━━━━━━━━━━━━━━━━━━━┛ Option Explicit '★モジュールレベル変数は必要最小限にとどめる! Private Grade As String Private Hizuke As Date, Hizuke1 As Date '▼UserForm 初期化時 '　LabelのCation設定、ComboBoxリスト設定など Private Sub UserForm_Initialize() 　　Dim c As Range 　　Dim i As Long 　　Dim SrcList 　　With Worksheets("sheet4") 　　　　Hizuke = .Range("c4").Value　 '★Valueプロパティを省略しない! 　　　　Hizuke1 = .Range("c5").Value 　　　　 'ComboBox用時刻リスト _ 　　　　　　　 ◆「Sheet4」の[B2]以降にあると仮定 ◆要変更　　　　 ' 時刻データを "h:mm"フォーマットした文字列の配列に入れる　　　　SrcList = Application.Text( _ 　　　　　　.Range("B2", .Range("B1").End(xlDown)), "h:mm") 　　End With 　　Me.Caption = Hizuke & "～" & Hizuke1 & "のｷｬﾝﾍﾟｰﾝは " _ 　　　　　　　　　& Grade & "です" 　　Label1.Caption = "生産量" 　　Label2.Caption = "No.1ｻｲﾛの在庫量" 　　Label3.Caption = "No.2ｻｲﾛの在庫量" 　　Label4.Caption = "No.17ｻｲﾛの在庫量" 　　For i = 1 To 4 　　　　With Controls("ComboBox" & i) 　　　　　　.RowSource = "" 　　　　　　.List = SrcList 　　　　End With 　　Next 　　CommandButton1.Caption = "転記1" 　　CommandButton2.Caption = "転記2（時刻）" 　　 End Sub 'Initialize後の画面はこんなふうになるはずです ┏━━━━━━━━━━━━━━━━━━━━━━━━┓ ┃ 生産量　　　　　【　　　　　】【　　　】　　 ┃ ┃ No.1ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ ┃ No.2ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ ┃ No.17ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　 [　転記1　]　 [転記2（時刻）] ┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━┛ '▼4つのTextBoxの値を入力後量をセルに転記する Private Sub CommandButton1_Click() 　Dim i As Long 　Dim msg As String 　Dim grade1 As String 　Dim grade2 As String 　　　'TextBox 入力チェック　　For i = 1 To 4 　　　　msg = Controls("TextBox" & i).Text 　　　　If Len(msg) = 0 Then 　　　　　　MsgBox Controls("Label" & i).Caption & " が未入力です" 　　　　　　Exit Sub 　　　　End If 　　Next 　　'シートに代入　　Worksheets("sheet6").Range("c5").Value = CLng(TextBox1.Text) 　　With Worksheets("Sheet3") 　　　　.Select 　　　　.Range("d4").Value = CLng(TextBox2.Text) 　　　　.Range("d13").Value = CLng(TextBox3.Text) 　　　　.Range("d22").Value = CLng(TextBox4.Text) 　　End With 　　grade1 = "TH-700BJ" 　　grade2 = Worksheets("sheet1").Range("t18").Value 　　If StrComp(grade1, grade2, vbTextCompare) = 0 Then 　　　　msg = "つぎに投入時刻を各ComboBox より選択してから" _ 　　　　　　　& "入力2ボタンを押してください" 　　　　MsgBox msg, vbInformation, "入力1 完了しました" 　　End If End Sub '▼4つのComboBoxの「投入時刻」をシートに転記する Private Sub CommandButton2_Click() 　Dim i As Long 　Dim c As Range 　Set c = Worksheets("sheet3").Range("d9") 　For i = 1 To 4 　　　With Controls("ComboBox" & i) 　　　　　If .ListIndex < 0 Then 　　　　　　　MsgBox Controls("Label" & i).Caption _ 　　　　　　　　　& "の投入時刻が未選択です", vbCritical 　　　　　Else 　　　　　　　c.Item(i).Value = .Value 　　　　　End If 　　　End With 　Next End Sub 補足通常のInputBoxのように [OK]ボタンはひとつで済むかも知れませんが。


	【65306】Re:ListBoxにNullが入ってしまう。

きしやん

- 10/5/7(金) 9:18 -


	引用なし

	パスワード

▼kanabun さん： >▼きしやんさん： > >>>Private Sub CommandButton2_Click() >>>　 if ListBox1.ListIndex < 0 Then >>>　　　　Msgbox "Listから時刻を選択してください" >>>　　　　Exit Sub >>>　 end if >>>　stjikoku = ListBox1.VALUE >>> >>>のように直してみてはどうですか？ > >ListBoxにNullがはいってしまう原因と対処法については >お分かりになりましたでしょうか？ > > >>Call CommandButton2_Clickの項は説明不足でしたが、 >>まだ作成途中ですが条件分岐を考えておりまして、select caseも >>考えていますが、構文が複雑になるかと思い、subﾙｰﾁﾝ的な >>ものが出来ればと考えております。 >>このような場合kanabun さんの方法で可能でしょうか > >え～っと、UserFormの各論のまえに概論をひとつ。 > >ユーザーフォームというのは、いわば高機能な「複合InputBox」 >なので、UserForm のなかで個々のデータ入力を一回一回 >InputBoxで個別に実行するのは、入力したデータの表示がすぐ消えて >しまうので、ユーザーにとって決して入力しやすいインターフェース >ではないと思います。 > >UserFormを複合InputBoxとして利用するなら、複数入力項目別に >TextBoxやComboBoxを置いておいて、ユーザーに自由に（相互の値を >確認させながら）入力させ、全部入力が終わった時点で、 >[OK]ボタンを押すようにするのがいいでしょう。 > >そのような「複合InputBoxとしての UserForm」のイメージを >参考までに、以下に紹介します。 > >新しいUserFormに LabelとTextBoxとComboBox をそれぞれ4つづつ、 >以下のLayoutの感じで配置します > >┏━━━━━━━━━━━━━━━━━━━━━━━┓ >┃ [Label1] 【TextBox1 】　　【ComboBox1】　　 ┃ >┃ [Label2] 【TextBox2 】　　【ComboBox2】　　 ┃ >┃ [Label3] 【TextBox3 】　　【ComboBox3】　　 ┃ >┃ [Label4] 【TextBox4 】　　【ComboBox4】　　 ┃ >┃　　　　　　　　　　　　　　　　　　　　　　　┃ >┃　　　　【CommandButton1】【CommandButton2】　┃ >┃　　　　　　　　　　　　　　　　　　　　　　　┃ >┗━━━━━━━━━━━━━━━━━━━━━━━┛ > >Option Explicit > >'★モジュールレベル変数は必要最小限にとどめる! >Private Grade As String >Private Hizuke As Date, Hizuke1 As Date > >'▼UserForm 初期化時 >'　LabelのCation設定、ComboBoxリスト設定など >Private Sub UserForm_Initialize() >　　Dim c As Range >　　Dim i As Long >　　Dim SrcList >　　With Worksheets("sheet4") >　　　　Hizuke = .Range("c4").Value　 '★Valueプロパティを省略しない! >　　　　Hizuke1 = .Range("c5").Value >　　　　 'ComboBox用時刻リスト _ >　　　　　　　 ◆「Sheet4」の[B2]以降にあると仮定 ◆要変更 >　　　　 ' 時刻データを "h:mm"フォーマットした文字列の配列に入れる >　　　　SrcList = Application.Text( _ >　　　　　　.Range("B2", .Range("B1").End(xlDown)), "h:mm") >　　End With >　　Me.Caption = Hizuke & "～" & Hizuke1 & "のｷｬﾝﾍﾟｰﾝは " _ >　　　　　　　　　& Grade & "です" >　　Label1.Caption = "生産量" >　　Label2.Caption = "No.1ｻｲﾛの在庫量" >　　Label3.Caption = "No.2ｻｲﾛの在庫量" >　　Label4.Caption = "No.17ｻｲﾛの在庫量" >　　For i = 1 To 4 >　　　　With Controls("ComboBox" & i) >　　　　　　.RowSource = "" >　　　　　　.List = SrcList >　　　　End With >　　Next >　　CommandButton1.Caption = "転記1" >　　CommandButton2.Caption = "転記2（時刻）" >　　 >End Sub > >'Initialize後の画面はこんなふうになるはずです >┏━━━━━━━━━━━━━━━━━━━━━━━━┓ >┃ 生産量　　　　　【　　　　　】【　　　】　　 ┃ >┃ No.1ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ >┃ No.2ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ >┃ No.17ｻｲﾛの在庫量【　　　　　】【　　　】　　 ┃ >┃　　　　　　　　　　　　　　　　　　　　　　　　┃ >┃　　　　　　　　 [　転記1　]　 [転記2（時刻）] ┃ >┃　　　　　　　　　　　　　　　　　　　　　　　　┃ >┗━━━━━━━━━━━━━━━━━━━━━━━━┛ > >'▼4つのTextBoxの値を入力後量をセルに転記する >Private Sub CommandButton1_Click() >　Dim i As Long >　Dim msg As String >　Dim grade1 As String >　Dim grade2 As String >　 >　　'TextBox 入力チェック >　　For i = 1 To 4 >　　　　msg = Controls("TextBox" & i).Text >　　　　If Len(msg) = 0 Then >　　　　　　MsgBox Controls("Label" & i).Caption & " が未入力です" >　　　　　　Exit Sub >　　　　End If >　　Next >　　'シートに代入 >　　Worksheets("sheet6").Range("c5").Value = CLng(TextBox1.Text) >　　With Worksheets("Sheet3") >　　　　.Select >　　　　.Range("d4").Value = CLng(TextBox2.Text) >　　　　.Range("d13").Value = CLng(TextBox3.Text) >　　　　.Range("d22").Value = CLng(TextBox4.Text) >　　End With > >　　grade1 = "TH-700BJ" >　　grade2 = Worksheets("sheet1").Range("t18").Value >　　If StrComp(grade1, grade2, vbTextCompare) = 0 Then >　　　　msg = "つぎに投入時刻を各ComboBox より選択してから" _ >　　　　　　　& "入力2ボタンを押してください" >　　　　MsgBox msg, vbInformation, "入力1 完了しました" >　　End If >End Sub > >'▼4つのComboBoxの「投入時刻」をシートに転記する >Private Sub CommandButton2_Click() >　Dim i As Long >　Dim c As Range >　Set c = Worksheets("sheet3").Range("d9") >　For i = 1 To 4 >　　　With Controls("ComboBox" & i) >　　　　　If .ListIndex < 0 Then >　　　　　　　MsgBox Controls("Label" & i).Caption _ >　　　　　　　　　& "の投入時刻が未選択です", vbCritical >　　　　　Else >　　　　　　　c.Item(i).Value = .Value >　　　　　End If >　　　End With >　Next >End Sub > >補足 >通常のInputBoxのように [OK]ボタンはひとつで済むかも知れませんが。 kanabun さん：丁寧な説明ありがとうございました。 kanabunさんの説明の通り、ﾕｰｻﾞｰﾌｫｰﾑは高機能な「複合InputBox」という考えで、再考し作成しなおしてみたいと思います。ありがとうございました。


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

2914 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free