¬°¦ó¤é´Á«ö¤Fµ²ºâ ¬Û¦P®É¶¡µLªk¼Ðµù
- ©«¤l
- 164
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 211
- ÂI¦W
- 0
- §@·~¨t²Î
- ·L³n
- ³nÅ骩¥»
- win10
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2017-8-28
- ³Ì«áµn¿ý
- 2022-8-5
|
¦^´_ 4# GBKEE
G¤j ¤£¦n·N«ä
·Q¸ò§A½Ð±Ð¬°¦ó SpinButton1.Value»Pªí³æ¸¹½X»P¹ê»Ú¤º®e·|¤£¤@¼Ë??,,,,¥t¥~¹³½Ð±Ð¦³¿ìªk¦P¤@ӳ渹ªº¸ê®Æ¦P®É¥X²{¦bTEXTBOX¸Ì¶Ü???
¦U¶µ¥I´Ú¥Ó½Ð³æ.zip (965.86 KB)
|
|
yvonne
|
|
|
|
|
- ©«¤l
- 164
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 211
- ÂI¦W
- 0
- §@·~¨t²Î
- ·L³n
- ³nÅ骩¥»
- win10
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2017-8-28
- ³Ì«áµn¿ý
- 2022-8-5
|
¦^´_ 2# GBKEE
·PÁÂG¤jÀ°¦£!·P¿E¤£ºÉ
·Q¸òG¤j½Ð±Ð,³o¨â¬qCodeªº·N«ä¬O¦b»¡©ú¤°³Â©O??
Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text) |
|
yvonne
|
|
|
|
|
- ©«¤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
|
¦^´_ 1# afu9240
¤F¸Ñ¬Ý¬Ý- Sub test20180205()
- Dim bb As String, i As Integer
- bb = Cells(1, 13).Text
- For i = 1 To 200
- Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
- Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text)
- If Cells(i, 9) = bb Then Cells(i, 9).Interior.Color = vbGreen
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|