- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 63# starbox520
©p§â
Private Sub CustPkg(Ar3 As Variant)
¸Ìªº
For ii = 1 To 8
Ar(ii, UBound(Ar, 2)) = c.Offset(, ii).Text
Next
§ï¦¨
For ii = 1 To 8
Ar(ii, UBound(Ar, 2)) = c.Offset(, ii - 1).Text
Next
°õ¦æ ²Ä¤GÓ LISTBOX «K¥¿±`¤F¡C |
|