Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26885 / 76732

←次へ　｜　前へ→


	【55173】Re:自動生成したチェックボックスのCaptionを変数にとる方法。

ponpon - 08/4/20(日) 6:40 -


	引用なし

	パスワード

▼YOUSUKE さん：
>目的としては、データを読み込ますワークシートを選択形式にして選択されたシート名を変数に収めてWorksheets("変数”）みたいな形で処理の対象にしたいと考えています。
>もしチェックボックスより、簡単な方法がありましたら教えてくださいませ。

自動生成するのは、計算しなければいけないのでパス。(^^;

ユーザーフォームにコンボボックスとコマンドボタンを一つずつ用意し、
例えば

Option Explicit
Private Sub UserForm_Initialize()
　Dim i As Integer
　For i = 1 To Sheets.Count
　　Me.ComboBox1.AddItem Sheets(i).Name
　Next
End Sub

Private Sub CommandButton1_Click()
　If Me.ComboBox1.ListIndex <> -1 Then
　　 Sheets(Me.ComboBox1.Text).Range("A1").Value = Me.ComboBox1.Text
　End If
End Sub

5 hits

▼

【55170】自動生成したチェックボックスのCaptionを変数にとる方法。 YOUSUKE 08/4/19(土) 23:16