[[20181022004155]]　『「ユーザーフォーム中の複数のチェックボックスを』（アニ）　ページの最後に飛ぶ

『「ユーザーフォーム中の複数のチェックボックスを…」[めっしぃ]　について』（アニ）

投稿
[[20070422091514]] 『ユーザーフォーム中の複数のチェックボックスを…』（めっしぃ）　
について...

初めまして。
VBA初心者でまだまだマニュアル片手で作業しております。。
引用投稿とほぼ条件が同じではあるのですが、細かい部分で異なっているため、
どこをどう変えるのが正しいのか四苦八苦しております。
お手数おかけしますがご教示いただけますでしょうか。

１、チェックボックスの数が大量

引用投稿に関しては8個とチェックボックスの数が少数ですが、
当方の場合数十個あり、今後も増減する可能性があります。
その場合、チェックボックスの最大値を流動的に設定するにはどう記載すればよいでしょうか？

２、チェックボックスの結果反映のセルについて

チェックボックスの結果が反映するセルを、ユーザーフォームを設定している
セル自体に反映させたいです。
例えばA1のセルを選択するとユーザーフォームが立ち上がり
チェックボックスを複数選択してコマンドボタンを押すと
チェック内容がそのセル（A1）に返るようになって欲しいと考えています。

初歩的な質問＆見当違いな質問の仕方をしていたら申し訳ありません。
ご回答いただけますと幸いです。
もし、もし！可能であれば、仕組みも簡単にご説明いただけると
今後は自分で編集できるようになりたいので本当に助かります。
よろしくお願いします！

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

すみません、追記を。。

引用投稿では入力したらすべてチェックボックスはクリアにしたいとなっておりますが、
当方の場合はチェック自体は入力後も残しておきたいと考えております。

どうぞよろしくお願いいたします。
（アニ） 2018/10/22(月) 01:21

 For Each objcont In Me.Controls
   If TypeName(objcont) = "CheckBox" Then
      If objcont.Value = True Then
         MsgBox objcont.Name & " が、オン。" & vbLf & _
                objcont.Caption
      End If
   End If
 Next

 とか、後は提示されたリンク先を見てください。

 >チェック自体は入力後も残しておきたいと考えております
 クリアしなけりゃ良いんです。

（BJ） 2018/10/22(月) 03:35

＞BJ様

早速にご回答くださりありがとうござしました！
少し当方のやりたいこととは異なったお答えだったのですが参考になりました。
今後ともよろしくお願いいたします！
（アニ） 2018/10/23(火) 22:26

コメント返信：

[ 一覧(最新更新順) ]

[[20181022004155]] 『「ユーザーフォーム中の複数のチェックボックスを』（アニ） ページの最後に飛ぶ

[[20181022004155]]　『「ユーザーフォーム中の複数のチェックボックスを』（アニ）　ページの最後に飛ぶ