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

«zÀY¤jÅo!«¢«¢!!

«zÀY¤jÅo!«¢«¢!!

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-6-24 22:33): ¼ÐÃD½Ð¥Î¤Á¦XÃD·N¤å¦r ¨Ã½Ð¸Ô­z°ÝÃD

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

Leov11.rar (155.81 KB)

¦^´_ 1# myleoyes
  1. Sub Ex()
  2.     Dim R%
  3.     If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
  4.         If ActiveCell.Column Mod 2 > 0 Then
  5.             R = (ActiveCell.Row - 2) Mod 12
  6.             If R >= 0 And R <= 11 Then
  7.                 ActiveCell.Copy Cells(2, ActiveCell.Column)
  8.                 Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(12, 1) - ActiveCell.Offset(, 1)
  9.             End If
  10.         End If
  11.     End If
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!¤ï¶Õ°Õ!!¹ê¦b·Q¤£¥X¥DÃD
       ¤S«ÜÁcÂø©Ò¥H...ÀY¤j..¤p§Ì¤U¦¸§ï¶i
       ÁÂÁ¦A¤T!!!

GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!³o¬qµ{¦¡
         Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(12, 1) - ActiveCell.Offset(, 1)
         ¦³­×¥¿
         Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(0, 1) - ActiveCell.Offset(12, 1)
         ¦ýÁÙ¬Oª¬ªp³s³sªþÀɽЦA¨¯­W¤@¤U
         ÁÂÁ¦A¤T!!

Leov11-1.rar (102.14 KB)

Leov11-1-A.rar (266.9 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-26 19:59 ½s¿è

¦^´_ 3# myleoyes
Leov11  ¬O³sÄòªº½d³ò  Leov11-1 ¤¤¶¡¦³ÁôÂ꺽d³ò¬O¤£¦Pªº
  1. Sub Ex()
  2.     Dim R, A, C, Rng As Range, II%
  3.     If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
  4.         If ActiveCell.Column Mod 2 > 0 Then
  5.             R = (ActiveCell.Row - 5) Mod 12
  6.             If R >= 0 And R <= 11 Then
  7.                 ActiveCell.Copy Cells(2, ActiveCell.Column)
  8.                 Application.EnableEvents = False
  9.                 Set Rng = ActiveCell.EntireColumn.SpecialCells(xlCellTypeVisible)
  10.                 For Each C In Rng.Areas
  11.                     For Each A In C.Cells
  12.                         If A.Row = ActiveCell.Row Then II = 1
  13.                         If II > 0 Then II = II + 1
  14.                         If II = 14 Then
  15.                             Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(, 1) - A.Offset(, 1)
  16.                             Application.EnableEvents = True
  17.                             Exit Sub
  18.                         End If
  19.                     Next
  20.                 Next
  21.             End If
  22.         End If
  23.     End If
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!«z§A¯u¬O¤Ó¼F®`!
         µLªk·Q¹³...¦p¦ó¦Ò­Ë§A©O?«¢«¢!!
         ¯uªº¨¯­W§A!!¯u¥Ì·Å...ÁÂÁ¦A¤T!!

TOP

¦^´_ 5# myleoyes
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!¦pªGÀx¦s®æ¹J¨ì¦³¤å¦r¦s¦b
               µ{¦¡´N°»¿ù,¦]¬°Àx¦s®æ¤º®e¬O¥Ñ¥t¤@
              µ{¦¡¼g¤JµLªk§ïÅÜ,¦A³Â·Ð«e½ú!
          ¯à§_­×§ï¦¹µ{¦¡...¤ï¶Õ¨¯­WÅo!ÁÂÁ¦A¤T!!

Leov11-3.rar (20.85 KB)

TOP

¦^´_ 6# myleoyes
Cells(2, ActiveCell.Column + 1) = Val(ActiveCell.Offset(, 1)) - Val(A.Offset(, 1))

TOP

¦^´_ 7# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!¯u¥Ì·Å...ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD