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

[µo°Ý] ªí³æ_listbox¿ï¶µ

For e = 0 To .ListCount - 1
If .Selected(e) = True Then
If Ehstr = "" Then
Ehstr = .List(e)
Else
Ehstr = Ehstr & vbCrLf & .List(e)
End If
End If
Next
aa.TextBox1 = Ehstr

TOP

«x¡A¤@¼Ò¤@¼Ëªº¥N½X¤Î®É¶¡¡A¯u¬O¦³§Ó¤@¦P¡C

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD