エクセルのユーザフォームで日程表を作っています。
下記ListBox1で会議名称だけ表示させています(チェックボックス無し)。
Private Sub ListBox1_click()で選択さした項目を、ここではあらかじめ結合したF5、F6セルに入力させたいのですが、なにも入力されません。
また、ウォッチウインドゥで cとListIndexとListBox1.Valueを設定し、実行後に見るとListIndex 2、ListBox1.Value : "責任者会議"とそれなりに表示されますが、cはEmptyです。
なぜF5セルと、併せてウォッチウインドゥに変数cが設定されないのでしょうか。教えてください。
Excel 2007 VB6.5です。
'行事入力一覧
Private Sub UserForm_Initialize()
With ListBox1
.AddItem ""
.AddItem "サービス課会議"
.AddItem "責任者会議"
.AddItem "安全衛生委員会"
.AddItem "ISO委員会"
End With
End Sub
---------------------------------
Private Sub ListBox1_click()
MsgBox ("選択した行事名を「行事等」欄へコピーします。" _
& vbCrLf & vbCrLf & "コピーしたい日付の「行事等」欄をクリックしてください。")
Dim ListIndex As Long '選択番号
Dim c As Variant
ListIndex = ListBox1.ListIndex
With ActiveSheet
For i = 0 To -1
c = ListBox1.Value
Range("F5").Value = ListBox1.Value
’ Range("F5:F6").MergeCells.Value = ListBox1.Value
’ Cells(5, 6).Value = ListBox1.Value
Next i
.Range("G5").Value = "-4A56" 'Test G5とG6の結合セルだが入力される。
End With
Stop
ListBox1.Value = ""
Unload Me
End Sub
No.1ベストアンサー
- 回答日時:
その for 文は何の目的であるのでしょうか??for 分の初期値より終値が小さいので、中は通っていませんよ。
その for 文を実現するなら、for i=0 to -1 step -1
です。
No.2
- 回答日時:
表示された日付の行で「行事」の列に会議の種類を選択表示させるだけのことでしたらエクセルでは「データの入力規則」から「リスト」で設定することができます。
マクロを使った作業はかえって操作を難しくします。書かれたマクロではListBox1の値をF5セルに書くだけのことです。
Forなどを使って処理することは全く必要がありませんね。Forを使ったケースはリスト形式が2列になっている場合などにそれぞれを別のセルに表示させるような場合で、For i=0 To .ListCount -1 のように使われますが、ここではその必要も全くありません。For の中で使われている i の意味がよく理解されていないままに使われています。c の値が空白のままであるのもそのためです。
ご指摘ありがとうございました。「データの入力規則」から「リスト」での設定を試みました。ただ、入力先が縦書きなので、選択項目の幅が狭すぎ、見た目が解りくく、この方法は断念しました。大変勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBA リストボックス反映できない
Visual Basic(VBA)
-
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
-
4
VBAコンボボックスの内容が反映されない
その他(プログラミング・Web制作)
-
5
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
6
UserForm1.Showでエラーになります。
工学
-
7
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
10
別ブックからユーザーフォームを実行したい~!!
Visual Basic(VBA)
-
11
モーダルフォームとモードレスフォーム
Visual Basic(VBA)
-
12
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
15
エクセル 条件付き書式で文字を表示するには
Excel(エクセル)
-
16
Excel VBA コンボボックスで空白を削除
その他(Microsoft Office)
-
17
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
18
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
19
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
-
20
excelのInitializeイベントとActivateイベントについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
父の日って6月第3土曜じゃ…
-
一般的な「1ヶ月前」とは
-
「於」 読み方
-
5月22日今日からセブンイレブン...
-
町内会の清掃に出れない時の対...
-
興味のない女子に学校の行事の...
-
誕生日プレゼントをお返ししな...
-
夫が部下の女性から誕生日プレ...
-
町内会の組の班長の順番が回っ...
-
労働組合に入るべき?
-
今日1月13日木曜日。 翌金曜日...
-
LINEで誕生日を公開してない人...
-
返信しなかった往復ハガキは書...
-
高校生です 学校行事は全部休ん...
-
隣人から苦情の手紙が届きまし...
-
「6月2日をもって」は6月゜2日...
-
誕生日を忘れられた友達との今...
-
創価学会員がやらない行事って?
-
アパートの隣の部屋のポストに...
-
誕生日おめでとうって言われた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一般的な「1ヶ月前」とは
-
「6月2日をもって」は6月゜2日...
-
「於」 読み方
-
町内会の清掃に出れない時の対...
-
高校生です 学校行事は全部休ん...
-
5月22日今日からセブンイレブン...
-
返信しなかった往復ハガキは書...
-
獅子舞の熨斗袋表書きは、何と...
-
誕生日おめでとうって言われた...
-
興味のない女子に学校の行事の...
-
労働組合に入るべき?
-
誕生日を忘れられた友達との今...
-
交通安全協力会 協力金1500円...
-
LINEで誕生日を公開してない人...
-
町内会の組の班長の順番が回っ...
-
創価学会員がやらない行事って?
-
女1人で仕事の飲み会に行くべき?
-
アパートの隣の部屋のポストに...
-
Happy 20th Birth Day! 使い方...
-
会社の社員旅行とかって強制で...
おすすめ情報