Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11132 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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で改行コードが異なるために起きた現象なのですね。
また何かありましたらよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11132 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free