ªð¦^¦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)

¦^´_ 1# roeylin

   ÁöµM§Ú¤£ª¾¹D¼Ó¥Dªº¥Î·N~ ¦ýÁÙ¬O§ä¨ì°ÝÃD
  ÂI¿ï¤JTextBox3ªºµ{¦¡½X¤¤,¦p¤U©Ò¥Ü

  Private Sub TextBox2_Change()
   With Sheets("°ò¥»¸ê®Æ")
    ±NAH§ï¦¨A´N¥i¥H¤F~
   °ÝÃDªº­ì¦]:¦b©ó§A¥ÎFINDªº½d³ò,§Aªº°ò¥»¸ê®Æ"E2"¬OA100000002~ ©Ò¥H·|±aB2ªº¸ê®Æ¥X¨Ó
  ­Y§âAH§ï¬°FIND¬°A:A½d³ò~ ´N¨S¦³°ÝÃD
  «Øij¼Ó¥D:·Q¦n¸ê®Æ­n«ç»ò«Ø¦¨¸ê®Æ®w~ ³o¼Ë¤ñ¸û¦n¼¶¼gµ{¦¡½X

   Set A = .Columns("A:AH").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
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 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

¦^´_ 3# roeylin


    ¼Ó¥D §AªºUserFormªº³]­p....
    ¤p§Ì´£¨Ñ¤p¤p«Øij,¬Ý±zªº¸ê®Æ»PUserForm¬O¦³ÆZ¤jªº¸¨®t
   ­Y¥i¥H~ ½Ðª©¥D¤j¤j±Ð§A¥Î¯B°Êªºtextbox~ ³o¼Ëªº¸Ü~ ´N¯à¥]§t©Ò¦³ªº¸ê®Æ
   ³o·í¤¤¤]­n¦Ò¶q¾ã­ÓUserFormªºª©­±³]­p~ ¤~¤£·|¶]¥X¨ÓªºªF¦èÀ½¦b¤@°_~

   ¶È¨Ñ°Ñ¦Ò
¾Ç²ß¤~¯à´£¤É¦Û¤v

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

¦^´_ 5# roeylin


    ³o­Ó§Ú´N¤£¤Ó¦æ¤F~  ¦]¬°§Ú¤]¬O¤@­Ó·s¤â~ (»¡¤£¤@©w~ §A¼gªº¤ñ§Ú¦n­ò~)
    ¥u¬O¤§«e¦³¦b³]­p¤@¨Ç²Ê²¤ªºµ{¦¡¤¶­± ¸ò¦P¾Ç¤¬¬Û¬ã¨sªº¤ß±o~
    ­n§Ú¼g~ ´N¦³ÂIÃø¤F~ ¦ýª©¥D¤j¤j­ÌÀ³¸Ó¬Ookºw°Õ
    ¯B°Êªº·N«ä~
    ´N¬O¨Ì©pªº¸ê®Æ¶q¼W¥[textbox
    °²³]§A²Ä¤G¼h¦³¤Tµ§¸ê®Æ   ´Nshow   3­Ótextbox
             ²Ä¤G¼h¦³¤Qµ§¸ê®Æ   ´Nshow 10­Ótextbox
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

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

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD