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

[µo°Ý] ½Ð±Ð¦³Ãö½d³òªº°ÝÃD

[µo°Ý] ½Ð±Ð¦³Ãö½d³òªº°ÝÃD

¦³«Ø¥ßªí³æ
·íCOMBOBOX1³]©w¬°·|­û½s¸¹A1000000001®É
TEXTBOX1±a¤J¥¿½T
TEXTBOX2±a¤J¥¿½T
¦ýTEXTBOX3¦]TEXTBOX2Åܰʦӷj´M±a¤JÄæ¦ìB
µ²ªG·|¥X²{"A"   
¦ý¬O§Ú­nªºµ²ªG¬O"B"
½Ð°Ý¬O­þ¸Ì³]©w¿ù»~¤F©O?
·Ð½Ð¦U¦ì¤j¤j¸Ñ´bÁÂÁÂ

TEST.rar (14.45 KB)

TEST.rar (14.58 KB)

¦^´_ 2# hugh0620


    Set A = .Columns("A:A").Find(TextBox2.Text, LookAt:=xlWhole)
       '§ï³o¸Ì Set K = .Columns("A:AL").Find(TextBox34, LookAt:=xlWhole)Åܧó½d³ò
        If Not A Is Nothing Then
            TextBox3.Text = .Cells(A.Row, 2)
        End If
        End With
   End Sub

­×§ï«á½T¹ê¤w¸Ñ¨M°ÝÃD
VBA§Ú¬O·s¤â~~¥u¯àºCºCªº¬[ºc¥X·Q­nªºªF¦è
¤]¨S¦³µ{¦¡³]­pªº°ò¦
ÁÂÁ¤j¤j¸Ñ¨M¥Ø«e°ÝÃD

TOP

¦^´_ 4# hugh0620


ÁÂÁÂ!!
¦A½Ð±Ð!!´N¦p¤j¤jÂ껡ªº¯B°ÊTEXTBOX
­n¦p¦ó­×§ï?
§Ú¤w±N»Ý±a¤Jªº­È­×§ï´ú¸Õ¦n¤F!!
¦ý¬O¤j¤j»¡ªº"¯B°Ê"
À³¦p¦ó³]©wÁٽФj¤jÀ°­Ó¦£
Åý§Ú¥i¥H¾Ç§ó¦h!!ÁÂÁÂ

TEST1.rar (14.45 KB)

TOP

¶â¶â~
´N¨Ì¤j¤jªº¸Ñ»¡¬O¯à°÷¤F¸Ñªº
¦ý¬O....¼g¤£¥X¨Ó!!«¢!!
§Æ±æª©¥D¤j¤j¯à¥X¤â¬Û§U¤F!!
¦ýÁÙ¬O­n¦A¦¸ÁÂÁ§A!!

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD