忍者ブログ
ブログ主が仕事や個人的に学んだPC系・プログラミング系(VBAとかHTML)について書いていく備忘録ブログ。 ※ここで記載する内容はあくまで「個人的に」上手くいく内容です。ご使用には十分注意してください
[2] [20] [38] [37] [36] [35] [34] [33] [32
Posted by 若槻風亜 - 2017.08.27,Sun

(対象)Excel VBA
(確認)Excel2010、2013


今回はExcelのフォーム上に配置したコントロールを
変数に格納して使用する方法です。


(手順)
1.変数を準備。この時、使用するのはただの
  「TextBox」などではなく、「MSForms.」と
  頭についているものにする

  → 例)Dim FText As MSForms.TextBox
      ↑フォーム上のテキストボックス


2.「Set」を使用して変数に格納

  → 例)For CNT = 1 To 5
             Set FText = Me.Controls("Text_テキスト" & CNT)
             FText.Text = ""
        Next


(実際の使用例)
 オープン時  : 中身を削除
 ボタン押下時 : コントロールの名前を格納

 ↓ ソース
 
 Dim FText As MSForms.TextBox
 
 
 Private Sub UserForm_Initialize()
     '■初期化
     For CNT = 1 To 5
         Set FText = Me.Controls("Text_テキスト" & CNT)
         FText.Text = ""
     Next
 End Sub
 
 Private Sub Bt_表示_Click()
     '■順次コントロール名を格納
     For CNT = 1 To 5
         Set FText = Me.Controls("Text_テキスト" & CNT)
         FText.Text = FText.Name
     Next
 End Sub





同じようなコントロールがいくつも出てくるとき
などに非常に便利です。


シート上のコントロールに入れる方法は割とすぐに
見つかりましたが、こっちの「MSForms」は中々
出てこなくて最初ちょっと困りました。

拍手[0回]

PR
Comments
Post a Comment
Name :
Title :
E-mail :
URL :
Comments :
Pass :   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
プロフィール
HN:
若槻風亜
性別:
女性
職業:
会社員
趣味:
創作、プログラミング
自己紹介:
仕事や個人で学んだことをまとめておきたかったがために備忘録ブログを立ち上げました。
あくまで自分が学んだこと・自分が出来たことなので、ご覧くださる場合は参照レベルでお願いします。
ブログ内検索
カレンダー
11 2017/12 01
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
P R
最新トラックバック
コガネモチ
フリーエリア



Template by mavericyard*
Powered by "Samurai Factory"
忍者ブログ [PR]