我有七个单元格“ N13”，“ D17”，“ H17”，“ L17”，“ P17”，“ T17”和“ X17”。那都是空的。我有几个形状将附加宏。我需要帮助编写的宏应该检查一下当前选定的单元格是否属于该七个单元格范围。如果它是七个单元格范围的一部分，则附加到图形的宏将简单地在该单元格中放置一个数字。因此，例如：我选择了单元格L17，它处于活动状态，我单击正方形，它将单元格L17的值更改为4。（形状的边数。）如果我选择了单元格M17，然后单击正方形形状它不会将4加到单元格上，它什么也不做。发生这种情况的工作表称为“主”。我尝试了一组嵌套的OR语句，但这没有
Sub Three_Side()
' Three_Side Macro
Sheets("Main").Select
If (ActiveCell.Row = 13 And ActiveCell.Column = 14) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 4) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 8) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 12) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 16) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 20) Or _
(ActiveCell.Row = 17 And ActiveCell.Column = 24) Then
ActiveCell = 3
Range("AD1") = Range("AD1") + 3
End If
End Sub
您与的合作关系正确Intersect。
Dim checkRng as Range
Set checkRng = Intersect(ActiveCell, Range("N13,D17,H17,L17,P17,T17,X17"))
If Not checkRng is Nothing Then
ActiveCell.Value = 3
Range("AD1").Value = Range("AD1").Value + 3
End If
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句