Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10412 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21935】ダブルコーテーション sa 05/2/4(金) 10:38 質問[未読]
【21937】Re:ダブルコーテーション Jaka 05/2/4(金) 11:16 回答[未読]
【21940】Re:ダブルコーテーション kazu 05/2/4(金) 13:03 発言[未読]
【21946】Re:ダブルコーテーション sa 05/2/4(金) 16:03 質問[未読]
【21950】Re:ダブルコーテーション pi 05/2/4(金) 17:00 発言[未読]
【21952】Re:ダブルコーテーション sa 05/2/4(金) 17:29 質問[未読]
【21953】Re:ダブルコーテーション pi 05/2/4(金) 17:44 発言[未読]
【21957】Re:ダブルコーテーション kazu 05/2/4(金) 18:51 発言[未読]
【22002】Re:ダブルコーテーション sa 05/2/7(月) 9:24 お礼[未読]
【22015】Re:ダブルコーテーション kazu 05/2/7(月) 13:02 発言[未読]
【21935】ダブルコーテーション
質問  sa  - 05/2/4(金) 10:38 -
引用なし
パスワード
   いきなりですが
""を文字列中に書きたいのですが
どのようにしたら良いですか
教えて下さい
【21937】Re:ダブルコーテーション
回答  Jaka  - 05/2/4(金) 11:16 -
引用なし
パスワード
   　こんにちは。

私も長文になると悩むけど（理論が良く解ってない）。
試してみてね。
理論のわかる人からも回答があると思います。

moji1 = 111 & """""" & 111
MsgBox moji1
moji2 = """あああ""" & 123 & "ttt" & """"""
MsgBox moji2

1番簡単なもの
MsgBox """" & """"
【21940】Re:ダブルコーテーション
発言  kazu  - 05/2/4(金) 13:03 -
引用なし
パスワード
   こんにちは。

私の場合、可読性を主な観点で考えてASCIIで書いちゃう方が多いですね。

Chr(34)　で　ダブルコーテーションです。

ASCIIコード一覧は結構サイトに落ちてるんで、参考にしてみて下さい。
Chr関数結構重宝します。


文字列中にダブルコーテーションを入れる場合は、ダブルコーテーション２個つづけて入力すればダブルコーテーション一個が文字列としてかえされます。

"""あああ"""

は　最初と最後のダブルコーテーションが文字列のくくりのダブルコーテーションでダブルコーテーション２個つづきはダブルコーテーションを文字出力する為のダブルコーテーションになります。

ためしに、↑のを　""""あああ"""　と入力してみて下さい。　多分ｴﾗｰがかえっていきます。

""""　&　"あああ"""　　←なら大丈夫ですが・・・。

""""これは　最初と最後のダブルコーテーションが文字列のくくりのダブルコーテーション真中２つでダブルコーテーション
を文字出力する為のダブルコーテーションになりますので結果文字出力されたときには、

"""あああ""" と　 """"　&　"あああ"""　は同じ文字列が返されます。

何かわかんない説明になっちゃいましたけど・・・。

こんなんでいいでしょうか・・・（疑問）
【21946】Re:ダブルコーテーション
質問  sa  - 05/2/4(金) 16:03 -
引用なし
パスワード
   kazu さん ありがとうございました
大体判りました

ところで
シーケンシャル入力モード (Input)の
input関数でデータを読み込む時
ダブルコーテーションを何個（偶数)つけても
""になってしまいます
なにか、良い方法がないものでしょうか
【21950】Re:ダブルコーテーション
発言  pi  - 05/2/4(金) 17:00 -
引用なし
パスワード
   ▼sa さん　始めまして
>ところで
>シーケンシャル入力モード (Input)の
>input関数でデータを読み込む時
>ダブルコーテーションを何個（偶数)つけても
>""になってしまいます
>なにか、良い方法がないものでしょうか

はっきりいって、良く分かってない僕が口出しするのはどうかと思うのですが、
えーと、変数に"をいれて使うといいのではないでしょか？

sub test1 ()
Dim a as String
a = Range("A1")　'事前にA1に"と入力しておく。
msgbox a + a + a + "あああ" + a + a + a
end sub

これで行くと、 """あああ""" と表示されるのですが・・・
話が違っていたら、申し訳ないです。
【21952】Re:ダブルコーテーション
質問  sa  - 05/2/4(金) 17:29 -
引用なし
パスワード
   ▼pi さん：
>>シーケンシャル入力モード (Input)の
>>input関数でデータを読み込む時
>>ダブルコーテーションを何個（偶数)つけても
>>""になってしまいます
>>なにか、良い方法がないものでしょうか
説明不足だったかもしれませんすみません
テキストファイルからデータを読みたいと言うことだったのですが
ＣＶＳファイルに変換して
ＥＸＣＥＬで開いて読むか
ＶＢＡの乗っているシートにどうにかして
貼り付けて
やるということですか?

>▼sa さん　始めまして
>>ところで
>>シーケンシャル入力モード (Input)の
>>input関数でデータを読み込む時
>>ダブルコーテーションを何個（偶数)つけても
>>""になってしまいます
>>なにか、良い方法がないものでしょうか
>
>はっきりいって、良く分かってない僕が口出しするのはどうかと思うのですが、
>えーと、変数に"をいれて使うといいのではないでしょか？
>
>sub test1 ()
>Dim a as String
>a = Range("A1")　'事前にA1に"と入力しておく。
>msgbox a + a + a + "あああ" + a + a + a
>end sub
>
>これで行くと、 """あああ""" と表示されるのですが・・・
>話が違っていたら、申し訳ないです。
【21953】Re:ダブルコーテーション
発言  pi  - 05/2/4(金) 17:44 -
引用なし
パスワード
   ▼sa さん　今日は
>>>シーケンシャル入力モード (Input)の
>>>input関数でデータを読み込む時
>>>ダブルコーテーションを何個（偶数)つけても
>>>""になってしまいます
>>>なにか、良い方法がないものでしょうか
>説明不足だったかもしれませんすみません
>テキストファイルからデータを読みたいと言うことだったのですが
>ＣＶＳファイルに変換して
>ＥＸＣＥＬで開いて読むか
>ＶＢＡの乗っているシートにどうにかして
>貼り付けて
>やるということですか?

申し訳ありません、やっぱり話の内容を
理解しきれていませんでした。
僕はテキストファイルの読ませ方が分かりません。
申し訳ありませんでした・・・
【21957】Re:ダブルコーテーション
発言  kazu  - 05/2/4(金) 18:51 -
引用なし
パスワード
   ▼sa さん：

読み込みは　Input #1, x　で読み込みしていると思いますが、
x= Input(1, #1)で読み込んでみて下さい。
Input # と違って、一文字づつ文字全てを読み出します。
x= Input(1, #1)　←　(　の後の１を２に変えると２文字づつになります。
【22002】Re:ダブルコーテーション
お礼  sa  - 05/2/7(月) 9:24 -
引用なし
パスワード
   ▼kazu さん：
有難うございました
言われたとおり
Inputステートメント：Input #1, x　で読み込んでました
Input関数：x= Input(1, #1)でやると
ダブルコーテーションもカンマもそのまま読めました

>▼sa さん：
>
>読み込みは　Input #1, x　で読み込みしていると思いますが、
>x= Input(1, #1)で読み込んでみて下さい。
>Input # と違って、一文字づつ文字全てを読み出します。
>x= Input(1, #1)　←　(　の後の１を２に変えると２文字づつになります。
【22015】Re:ダブルコーテーション
発言  kazu  - 05/2/7(月) 13:02 -
引用なし
パスワード
   ▼sa さん：
ごめんなさい。
金曜どたばたの用事があったので、あんままともなレス入れれませんでした。
１行づつ読み込ませたい様であれば　Line Input　も有効な手法かと思われます。

一応書き加えておきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10412 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free