- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 7# mark15jill
' For kkex = 0 To 2
' txt1(kkex, 0).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value (B~DÄæ¦ì)
' txt1(kkex, 1).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 5).value (E~GÄæ¦ì)
' txt1(kkex, 2).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 8).value (H~JÄæ¦ì)
' Next
·Qn±N ¨º¤T¦æ ¦X¨Ö¦¨¤@¦æ
¬°¦ón¦X¨Ö , ¦X¨Ö¤£·|¤ñ¸û²M·¡
For i = 0 to 8
txt1(int(i/3), i mod 3).Text = oSheet.cells(cmbox(2).Text + 1, Int(i / 3) + 3 * (i Mod 3) + 2).value
Next |
|