VBAの書き方

質問

初歩的ですいません。
エクセルのVBAを利用してセル内に「"」を書き込むことは不可能なのでしょうか？？

=if(A1="","","ok")
と言う数式をVBAからセル内に書き込みたいのですがVBAで　""　をプログラム上の文字として認識されてしまい書き込めません。

ご教授いただけないでしょうか？？

回答No.3

minato_air · ベストアンサー

VBAですよね？

でしたら、
Sub test()

Set sh = Sheets("Sheet1")

If sh.Range("A1") = "" Then
sh.Range("A1") = " """" "
Else
sh.Range("A1") = "OK"
End If

End Sub

で出来ると思います。
やってみてください。

>sh.Range("A1") = " """" "
>= " """" "
ここが注意点です。
大外の" 　　" が、文字列の設定
中の""が\"と同じ原理です。
""を二つ合わせることで、文字として"を認識させる。
ということになります。

お礼

minato_air,tamacky,finneganswake さん
ありがとうございます！！！！
即刻利用させてもらいました。
またお願いするときはよろしくお願いいたします。

代表してminato_airさんの所に書き込みさせていただきました。

回答No.2

finneganswake

ツール→マクロ→新しいマクロの記録でやってみるといいと思う。
（やってみました。）

ActiveCell.FormulaR1C1 = "=IF(R[-4]C[-1]="""","""",""ok"")"

No.1の方と同じになるね。

回答No.1

noname#112806

=if(A1="""","""",""ok"")
でどうでしょうか？