ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] textbox¥i½Æ¿ï

¦b¦Û©wªí³æ
textbox ©Î combobox ¥i¥H½Æ¿ï¶Ü?
¨D§U¦U¦ì°ª¤â
ÁÂÁÂ!
user999 µoªí©ó 2011-12-5 17:10



    §Aªº·N«ä¬O¦P®É¿ï¤W¦h­ÓTEXTBOX?
³o¼Ëªº¸Ü©Î³\¥i¥H¥Î CHECKBOX¨Ó¨ó§U
20111205twbtsformcbk.jpg
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

½Ð°Ý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¬O­n¼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)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD