Excel VBA質問箱 IV

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

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


38661 / 76732 ←次へ | 前へ→

【43204】Re:コンボボックスの値をセルに表示するには...
発言  ponpon  - 06/10/5(木) 20:16 -

引用なし
パスワード
   ▼みどりかなぶん さん:
> コンボボックスの値を順次複数のセルに表示したいのですが途中までできてその後が表示されません。以下のようなコードを書いたのですが間違っているところがわかりません。どなたかお教えください。
>
>
>private sub commbobox1_()
>   with activesheet
>     if .range("e9")=""then
>        .range("e9").value=combobox1.value
>     elseif.range("e9")<>""then
>        .range("e13").value=combobox1.value
>     elseif.range("e13")<>""then
>        .range("e17").value=combobox1.value
>     elseif.range("e17")<>""then
>        .range("e21").value=combobox1.value
>     elseif.range("e21")<>""then
>        .range("e25").value=combobox1.value
>     end if
>   end with
>end sub


>private sub commbobox1_()
こんなイベントはないと思いますが、どのタイミングで
実行するのでしょうか?
ステップ実行してみると、途中までで止まる理由がわかると思います。
やりたいことは、下のようなことですか?

   With ActiveSheet
     If .Range("e9") = "" Then
        .Range("e9").Value = ComboBox1.Value
     End If

     If .Range("e9") <> "" Then
        .Range("e13").Value = ComboBox1.Value
     End If

     If .Range("e13") <> "" Then
        .Range("e17").Value = ComboBox1.Value
     End If

     If .Range("e17") <> "" Then
        .Range("e21").Value = ComboBox1.Value
     End If

     If .Range("e21") <> "" Then
        .Range("e25").Value = ComboBox1.Value
     End If
   End With

でもそれなら、
     If .Range("e9") = "" Then
の時必ず、.Range("e9").Value = ComboBox1.Value
となるので、
   With ActiveSheet
     If .Range("e9") = "" Then
        .Range("e9").Value = ComboBox1.Value
        .Range("e13").Value = ComboBox1.Value
        .Range("e17").Value = ComboBox1.Value
        .Range("e21").Value = ComboBox1.Value
        .Range("e25").Value = ComboBox1.Value
     End If
   End With
と同じじゃないですか?

意味を取り違えていたら、ごめんなさい。

0 hits

【43203】コンボボックスの値をセルに表示するには... みどりかなぶん 06/10/5(木) 18:17 質問
【43204】Re:コンボボックスの値をセルに表示するに... ponpon 06/10/5(木) 20:16 発言
【43253】Re:コンボボックスの値をセルに表示するに... みどりかなぶん 06/10/6(金) 23:32 お礼
【43206】Re:コンボボックスの値をセルに表示するに... ichinose 06/10/5(木) 20:27 発言
【43208】Re:コンボボックスの値をセルに表示するに... ponpon 06/10/5(木) 20:51 発言
【43254】Re:コンボボックスの値をセルに表示するに... みどりかなぶん 06/10/6(金) 23:36 お礼
【43263】Re:コンボボックスの値をセルに表示するに... Mar 06/10/7(土) 13:53 発言
【43278】Re:コンボボックスの値をセルに表示するに... ichinose 06/10/7(土) 20:19 発言
【43284】Re:コンボボックスの値をセルに表示するに... Mar 06/10/7(土) 22:29 質問
【43286】Re:コンボボックスの値をセルに表示する... ponpon 06/10/7(土) 23:31 発言
【43287】Re:コンボボックスの値をセルに表示するに... ichinose 06/10/8(日) 7:45 発言
【43289】Re:コンボボックスの値をセルに表示するに... Mar 06/10/8(日) 10:19 お礼
【43290】Re:コンボボックスの値をセルに表示するに... ponpon 06/10/8(日) 10:35 発言
【43295】Re:コンボボックスの値をセルに表示するに... Mar 06/10/8(日) 13:57 お礼

38661 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free