这里有两个子程序,我想将它们在同一个单元格中的值相加。
Sub CheckBox126_Click()
If (Count = Null) Then
Count = 0
End If
Count = 0
If ActiveSheet.Shapes("Check Box 126").ControlFormat = xlOn Then Count = Count + 2
Range("C29").Value = Count
End Sub
'second routine
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C29")) Is Nothing Then
If Target.Value = "Orange" Then
Target.Offset(0, 1).Value = 1
ElseIf Target.Value = "Dark orange/brown" Then
Target.Offset(0, 1).Value = 1
ElseIf Target.Value = "Pink" Then
Target.Offset(0, 1).Value = 2
ElseIf Target.Value = "Red" Then
Target.Offset(0, 1).Value = 2
ElseIf Target.Value <> "" Then
Target.Offset(0, 1).Value = 0
Else
End If
End If
End Sub
我想在同一个单元格中组合它们的值。请你能帮我解决这个问题吗?非常感谢
创建一个这样的函数:
Function CheckBox126() As Integer
If ActiveSheet.Shapes("Check Box 126").ControlFormat = xlOn Then
CheckBox126 = 2
else
CheckBox126 = 0
End If
End Function
在第二个程序结束时添加:
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + CheckBox126()
该函数将检查 checkbox126 的状态,返回 2 或 0,第二个过程在最后添加此值。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句