Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4642 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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)


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

後、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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4642 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free