Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'-------------------------商品日期------------------'
If Target.Cells(1).Address = "$B$6" Then 表單.Show
sub作者: jackyq 時間: 2015-6-27 14:52
if Target.Column = 2 then 表單.Show作者: starry1314 時間: 2015-6-27 15:45