[已解决]VBA代码求助

安全网

设置只能在G7：型号（G26)之间输入数值，不论在型号（G26)之前插入多少列都应用

最佳答案

月排行榜 / 总排行榜

scl5801

2015-7-23 21:57

Sub test()
   Dim Rng As Range
   For Each Rng In Range("a1:k100")
      If Rng = "型号" Then
         Exit For
      End If
   Next
   Rng.Offset(20, 0).Select
   ActiveSheet.Unprotect
   Selection.Locked = False
   Selection.FormulaHidden = False
   ActiveSheet.Protect DrawingObjects:=True
End Sub

跳转到最佳答案楼层

thinkersky

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
    If Target.Column = 7 And Target.Row < 27 And Target.Row > 6 Then
    Else
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

scl5801

Sub test()
   Dim Rng As Range
   For Each Rng In Range("a1:k100")
      If Rng = "型号" Then
         Exit For
      End If
   Next
   Rng.Offset(20, 0).Select
   ActiveSheet.Unprotect
   Selection.Locked = False
   Selection.FormulaHidden = False
   ActiveSheet.Protect DrawingObjects:=True
End Sub