°Æµ{¦¡/if§PÂ_¤£¨ì/½Ð¨D¸Ñ´b
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
°Æµ{¦¡/if§PÂ_¤£¨ì/½Ð¨D¸Ñ´b
¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-20 16:52 ½s¿è
³o¬O§Úªº¸ê®ÆÀÉ
http://cht.tw/h/nmaeu
·í§Ú¶]µ{¦¡®É¡A¤£ºÞ§Ú¿é¤J¤°»òÈ¡Aµ{¦¡¥Ã»·¶]for a=2 to 486
¨Ã¤£·|¶]§Ú³]©wªºif±ø¥ó¡A§Ú¦³¸ÕµÛ¥Îwhile¶]¦ý·|·í¾÷(¥i¯à¤£¯à³o¼Ë§a)
¤£ª¾¹Dþ¸Ì¥X¿ù¤F¡A§ï¤F«Ü¤[ÁÙ¬O§ï¤£¥X¨Ó¡C
³Â·Ð¤j®vÌÀ°ªì¾ÇªÌ§Ú¤p§Ì¸Ñµª¡A·P¿E¤£¶i |
-
-
°ÝÃD.JPG
(33.84 KB)
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 2# GBKEE
ÁÂÁ§Aªº«üÂI
§Ú¥[¤F§A¨º¬q«á¡A¥L»¡n³]©wª«¥ó?¬On¦A¥[þ¨Çµ{¦¡½X¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 4# c_c_lai
·PÁ§Aªº¨ó§U
§Ú¸Õ¹L¤F¡AÁÙ¬O¤@¼Ë¶]¥X¥þ³¡:'(
¥L¨S¦³§PÂ_¨ì@@ |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 6# luhpro
OK §Ú¹Á¸Õ¬Ý¬Ý ÁÂÁ§A |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 6# luhpro
§Ú¹Á¸Õ¤F¤@¤U¡A§ÚÈÀH«K¿é¤J¡A¤@¼Ë·|´ú¸Õ¥þ³¡ ¦ü¥G¨S¦³§PÂ_¨ìIF
Public x, y
Sub trend()
x = InputBox("¿é¤J²Ä¤@¤Ñ")
y = InputBox("¿é¤J³Ì«á¤@¤Ñ")
For a = 2 To 486
Call aa(a)
Next a
End Sub
Sub aa(ByVal a As Integer)
For b = 9 To 32
If x > Cells(a, 1) And Cells(a, 1) <= y Then
If Cells(a, b) >= Cells(a - 1, b) Then
Cells(a, b + 25) = Cells(a + 2, 2) - Cells(a + 1, 2)
Else
Cells(a, b + 25) = Cells(a + 1, 2) - Cells(a + 2, 2)
End If
End If
c = Cells(a, b + 25)
D = D + c
Cells(489, b + 25) = D
e = Cells(1, b + 25)
Cells(488, b + 25) = e
Next
c = 0
Cells(1, b + 25) = Cells(1, b)
End Sub |
|
§A¦n³á
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 9# c_c_lai
¤Ó·PÁ§A¤F:victory: ¦¨¥\¤F~ |
|
§A¦n³á
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 9# c_c_lai
If StrComp(Cells(a, 1), x, 1) >= 0 And StrComp(y, Cells(a, 1), 1) >= 0
§Úè¬d¤F¤@¤UStrComp¨ç¦¡¥Î¨Ó¤ñ¸û¦r¦ê¡A¥BY²Ä¤@ӰѼƤp©ó¡Bµ¥©ó©Î¤j©ó²Ä¤GӰѼƮɡA¨Ì§Ç¦^¶Ç-1¡B0©Î1
StrComp(Cells(a, 1), x, 1) >= 0 ³o¬O«ç»ò§PÂ_ªº ½Ð±Ð¤@¤U.
Cells(a, 1)©M x¤ñ«á´N¦³ÂI¼Ò½k¤F.. |
|
§A¦n³á
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-5-14
- ³Ì«áµn¿ý
- 2014-4-8
|
¦^´_ 12# c_c_lai
§ÚÀ´¤F «D±`·PÁ§A |
|
§A¦n³á
|
|
|
|
|