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

ListBoxªºÀ³¥Î

ListBoxªºÀ³¥Î

¤p§Ì·Q­n«ö¤U«ü¥O«á,·Æ¹«¿ï¨úÀx¦s®æ½d³ò,

§Y±NÀx¦s®æ½d³ò¤ºªº¸ê®Æcopy¨ìListBox

Àµ½Ð¤j¤j­ÌÀ°À°¤p§Ì§a!

§Ú½®Ñ«á¸Õ¹L«Ü¦h¤èªk

Á٥ΤFSelection.Address(False, False)³o­Ó»yªk

¦ý¥u¬O§â¦C»P¦æªº¦ì¸mcopy¹L¥h ¨Ã¤£¬O¸Ì­±ªº¸ê®Æ

¦^´_ 1# §d¼ÝÁ¾
  1. ListBox1.RowSource = Selection.Address(xlA1)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


   GBª©¤j±z¦n

§Ú·Ó§Aªº¤èªk¥X²{¤F°õ¦æ¿ù»~438 ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

§Ú§â§Úªºµ{¦¡½X³£Rem¹L¤F °õ¦æ°_¨ÓÁÙ¬O³o¼Ë

TOP

¦^´_ 3# §d¼ÝÁ¾


   °þ §A§ï¥Îvalue ©Îtxt¬Ý¬Ý?
§Ú°O±oaddress¬O¦^¶Ç¸ÓÀx¦s®æªº¦ì¸m@@

TOP

¦^´_ 1# §d¼ÝÁ¾
  1. Private Sub CommandButton1_Click()
  2. With ListBox1
  3. If Selection.Count > 1 Then
  4. .List = Selection.Value
  5. Else
  6. .Clear
  7. .AddItem Selection
  8. End If
  9. .ColumnCount = Selection.Columns.Count
  10. End With
  11. End Sub
½Æ»s¥N½X
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ÁÂÁÂHsiehª©¤j^^

³o¼Ë°µ¨Æ±¡´N¤è«K¦h¤F^^

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD