starry1314

¦^´_ 5# av8d


   Sub CellValidation()      '  stillfish00 ´£¨Ñ
'ro = Sheets("Sheet2").[A65535].End(xlUp).Row

ro = Sheets("Sheet1").[A65535].End(xlUp).Row '¿ï³æ¤º®e
    With Sheets("Sheet2").[A2:A25].Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$" & ro
    End With
End Sub
µM«á §â¤U­±³o¬q¶K¨ì³Ì«á­±¡A³o¼Ë·í§AActivate¤u§@ªí2®É¡A´N·|¦Û°ÊÀ°§A§ó§ï
Private Sub Worksheet_Activate()
CellValidation
End Sub