Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6289 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に
しておけばいいです。（変な記号は出ません）
貼り付け後は、改行させず、１行につなげるのであれば、
以下のような感じにすればいかがですか？
　Me.TextBox1.Value = Replace(Range("A1").Value, vbLf, "")
【46291】Re:テキストボックスへのセルデータ貼付
お礼  いのしし  - 07/1/29(月) 17:44 -
引用なし
パスワード
   ▼かみちゃん さん：

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

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


>こんにちは。かみちゃん　です。
>
>>このテキストボックスに、他のエクセルシート（もらったもの等）のセルを
>>コピーして、貼付けを行うと、変なマークが入ってしまいます。
>>変なマークというのは、改行であることはわかったのですが、この改行を
>>入らなくすることはできるのでしょうか？
>
>どのように貼り付けているのでしょうか？
>普通にコピー→貼り付けですか？
>それとも、VBAのコードにより反映させていますか？
>貼り付け後は、改行しておかなくていいのですか？
>貼り付け後も、改行させたい場合は、TextBoxのMultiLine プロパティをTrueに
>しておけばいいです。（変な記号は出ません）
>貼り付け後は、改行させず、１行につなげるのであれば、
>以下のような感じにすればいかがですか？
>　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)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6289 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free