|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Address = "$A$1" Then
ElseIf Not Application.Intersect(T, Range("C2:C60003")) Is Nothing Then
Cancel = True
选项.Show 0
ElseIf Not Application.Intersect(T, Range("D2:D60003")) Is Nothing Then
Cancel = True
发货类型.Show 0
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 3 Then
If Len(Target.Value) Then
Else
Target.Offset(, 1) = ""
Target.Offset(, 2) = ""
Target.Offset(, 3) = ""
Target.Offset(, 4) = ""
Target.Offset(, 5) = ""
Target.Offset(, 6) = ""
Target.Offset(, 7) = ""
Target.Offset(, 8) = ""
Target.Offset(, 9) = ""
Target.Offset(, 10) = ""
Target.Offset(, 11) = ""
Target.Offset(, 12) = ""
Target.Offset(, 14) = ""
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Set DP_inRng = Target
Call FmDateCL.ShowFrmAndMoveWithRange(Target)
Else
FmDateCL.Hide
End If
End Sub
请大侠帮忙解一下,谢谢
|
|