|
>ponpon さん
はい、そうです。
コマンド1を押した時に、
E9が空欄ならH9も空欄。E10に何か入っていたらH10には「1」。
コマンド2を押した時に、
E9に何か入っていたらH9には「2」、E10が空欄ならH10も空欄。
という感じです。
されど、ponponさんのでは動かなかったのはなぜでしょう。
>▼とむ さん:
>>コマンドボタンをシートに直接2つ貼っています。
>>
>>コマンド1を押すと「1」と、
>>コマンド2を押すと「2」とシートに反映させたいのですが、
>>E列が空白以外の場合にのみ反映させたいのです。
>>しかもE9からE320までで。
>>
>意味を取り違えているかもしれませんが、
>>コマンド1を押すと、
> E列のE9からE320までが空白でなければ、H列に「1」を入れたいということですか?
> 意味が違ったらごめんなさい。
>
>Private Sub CommandButton1_Click()
> Dim r As Range
>
> For Each r In Range("E9:E320")
> If Not IsEmpty(r.Value) Then
> r.Offset(, 3).Value = 1
> End If
> Next
>End Sub
|
|