|
▼みどりかなぶん さん:
こんばんは。
> コンボボックスの値を順次複数のセルに表示したいのですが途中までできてその後が表示されません。以下のようなコードを書いたのですが間違っているところがわかりません。どなたかお教えください。
まず、この「順次複数のセルに表示したい」という仕様の意味がわかりません。
必ず、例を挙げて説明してください。
>
このコードは
>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
ということですか?
|
|