- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-14 11:10 ½s¿è
¦^´_ 1# ann.liu - 3.¬O§_¥i¨Ï¥Î¤½¦¡¨Ì¾Úì®Æµ¥¯Åpºâ¨Ï¥Î¶q¡A¥þ¦¸®Æ¤£pºâ¡A·s¥[¦¸*2/3¡A·s®Æ¥¿±`¥[´î¡A©ó¬õ¦â°Ï¶ôªº¨Ï¥Î¶qªÅ®æ§e²{¡A¨Ã¶×¤JÁ`ªí¡C
½Æ»s¥N½X ½Ð¦A»¡²M·¡¨Ç!- Dim ws As Worksheet
- Private Sub UserForm_Initialize()
- Dim sp As Variant, wsiRow As Range
- Set ws = Worksheets("»â°h®Æ°O¿ýªí")
- Set wsiRow = ws.Cells(ws.Rows.Count, 1).End(xlUp)
- sp = Split(wsiRow, "-")
- sp = Replace(wsiRow, sp(UBound(sp)) & "", Format(Val(sp(UBound(sp))) + 1, "0000"))
- cmb§÷®Æ½s¸¹.RowSource = ""
- '1.ºÞ²z½s¸¹¦ì¸m¬O§_¦Û°Ê²£¥Í½s¸¹
- AlblºÞ²z½s¸¹.Caption = sp 'ªí³æ¤W³o±±¨î¶µ¬OLableu¦bª«¥ó¤W¥X²{×¹¢¤å¦rªºÄݩʬO.Caption
- End Sub
- Private Sub cmb§÷®ÆÃþ§O_Change()
- Dim e As Range
- With cmb§÷®Æ½s¸¹
- .RowSource = ""
- If cmb§÷®ÆÃþ§O.ListIndex = 0 Then
- .RowSource = [§÷®Æ½s¸¹].Address(, , , 1, 1) '[¬¡¶Ã¯ªº ¨ç¼Æ,¦WºÙ,¤½¦¡]
- ElseIf cmb§÷®ÆÃþ§O.ListIndex = 1 Then
- '2.§÷®ÆÃþ§OÅã¥Ü®I¤J¥ó®É¡A§÷®Æ½s¸¹¥i¥H¥uÅã¥ÜIN-XXX¡C
- For Each e In [§÷®Æ½s¸¹]
- If InStr(e, "IN-") Then .AddItem e
- Next
- End If
- End With
- End Sub
½Æ»s¥N½X |
|