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

¹Ú·Q¤u§@ªí

¹Ú·Q¤u§@ªí

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov18.rar (82.5 KB)

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2010-8-1 15:29): ¦b­ì¤å «ö½s¿èÁä ±N­ìÀɮקR°£­«·s¤W¶Ç¥[¥Hµù©ú§Y¥i ¥i¥H¤£¥²¦Aµo¤å

¦^´_ 1# myleoyes
¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!¤W¦¸ªþÀɮתº¤Uµe­±µ§»~
          ¦AªþÀÉ®×¥H§K»~¾É«e½ú«ü¾É¤è¦V
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov18-1.rar (86.11 KB)

TOP

¦^´_ 2# myleoyes
  1. Sub ¦~«×¶µ¥Ø()
  2.    Dim Y, C%, TILE$, Sh As Worksheet
  3.    Sheets("­º­¶").Activate
  4.    On Error GoTo Er:
  5. Ag:
  6.     Y = InputBox("¿é¤J¦~«×" & TILE, , 99)
  7.     If Y = "" Then Exit Sub
  8.     Set Sh = Sheets(Y & "¦~«×¹Ú·Q")
  9.     With Range("A4:E4")
  10.         .Insert 'Shift:=xlDown
  11.         .Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
  12.         .Cells(0, 1) = Y & "/1/1"
  13.         .Cells(0, 2) = Sh.Name
  14.         For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
  15.             .Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
  16.         Next
  17.    End With
  18.    Exit Sub
  19. Er:
  20.    TILE = Chr(10) & "  *** §ä¤£¨ì " & Y & "¦~«×¹Ú·Q ¤u§@ªí ***"
  21.    Resume Ag
  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!µ{¦¡µLªk±µ¨üÀx¦s®æ¦³¤½¦¡
         ¦AªþÀɰѦҬݬݽЦA¨¯­WÅo!!ÁÂÁ¦A¤T!!

Leov18-2.rar (112.87 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-3 18:51 ½s¿è

´_ 4# myleoyes
   Leov18-2.xls ¤¤¥u¦³¹Ú·Q  Leov18-1.xls ¤¤¦³¹Ú·Q,99,100¸Ì­±³£¬O¤½¦¡  
µ¹§Aªºµ{¦¡¤¤ .SpecialCells(xlCellTypeFormulas) ´N¬O¤½¦¡ªº°Ñ¼Æ
À³¸Ó¬O ¦p¹Ïªº»Ý¨D §A¨S¦³»¡²M·¡

  1. Sub ¦~«×¶µ¥Ø()
  2. Dim Y, C%, TILE$, Sh As Worksheet
  3. Sheets("­º­¶").Activate
  4. On Error GoTo Er:
  5. Ag:
  6. Y = Application.InputBox("¿é¤J¦~«×" & TILE, , 99)
  7. If Y = False Then Exit Sub
  8. If Y = "¹Ú·Q" Then
  9. Set Sh = Sheets("¹Ú·Q")
  10. Else
  11. Set Sh = Sheets(Y & "¦~«×¹Ú·Q")
  12. End If
  13. With Range("A4:E4")
  14. .Insert 'Shift:=xlDown
  15. .Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
  16. .Cells(0, 1) = Y & "/1/1"
  17. .Cells(0, 2) = Sh.Name
  18. For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
  19. .Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
  20. Next
  21. End With
  22. Exit Sub
  23. Er:
  24. TILE = Chr(10) & " *** §ä¤£¨ì " & Y & "¦~«×¹Ú·Q ¤u§@ªí ***"
  25. Resume Ag
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¤ï¶Õ!!
         §A»~¸Ñ°ÝÃD©Ò¦b...
         °ÝÃD¦b©ó¹Ú·Q¤u§@ªíAÄ檺Àx¦s®æ
         ¦pªG A2="¹Ú·Q"¦p¦AªþÀÉLeov18-4
         ¤£¬O¤½¦¡©Ò¥Hµ{¦¡°õ¦æ«á¥¿½T
         ¦pªG A2=IF(AL4=3,"¦¨¯u","¹Ú·Q")
         ¦p¦AªþÀÉLeov18-3
         ¬O¤½¦¡©Ò¥Hµ{¦¡°õ¦æ«áF»PG¦h¥X¸ê®Æ
         ¦Ó¥BCÄæ¤]¿ù,
         ³o´N¬O¥Yºl©Ò¦b,³Â·Ð½Ð¦A¨¯­W!!
         ÁÂÁ¦A¤T!!

Leov18-3.rar (114.68 KB)

Leov18-¢³.rar (113.97 KB)

TOP

¦^´_ 6# myleoyes
­×§ï½d³ò
I = 1
For Each A In Sh.Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeFormulas).Cells
        .Cells(0, I + 2) = A
        I = I + 1
Next

TOP

¦^´_ 7# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!³o¼Ë´N¹ï¨¯­WÅo!!
         ¥t¦³¤@°ÝÃD³Â·Ð½Ð¦A«ü¾É
         ÁÂÁ¦A¤T!!

Leov19.rar (43.84 KB)

TOP

¦^´_ 8# myleoyes
Formula->¤½¦¡  Ex:   Range("a5").Formula="=a1+a8"
R = InputBox("½Ð§ó§ï¤½¦¡", , ActiveCell.Formula)

TOP

¦^´_ 9# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¨¯­WÅo!!
         ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD