Excel VBA質問箱 IV

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

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


6270 / 13646 ツリー ←次へ | 前へ→

【46283】テキストボックスへのセルデータ貼付 いのしし 07/1/29(月) 16:16 質問[未読]
【46285】Re:テキストボックスへのセルデータ貼付 Jaka 07/1/29(月) 16:25 発言[未読]
【46292】Re:テキストボックスへのセルデータ貼付 いのしし 07/1/29(月) 17:45 お礼[未読]
【46287】Re:テキストボックスへのセルデータ貼付 かみちゃん 07/1/29(月) 16:29 発言[未読]
【46291】Re:テキストボックスへのセルデータ貼付 いのしし 07/1/29(月) 17:44 お礼[未読]

【46283】テキストボックスへのセルデータ貼付
質問  いのしし  - 07/1/29(月) 16:16 -

引用なし
パスワード
   いつもお世話になっております。

ユーザフォームのテキストボックスで電話番号等を入力して、エクセルシートに
登録するマクロを作成しています。

このテキストボックスに、他のエクセルシート(もらったもの等)のセルを
コピーして、貼付けを行うと、変なマークが入ってしまいます。
変なマークというのは、改行であることはわかったのですが、この改行を
入らなくすることはできるのでしょうか?

素人ですみませんが、お解かりの方がいらっしゃれば
教えてくださいませ。

よろしくお願いいたします。

【46285】Re:テキストボックスへのセルデータ貼付
発言  Jaka  - 07/1/29(月) 16:25 -

引用なし
パスワード
   st = TextBox1.Value
Range("a1").Value = Replace(st, vbCrLf, vbLf)

【46287】Re:テキストボックスへのセルデータ貼付
発言  かみちゃん  - 07/1/29(月) 16:29 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>このテキストボックスに、他のエクセルシート(もらったもの等)のセルを
>コピーして、貼付けを行うと、変なマークが入ってしまいます。
>変なマークというのは、改行であることはわかったのですが、この改行を
>入らなくすることはできるのでしょうか?

どのように貼り付けているのでしょうか?
普通にコピー→貼り付けですか?
それとも、VBAのコードにより反映させていますか?
貼り付け後は、改行しておかなくていいのですか?
貼り付け後も、改行させたい場合は、TextBoxのMultiLine プロパティをTrueに
しておけばいいです。(変な記号は出ません)
貼り付け後は、改行させず、1行につなげるのであれば、
以下のような感じにすればいかがですか?
 Me.TextBox1.Value = Replace(Range("A1").Value, vbLf, "")

【46291】Re:テキストボックスへのセルデータ貼付
お礼  いのしし  - 07/1/29(月) 17:44 -

引用なし
パスワード
   ▼かみちゃん さん:

かみちゃんさん
ありがとうございます。

コピーは普通にコピー→貼付けです。
実際に使用する人が素人なので、簡単にできるほうがよいです。
貼付データは2行になることはないので、改行コードは一切不要です。
とりあえず、教えていただいた方法を試してみます。


>こんにちは。かみちゃん です。
>
>>このテキストボックスに、他のエクセルシート(もらったもの等)のセルを
>>コピーして、貼付けを行うと、変なマークが入ってしまいます。
>>変なマークというのは、改行であることはわかったのですが、この改行を
>>入らなくすることはできるのでしょうか?
>
>どのように貼り付けているのでしょうか?
>普通にコピー→貼り付けですか?
>それとも、VBAのコードにより反映させていますか?
>貼り付け後は、改行しておかなくていいのですか?
>貼り付け後も、改行させたい場合は、TextBoxのMultiLine プロパティをTrueに
>しておけばいいです。(変な記号は出ません)
>貼り付け後は、改行させず、1行につなげるのであれば、
>以下のような感じにすればいかがですか?
> Me.TextBox1.Value = Replace(Range("A1").Value, vbLf, "")

【46292】Re:テキストボックスへのセルデータ貼付
お礼  いのしし  - 07/1/29(月) 17:45 -

引用なし
パスワード
   ▼Jaka さん:

jakaさん
ありがとうございました。
試してみます。

謝謝

>st = TextBox1.Value
>Range("a1").Value = Replace(st, vbCrLf, vbLf)

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