ªð¦^¦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

³Ì·s³ø§i¡G
office 2007 ¤É¯Å SP2 «á¡A¼È¥¼¥X²{°ÝÃD

TOP

µ{¦¡¶}±Ò¥u¦³³o¤@¬q

Sub auto_open()
    Sheets("Á`ªí").Select
    Range("A1").Select
   
    MsgBox ("ª©Åv©Ò¦³¡A½Æ»s¥²¨s¡A½Ð¤Å«Dªk¨Ï¥Î" _
    & Chr(13) & "¥»µ{¦¡¶È¨Ñ ............ ¨Ï¥Î" _
    & Chr(13) & "ÅwªïÀËÁ|«Dªk¨Ï¥Î" _
    & Chr(13) & "³]­pªÌ¡G............ " _
    & Chr(13) & "EXCELµ{¦¡ÄÝMicrosoft¤½¥q©Ò¦³¡A¨Ï¥ÎªÌ¶·¦Û¦æÁʶR")   
End Sub

PS.
³Ì·sªº´ú¸Õµ²ªG¡A¶}±Ò«á¤£°µ¥ô¦ó°Ê§@¡A¬ù¤Q´X¤ÀÄÁ«á¦A¾Þ§@´N·|¥X²{¿ù»~
¨S°ÝÃDªº¹q¸£ÁÙ¬O¨S°ÝÃD(¤@¦¸¤]¨Sµo¥Í¹L)

TOP

¬O§_¦bworkbook open¨Æ¥ó¤¤Åª¤J¬Y¨Ç¼Æ¾Ú¦s©ñ¦b°O¾ÐÅ餤¡H
¦s©ñ¦b°O¾ÐÅ骺ªF¦è±`·|¦]§R°£µ¥¾Þ§@¦Ó³s±a³Q²MªÅ¡C³o¼Ë´N¥X¿ù¤F¡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

¥»©«³Ì«á¥Ñ 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

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

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

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

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

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD