PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Column=3AndTarget.Count=1ThenMsgBox"你选中了:"&Target.TextEndIfEndSub