こんばんは。 ところで、Excelのバージョンはいくつですか？ 型の宣言自体で、型の違いは出てくるはずはないのですが、どこで発生しているか、分かりません。ですから、エラーが出ている原因は見えてこないのです。 そこで、ステップモードで、調べてみてください。 ●Sub CBMacro()　　'●はブレークポイント（右端のマージンにクリックすると●が出る 次に、チェックボックスをクリックすると、そこで止まります。次に、F8 を押して、一つずつ、様子を調べ反応をみます。ローカルウィンドウを出していたら、そこで、変数などの戻り値をみます。

こんばんは。 時間帯が、早朝で、ちょっとヘンなところがありますね。 Sub AddFormButton() ×　.Range("A1:A10").EntireRow.RowHeight = 20　'セルの高さ 　　↓ .Range("A1:A100").EntireRow.RowHeight = 20　'セルの高さ ただし、スピンボタンの縦・横・幅・高さを調整してください。あまりきれいに入っていないようです。 -------------------------------------- 本題の「型が一致しません」は、 Sub CBMacro() 　　Dim tName As String 　　Dim i As Variant　　'←Integer から Variant に換え 　　tName = Application.Caller 　　MsgBox tName　'これを加えて確認してください。 　　i = Replace(tName, "CB", "") 　　MsgBox i　' これも加えて確認してください。 　　 　　おそらく、完全な数字になっていないか、元の名前も正しく入れられてない可能性があります。一旦、「 FormToolsDel」の削除マクロで消してから、もう一度試してみてください。

こんばんは。 >上記をＡ１Ｂ１に限定せずに、Ａ１～Ａ１００（checkBox1～100）、Ｂ１～Ｂ１００>（SpinButton1～100）へと同様の処理を効率的に複製する方法はご存知でしょうか？ 以下は、新しいシートに何も入れないで、そのまま試してみてください。 セルの高さや幅など、微調整を行ってください。FormToolsDelを実行すれば、全てはきれいに消え、セル幅、セルの高さも標準に戻ります。 旧スタイルのマクロで、フォーム・ツールのほうが簡単です。コントロールツールのほうは、クラス・インスタンスが必要になってしまいます。もし、ご希望がコントロールツールなら、おっしゃってください。コードは複雑になりますが、可能です。 '----------------------------------------- '標準モジュール Sub AddFormButton() Dim c As Range Dim x1 As Double Dim y1 As Double Dim x2 As Double Dim y2 As Double Dim x3 As Double Dim y3 As Double Dim x4 As Double Dim y4 As Double Dim i As Integer i = 1 With ActiveSheet .Range("A1:A10").EntireRow.RowHeight = 20　'セルの高さ .Range("A1:B1").EntireColumn.ColumnWidth = 12.5　'セルの幅 For Each c In .Range("A1:A100") With c 　x1 = .Left 　y1 = .Top 　x2 = .Offset(, 1).Left 　y2 = .Offset(1).Top 　x3 = .Offset(, 1).Left 　y3 = .Offset(, 1).Top 　x4 = .Offset(, 1).Offset(, 1).Left 　y4 = .Offset(, 1).Offset(1).Top End With 'left,top,width,height 　With .CheckBoxes.Add(x1, y1, x2 - x1, y2 - y1) 　　.Caption = CStr(i)　'キャプション表示 　　.Name = "CB" & CStr(i) 　　.OnAction = "CBMacro" 　End With 　'left,top,width,height 　'スピンの位置の高さの調整は、y3 + (x4 - x3) / 10　<-- 12 　With .Spinners.Add(x3, y3 + (x4 - x3) / 12, x4 - x3, (y4 - y3) / 2) 　　.Name = "SP" & CStr(i) 　　.OnAction = "SPMacro" 　　.Max = 100 　　.Min = 0 　　.SmallChange = 20 'スクロール量 　　.LinkedCell = c.Offset(, 2).Address　'値の出力 　End With 　i = i + 1 Next c End With End Sub Sub CBMacro() 　　Dim tName As String 　　Dim i As Integer 　　tName = Application.Caller 　　i = Replace(tName, "CB", "") 　　With ActiveSheet 　　　　If .CheckBoxes(tName).Value = xlOn Then 　　　　　 .CheckBoxes(tName).TopLeftCell.Resize(, 2).Interior.ColorIndex = 3 　　　　　 .Spinners("SP" & i).Value = 100 　　　　ElseIf .CheckBoxes(tName).Value = xlOff Then 　　　　　　.CheckBoxes(tName).TopLeftCell.Resize(, 2).Interior.ColorIndex = xlNone 　　　　　　.Spinners("SP" & i).Value = 0 　　　　End If 　　End With End Sub Sub SPMacro() 　Dim tName As String 　　Dim i As Integer 　　tName = Application.Caller 　　i = Replace(tName, "SP", "") 　　With ActiveSheet 　　　　If .Spinners(tName).Value = 100 Then 　　　　　 .Spinners(tName).TopLeftCell.Offset(, -1).Resize(, 2).Interior.ColorIndex = 3 　　　　　 .CheckBoxes("CB" & i).Value = xlOn 　　　　ElseIf .Spinners(tName).Value < 100 Then 　　　　　　.Spinners(tName).TopLeftCell.Offset(, -1).Resize(, 2).Interior.ColorIndex = xlNone 　　　　　　.CheckBoxes("CB" & i).Value = xlOff 　　　　End If 　　End With End Sub '------------------------------------------- 'おまけ Sub FormToolsDel() 'フォームなど削除用マクロ With ActiveSheet 　 .Range("A1:A100").EntireRow.RowHeight = .StandardHeight 　 .Range("A1:B1").EntireColumn.ColumnWidth = .StandardWidth 　 .CheckBoxes.Delete 　 .Spinners.Delete 　 .Range("A1:C100").Clear End With End Sub

こんにちは。 >反応がまったくございません。 簡単なことですが、 本来は、コントロールツールが先で、コードが後なのですが、この場合は、コントロールとコードが連結していないのだと思います。 一旦、VBEditor 上で、 Editor ペインの上の方に、横長の二つの窓がありますから、 以下のように、右左に分かれていることを確認してください。 分かれていなかったら、一度、その窓のところの下向きの▽のダウンボタンを開いて、同じコントロール名を探してみてください。もし、違うようでしたら、それにあわせたコントロール名にしてください。 CheckBox1　　　　　　|　　　　　Click SpinButton1　　　　　|　　　　　Change または、編集モード（青い三角定規）がオンになっていることを確かめて、コントロールツールのチェックボックスなどをダブルクリックすると、自動的に、マクロのほうに飛ぶはずです。

こんばんは。 わたし的にまとめますと、 >checkbox（未check）,70% →色変化なし >checkbox（check入れた）,100%（に自動変化）　→A2B2が赤く　 >checkbox（自動的にcheck）,100%（に設定） →A3B3が赤く　 CheckBox（Off）,SpinButton 値　99まで →色変化なし CheckBox（On）,SpinButton 値　100　→A2B2でセル　赤　 SpinButton 100 --> CheckBox（On） →A4B4でセル　赤 （A2B2は変化なし） ということでしょうか？ >スピンボタンはフォーム、コントロールツールボックス、どちらが適しているのか、恥ずかしながら、存じません Excel2000 以上では、なるべくコントロールツールを使います。フォームツールは、Ver 95(Ver5)のものです。元々、DialogSheet に込みこんで使うものです。古くから使っていた人は別として、今は、マニュアルも手に入らないはずです。 とはいえ、コントロールツール自身も、個々のプロパティの説明は、なぜか、ヘルプでは、検索があまりヒットしないようです。理由は良く分かりません。ヘルプには書かれているのに、検索の項目には登録していないようです。もう少し、一般に使えるような検索項目があってよいのではないかと思います。 それに、Excelにしても、Wordにしても、インストラクティブなマニュアルが存在しないし、ヘルプ自体も英和訳のせいなのか、文章的に読みにくく、まとまりがありません。ただし、これは、ネイティブの英語の世界でも同じようです。 '---------------------------------- 'シートモジュール Private Sub CheckBox1_Click() 'チェックボックス 　　If CheckBox1.Value Then 　　　　If SpinButton1.Value < 100 Then 　　　　　　Range("A2:B2").Interior.ColorIndex = 3 　　　　End If 　　Else 　　　　Range("A2:B2").Interior.ColorIndex = xlNone 　　End If End Sub Private Sub SpinButton1_Change() 'スピンボタン 　　Range("D1").Value = SpinButton1.Value 　　If SpinButton1.Value = 100 Then 　　　　CheckBox1.Value = True 　　　　Range("A4:B4").Interior.ColorIndex = 3 　　Else 　　　　CheckBox1.Value = False 　　　　Range("A4:B4").Interior.ColorIndex = xlNone 　　End If End Sub

試しに作ってみました。 取りあえず、フォームの方で、(1)の場合です。 チェックボックスを右クリックしてメニューから「マクロの登録」をしてください。 チェックボックスをクリックすると、登録したマクロが実行されます。 Sub test1() 　　Dim cbrng As Range 　　Dim ac As String 　　Dim n As Variant 　　ac = Application.Caller 　　Set cbrng = ActiveSheet.Shapes(ac).TopLeftCell 　　Select Case ActiveSheet.CheckBoxes(ac).Value 　　　　Case 1: n = 3 　　　　Case 0: n = 0 　　End Select 　　Range(cbrng, cbrng.Offset(, 1)).Interior.ColorIndex = n 　　With ActiveSheet.Spinners("スピン 1") 　　　　.Max = 100 　　　　.Value = 100 　　End With 　　Set cbrng = Nothing End Sub