- ©«¤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 ©ó 2013-9-4 12:26 ½s¿è
¦^´_ 6# acdx - Private Sub UserForm_Initialize() 'ExportResult(ªí³æ¼Ò²Õ)
- Dim Ob() '<-³oDim Ob ÅÜ¼Æ ¥u¥i¥H¦b UserForm_Initializeµ{§Ç¤¤¨Ï¥Î
- Ob = Array(100, 125, 160, 200, 250, 315, 400, 500, _
- 630, 800, 1000, 1250, 1600, 2000, 2500, 3150, _
- 4000, 5000, 6300, 8000, 10000, 12500, 16000, 20000)
- End Sub
½Æ»s¥N½X- Option Explicit 'ExportResult(ªí³æ¼Ò²Õ)
- Dim Ob(), Msg As Boolean ' ³o¨â¦æµ{¦¡½X ½Ð©ñ¦b ExportResult(ªí³æ¼Ò²Õ)ªº³Ì¤WºÝ
- (¦p¦¹³oDim Ob ÅܼÆ,ExportResult(ªí³æ¼Ò²Õ)©Ò¦³µ{¦¡¥i¥G¥sªº)
- Private Sub CommandButton2_Click()
- Unload Me
- ALtoolbox.Show
- End Sub
½Æ»s¥N½X |
|