用VBA編程，鼠標範圍

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'PO timing 手動輸入時間

If Target.Count = 1 Then

Application.EnableEvents = False

If Target.Column = 23 an target.row>5 Then

With Me.DTPicker3

.Visible = True

'調整DTP控件的位置，使其顯示在當前單元格之中

.Top = Target.Top

.Left = Target.Left

If Target <> "" Then

'如果當前單元格已有內容，則設置DTP控件初始值為當前單元格日期，否則為系統當前日期

.Value = Target.Value

Else

.Value = Date

End If

End With

Else

Me.DTPicker3.Visible = False

End If

Application.EnableEvents = True

End If

End If

End Sub

這樣看看

主要是這句 If Target.Column = 23 an target.row>5 Then

上一篇:如何使用AST生成程序的控制流圖

下一篇:智慧搭檔X5智能教育機器人怎麽使用