|
▼みどりかなぶん さん:
> コンボボックスの値を順次複数のセルに表示したいのですが途中までできてその後が表示されません。以下のようなコードを書いたのですが間違っているところがわかりません。どなたかお教えください。
>
>
>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
と同じじゃないですか?
意味を取り違えていたら、ごめんなさい。
|
|