Excel VBA質問箱 IV

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

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


11265 / 13644 ツリー ←次へ | 前へ→

【17033】テキストボックスの値の交換 両津 04/8/20(金) 8:01 質問[未読]
【17035】Re:テキストボックスの値の交換 IROC 04/8/20(金) 8:35 回答[未読]
【17069】Re:テキストボックスの値の交換 両津 04/8/20(金) 17:46 質問[未読]
【17071】Re:テキストボックスの値の交換 IROC 04/8/20(金) 18:15 回答[未読]
【17076】Re:テキストボックスの値の交換 両津 04/8/20(金) 22:42 お礼[未読]

【17033】テキストボックスの値の交換
質問  両津 E-MAIL  - 04/8/20(金) 8:01 -

引用なし
パスワード
   いつも利用させていただきありがとうございます。またしても質問なんですが、
ユーザーフォームで考えたコードを記述します。

sub commandbutton1_click()

dim x as integer
x=textbox1.text
textbox1.text=textbox2.text
textbox2.text=x

end sub()


こんな感じでコードを書いたのですが、
texbox1.textとtexbox2.textの内容を交換するだけで新たな変数を宣言しなければ
行けないのですが、この動作をより簡単にすることはできないでしょうか?
できれば1行くらいのコードでできればうれしいのですが・・・
お願いします

【17035】Re:テキストボックスの値の交換
回答  IROC  - 04/8/20(金) 8:35 -

引用なし
パスワード
   良い方法は思いつきませんが、
この状況になる前の処理で対応できないのでしょうか?

【17069】Re:テキストボックスの値の交換
質問  両津 E-MAIL  - 04/8/20(金) 17:46 -

引用なし
パスワード
   やりたいことは数字の順番がランダムになっているのを
大きい方から並べていく、という感じのプログラムなんですが、
自分はif文での値の交換しか思いつかなくて・・・
よい方法はあるでしょうか?

【17071】Re:テキストボックスの値の交換
回答  IROC  - 04/8/20(金) 18:15 -

引用なし
パスワード
   セルに1列に入れて「並び替え」してはいかがですか?

【17076】Re:テキストボックスの値の交換
お礼  両津 E-MAIL  - 04/8/20(金) 22:42 -

引用なし
パスワード
   >セルに1列に入れて・・・
そうかぁ!その手がありましたか。
ありがとうございました!!

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