Excel VBA質問箱 IV

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

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


8207 / 76732 ←次へ | 前へ→

【74102】Re:テキストボックスの表示
発言  ichinose  - 13/4/18(木) 7:09 -

引用なし
パスワード
   おはようございます
>
>テキストボックスの表示方法について悩んでおります。
>
>シート2上に入力した数値 仮にA1セルに1、B2セルに2が入力してあるとします。
>
>それをシート1のA2をクリックしたときに【1】を、C1をクリックしたときに【2】を作成したユーザーフォーム上のテキストボックスを出現させ表示させたいのですがどうすればいいでしょうか。
仮にユーザーフォーム名が UserForm1
そこに貼り付けられたテキストボックスをTextBox1とした場合、

本当は、

Userform1.Show(Worksheets("シート2").range("a1").value)

なんてパラメータで送ることができればよいですよね!!
でも、できないので・・・。

このUserForm1に独自のプロパティを作ってしまいましょう。


プロパティ名は、 SetTXt1

With userform1
  .SetTxt1=Worksheets("シート2").range("a1").value
  .Show
End with

こんな呼び出しが出来れば、何となく自分で作ったオブジェクトみたいですよね!!


UserForm1側は、

Option Explicit
Property Let SetTxt1(ByVal myvalue As Variant)
  TextBox1.Value = myvalue
End Property


このようにしておけばよいと思います。
尚、Userform1では、
UserForm_Initializeイベントが先に実行されますので、
その点だけ注意してください
0 hits

【74101】テキストボックスの表示 taro 13/4/18(木) 6:37 質問
【74102】Re:テキストボックスの表示 ichinose 13/4/18(木) 7:09 発言
【74124】Re:テキストボックスの表示 taro 13/4/19(金) 18:40 質問
【74147】Re:テキストボックスの表示 ichinose 13/4/21(日) 20:04 発言

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