Excel VBA質問箱 IV

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

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


38659 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼みどりかなぶん さん:
こんばんは。

> コンボボックスの値を順次複数のセルに表示したいのですが途中までできてその後が表示されません。以下のようなコードを書いたのですが間違っているところがわかりません。どなたかお教えください。

まず、この「順次複数のセルに表示したい」という仕様の意味がわかりません。

必ず、例を挙げて説明してください。


>
このコードは

>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
>     elseif.range("e9")<>""then
>        .range("e13").value=combobox1.value
>     end if
>   end with
>end sub

と同じですよ!! 

仕様は想像ですが・・・、


private sub commbobox1_()
  Dim crng As Range
  With ActiveSheet
    For Each crng In .Range("e9,e13,e17,e21,e25")
     If crng.Value = "" Then
       crng.Value = combobox1.Value
       Exit For
       End If
     Next
  
  End With
End Sub

ということですか?
1 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 お礼

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