[µo°Ý] ¤U©Ô¦¡¿ï³æµLªk·s¼W·sªºÄæ¦ì

av8d

»ù¥Øªí.rar (25.31 KB)

¤U¸ü¦¸¼Æ: 12

2016-10-11 09:40

¥H¤W¬O¬Y¦ì¦Ñ®vÀ°§Ú·s¼Wªº¤U©Ô¦¡¿ï³æ
§Ú·Q¦bsheet1·s¼W²Ä21¦C
§Ú¬Ý¤F¤@¤Uµ{¦¡½X¡A­×§ï¤U¤èªº
.Add Type:=xlValidateList, Formula1:="=¤u§@ªí1!$A$3:$A$20"
­×§ï¦¨
.Add Type:=xlValidateList, Formula1:="=¤u§@ªí1!$A$3:$A$21"

¦ý¬Osheet2ªº¤U©Ô¦¡¿ï³æ«o¨S·s¼W²Ä21¦Cªº¶µ¥Ø¦WºÙ

lpk187

¦^´_ 1# av8d


    ­×§ï«á¦³°õ¦æ  Sub CellValidation() ¶Ü¡H¨S°õ¦æ·íµM¤£·|¦³ÅܤÆ

av8d

¦^´_ 2# lpk187


°õ¦æ«á¥X²{"°}¦C¯Á¤Þ¶W¥X½d³ò (¿ù»~ 9)"

lpk187

¦^´_ 3# av8d


   ¨º´N§â¥¦§ï¦¨
Sub CellValidation()      '  stillfish00 ´£¨Ñ
ro = Sheets("Sheet2").[A65535].End(xlUp).Row
    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

av8d

¦^´_ 4# lpk187

­è­è´ú¸Õ¤F¤@¤U«e½ú¼gªºµ{¦¡¡A¥i¥H¥Î¡A¸U¤À·PÁÂ

µo²{¤U¤è·|¦h¥X³\¦hªÅ¥Õ
¦pªG¨S¦³
Private Sub Worksheet_Activate()
CellValidation
End Sub
¥LÁÙ¬O·|¥¿±`°õ¦æ

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

av8d

¦^´_ 6# starry1314


    ¥i¥H§¹¬ü¨Ï¥Î¤F¡AÁÂÁ¦Ѯv¡A¸U¤À·PÁ¡A¨ü¯q¨}¦h¡C