Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11655 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15037】セルに入力されたシングルクォート”'”を文字列として変数に格納する方法 さとう 04/6/14(月) 10:41 質問[未読]
【15038】Re:セルに入力されたシングルクォート”'”... ちゃっぴ 04/6/14(月) 11:01 回答[未読]
【15039】Re:セルに入力されたシングルクォート”'”... つん 04/6/14(月) 11:01 回答[未読]
【15037】セルに入力されたシングルクォート”'”...
質問  さとう  - 04/6/14(月) 10:41 -
引用なし
パスワード
   セルに入力された文字列の先頭がシングルクォート”'”の場合に、
先頭の”'”を文字列として変数に格納する方法を教えて下さい。

誰か助けてくださ〜い〜

※下記の様な方法で処理を書いてみたのですが、
　”'”が省かれて変数に格納されてしまいます。

【コード】

Dim testVal

testVal = Cells(1, 1)

MsgBox testVal


【Cells(1, 1)の入力値】
'さんぷるてきすと’

【実行結果】
さんぷるてきすと’

※先頭の”'”文字が省かれて処理されてしまいます。
【15038】Re:セルに入力されたシングルクォート”...
回答  ちゃっぴ  - 04/6/14(月) 11:01 -
引用なし
パスワード
   簡単な方法
文字列の頭に「'」があった場合、
もう一個「'」つけてやればいいと思います。

文字列 = IIf(Left$(文字列) = "'", "'", "") & 文字列
【15039】Re:セルに入力されたシングルクォート”...
回答  つん E-MAIL  - 04/6/14(月) 11:01 -
引用なし
パスワード
   さとう さん、おはようございます。

>※下記の様な方法で処理を書いてみたのですが、
>　”'”が省かれて変数に格納されてしまいます。
>
>【コード】
>
>Dim testVal
>
>testVal = Cells(1, 1)
>
>MsgBox testVal
>
>
>【Cells(1, 1)の入力値】
>'さんぷるてきすと’
>
>【実行結果】
>さんぷるてきすと’
>
>※先頭の”'”文字が省かれて処理されてしまいます。

Ａ１のセルには、ちゃんと「'さんぷるてきすと’」と表示されてますか？
セルに文字を入力するとき、冒頭の「'」を入れても、それは、
「文字列の印し」の「’」として認識されてしまって、
セルには「’」は表示されないと思います。
（数式バーには表示されているけど）
なので、文字列に冒頭の「’」をつけたければ「’」を二つくっつける必要があって、
「''さんぷるてきすと’」とされると、実行結果も
「'さんぷるてきすと’」になると思いますが・・・

こういうことでいいでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11655 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free