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

½Ð°Ý(°õ¦æ¶¥¬q¿ù»~ 75)°ÝÃD

½Ð°Ý(°õ¦æ¶¥¬q¿ù»~ 75)°ÝÃD

¤u§@ªí¤W¦³¼Æ­Ó«ö¶s¡A¥i¥H°õ¦æ¦U¦Ûªí³æ
¶}±ÒÀɮ׫á¶i¤J°õ¦æ¡A¨C­Ó«ö¶s¤Îªí³æ³£¥i¥¿±`°õ¦æ
¦pªG¼Æ¤ÀÄÁ³£µL°õ¦æ¥ô¦ó°Ê§@«á¡A¦A«ö¬Y¨Ç«ö¶s
´N·|µo¥Í(°õ¦æ¶¥¬q¿ù»~ 75)µøµ¡
½Ð°Ý¤£ª¾¹D¦³¨S¦³¤H¹J¨ì¹L
©Î¬Oª¾¹D¦p¦ó³B²z
ÁÂÁÂ

°õ¦æ¶¥¬q¿ù»~ 75.jpg (15.71 KB)

°õ¦æ¶¥¬q¿ù»~ 75.jpg

¦^´_ 1# ltc
¸ô®|/Àɮצs¨ú¿ù»~ (¿ù»~ 75)
¬Ý¤£¨ìµ{¦¡½X????

TOP

¥Ø«e¦n¹³¥u¦³¤@¥xµo¥Í¡A±N¦A¦h´ú´X¥x¹q¸£¸Õ¸Õ

TOP

¦A¸ò¦U¦ì¤j¤j³ø§i

TOP


³o¬O³Ì·s´ú¸Õµ²ªG¡A¤w¦³¦h¥x¹q¸£µo¥Í

¥t¥~¸É¥R¡G
1.¶À¦â³¡¤À¬O¥X°ÝÃDªºµ{¦¡½X
2.¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A¬O¦]¬°§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)ªºµ²ªG
3.¥ªÃäµøµ¡¤ºªº(¤u¦a°ò¥»¸ê®Æªí³æ)¥iÂI¿ï
4.¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ)ÂI¿ï«á·|¥X²{¡A(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡
5.Ãö³¬Àɮ׫á¡A¦A­«·s¶}±Ò¡Aµ{¦¡ÁÙ¬O¥i¥H¥¿±`¹B§@¡C
6.¤°»ò®É­Ô·|µo¥Í©O¡H>>¨Ï¥ÎªÌ¶}±ÒÀɮ׫á¼Æ¤ÀÄÁor¤Q´X¤ÀÄÁ¤º¥¼¨Ï¥ÎÁä½L¤Î·Æ¹«´N·|µo¥Í

¦A³Â·Ð¦U¦ì¤j¤j¸Ñ´b¤F
ÁÂÁÂ

TOP

¦^´_ 5# ltc
¬Ý¤£¨ì§¹¾ãµ{¦¡½X ¦p¦óÀ°§A????

TOP

¤£¦n·N«ä¡A³o¬Oµ{¦¡½X¡A¤£¾å±o°÷¤£°÷

¥t¥~¸É¥R¡G
1.¨Ã¤£¬O¨C¥x¹q¸£³£·|µo¥Í
2.¨C¥x¹q¸£¦w¸Ëªº³nÅé³£®t¤£¦h¡A¤]¦³­è¸Ë¦nªº
3.¿Ã¹õ«OÅ@¼Ò¦¡¤wÃö³¬¡A¹q·½³]©w¤@ª½¶}±Ò

Private Sub ¤u§@®É¼Æ¿é¤J2_Click()
    Call ¤u§@®É¼Æ¿é¤Jªí³æ2_³]©w
    ¤u§@®É¼Æ¿é¤Jªí³æ2.Show
End Sub

Sub ¤u§@®É¼Æ¿é¤Jªí³æ2_³]©w()
    Dim IA As Integer                       '¾ã¼Æ -32,768~32767
   
    ¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.Clear
   
    For IA = Sheets("TEMP").Range("F9").Value To 11 Step -1
        ¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.AddItem Sheets("TEMP").Range("F" & IA).Value
    Next IA
    ¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.ListIndex = 0
   
    Call §ó·sTEMP­û¤u¸ê®Æ

    ¤u§@®É¼Æ¿é¤Jªí³æ2.­û¤u½s¸¹.Clear
   
    With ¤u§@®É¼Æ¿é¤Jªí³æ2.­û¤u½s¸¹
        .Clear
        '.ColumnCount = MYRS.Fields.Count - 1
        .ColumnCount = 2
        .ColumnWidths = "1.5cm;3cm"
        
        For IA = 11 To Sheets("TEMP").Range("I9").Value
            .AddItem
            .List(IA - 11, 0) = Sheets("TEMP").Range("I" & IA).Value
            .List(IA - 11, 1) = Sheets("TEMP").Range("J" & IA).Value
        Next IA
    End With
   
    §ó·sTEMP¤u¦a¸ê®Æ
    With ¤u§@®É¼Æ¿é¤Jªí³æ2.¤u¦a¿ï³æ
        .Clear
        '.ColumnCount = MYRS.Fields.Count - 1
        .ColumnCount = 2
        .ColumnWidths = "1.5cm;3cm"
        
        For IA = 11 To Sheets("TEMP").Range("R9").Value
            .AddItem
            .List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
            .List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
        Next IA
        
    End With
   
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.Clear
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤éA"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤éB"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤W¤È"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤U¤È"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[A"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[B"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[¯Z"
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.ListIndex = 0
        
    With ¤u§@®É¼Æ¿é¤Jªí³æ2.°_©l®É¤À
        .Clear
        .AddItem "0000"
        .AddItem "0030"
        .AddItem "0100"
        .AddItem "0130"
        .AddItem "0200"
        .AddItem "0230"
        .AddItem "0300"
        .AddItem "0330"
        .AddItem "0400"
        .AddItem "0430"
        .AddItem "0500"
        .AddItem "0530"
        .AddItem "0600"
        .AddItem "0630"
        .AddItem "0700"
        .AddItem "0730"
        .AddItem "0800"
        .AddItem "0830"
        .AddItem "0900"
        .AddItem "0930"
        .AddItem "1000"
        .AddItem "1030"
        .AddItem "1100"
        .AddItem "1130"
        .AddItem "1200"
        .AddItem "1230"
        .AddItem "1300"
        .AddItem "1330"
        .AddItem "1400"
        .AddItem "1430"
        .AddItem "1500"
        .AddItem "1530"
        .AddItem "1600"
        .AddItem "1630"
        .AddItem "1700"
        .AddItem "1730"
        .AddItem "1800"
        .AddItem "1830"
        .AddItem "1900"
        .AddItem "1930"
        .AddItem "2000"
        .AddItem "2030"
        .AddItem "2100"
        .AddItem "2130"
        .AddItem "2200"
        .AddItem "2230"
        .AddItem "2300"
        .AddItem "2330"
        .AddItem "2400"
    End With
    ¤u§@®É¼Æ¿é¤Jªí³æ2.°_©l®É¤À.ListIndex = 16
   
    With ¤u§@®É¼Æ¿é¤Jªí³æ2.²×¤î®É¤À
        .Clear
        .AddItem "0000"
        .AddItem "0030"
        .AddItem "0100"
        .AddItem "0130"
        .AddItem "0200"
        .AddItem "0230"
        .AddItem "0300"
        .AddItem "0330"
        .AddItem "0400"
        .AddItem "0430"
        .AddItem "0500"
        .AddItem "0530"
        .AddItem "0600"
        .AddItem "0630"
        .AddItem "0700"
        .AddItem "0730"
        .AddItem "0800"
        .AddItem "0830"
        .AddItem "0900"
        .AddItem "0930"
        .AddItem "1000"
        .AddItem "1030"
        .AddItem "1100"
        .AddItem "1130"
        .AddItem "1200"
        .AddItem "1230"
        .AddItem "1300"
        .AddItem "1330"
        .AddItem "1400"
        .AddItem "1430"
        .AddItem "1500"
        .AddItem "1530"
        .AddItem "1600"
        .AddItem "1630"
        .AddItem "1700"
        .AddItem "1730"
        .AddItem "1800"
        .AddItem "1830"
        .AddItem "1900"
        .AddItem "1930"
        .AddItem "2000"
        .AddItem "2030"
        .AddItem "2100"
        .AddItem "2130"
        .AddItem "2200"
        .AddItem "2230"
        .AddItem "2300"
        .AddItem "2330"
        .AddItem "2400"
    End With
    ¤u§@®É¼Æ¿é¤Jªí³æ2.²×¤î®É¤À.ListIndex = 35
    ¤u§@®É¼Æ¿é¤Jªí³æ2.®É¼Æ.Value = 8
End Sub

TOP

¦^´_ 7# ltc
¹ï¤£°_ ÁÙ¬O½Ð§Aªþ¤WÀÉ®× ¦n¤F¸Ñ

TOP

¥»©«³Ì«á¥Ñ Min ©ó 2010-11-9 20:18 ½s¿è

"¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.Clear" ¥X¿ù
¨º§Aªº"¦~¤ë¿ï³æ°Ï" ¬OSheet¶Ü? ÁÙ¬Oobject? ....
Àˬd¤@¤U"¦~¤ë¿ï³æ°Ï"§a~
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

¤u§@®É¼Æ¿é¤Jªí³æ2 ¬O UserForm
¦~¤ë¿ï³æ°Ï ¬O ComboBox

·Pı¤W¤£¹³¬Oµ{¦¡½XªºÃö«Y
¦p¬Oµ{¦¡½XªºÃö«Y¦p¦ó¸ÑÄÀ¥H¤U´X­ÓºÃÂI¡F
1.¬Û¦Pµ{¦¡¬°¦ó¦³¨Ç¹q¸£¥i°õ¦æ¨S¦³°ÝÃD
2.§Úı±o³Ì¤jºÃÂI¬O5¼Óªº¹Ï¡A¨ä¤¤ªº¡A¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A¬O¦]¬°§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)ªºµ²ªG

¬°¦ó§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)¡A½T¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A³oÀ³¸Ó¸òµ{¦¡½X¨S¦³Ãö«Yªü(PS.ÀÉ®×Ãö³¬«á¦A¶}±Ò´N¥i¥H¶i¤J(¤u§@®É¼Æ¿é¤Jªí³æ2))¡A¯u©_©Ç

µ{¦¡½X¿ù»~À³¸Ó¤£·|³o¼Ë§a¡H

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD