Excel VBA質問箱 IV

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

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


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

【55170】自動生成したチェックボックスのCaptionを変数にとる方法。 YOUSUKE 08/4/19(土) 23:16 質問[未読]
【55171】Re:自動生成したチェックボックスのCaptio... bykin 08/4/20(日) 1:18 発言[未読]
【55172】Re:自動生成したチェックボックスのCaptio... YOUSUKE 08/4/20(日) 2:17 お礼[未読]
【55173】Re:自動生成したチェックボックスのCaptio... ponpon 08/4/20(日) 6:40 発言[未読]
【55175】Re:自動生成したチェックボックスのCaptio... YOUSUKE 08/4/20(日) 9:28 お礼[未読]
【55176】Re:自動生成したチェックボックスのCaptio... ponpon 08/4/20(日) 22:25 発言[未読]
【55188】Re:自動生成したチェックボックスのCaptio... YOUSUKE 08/4/22(火) 0:06 お礼[未読]
【55177】Re:自動生成したチェックボックスのCaptio... neptune 08/4/20(日) 23:08 発言[未読]
【55189】Re:自動生成したチェックボックスのCaptio... YOUSUKE 08/4/22(火) 0:09 お礼[未読]

【55170】自動生成したチェックボックスのCaption...
質問  YOUSUKE E-MAIL  - 08/4/19(土) 23:16 -

引用なし
パスワード
   不特定多数のワークシートと同じ数、同じ名前で自動生成したチェックシートのチェックの入った名称を変数にとる(チェックできる数は1つ)方法がわかりません。現状、自動生成まではできるのですが、チェック数を1つ制限する方法と、チェックが入ったチェックボックスの名称を変数に取る方法がわかりません。
もしよろしければコードも踏まえて教えていただけないでしょうか?
仕様はコマンドボタンを1つ配置し、押した時、チェックの入っている名称を変数に移す事です。 
Private Sub UserForm_Click()
 Dim s As Integer
 Dim myCheckBox As Control

 For s = 1 To Sheets.Count
   Set myCheckBox = Me.Controls.Add("Forms.CheckBox.1")
   With myCheckBox
     .Height = 20
     .Width = 80
     .Left = 10
     .Top = (s - 1) * .Height + 10
     .Caption = Sheets(s).Name
   End With
 Next s
End Sub

【55171】Re:自動生成したチェックボックスのCapt...
発言  bykin  - 08/4/20(日) 1:18 -

引用なし
パスワード
   こんばんわ。

1個に制限ってことやったら、チェックボックスよりオプションボタンになるんやろうけど、
そもそもこーゆーのは、リストボックスかコンボボックスを使うんが常道やないのかな?
不定数のチェックボックス(オプションボタン?)を実行時に配置するんでは、フォームの
サイズ調整も必要になるしねー。
ご提示の方法を使わなあかん理由がわかりまへんが・・・
ほな。

【55172】Re:自動生成したチェックボックスのCapt...
お礼  YOUSUKE E-MAIL  - 08/4/20(日) 2:17 -

引用なし
パスワード
   ご返事ありがとうございます。すいませんが、VBAはど素人でして
、何が適した方法か良くわかってないんですよ。
目的としては、データを読み込ますワークシートを選択形式にして選択されたシート名を変数に収めてWorksheets("変数”)みたいな形で処理の対象にしたいと考えています。
もしチェックボックスより、簡単な方法がありましたら教えてくださいませ。

【55173】Re:自動生成したチェックボックスのCapt...
発言  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

【55175】Re:自動生成したチェックボックスのCapt...
お礼  YOUSUKE E-MAIL  - 08/4/20(日) 9:28 -

引用なし
パスワード
   ご返事ありがとうございます。
やりたい事ができました。すごく助かりました。
こういう、書き方になるんですね、私の発想がバカだったようです(汗。
参考書を数冊買って、手探りで作ってるんですがやりたい事が載ってない事が多いので、だれかの作ったコードを控えて虎の巻作ってるんですが、どのような参考書が良く載ってるのでしょうか? 使用感の良い参考書がありましたら、もしよろしければ教えてださい。

【55176】Re:自動生成したチェックボックスのCapt...
発言  ponpon  - 08/4/20(日) 22:25 -

引用なし
パスワード
   ▼YOUSUKE さん:
>参考書を数冊買って、手探りで作ってるんですがやりたい事が載ってない事が多いので、だれかの作ったコードを控えて虎の巻作ってるんですが、どのような参考書が良く載ってるのでしょうか? 使用感の良い参考書がありましたら、もしよろしければ教えてださい。

私もたった一つの関数の組み合わせが知りたくて本を買ったり、たった一つの
プロシージャが知りたいために一冊本を買ったりしてました。
ここの掲示板に質問してから、ここで勉強を始めまして、ようやく
初心者の仲間入りをさせてもらいました。
本よりも、ここのような掲示板やネット上で学習した方が上達が早いように
思います。
 お互いがんばりましょう。

【55177】Re:自動生成したチェックボックスのCapt...
発言  neptune  - 08/4/20(日) 23:08 -

引用なし
パスワード
   ▼YOUSUKE さん:
みなさんこんにちは

参考書もですが、過去ログは本当にサンプルの宝庫です。
私は、ここのものではないですが、過去ログのDBを作ってます。
最近はしてませんが、めったにお目にかかれないとか、
おいしそうなのは保存してます。

過去ログにある奴は参考書には載ってないものもありますからね。

後、専門性の高い奴はやはり参考書になりますが、高いです。^ ^;;
でもExcelVBAではそんなのは必要ないです。

【55188】Re:自動生成したチェックボックスのCapt...
お礼  YOUSUKE E-MAIL  - 08/4/22(火) 0:06 -

引用なし
パスワード
   ご返事ありがとうございます。
確かに、掲示板で記載してる事は役に立つ情報が多いですね。
今回私が作った(今回のはこれで製作完了になりました。)物も
結構他人のアイディアが組み込まれています。
やはり先駆者に学ぶのが一番ですね〜。

【55189】Re:自動生成したチェックボックスのCapt...
お礼  YOUSUKE E-MAIL  - 08/4/22(火) 0:09 -

引用なし
パスワード
   ご返事ありがとうございます。
実は私も、私のレベルで理解できて、使用頻度が高そうな物は
虎の巻を作っています。 やはり、1歩1歩学ぶしかないんでしょうね。

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