Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3478 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61965】TextBoxのコピーについて 超初心者 09/6/15(月) 13:52 質問[未読]
【61966】Re:TextBoxのコピーについて つん 09/6/15(月) 14:04 回答[未読]
【61969】Re:TextBoxのコピーについて 超初心者 09/6/15(月) 15:05 お礼[未読]
【61972】Re:TextBoxのコピーについて 超初心者 09/6/15(月) 15:25 質問[未読]
【61975】Re:TextBoxのコピーについて kanabun 09/6/15(月) 15:35 発言[未読]
【61978】Re:TextBoxのコピーについて 超初心者 09/6/15(月) 16:04 質問[未読]
【61979】Re:TextBoxのコピーについて kanabun 09/6/15(月) 16:20 発言[未読]
【61980】Re:TextBoxのコピーについて つん 09/6/15(月) 16:35 発言[未読]
【61981】Re:TextBoxのコピーについて 超初心者 09/6/15(月) 16:41 お礼[未読]
【61965】TextBoxのコピーについて
質問  超初心者  - 09/6/15(月) 13:52 -
引用なし
パスワード
   TextBoxに関して質問いたします。

コマンドボタン1を押すことによって
TextBox10の内容をTextBox20にコピーするには
どの様にすればよいでしょうか？
アドバイスよろしくお願いします。
【61966】Re:TextBoxのコピーについて
回答  つん  - 09/6/15(月) 14:04 -
引用なし
パスワード
   ▼超初心者 さん
こんにちは＾＾

何も書かずにアップしてた＾＾；；；

Private Sub CommandButton1_Click()

　　TextBox20.Value = TextBox10.Value

End Sub

ってことかな？
【61969】Re:TextBoxのコピーについて
お礼  超初心者  - 09/6/15(月) 15:05 -
引用なし
パスワード
   ▼つん さん：
初歩的な質問ですいませんでした。
どうもありがとうございます。
【61972】Re:TextBoxのコピーについて
質問  超初心者  - 09/6/15(月) 15:25 -
引用なし
パスワード
   ▼超初心者 さん：
>▼つん さん：
すいませんです。

Private Sub CommandButton1_Click()

　　TextBox20.Value = TextBox10.Value

End Sub

ですが、上手く動作しません。
コマンドボタン１を押すと
TextBox20のデータが消えて
TextBox10にもコピーされません。
どうすればよろしいでしょうか？
ちなみに
TextBox20のデータはそのまま表示で同じ物を
TextBox10に表示させたいと考えています。
よろしくお願いします。
【61975】Re:TextBoxのコピーについて
発言  kanabun  - 09/6/15(月) 15:35 -
引用なし
パスワード
   ▼超初心者 さん：

こんにちは。

最初の質問は

> extBox10の内容をTextBox20にコピーするには

だったのが、
今は
> TextBox20のデータはそのまま表示で同じ物を
> TextBox10に表示させたいと考えています。

です。
いつの間にか コピー元とコピー先が逆になっちゃったんですね？


> Private Sub CommandButton1_Click()
>
>　　TextBox20.Value = TextBox10.Value
>
>End Sub
↑ 右辺と左辺を入れ替えてください。
【61978】Re:TextBoxのコピーについて
質問  超初心者  - 09/6/15(月) 16:04 -
引用なし
パスワード
   ▼kanabun さん：
>> extBox10の内容をTextBox20にコピーするには
すいません。書き間違いです。
>> TextBox10のデータはそのまま表示で同じ物を
>> TextBox20に表示させたいと考えています。
です。
やはり上手く動作しません。
元のTextBox10のデータは消え
TextBox20へのコピーも上手くいきません。
何度何度もすいませんがよろしくお願いいたします。
【61979】Re:TextBoxのコピーについて
発言  kanabun  - 09/6/15(月) 16:20 -
引用なし
パスワード
   ▼超初心者 さん：
>▼kanabun さん：
>>> extBox10の内容をTextBox20にコピーするには
>すいません。書き間違いです。
>>> TextBox10のデータはそのまま表示で同じ物を
>>> TextBox20に表示させたいと考えています。
>です。
>やはり上手く動作しません。
>元のTextBox10のデータは消え
>TextBox20へのコピーも上手くいきません。
>何度何度もすいませんがよろしくお願いいたします。

あれ、おかしいですね？？
TextBox10 のテキストを TextBox20 にコピーするなら↓でいいと
思います。
ちょっとデバッグしてみてください。

> Private Sub CommandButton1_Click()
　　 If Len(TextBox10.Text) > 0 Then
　　　　TextBox20.Text = TextBox10.Text
　　 else
　　　　msgbox "TextBox10 は空白です！"
　　 end if
>End Sub

これでどうなりますか？
【61980】Re:TextBoxのコピーについて
発言  つん  - 09/6/15(月) 16:35 -
引用なし
パスワード
   超初心者さん、こんにちは＾＾
kanabunさん、ありがとうございます。
（って私がお礼を言うのも変やけど(笑)）

超初心者さん
まずはkanabunさんが提示されているコードでデバックしてみて、それで何らかの原因が判明しないようなら、
一度、書かれているコードをまるまるアップされてみてはいかがですか？
ユーザーフォームの「Initialize」イベントに何かかかれてたら、それもなんらか関係があるかもしれませんね＾＾
【61981】Re:TextBoxのコピーについて
お礼  超初心者  - 09/6/15(月) 16:41 -
引用なし
パスワード
   ▼kanabun さん：
この構文で上手く動作しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3478 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free