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

½Æ»s¤½¦¡

½Æ»s¤½¦¡

¦U¦ì«e½ú§A­Ì¦n!!   
    °²³]A3=1,A4=2,A5=3
    Sub Ex()
        Dim Rng As Range, e As Range
        If [A3] = "" Then
           [AH1] = "=SUM(INDIRECT(""AH3:AH1200""))"
           [AH2] = "=$A3&""µ§"""
        ElseIf [A3] <> "" Then
           With Sheet3
              Set Rng = .Range("AH1", .Range("ZZ1").End(xlToLeft))
              Set e = Rng(1, Rng.Columns.Count + 1)
           End With
           Set Rng = Range("AH1:AH2")
           Rng.Copy e
        End If
   End Sub
   °õ¦æµ²ªGAI1»PAH1¤½¦¡³£¬Û¦P
           AI2»PAH2¤½¦¡¤]¬Û¦P
   À³¸Ó¦p¤U
   ·í²Ä¤@¦¸«ö¶s
        AH1=SUM(INDIRECT("AH3:AH1200"))
        AH2=$A3&"µ§"
   ²Ä¤G¦¸«ö¶s
        AI1=SUM(INDIRECT("AI3:AI1200"))
        AI2=$A4&"µ§"
   ²Ä¤T¦¸«ö¶s
        AJ1=SUM(INDIRECT("AJ3:AJ1200"))
        AJ2=$A5&"µ§"
   ¥H¦¹Ãþ±À½Ð°Ýµ{¦¡¦p¦ó­×§ï?
   ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes
¬O³o¼Ë¶Ü?
  1. Rng.Copy
  2.            e.PasteSpecial xlPasteValues   '¶È¦³­È
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
¨}®v!ÁÂÁÂ!!¤£¯à¬°­È­nªº¬O¤½¦¡
          ½d¨Òªº AI1=SUM(INDIRECT("AI3:AI1200"))
                       AI2=$A4&"µ§"
                      AJ1=SUM(INDIRECT("AJ3:AJ1200"))
                      AJ2=$A5&"µ§"
           ½Ð¦A³Â·Ð«ü¾É!!
          ¦A½Ð±Ð¥t¤@°ÝÃD»P¥»°ÝÃD¬O¬ÛÃö³sªº
         ¨¯­WÅo!½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

LeoV78.rar (273.26 KB)

TOP

¦^´_ 3# myleoyes

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim C As Integer, Rng As Range
  4.     Set Rng = [Ah1]
  5.     C = Cells(1, Columns.Count).End(xlToLeft).Column
  6.     If C < Rng.Column Then
  7.         C = Rng.Column
  8.     Else
  9.         C = C + 1
  10.     End If
  11.     Cells(1, C) = "=SUM(R3C:R200C)"
  12.     Cells(2, C) = "=R" & C - Rng.Column + 2 & "C1&""µ§"""
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
¨}®v!ÁÂÁÂ!!¤£ª¾µ²ºâµ{¦¡¬O§_¦³¸Ñ??
        ½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

TOP

¦^´_ 5# myleoyes

¦p¹Ï¤@¦b102/5¤ëµn¤J²Ä1µ§ , ²Ä2µ§¸ê®Æ
¤ë©³µ²ºâ«ö¶sAH3:AI3¤À§O²£¥Í¼Æ¾Ú
¬GAHÄæ»PAIÄ檺°_ÂI³£±q²Ä¤T¦C¶}©l
µL¥i«p«DAHÄ檺°_ÂI¥²©w¬OAH3¶}©l
µM¦ÓAIÄ檺°_ÂI¨Ã¤£¤@©w¬OAI3¶}©l
½d¨Ò¹Ï¤@¯ÂÄÝ¥©¦X
¬°¦ó·|¯ÂÄÝ¥©¦X?
½Ð¤W¶Ç¹ê»ÚÀÉ®×»¡©ú
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE
¨}®v!
     ¤£¦n·N«ä!¦]¬°¹q¸£ªºµwºÐ±¾¤F!
     ´«·s­«Äé©Ò¥H¯Ô»~¤F®É¶¡©êºp
     ¤p§Ì¤wªþ¤WÀɮ׽аѦҬݬÝ
     ¥u½Ð¥b¤Ñ°²,»°¤W¯ZÙTÙT!!
     ¨¯­WÅo!ÁÂÁ¦A¤T!!

LeoV78-2.rar (15.95 KB)

TOP

¦^´_ 7# myleoyes
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim C As Integer, Rng(1 To 2) As Range, i As Integer, ii As Integer
  4.     Set Rng(1) = [AH1]
  5.     C = Cells(1, Columns.Count).End(xlToLeft).Column
  6.     If C < Rng(1).Column Then
  7.         C = Rng(1).Column
  8.     Else
  9.         C = C + 1
  10.     End If
  11.     Cells(1, C) = "=SUM(R3C:R200C)"
  12.     Cells(2, C) = "=R" & C - Rng(1).Column + 3 & "C1&""µ§"""
  13.     ii = 3
  14.     Set Rng(2) = Cells(1200, Rng(1).Column).End(xlUp).Offset(1)
  15.     For i = 0 To C - Rng(1).Column
  16.         If Val(Cells(2, Rng(2).Column).Offset(, i)) <> 0 Then
  17.           Rng(2).Offset(, i) = "=ROUND(r" & ii & "c6 *" & [M3] & ",2)"
  18.             ii = ii + 1
  19.         End If
  20.     Next
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
¨}®v!ÁÂÁÂ!!
        µ{¦¡¿ù»~1004?
        ¿ù»~!!¦b¦¹¦C  Rng(2).Offset(, i) = "=ROUND(R" & ii & "c6 *" & [M3] & ",2)"
       ¤p§Ì¯à¤O¤£¨¬µLªk­×§ï½Ð³Â·Ð­×¥¿¨¯­WÅo!ÁÂÁ¦A¤T!!

TOP

¦^´_ 8# GBKEE
¨}®v!ÁÂÁÂ!!
       ©êºp!!¦]¬°µwºÐ±¾¤F³Ìªñªº¸ê®Æ¥þ·´
      µL©`!½Ð±N´N§a!¨¯­WÅoÁÂÁ¦A¤T!!

LeoV78-2A.rar (15.62 KB)

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD