Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4623 / 13646 ツリー ←次へ | 前へ→

【55544】""内での"の使用について In a house 08/5/10(土) 20:51 質問[未読]
【55545】Re:""内での"の使用について カウボーイズ 08/5/10(土) 20:59 回答[未読]
【55546】Re:""内での"の使用について わいわい 08/5/10(土) 21:10 発言[未読]
【55547】Re:""内での"の使用について In a house 08/5/10(土) 22:09 お礼[未読]
【55561】Re:""内での"の使用について VBWASURETA 08/5/11(日) 11:38 発言[未読]

【55544】""内での"の使用について
質問  In a house  - 08/5/10(土) 20:51 -

引用なし
パスワード
   今、あるセルにエクセルのIF関数(=IF(条件,,))の式を入れたいのですが、
そうするとVBAの方で

セル指定 = "=if(条件,"真の時に表示する文字","負の時に表示する文字")"

と打ってしまうと途中の"のために文が切れて表示する文字のところをVBA側が理解できなくてエラーとなってしまうのです。

"を""内で使用する方法、または代案などがありましたらご教授お願いします。

【55545】Re:""内での"の使用につ...
回答  カウボーイズ  - 08/5/10(土) 20:59 -

引用なし
パスワード
   ダブルクォーテーションを二つ並べれば大丈夫だと思います

MsgBox "=if(条件,""真の時に表示する文字"",""負の時に表示する文字"")"

↑でメッセージボックスを出してテストしてみてください

【55546】Re:""内での"の使用につ...
発言  わいわい  - 08/5/10(土) 21:10 -

引用なし
パスワード
   In a house さん こんばんわ
そんな時も私は、マクロの記録で確認を取ります。

"=IF(R[3]C="""",""abc"",""HIJ"")"
上記はマクロの記録で得た結果です。
ダブルクォーテーションを一つづつ余分に記入すれば良いことがわかります。


*すでにカウボーイズさんから回答がありましたね。ダブっちゃいました。
でもせっかくなので削除せずに書き直しました。

【55547】Re:""内での"の使用につ...
お礼  In a house  - 08/5/10(土) 22:09 -

引用なし
パスワード
   >カウボーイズさん
予想以上に早い返答に驚きました。
おかげさまで思い通りの記述ができました。
"を三つ並べて"を表示させようとしたりして、こんがらがっていた頭がすっきりしました。
本当にありがとうございました。

>わいわい さん
マクロの記録って手がありましたね。。。
私もエクセルでの動作のマクロ記録を使ったVBA確認はよくするのですが、
エクセルの記述関係もこれで見れるとは気づきませんでした。
返答ありがとうございます。

【55561】Re:""内での"の使用につ...
発言  VBWASURETA  - 08/5/11(日) 11:38 -

引用なし
パスワード
   皆さんこんにちは。

もう回答済みみたいですが。
ダブルコークォテーションを比較したりする場合、
自分はChr(34)を使用してます。

例:
MsgBox Chr(34) & "テストです" & Chr(34)


ダブルコークォテーションを2つ書いて打ち消す方法も
良いのですが、自分の場合書きすぎると条件がややこしくなるので・・・

後、OSに左右されるかも知れないので以下の方法で事前にChrコードを
見るのも手です。

Chrコード確認例:
Sub ChrSearch()
  Dim i As Long
  For i = 0 To 255
    If (Chr(i) = """") Then
      MsgBox "ダブルクォーテーションは= " & i & " かも知れない"
      Exit Sub
    End If
  Next i

  If ( i > 255) Then
    MsgBox "ダブルクォーテーションコードがありません・・・"
  End If

End Sub

4623 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free