セル値

質問

すみません　エクセルＶＢＡ勉強中のものですが、セルＡ１とＡ２がブランクだったら、セルＢ１に”あ”を表示するという式を作ったのですがうまく動いてくれません　ご指導のほどお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(1, 1).Value <> "" & Cells(2, 1).Value <> "" Then

Cells(1, 2).Value = "あ"

End If

End Sub

回答No.2

chibita_papa

プランクだったら
Cells(1, 1).Value = ""
ブランクでなかったら
Cells(1, 1).Value <> ""
になります。

& は使わずに　And と書きます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(1, 1).Value = "" And Cells(2, 1).Value = "" Then

Cells(1, 2).Value = "あ"

End If

End Sub

お礼

どうもありがとうございました。まだまだ勉強不足でした。

回答No.1

mitarashi

「セルＡ１とＡ２が共にブランクでなければ」というコードになってますよ。
それは書き間違いとして、論理演算子のつもりで、&を使っているのがまずいのでしょう。（Cなら&&ですが．．．）
両セルとも空の時、イミディエイトウィンドウで試してみると
?(Cells(1, 1).Value <> "" & Cells(2, 1).Value <> "")
True
?(Cells(1, 1).Value <> "" And Cells(2, 1).Value <> "")
False
前者は&のために、文頭から解釈される途中で論理演算結果が文字列に変換されてしまって、訳の分からない結果になっているのかもしれません。

お礼

ありがとうございました。　問題解決できました。