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

[µo°Ý] ¹A¾ä24¸`®ð

[µo°Ý] ¹A¾ä24¸`®ð

½Ð°Ýexcel¥i§_¥H¦è¾ä´«ºâ¥X¹A¾ä24¸`®ð¶Ü?

¦^´_ 1# ling822


    ª©¤j±z¦n¡A³o¸Ì¦³§Ú¥H«e§ìªº¤j³°¦æ¨Æ¾ä¡A¬O¥ÎExcel»s§@ªº¡A¸Ì­±¦³¸U¦~¾ä¤Î¸`®ðµ¥¡C

¦æ¨Æ¾ä.rar (461.89 KB)

TOP

24¸`®ðªí.gif

24¸`®ðªí.rar
http://www.mediafire.com/download/pcbhjfk4jjyzoll/24%E7%AF%80%E6%B0%A3%E8%A1%A8.rar
  1. Option Explicit

  2. Const baseYrow = 1870, sTermCol = 4
  3. Dim sTerm As Variant
  4. Dim x As Object

  5. Function getsTermY(ByVal sY As Integer) As String
  6.    Dim tempsTermYstr As String
  7.    Dim i As Integer
  8.    Set x = ActiveWorkbook.Sheets("24¸`®ðªí")
  9.    
  10.    tempsTermYstr = x.Cells(sY - baseYrow, sTermCol)
  11.    ReDim sTerm(24)
  12.    For i = 1 To 24
  13.       sTerm(i) = Val(Mid(tempsTermYstr, i, 1))
  14.       If Int((i + 1) / 2) = i / 2 Then
  15.          sTerm(i) = sTerm(i) + 15
  16.       End If
  17.    Next i
  18.    getsTermY = tempsTermYstr
  19. End Function

  20. Function «Ø¥ß¥þ¦~24¸`®ðªí(sY)
  21.    Dim ff As String
  22.    Dim i As Integer
  23.    Set x = ActiveWorkbook.Sheets("24¸`®ðªí")
  24.    x.Cells(5, 2) = "¦è¤¸ " & sY & "¦~ 24¸`®ð¤é´Áªí"
  25.    ff = getsTermY(sY)
  26.    For i = 1 To 24
  27.       x.Cells(8, i + 2) = sTerm(i)
  28.    Next i
  29. End Function
½Æ»s¥N½X

TOP

¦^´_ 2# jeffrey628litw
¤j¤j§A¦n!
¥´¶}«áÀR¤î¤£°Ê!?
®Úª©¥»¦³Ãö¶Ü?§Úªº¬O2003

TOP

¦^´_ 2# jeffrey628litw


    ÁÂÁÂJeffrey, Åv­­°ÝÃD¥¼¯à¤U¸ü

TOP

¥»©«³Ì«á¥Ñ jeffrey628litw ©ó 2014-2-16 13:06 ½s¿è

¦^´_ 5# ling822


    ª©¤j±z¦n¡A³o¸Ì¦³¼È®É¤U¸üºô¯¸¡Ghttp://www.FunP.Net/238190

ªþ¥ó§Ú¦³­«·s§ó·s½Ð¦A¸Õ¸Õ¬Ý¡C

¦æ¨Æ¾ä.rar (606.59 KB)

TOP

¦^´_ 6# jeffrey628litw
¥i¥H¥Î¤F, ÁÂÁÂ!!

TOP

·PÁ¤À¨É~ «D±`·PÁ­ù~

TOP

¦^´_ 6# jeffrey628litw


    «D±`·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD