Excel VBA質問箱 IV

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

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


11111 / 13644 ツリー ←次へ | 前へ→

【18024】改行コードの代替方法 04/9/13(月) 16:20 質問[未読]
【18029】Re:改行コードの代替方法 IROC 04/9/13(月) 16:48 回答[未読]
【18034】Re:改行コードの代替方法 04/9/13(月) 17:03 発言[未読]
【18036】Re:改行コードの代替方法 04/9/13(月) 17:19 お礼[未読]
【18037】Re:改行コードの代替方法 IROC 04/9/13(月) 17:20 回答[未読]
【18038】Re:改行コードの代替方法 04/9/13(月) 17:29 回答[未読]
【18040】Re:改行コードの代替方法 IROC 04/9/13(月) 17:32 回答[未読]
【18049】Re:改行コードの代替方法 Hirofumi 04/9/13(月) 21:03 回答[未読]
【18058】Re:改行コードの代替方法 04/9/14(火) 9:08 お礼[未読]

【18024】改行コードの代替方法
質問    - 04/9/13(月) 16:20 -

引用なし
パスワード
   よろしくお願いします。

Accessから吐き出したExcelデータについて質問です。
データ中に改行がある場合、「・」という改行コードに変換されてしまいます。
これを表示させない方法はありますか?
ただし、改行の状態はそのまま反映させたいと思っています。

要領を得ない質問ですが、どうぞよろしくお願いいたします。

【18029】Re:改行コードの代替方法
回答  IROC  - 04/9/13(月) 16:48 -

引用なし
パスワード
   もとは、どのようなデータなのでしょうか?

【18034】Re:改行コードの代替方法
発言    - 04/9/13(月) 17:03 -

引用なし
パスワード
   >もとは、どのようなデータなのでしょうか?

もとはシステムの不具合等を入れてあるメモ型のデータで、
「検索ができない。
 検索ボタンを押しても動かない。
 たまに動く。」
とかいう感じで入っています。

【18036】Re:改行コードの代替方法
お礼    - 04/9/13(月) 17:19 -

引用なし
パスワード
   SUBSTITUTE関数で以下のようにしたら解決しました。
ありがとうございました。

=SUBSTITUTE("ワークシート名!セル番号",CHAR(13),"")

【18037】Re:改行コードの代替方法
回答  IROC  - 04/9/13(月) 17:20 -

引用なし
パスワード
   その「メモ型のデータ」は、txtファイルでしょうか?

どのようにEXCELに読み込んでいるのでしょうか?

【18038】Re:改行コードの代替方法
回答    - 04/9/13(月) 17:29 -

引用なし
パスワード
   >その「メモ型のデータ」は、txtファイルでしょうか?
>
>どのようにEXCELに読み込んでいるのでしょうか?

ACCESS VBAでTransferSpreadsheetを使用してExcel9タイプに出力しています。

【18040】Re:改行コードの代替方法
回答  IROC  - 04/9/13(月) 17:32 -

引用なし
パスワード
   >ACCESS VBAでTransferSpreadsheetを使用してExcel9タイプに出力しています。

知らない単語が出てきてしまいました・・・

ACCESS はあまり詳しくないので、他の回答者からの回答をお待ち下さい。

聞くだけ聞いておいて、すみません。

【18049】Re:改行コードの代替方法
回答  Hirofumi  - 04/9/13(月) 21:03 -

引用なし
パスワード
   Excelのセル内の改行はvbLfですが、Accessのフィールド内の改行はvbCrLfです
AccessのデータをExcelのデータにすると、このLfで改行はされますが、Crが残って
「・」に見えていると思います
以下のマクロを標準モジュールに記述し、vbCrを消すシートをActiveにして実行すれば
vbCrを""に置換すると思います

Option Explicit

Public Sub Macro1()
  
  Cells.Replace What:=vbCr, Replacement:="", _
          LookAt:=xlPart, SearchOrder:=xlByRows, _
          MatchCase:=False
End Sub

【18058】Re:改行コードの代替方法
お礼    - 04/9/14(火) 9:08 -

引用なし
パスワード
   IROCさん、Hirofumiさん

どうもありがとうございました。
ACCESSとEXCELで改行コードが異なるために起きた現象なのですね。
また何かありましたらよろしくお願いいたします。

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