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

¦p¦ó¹F¦¨¨â­Ólistboxªº¤ô¥­±²¶b¦P¨B?

¢°¡D±²¶b²¾°Ê®É¡A¨Ã¤£·|IJ°Ê¨Æ¥ó¡]¤£ª¾¨ä¥¦ª©¥»¬O§_¦³¦¹¨Æ¥ó¡^¡A¦Ó¿ï¨ú(Click) ®É¡A¥u¯àÀË´ú¨ä¸ê®Æ¦æ¦C¦ì¸m¡I
¢±¡D­Y·Q¡e¼ÐÃD¤å¦r¡f»P¡e¸ê®Æ¡f¥ª¥k¦P¨BÅã¥Ü¡A³]©w¨ä ColumnHeads = True §Y¥i¡A¤£¶·¥Î¨ì¨â­ÓListBox
¢²¡D¦pªG¦UÄæ¤å¦r¦r¤¸¼Æ¤£¦h¡A¥H½d¨ÒÀɬ°¨Ò¡A¥u­n³]©w¨ä ColumnWidths ÄÝ©Ê¡A¤]¥Î¤£¨ì¤ô¥­±²¶b¡I

°Ñ¦Ò¦p¤U¤èªk¡G
Set mydb = Range("A2:I4")¡@'ª`·N¡G³o°Ñ·Ó¦ì§}¤£¥i¥]§t¡e¼ÐÃD¦C¡f
With ListBox2
¡@¡@.ColumnCount = 9
¡@¡@.RowSource = mydb.Address
¡@¡@.ColumnHeads = True
¡@¡@.ColumnWidths = "42,42,42,42,42,42,42,42,42"
End With

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD