¦p¦ó¹F¦¨¨âÓlistboxªº¤ô¥±²¶b¦P¨B?
- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-19
|
¢°¡D±²¶b²¾°Ê®É¡A¨Ã¤£·|IJ°Ê¨Æ¥ó¡]¤£ª¾¨ä¥¦ª©¥»¬O§_¦³¦¹¨Æ¥ó¡^¡A¦Ó¿ï¨ú(Click) ®É¡A¥u¯àÀË´ú¨ä¸ê®Æ¦æ¦C¦ì¸m¡I
¢±¡DY·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¥un³]©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 |
|
|
|
|
|
|