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

[µo°Ý] ¦³Ãö 2010 ColumnWidths µo¥Í¿ù»~

LISTBOXªºCOLUMNSWIDTH·|¥X²{¿ù»~°T®§©O¡H

¦U¦ì¤j¤j¦n¡G

   ¤p§Ì·Q¾Ç²ßLISTBOXªºCOLUMNSWIDTH
¨Ãª½±µ¤Þ¥ÎOFFICE»¡©ú¤ºªº½d¨Ò¡C
   ¤µ°õ¦æ¸Ó½d¨ÒªºCOMMAND¤§«á·|¥X²{¦p¤Uªº¿ù»~°T®§¡C
¤p§Ì¥Ø«e¬O¨Ï¥ÎOFFICE PROFESSIONAL 2010ªºª©¥»¡C  

»yªk¦p¤U¡G
Dim MyArray(2, 3) As String

Private Sub CommandButton1_Click()
    'ColumnWidths requires a value for each column
    'separated by semicolons
    ListBox1.ColumnWidths = TextBox1.Text & ";" _
        & TextBox2.Text & ";" & TextBox3.Text
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As _
    MSForms.ReturnBoolean)
    'ColumnWidths accepts points (no units), inches
    'or centimeters; make inches the default
    If Not (InStr(TextBox1.Text, "in") > 0 Or _
     InStr(TextBox1.Text, "cm") > 0) Then
        TextBox1.Text = TextBox1.Text & " in"
    End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As _
    MSForms.ReturnBoolean)
    'ColumnWidths accepts points (no units), inches
    'or centimeters; make inches the default
    If Not (InStr(TextBox2.Text, "in") > 0 Or _
     InStr(TextBox2.Text, "cm") > 0) Then
        TextBox2.Text = TextBox2.Text & " in"
    End If
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'ColumnWidths accepts points (no units), inches or
    'centimeters; make inches the default
    If Not (InStr(TextBox3.Text, "in") > 0 Or _
     InStr(TextBox3.Text, "cm") > 0) Then
        TextBox3.Text = TextBox3.Text & " in"
    End If
End Sub
Private Sub UserForm_Initialize()
Dim i, j, Rows As Single

ListBox1.ColumnCount = 3
Rows = 2

For j = 0 To ListBox1.ColumnCount - 1
    For i = 0 To Rows - 1
        MyArray(i, j) = "Row " & i & ", Column " & j
    Next i
Next j
'Load MyArray into ListBox1
ListBox1.List() = MyArray
'1-inch columns initially
TextBox1.Text = "1 in"
TextBox2.Text = "1 in"
TextBox3.Text = "1 in"
End Sub

ÁÂÁ¦U¦ì¤j¤j¡C

TEST-AA.rar (10.82 KB)

TOP

设¸mtextboxªºcolumnwidths属©Ê,¤£­n带单¦ì:
ListBox1.ColumnWidths = "100;100;100"
¦Ó¤£¬O:
ListBox1.ColumnWidths = "100 in;100 in;100 in"

TOP

ÁÂÁ¤j¤j¡C

¦pªG¨Ì¤j¤jªº¤è¦¡
¤]´NµLªk¦Û¦æ³]©w¬°
IN ©Î¬O CM ¤F¡C
¦ÓHELP»¡©ú¤]¦³¯S§O¦C¥X
¨ä³]©wªº¤èªk¡A³o¤S¬O¦p¦ó
¸ÑÄÀ©O¡H

³]©w ®ÄªG

90;72;90 ²Ä¤@¦æ¬° 90 ÂI (1.25 ­^¦T)¡F²Ä¤G¦æ¬° 72 ÂI (1 ­^¦T)¡F²Ä¤T¦æ¬° 90 ÂI¡C
6 cm;0;6 cm ²Ä¤@¦æ¬° 6 ¤½¤À¡F²Ä¤G¦æÁôÂáF²Ä¤T¦æ¬° 6 ¤½¤À¡C
¦ý²Ä¤T¦æ¦³¤@³¡¤À¬O¬Ý¤£¨ìªº¡A©Ò¥H·|¦³±²¶b¥X²{¡C
1.5 in;0;2.5 in ²Ä¤@¦æ¬° 1.5 ­^¦T¡F²Ä¤G¦æÁôÂáF²Ä¤T¦æ¬° 2.5 ­^¦T¡C
2 in;;2 in ²Ä¤@¦æ¬° 2 ­^¦T¡F²Ä¤G¦æ¬° 1 ­^¦T (¹w³])¡F²Ä¤T¦æ¬° 2 ­^¦T¡C
¦ý²Ä¤T¦æ¦³¤@¥b¬O¬Ý¤£¨ìªº¡A©Ò¥H·|¦³±²¶b¥X²{¡C
(ªÅ¥Õ) ¤T¦æ³£¤@¼Ë¼e (1.33 ­^¦T)¡C

·P®¦¤j¤j¡I

TOP

¦^´_ 3# dechiuan999
¦b2003ª© °õ¦æ§AªºªþÀÉ ¨Ã¨S¦³¿ù»~µo¥Í°Ú
¦b2003ª© ¥i¦Û¦æ³]©w¬°IN ©Î¬OCM ªº ¤U¦C¼gªk¨S¿ù
ListBox1.ColumnWidths = "100 in;100 in;100 in"
ListBox1.ColumnWidths = "100 cm;100 cm;100 cm"

TOP

ª©¥D¤j¤j§A¦n¡G

   ¤p§Ì¬O¦]±N¦¹ªþÀÉ
²¾¦Ü¤½¥q³ÌªñÁʸmoffice2010±M·~ª©
ªº¹q¸£¨Ï¥Î¡A«oµo²{¤GªÌ¤£¬Û®e¡A
¤~·Pı«Ü§x´b¡C¦Ó¥Boffice2010ª©¤§
»¡©ú¤]¬O¥i³]©win or cm ©O¡H

·P®¦¤j¤j¡I

TOP

¦Ó¥Boffice2010ª©¤§
»¡©ú¤]¬O¥i³]©win or cm ©O¡H
dechiuan999 µoªí©ó 2010-10-21 15:26

2003ª©VBA»¡©ú¤¤¤]¦³¤@¨Ç½s¿è¤Wªº¿ù»~.
§Aªº´£°ÝÅý2010ª©¨Ï¥ÎªÌ¦³©Ò¤F¸Ñ.

TOP

·P®¦ª©¥D¤j¤j¡C

ªñ¤é±`±`¦Vª©¥D¤j¤j
½Ð¯q¡A¤p§Ì¯u¬O¨ü¯q¨}¦h¡C
¹ê¦b«Ü·P¿E¤j¤jªº¬Û§U¡C

·P®¦¤j¤j¡I

TOP

[µo°Ý] ¦³Ãö 2010 ColumnWidths µo¥Í¿ù»~

¥»©«³Ì«á¥Ñ ltc ©ó 2011-3-6 12:10 ½s¿è



¦¹µ{¦¡¦b EXCEL 2007 ¤w°õ¦æ¼Æ­Ó¤ë¨S¦³°ÝÃD
³Ìªñ´«¸Ë 2010 «á´NµLªk°õ¦æ
µo¥Í¿ù»~ªºµ{¦¡½X¬O
.ColumnWidths = "1.2cm;7.5cm;0cm;0cm"
³o¤@¦C

¦p§ï¬°
.ColumnWidths = "35;200;56"
µ{¦¡´N¥i¥H¥¿±`¹B§@

½Ð°Ý¦U¦ì¤j¤jª¾¹D¬°¦ó·|³o¼Ë¶Ü?
¦A¤]¤£¯à¨Ï¥ÎCM¶Ü?
³o¼Ë«Ü§xÂZ¡A¬°¤F2010§Ú±N­n§ó§ï«Ü¦hµ{¦¡

¦^´_ 1# ltc


    ¨Ï¥Î³æ¦ì¥²¶·ªÅ¤@®æ
.ColumnWidths = "1.2 cm;2.5 cm;35;60"
©Ò¥H§A¥i§Q¥Î¨ú¥N¥\¯à¡A±N©Ò¦³"cm"§ï¦¨" cm"§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ltc ©ó 2011-3-6 16:15 ½s¿è

§ÚªÅ®æ¤F¡AÁÙ¬O¤£¦æ
:)
ÁٽЪ©¥DÀ°À°¦£¤@¤U
·P®¦

office 2010 ©x¤è ¸Õ¥Îª©¤U¸ü
http://www7.buyoffice.microsoft.com/twn/product.aspx?sku=10234641&cache=664980274&culture=zh-TW

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD