½Æ»s¤½¦¡

myleoyes

¦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!!

myleoyes

¦^´_ 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!!

myleoyes

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

myleoyes

¦^´_ 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!!

myleoyes

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

myleoyes

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

myleoyes

¦^´_ 11# GBKEE
¨}®v!ÁÂÁÂ!!
        ©êºp!«æµÛ´_­ì¸ê®Æ«o§Ñ¤FM3ªº¼Æ¾Ú
         M3¬°¥ô·N¼Æ¦r½d¨Ò¬°0.0254
        ²{¦bµ{¦¡¥i¥H°õ¦æ¦ýµ²ªG¨Ã«D©Ò»Ý
        ®t²§¤§³BªþÀÉ»¡©úLeoV78-2Bªí¥Ü
       ´ú¸ÕÀÉLeoV78-2A
       ½Ð¤£§[½ç±Ð¯uªº¨¯­WÅoÁÂÁ¦A¤T!!

myleoyes

¦^´_ 13# GBKEE
¨}®v!ÁÂÁÂ!!
     ¡­°²³]§ë¤J¨C¤ë°t®§°òª÷,¥B°t®§ÃB«D©T©wÃB¡­
     ¦b5¤ë4¤é»P5¤ë9¤é¤À§O¶R¤J2µ§°òª÷
     ¦b5¤ë©³°t®§©Ò¥HAH3:AI3¬O2µ§ªº¦U§O°t®§ÃB
     Z3¬°°t®§¤é´Á
     ¦b6¤ë14¤é¦A¶R¤J1µ§°òª÷
     ¦b6¤ë©³°t®§©Ò¥HAH4:AJ4¬O¦@3µ§ªº¦U§O°t®§ÃB
     Z4¬°°t®§¤é´Á
     ¥H¦¹Ãþ±À...¸Ô°O§ë¸êª¬ºA
     ¼ÒÀÀ8¤ëÅ«¦^5¤ë9¤éªº(²Ä2µ§)°òª÷
     ©Ò¥Hµ{¦¡·|±NA4(½s¸¹2)Åܦ¨ 0
     ¤]´N¬O»¡¨C·í¥ô¦ó³QÅ«¦^ªº°òª÷½s¸¹³£·|Åܬ° 0
     ¦nÅýAI2=0²Õ°µ¬°µ{¦¡°Ñ·Ó¥Î
     «ê¥©8¤ë¥÷¤]¨S¦³¶R¤J°òª÷
     ¦b8¤ë©³¨SÅ«¦^ªº°òª÷®§·Ó¼Ë°t
     Å«¦^ªº´N¨S¦³°t©Ò¥HAH6:AK6¬O¦@3µ§ªº¦U§O°t®§ÃB
     A4=0(AI2=0²Õ¤wÅ«¦^)©Ò¥HAI6="",©Ò¥H¥u°t3µ§
     ¸Ü¨ì¦¹¬O§_¯Ç´e?!!¬°¦ó­n«Ø¥ßAH,AI..µ¥µ¥Ä檺¥Øªº
     ¦]¬°·í§ë¸êªº®É¶¡¤[»·»Pµ§¼ÆÅܦh
     ·íÅ«¦^®É¨ì©³¬O·l¯q¦h¤Ö??
     ¤×¨ä¬O¨C¤ë¦³°t®§¥B«D©T©wÃB¯uªº¬O¤£¹D°t¦h¤Ö®§..
     °ß¦³±N¼Æ¦rÅܦ¨¼Æ¾Ú¤~¯à§ä¨ìÀò§Qªº¤£¤Gªk«h
     µM¦Ó¾ÇExcel³Ì°g¤Hªº¦a¤è´N¬O"¼ÒÀÀ"
     ³z¹L"ºë·Çªº¼Æ¾Ú¼ÒÀÀ"´N¯à¬Ý¨ì¥¼¨Ó­È!!
     ³o¬O¤ß±o.....±ß¦w!!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 15# GBKEE
¨}®v! ÁÂÁÂ!!½Ð¬Ý²M·¡°Êµe                                       
½Ð«ö5¤ë¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3:AI3¬O¦P®É¦³¼Æ¾Ú , ¦A²M°£¸ê®Æ                                       
½Ð«ö¨}®v¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3¦³¼Æ¾Ú , ¦ý¬OAI3«o¬OªÅ¥Õªº                                       
§O§Ñ¤F5¤ë¥÷¬O¶R2µ§                                       
¦ý«o¥u°t1µ§®§,½Ð°Ý¥t¤@µ§®§¦b­þ¸Ì???                                       
¦]¬°¨}®vªºµ{¦¡¬O¶¥±è¦¡ªº¤è¦¡                                       
¥u­n¹J¨ì·í¤ë¥÷¦P®É¦³2µ§¥H¤Wµn¤J·|¥X¿ù                                       
¬Oµ{¦¡¿ù»~ªº¦a¤è§A¬O§_ª`·N¨ì©O?                                       
µ{¦¡¤£¯à³æ³æA3¹ïAH3 , A4¹ïAI4 , A5¹ïAJ5                                       
³o¹ï¨C¤ë¥u¶R1µ§¾A¥Î,¦pªG¨C¤ë¶R¦hµ§¬O¿ù»~ªº                                       
¤£¬O¶Ü?¨}®v©ú¥Õ§_?
¦AªþÀɸլݬݨ¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 17# GBKEE
¨}®v! «D±`ªºÁÂÁÂ!!
        µ{¦¡¹ïÅo!¦ý«o¿òº| 0µ§ªºª¬ªp
                Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)" ¦¹¦C
        ­×§ï¦p¤U
               If Cells(2, C) <> "0µ§" Then  Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
         §Y¥i¯u¬O¨¯­W§AÅo!!¤p§Ì¥Ñ°J·P¿E....ºÉ¦b¤£¨¥¤¤
              ¦b¦¹¸Û¼°ªº¯¬ºÖ..... ±z»P¦U¤jª©¥D¤Î¦U¦ì«e½ú­Ì!
                                                 ·s¦~§Ö¼Ö!!
                ¤@°¨·í¥ý  ÅD±æ¤@¾ã¦~.....   ·PÁ¤j®aªº±Ð¾ÉÅý¤p§Ì¤£Â_ªº¦¨ªø
              ÁÂÁ¦A¤T!!