能否实现这样

青青的河边草

当检查到ac8--ac17单元格内有黄色时，触发另一个按钮(Private Sub CommandButton16_Click())，没有则不触发。
这个代码怎么写？

lh123lh1234

Sub test()
   [ac8].Interior.ColorIndex = 6
   Dim rng As Range
   For Each rng In Range("ac8:ac17")
      If rng.Interior.ColorIndex = 6 Then Call Worksheets("Sheet1").CommandButton16_Click
   Next
End Sub


注意：
1、你的CommandButton16_Click事件默认是private的，你得去掉，让它变成public的，否则是不能被其他过程调用的
2、这里的colorindex=6只是我举的个例子，黄色有很多种黄色哈，我这里的6只是其中一种索引颜色的黄色

yaozong

如：
Sub test()
Dim i&
For i = 8 To 12
  If Cells(i, "AC").Interior.ColorIndex = 6 Then
     Call CommandButton16_Click
     Exit For
  End If
Next
End Sub

yaozong

Sub test()
Dim i&, m&
For i = 8 To 12
  If Cells(i, "AC").Interior.ColorIndex = 6 Then
     Call CommandButton16_Click
     Exit For
  Else
     m = m + 1
  End If
Next
If m = 5 Then MsgBox "未发现黄底色单无格存在！"
End Sub

青青的河边草

yaozong 发表于 2019-11-10 15:11
如：
Sub test()
Dim i&

不知错在那，不能触发，能否将另一个代码写入本次代码中？
这是另一个代码：Private Sub CommandButton16_Click()
For i = m To n Step 2
        [q1] = [q1] + 15
        
    Next
End Sub

yaozong

青青的河边草 发表于 2019-11-10 16:38
不知错在那，不能触发，能否将另一个代码写入本次代码中？
这是另一个代码：Private Sub CommandButton1 ...

代码放同一区域，（同一工作表或模块的代码区）

yaozong

sub 前添加了 Private 关键字，是私有的意思。

青青的河边草

yaozong 发表于 2019-11-10 17:29
sub 前添加了 Private 关键字，是私有的意思。

能否写个完整的代码，谢谢。

yaozong

青青的河边草 发表于 2019-11-10 17:47
能否写个完整的代码，谢谢。

参考模拟附件。。。。

renkangjizhen

Sub test()
Dim i&, m&
For i = 8 To 12
  If Cells(i, "AC").Interior.ColorIndex = 6 Then
     Call CommandButton16_Click
     End If
Next
MsgBox "未发现黄底色单无格存在！"
End Sub
建议：最好是不用CommandButton16_Click，而是改用模块，call后面改为后一个模块的名称即可，两段代码放在同一页面上。