- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
½Ð°Ýkimbal¤j¤j¡A¦p±z©Ò¥Ü¡A¤@Ócheckbox©M¤@Ótextbox¦X°_¨Ó¡A¥i¥H¼g¤J¤@ÓÀx¦s®æ¤¤¶Ü?
·Ð½Ð¤j¤j«üÂI
ÁÂ ...
sammay µoªí©ó 2011-12-9 09:03
°ÝÃD¬On¼g¨Ç¤°»ò¨ì¤@ÓÀx¦s®æ¤º
³o1¬q§â checkboxªºÈ ©M textboxªºÈ ¥Î";" ³s°_¨Ó
Dim strResult As String
If CheckBox1.Value Then
strResult = "-1"
Else
strResult = "0"
End If
strResult = strResult & ";" & TextBox1.Value
Range("A1").Value = strResult
³o¤@¬q¥i¥H§â¤§«e©ñ¦b("A1")ªºÈ©ñ¦^¨âÓ±±¥ó
Dim strInput As String
strInput = Range("A1").Value
CheckBox1.Value = Val(Split(strInput, ";")(0))
TextBox1.Value = Split(strInput, ";")(1) |
|