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

[µo°Ý] Listbox search °ÝÃD¡H

[µo°Ý] Listbox search °ÝÃD¡H

°²³]excel A2=abc¡BA3=abc¡F¦b¥N½XªºÀ°§U¤U¡A¦btexbox1¿é¤Jabc¡A¨Ï¥ÎFind ShipName¡AVBA·|Åã¥Ü¨â¦Cabc¡A¦ý¬O­×§ï²Ä¤G¦Cabc¸ê®ÆVBA­×§ï²Ä¤@¦C¸ê®Æ¡C
½Ð°Ý¦³¤èªk¦]À³Shipname¶µ¥Ø«ü©w­×§ï¹ïÀ³¦C¶Ü¡HÁÂÁÂ

populate_textboxes_basedon_listboxitem_.xlsm.zip (62.25 KB)

VBA

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-10-2 05:07 ½s¿è

¦^´_ 1# §ÚªÎ¤H

populate_textboxes_basedon_listboxitem_v2.zip (286.79 KB)

TOP

¦^´_ 2# singo1232001


    ·j´MFind ShipName ¨Ã ½s¿è«á·|­«·s§ó·s

populate_textboxes_basedon_listboxitem_v3.zip (289.57 KB)

TOP

¥»©«³Ì«á¥Ñ §ÚªÎ¤H ©ó 2022-10-5 15:23 ½s¿è

¦^´_ 3# singo1232001


ÁÂÁ¤j¤jÀ°§U!
¥t¥~·Q°Ý°Ý¦]¬°¶µ¥Ø¦WºÙ¦³1-30¦C¡A½Ð°Ý¦³¤èªk¥uÅã¥Ü1-9¦C(A1-I1)©óUserform1-listbox1
¦]¬°²{¦b¼W²K¦C¼Æ«K¥X²{¡G°õ¦æ¶¥¬q¿ù»~'1004' §ä¤£¨ì©Ò­n§äªºÀx¦s®æ,ÁÂÁÂ

populate_textboxes_basedon_listboxitem_v3-1.zip (35.73 KB)

thx

TOP

¦^´_ 4# §ÚªÎ¤H


    ¥D­n¬Ouserform1 ªºuserform_Initialize()
³o¬q¥X°ÝÃD µM«á¤S³Q¼u¦^¥huserform1.show  ¦pªG§A¥Îf8¶] ¥i¯à´N¥i¥H¤F
ActiveSheet.Range("A:I").SpecialCells(xlCellTypeBlanks).Rows.Delete xlUp
»ª¦ü³o¬qÁ¿ªº¬O§R°£A:IÄ檺ªÅ¥Õ¦C¦ì?

³o´N­nª`·N´XÂI
1.¬O§_¶}±Òuserform«á userform¬°Âê©w¼Ò¦¡ (©ÎªÌ´ú¸Õ¤£­nÂê©wuserform¬Ý¬Ý)
2.¬O§_¥X²{«DªÅ¥Õªº²§±`°ÝÃD
3.­YÁÙ¬OµLªk¸Ñ¨M ´N§ï¥Î¨ä¥LºØªº§R°£»yªk

¥Ø«e§ÚÀH¾÷±q¤¤´¡¤J¤@¦CªÅ¥Õ ´N¯à¥¿±`¹B¦æ  ¤]¤£¤j²M·¡¹ê»Úª¬ªp
¹ê»Ú­nºCºC´ú¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD