- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¦^´_ 4# n7822123
ì¼gªk¦³·å²«¡A¥¼¦Ò¼{¶µ¥Ø¥i¯à¦³¤¬¬Û¥]§tªº¦r¦ê
×¥¿¦p¤U (¬õ¦â³¡¤À)
Sub ¤U©Ô¿ï³æ()
'¤u§@ªí2ªºAÄæ
Arr = Range([¤u§@ªí2!A2], [¤u§@ªí2!A65535].End(3))
List$ = ""
For R = 1 To UBound(Arr) '¥h°£«½Æ
If InStr("," & List & ",", "," & Arr(R, 1) & ",") = 0 Then List = List & "," & Arr(R, 1)
Next
With [G2:G100].Validation '¤U©Ô®æ¦¡ªº½d³ò¦Û¤v§ï
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=List
End With
'¤u§@ªí2ªºBÄæ
Arr = Range([¤u§@ªí2!B2], [¤u§@ªí2!B65535].End(3))
List = ""
For R = 1 To UBound(Arr) '¥h°£«½Æ
If InStr("," & List & ",", "," & Arr(R, 1) & ",") = 0 Then List = List & "," & Arr(R, 1)
Next
With [H2:H100].Validation '¤U©Ô®æ¦¡ªº½d³ò¦Û¤v§ï
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=List
End With
'¤u§@ªí2ªºCÄæ
Arr = Range([¤u§@ªí2!C2], [¤u§@ªí2!C65535].End(3))
List = ""
For R = 1 To UBound(Arr) '¥h°£«½Æ
If InStr("," & List & ",", "," & Arr(R, 1) & ",") = 0 Then List = List & "," & Arr(R, 1)
Next
With [I2:I100].Validation '¤U©Ô®æ¦¡ªº½d³ò¦Û¤v§ï
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=List
End With
End Sub |
|