- ©«¤l
- 17
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP SP3
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-30
- ³Ì«áµn¿ý
- 2012-12-21
|
[µo°Ý] ½Ð±Ð: ¦p¦ó§Q¥Î°j°é°ÊºA²£¥ÍÅܼÆ
Dear ¤j¤j
§Ú·Q²£¥Í¤@¨ÇarrayªºÅܼơA¦p¤U:
dim ¦¬½Lvalue as Variant
dim ¥~¸êvalue as Variant
dim §ë«Hvalue as Variant
dim ¦ÛÀçvalue as Variant
dim ¿Ä¸êvalue as Variant
dim ¿Ä¨évalue as Variant
................
dim ¦¬½Lprice as Variant
dim ¥~¸êprice as Variant
dim §ë«Hprice as Variant
dim ¦ÛÀçprice as Variant
dim ¿Ä¸êprice as Variant
dim ¿Ä¨éprice as Variant
................
¦]¬°«Ü¦h¡A¦Ó¥B±`±`¥u¦³Åܼƪº«á¥b¬q¤£¤@¼Ë(·|¦³ÅܤÆ)¡A¦ýÅܼƫe¥b¬q¦WºÙ³£¤@¼Ë
½Ð°Ý¦³¨S¦³¥i¯à±N: ¦¬½L»ù¡A¥~¸ê¡A§ë«H¡A¦ÛÀç°Ó¡A¿Ä¸ê¡A¿Ä¨é..¥ýÅܦ¨array
Dim MySheets(8) As String
MySheets(0) = "¦¬½L"
MySheets(1) = "¥~¸ê"
MySheets(2) = "§ë«H"
MySheets(3) = "¦ÛÀç°Ó"
MySheets(4) = "¿Ä¸ê"
MySheets(5) = "¿Ä¨é"
MySheets(6) = "¶}½L"
MySheets(7) = "³Ì°ª"
MySheets(8) = "³Ì§C"
¯à¤£¯à§Q¥Î°j°é±N¥¦Ì¥[¤W«á¥b¬qªº¦WºÙ¡A¨Ó«Å§iÅܼÆ
¦pªGVB¤£¦æC++¥i¥H¶Ü?
·PÁÂ! |
|