Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11720 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14473】セル内の改行コードを消したい バカボン 04/5/30(日) 16:11 質問[未読]
【14475】Re:セル内の改行コードを消したい つん 04/5/30(日) 16:29 回答[未読]
【14479】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 16:41 質問[未読]
【14481】Re:セル内の改行コードを消したい つん 04/5/30(日) 16:55 回答[未読]
【14482】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 17:05 質問[未読]
【14484】Re:セル内の改行コードを消したい つん 04/5/30(日) 17:12 発言[未読]
【14485】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 17:16 回答[未読]
【14483】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 17:05 回答[未読]
【14478】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 16:37 回答[未読]
【14486】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 17:36 質問[未読]
【14488】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 17:51 質問[未読]
【14490】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 18:03 回答[未読]
【14489】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 17:59 回答[未読]
【14491】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 18:04 質問[未読]
【14492】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 18:24 回答[未読]
【14493】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 18:31 発言[未読]
【14495】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 18:33 発言[未読]
【14496】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 19:22 回答[未読]
【14497】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 19:32 発言[未読]
【14498】Re:セル内の改行コードを消したい かみちゃん 04/5/30(日) 19:40 発言[未読]
【14499】Re:セル内の改行コードを消したい バカボン 04/5/30(日) 19:41 発言[未読]
【14494】キャリッジリターンとか・・・ つん 04/5/30(日) 18:31 発言[未読]
【14500】Re:セル内の改行コードを消したい Hirofumi 04/5/30(日) 21:00 回答[未読]
【14545】Re:セル内の改行コードを消したい バカボン 04/6/1(火) 10:35 お礼[未読]
【14473】セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 16:11 -
引用なし
パスワード
   現在ＣＳＶファイルをエクセルで生成し、データをＤＢにインポートしようと
思い、ＣＳＶファイルを作成していました。

ところがエクセルファイルのデータの中に、セル内のデータ（文字列）に改行コードがあるため
そのままＣＳＶファイルを生成しても、データが切れるという状況になってしまいます。

そこでセル内にあるデータの改行コードを削除したいのですが
それは可能でしょうか？
お手数ですがご教授お願いします。
【14475】Re:セル内の改行コードを消したい
回答  つん E-MAIL  - 04/5/30(日) 16:29 -
引用なし
パスワード
   バカボン さん、こんにちは

　　With Range("a1")
　　　　.Value = Replace(.Value, vbLf, "")
　　End With

こんな感じかな？
【14478】Re:セル内の改行コードを消したい
回答  かみちゃん  - 04/5/30(日) 16:37 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>そこでセル内にあるデータの改行コードを削除したいのですが

VBAを使わなくても、一般操作であれば、SUBSTITUTE関数でできます。
=SUBSTITUTE(A3,CHAR(10),"")
ただし、VBAでするならば、Replace関数で
　ActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
のようにするとできます。
【14479】Re:セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 16:41 -
引用なし
パスワード
   ▼つん さん：
>バカボン さん、こんにちは
>
>　　With Range("a1")
>　　　　.Value = Replace(.Value, vbLf, "")
>　　End With
>
>こんな感じかな？

さっそくありがとうございます。
さっそく試してみたのですが、『プロッシージャーの外では無効です』
というエラーメッセージが返ってきました。
何分、初心者なのでマクロの使い方がおかしいのかもしれないのですが（＾＾；；
マクロの記述するところには、上記のソースのまま記述して実行させています
【14481】Re:セル内の改行コードを消したい
回答  つん E-MAIL  - 04/5/30(日) 16:55 -
引用なし
パスワード
   どもども

>さっそくありがとうございます。
>さっそく試してみたのですが、『プロッシージャーの外では無効です』
>というエラーメッセージが返ってきました。
>何分、初心者なのでマクロの使い方がおかしいのかもしれないのですが（＾＾；；
>マクロの記述するところには、上記のソースのまま記述して実行させています

プロシージャ内に書いてはらへんのかな？

Sub ○○()

　　この間に書いてくださいね

End Sub

○○は、プロシージャ名で、適当な名前を付けてください。

Sub ○○()

　　処理処理

End Sub

これで１つの単位のプログラムになります。
なので、いきなり処理のコードを何もないところに書いても
動いてくれません。
私は上手に説明出来ないんだけど、ネットで「プロシージャ」で調べると、
いろんなサイトで説明されてるので見てみてくださいね。
【14482】Re:セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 17:05 -
引用なし
パスワード
   レスありがとうございます。
さっそく記述を直して実行してみたのですが
実行時エラー424
オブジェクトが必要です
とエラーが返ってきます。
ソースは下記のように記述しています。


Sub セル内改行コード削除()
SubActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub

なにがおかしいのか？教えて頂きたいのですが？
【14483】Re:セル内の改行コードを消したい
回答  かみちゃん  - 04/5/30(日) 17:05 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>さっそく試してみたのですが、『プロッシージャーの外では無効です』
>というエラーメッセージが返ってきました。
>何分、初心者なのでマクロの使い方がおかしいのかもしれないのですが（＾＾；；
>マクロの記述するところには、上記のソースのまま記述して実行させています

'選択したセル範囲の値から改行コードを除外する
Sub Cell_Value_vbLf_Del()
　For Each c In Selection.Cells
　　With c
　　　.Value = Replace(.Value, vbLf, "")
　　End With
　Next
End Sub
でいかがですか？
これで、あらかじめ、除外したいセル範囲を指定して、マクロを実行すればいいとできます。
【14484】Re:セル内の改行コードを消したい
発言  つん E-MAIL  - 04/5/30(日) 17:12 -
引用なし
パスワード
   >Sub セル内改行コード削除()
>SubActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
　↑ここちゃいますか？いらん「Sub」がはいってます。
　　でも、これやと普通エラーは「変数が定義されてません」かな？
>End Sub
>
>なにがおかしいのか？教えて頂きたいのですが？
【14485】Re:セル内の改行コードを消したい
回答  かみちゃん  - 04/5/30(日) 17:16 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

さきほどから、コメントが、つんさんとかぶってしまい申し訳ありません。

>さっそく記述を直して実行してみたのですが
>実行時エラー424
>オブジェクトが必要です
>とエラーが返ってきます。
>ソースは下記のように記述しています。
>
>
>Sub セル内改行コード削除()
>SubActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
>End Sub

Sub セル内改行コード削除()
　ActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub

「SubActiveCell.Value」の「Sub」が余計です。
プロシージャ名や変数に日本語など２バイト文字はあまり使わないほうがよろしいかと思います。

でも、この方法より、以下で紹介した（元々はつんさんが紹介されたもの）ほうがいいと思いますけど。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=14483;id=excel
【14486】Re:セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 17:36 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>そこでセル内にあるデータの改行コードを削除したいのですが
>
>VBAを使わなくても、一般操作であれば、SUBSTITUTE関数でできます。
>=SUBSTITUTE(A3,CHAR(10),"")
>ただし、VBAでするならば、Replace関数で
>　ActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
>のようにするとできます。

さっそく関数を埋め込んだのですが
元々あったデータ（文字列）が消えてしまいます。

ＶＢＡを使った場合も試してみましたが
Sub セル内改行コード削除()
ActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub

というような記述で実行しましたがうまくいきません

何か実行するにあたっておかしいところはあるのでしょうか？
【14488】Re:セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 17:51 -
引用なし
パスワード
   さっそく
=SUBSTITUTE(A3,CHAR(10),"")
で改行コードを削除することができたのですが
同じシート内だとまずいので、
仮に関数を埋め込む際に
データが入ってる方をシート２、表示するほうをシート１とすると
=SUBSTITUTE(A3,CHAR(10),"")
の記述はどのようになりますか？
【14489】Re:セル内の改行コードを消したい
回答  かみちゃん  - 04/5/30(日) 17:59 -
引用なし
パスワード
   こんにちは。かみちゃんです。

>元々あったデータ（文字列）が消えてしまいます。

元々あったデータから、改行コードを消したいのではないのですか？
「つんさん」も私も、そうだと思って、コメントしています。

元々のデータを残したいということなのでしょうか？
少なくともSUBSTITUTE関数の場合は、元々のデータが消えることはないと思います。
=SUBSTITUTE(A3,CHAR(10),"")
は、A3に元々のデータがあって、B3など別のセルにこの数式を書いたらその別セルに改行コードを取り除いた値が入ります。

また、VBAの場合の
Sub セル内改行コード削除()
　ActiveCell.Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub
は、現在のセルの値から改行コードを除いた値を「現在のセル」に入れます。
そういう点で、SUBSTITUTE関数と異なります。

もし、別のセルでに入れたいのなら、
Sub セル内改行コード削除()
　Range("A1").Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub
とすると、特定のセルに入ります。

Sub セル内改行コード削除()
　ActiveCell.Offset(0, 1).Value = Replace(ActiveCell.Value, Chr(10), "")
End Sub
とすると、現在のセルの右隣のセルに入れます。（元々のデータは消えません）

Sub Cell_Value_vbLf_Del()
　For Each c In Selection.Cells
　　With c
　　　c.Offset(0, 1).Value = Replace(.Value, vbLf, "")
　　End With
　Next
End Sub
とすると、選択した範囲の各セルの右隣のセルに入ります。
ただし、選択範囲が連続した複数列にまたがる場合は、意図しない動きになります。
【14490】Re:セル内の改行コードを消したい
回答  かみちゃん  - 04/5/30(日) 18:03 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>データが入ってる方をシート２、表示するほうをシート１とすると
>=SUBSTITUTE(A3,CHAR(10),"")
>の記述はどのようになりますか？

SUBSTITUTE関数のヘルプを見ると「目的の文字列が入力されたセル参照を指定することもできます。」となっていますので、
=SUBSTITUTE(Sheet2!A3,CHAR(10),"")
などとすればいいのではないでしょうか？
【14491】Re:セル内の改行コードを消したい
質問  バカボン E-MAIL  - 04/5/30(日) 18:04 -
引用なし
パスワード
   ありがとうございます。
さっそく試してみましたところ、関数結果はうまくいきました。
しかしながら、エクセルのシート内では見た目は改行は無くなっていますが
実際は、改行コードが残っているため
ＣＳＶを生成すると、改行コードが残ったままになっています。
最終的に（セル内にある文字列の改行コード）ＣＳＶファイルを生成したときに改行コードを削除したいのです。

それは可能でしょうか？
【14492】Re:セル内の改行コードを消したい
回答  かみちゃん E-MAIL  - 04/5/30(日) 18:24 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>さっそく試してみましたところ、関数結果はうまくいきました。
>しかしながら、エクセルのシート内では見た目は改行は無くなっていますが
>実際は、改行コードが残っているため
>ＣＳＶを生成すると、改行コードが残ったままになっています。
>最終的に（セル内にある文字列の改行コード）ＣＳＶファイルを生成したときに改行コードを削除したいのです。

そのシートに改行コードの入っている元のデータが残っていることはないですか？
さきほど「元のデータが消えてしまう」とのことでしたので・・・
もし、別シートに改行コードを除いたデータを反映するようにしているならば、少し考えにくい現象です。
少しサンプルを提示していただけませんか？
【14493】Re:セル内の改行コードを消したい
発言  バカボン E-MAIL  - 04/5/30(日) 18:31 -
引用なし
パスワード
   さっそくレスありがとうございます。
サンプルを提示したいと思います。
現在シートを分けて関数を使っています。
シートはSheet1 Sheet2の２つを用いて
元々のデータはSheet2に文字列データが入っています。
<Sheet1>
A　　　　 B　　　C　　　 　　　　　　D 　　　　　 E
No　　 Pass　　項目１　　　　　　　項目２　　　　項目３
1　　　dede　　皆様より
　　　　　　　　頂きました・・・

<Sheet2>
A　　　　 B　　　C　　　 　　　　　　D 　　　　　 E
No　　 Pass　　項目１　　　　　　　項目２　　　　項目３
1　　　dede　　皆様より頂きました・・・

※今現在、Sheet2のC2に　=SUBSTITUTE(Sheet2!C2,CHAR(10),"")
というように記述しています。
【14494】キャリッジリターンとか・・・
発言  つん E-MAIL  - 04/5/30(日) 18:31 -
引用なし
パスワード
   どもども

>かみちゃん さん
こちらこそ、何度も被ってすみません。
なのにまたしゃしゃりでてきたりして^^;

>そのシートに改行コードの入っている元のデータが残っていることはないですか？
>さきほど「元のデータが消えてしまう」とのことでしたので・・・
>もし、別シートに改行コードを除いたデータを反映するようにしているならば、少し考えにくい現象です。
>少しサンプルを提示していただけませんか？

もしかして、ラインフィード文字じゃなくて、
キャリッジリターンが残ってるってことはないかな？
Alt＋Enterで挿入した改行は、ラインフィード文字のようですが、
これを入れて、Replaceでキャリッジリターンに置き換えたら、
セル内では改行されずに表示されますが、CSVにして、テキスト等で見ると、
改行されてしまってるようです（当たり前だけど）

全然見当違いなこと言ってるかもしれませんが・・・
【14495】Re:セル内の改行コードを消したい
発言  バカボン E-MAIL  - 04/5/30(日) 18:33 -
引用なし
パスワード
   意味が逆でした。
シート１とシート２の表示が逆になっていました
<Sheet2>
A　　　　 B　　　C　　　 　　　　　　D 　　　　　 E
No　　 Pass　　項目１　　　　　　　項目２　　　　項目３
1　　　dede　　皆様より
　　　　　　　　頂きました・・・

<Sheet1>
A　　　　 B　　　C　　　 　　　　　　D 　　　　　 E
No　　 Pass　　項目１　　　　　　　項目２　　　　項目３
1　　　dede　　皆様より頂きました・・・

が正しいです
【14496】Re:セル内の改行コードを消したい
回答  かみちゃん E-MAIL  - 04/5/30(日) 19:22 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>サンプルを提示したいと思います。
>現在シートを分けて関数を使っています。

こちらで、実際にExcelに入力して、CSV出力すると、まったく問題ありませんが・・・試しに
=SUBSTITUTE(SUBSTITUTE(Sheet2!C2,CHAR(10),""),CHAR(13),"")
としたらどうでしょうか？

ちなみに、Altキーを押しながらEnterキーでセル内改行ができますが、このときは、ラインフィールド（CHAR(10)、vbLf）になります。
しかし、改行とは、キャリッジリターン（CHAR(13)、vbCr）のものもあります。

ですから、CHAR(13)、CHAR(10)の文字が入っていれば、どちらも""とすることによって「文字なし」に置き換えることをしなければいけません。

もし、これでうまくできるとなると、さきほどのVBAも修正がいります。

あとは、実際のファイルを見てみないとなんともいえません。
【14497】Re:セル内の改行コードを消したい
発言  バカボン E-MAIL  - 04/5/30(日) 19:32 -
引用なし
パスワード
   ▼かみちゃん さん：
試しに
=SUBSTITUTE(SUBSTITUTE(Sheet2!C2,CHAR(10),""),CHAR(13),"")


というように置換えてみましたが、やはり同じ結果になりました。
きっと、今入力されているデータになんらかの問題があるかと思います。

そこでよろしければ実際のエクセルのファイルを見て頂ければ
助かるのですが？
よろしいでしょうか？
【14498】Re:セル内の改行コードを消したい
発言  かみちゃん  - 04/5/30(日) 19:40 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>そこでよろしければ実際のエクセルのファイルを見て頂ければ
>助かるのですが？
>よろしいでしょうか？

さきほど、メールさせていただきました。
【14499】Re:セル内の改行コードを消したい
発言  バカボン E-MAIL  - 04/5/30(日) 19:41 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>そこでよろしければ実際のエクセルのファイルを見て頂ければ
>>助かるのですが？
>>よろしいでしょうか？
>
>さきほど、メールさせていただきました。

ただいまよりメールさせて頂きます。
よろしくお願いします
【14500】Re:セル内の改行コードを消したい
回答  Hirofumi  - 04/5/30(日) 21:00 -
引用なし
パスワード
   【14261】で

>　 ダブルクォーツ無しで出力する事は､こんなコードで出来るけど
>データの中に､ダブルクォーツや､改行､カンマが有ると､
>読み込む時に、元の様に成らないよ？

といったのは、ダブルクォーツで括って有れば
Access等では、データの中に､ダブルクォーツや､
改行､カンマが有っても1フィールドとして読んでくれるので
ダブルクォーツで括ら無いのは？
と言う意味でした

もし、【14261】のコードでCsv出力するなら、以下の様な変更で
改行を削除できると思います

改修するプロシージャが1つ
追加するプロシージャが１つです

以下の様に「Function ComposeLine」プロシージャを変更して下さい


Private Function ComposeLine(vntField As Variant, _
　　　　　　　　　　　　Optional strDelim As String = ",") As String
'　 レコード作成

　　Dim i As Long
　　Dim strResult As String
　　Dim strField As String
　　Dim lngFieldEnd As Long
　　Dim vntFieldTmp As Variant
　　
　　'もし、データが複数なら
　　If VarType(vntField) = vbArray + vbVariant Then
　　　　vntFieldTmp = vntField
　　Else
　　　　ReDim vntFieldTmp(1 To 1, 1 To 1)
　　　　vntFieldTmp(1, 1) = vntField
　　End If
　　'データ数の取得
　　lngFieldEnd = UBound(vntFieldTmp, 2)
　　'データ数繰り返し
　　For i = 1 To lngFieldEnd
　　　　strField = PrepareCsvField(vntFieldTmp(1, i))
　　　　'結果変数にフィール文字列を加算
　　　　strResult = strResult & strField
　　　　'データカウントがデータ数未満の場合
　　　　If i < lngFieldEnd Then
　　　　　　'区切り文字を結果変数に加算
　　　　　　strResult = strResult & strDelim
　　　　End If
　　Next i
　　
　　ComposeLine = strResult
　　
End Function

以下のプロシージャを追加して下さい

Private Function PrepareCsvField(ByVal vntValue As Variant) As String

'　改行コードの削除

　　Dim i As Long
　　Dim lngPos As Long
　　Dim strSearch As String
　　
　　'ダブルクォーツで括るか否かの判断処理
　　For i = 1 To 2
　　　　strSearch = Choose(i, vbCr, vbLf)
　　　　lngPos = InStr(1, vntValue, _
　　　　　　　　　　strSearch, vbBinaryCompare)
　　　　Do Until lngPos = 0
　　　　　　vntValue = Left(vntValue, lngPos - 1) _
　　　　　　　　　　　　& Mid(vntValue, lngPos + 1)
　　　　　　lngPos = InStr(1, vntValue, _
　　　　　　　　　　　　　　strSearch, vbBinaryCompare)
　　　　Loop
　　Next i
　　
　　PrepareCsvField = vntValue

End Function
【14545】Re:セル内の改行コードを消したい
お礼  バカボン E-MAIL  - 04/6/1(火) 10:35 -
引用なし
パスワード
   レス頂ありがとうございます。
自分の操作がおかしい事もあり
=SUBSTITUTE(SUBSTITUTE(Sheet2!C2,CHAR(10),""),CHAR(13),"")

上記の関数で、希望の結果を得る事ガできました。

お手数取らせてすみません。
ただ、書いて頂いた記述はマクロ登録をし今後の作業効率ｱｯﾌﾟに
つなげて行きたいと思います。

いろいろとありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11720 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free