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

[µo°Ý] Åý¤½¦¡ªº­È,ª½±µ±a¤JÀx¦s®æ

[µo°Ý] Åý¤½¦¡ªº­È,ª½±µ±a¤JÀx¦s®æ

½Ð°Ý¤j¤j,

§Ú­nÅýJQ4­pºâ¨Ã±o¨ìAH4-BR4ªºµ²ªG,¦ý¥u­n­È(¤£­n®æ¦¡)´N¦n,§Ú¬O¥Î¥H¤U»yªk,
½Ð°Ý¦³¨ä¥L»yªk,¥i¥Hª½±µÅýAH4-BR4ªº­È,ª½±µ±a¤J¨ìJQ4¤@ª½¨ì¦p¦PFÄ檺¦C¼Æ,
¦Ó¤£­n¹³¥H¤U½wºCªº¨BÆJ,¦]¬°Àɮפ¤³£¬O¤½¦¡,¦­¤W¤~run¤F¤@¤U,¾ã­Ó³£·í¾÷¤F.
  1.         With Sh
  2.         Sh.Activate
  3.             Range("JQ2") = Range("H1").Value  '«e¤@¤é®w¦sÁ`¼Æ,¶K¨ìAH
  4.             Range("JQ4") = "=" & "AH4-BR4"
  5.             Range("JQ4").Copy
  6.             xRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row  '¬ÝFÄæ¦ì´Xµ§¸ê®Æ
  7.             Set Rng = Range("JQ4:JQ" & xRow)
  8.             Rng.PasteSpecial Paste:=xlPasteFormulas  '¿ï¾Ü©Ê¶K¤W¤½¦¡
  9.             Application.CutCopyMode = False '¨Ï¨Ó·½ªºcopyªºµê½u°{°Ê°±¤î
  10.             Application.DisplayAlerts = False '¦bµ{§Ç°õ¦æ¹Lµ{¤¤¨Ï¥X²{ªºÄµ§i®Ø¤£Åã¥Ü
  11.             Application.Calculation = xlAutomatic    '¦Û°Ê­pºâ
  12.             Rng = Rng.Value
  13.         End With
½Æ»s¥N½X

¦^´_ 2# jcchiang
¦^´_ 3# kim223824

·PÁ¨â¦ìªºÀ°¦£,µª®×³£¥i¥H¥Î

½Ð°Ýjcchiang
r = [F65535].End(3).Row
«á­±ªºEnd(3) «ç»ò¸ÑŪ?
¥¦±o¥Xªºµª®×·|¦h3¦C,¶W¥XFÄæ¦C¼Æ
¥»¨Ó¥H¬°­n§ï¬°(0),µ²ªG¤£¯à¥Î,½Ð°Ý­n¦p¦ó°µ?

TOP

¦^´_ 5# ­ã´£³¡ªL
·PÁ­ã¤j,
r = [F65535].End(3).Row -3 ¸ê®Æ´N¥i¥H¥¿±`
Ãö©óEnd(3)....§Ú·Q³oÀ³¸Ó¦UºØ¥N¸¹¦³¤£¦Pªº¥Îªk,½Ð°Ý­þ¸Ì¥i¥H¦³³o­Ó¥N¸¹¸Ñ»¡?

TOP

¦^´_ 8# jcchiang

ÁÂÁÂ

TOP

¦^´_ 3# kim223824

¦n·PÁ§A±Ðªº³o¬qµ{¦¡,§Ú«Ü±`¥Î¨ì³o­Ó,¯u¬O¹ê¥Î,¤Ó·PÁ¤F...
With Sh

Sh.Activate
Range("JQ2") = Range("H1").Value  '«e¤@¤é®w¦sÁ`¼Æ,¶K¨ìAH

xRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row  '¬ÝFÄæ¦ì´Xµ§¸ê®Æ
Range("JQ4:JQ" & xRow).value = "=AH4-BR4"
Range("JQ4:JQ" & xRow).value  = Range("JQ4:JQ" & xRow).value   'Âà´«­È

end With

TOP

¦^´_ 3# kim223824

½Ð°Ý: §Ú·Q§âÃþ¦üªº¤èªkÀ³¥Î¨ì¥H¤U...
W.Sheets("¦h")ªºÄæ¼Æ= xcol
Sheets("·s")ªºA4 ¥H xcol¬°¨Ó·½,¥N¤J¤½¦¡,¦ý°õ¦æ³£µL§@¥Î,½Ð°Ý­n«ç»ò°µ??
  1.    Set Sh = W.Sheets("¦h")
  2.         Sh.Activate
  3.         i = "A2:E2"
  4.             xcol = Sh.Range(i).Columns.Count  '¬Ý´Xµ§¸ê®Æ
  5.         With W.Sheets("·s")
  6.         W.Sheets("·s").Activate
  7.         Range("A4" & xcol).Value = "=" & "¦h!A3*¦h!C3" '¤½¦¡
  8.        Range("A4" & xcol).Value = Range("A4" & xcol).Value
  9.         
  10.         End With   
½Æ»s¥N½X

TOP

¦^´_ 12# jcchiang
±z¦n,
§Ú§â´ú¸ÕÀɮתþ¤W,¤è«KÀ°§Ú¬Ý¤@¤U¶Ü?¥¦¨ÌµM¤£¯à¶K¤W¸ê®Æ
¥H©¹copy¸ê®Æ³£¬O¥H¦C¼Æ¬°·Ç,¦ý²{¦b¦³·sªº»Ý¨D,¥HEX: A:XÄ欰«ü©w°Ï¶¡,¶K¸ê®Æor¦V¥k¶K¤½¦¡
W.Sheets("¦h")ªºÄæ¼Æ= xcol
Sheets("·s")ªºA4 ¥H xcol¬°¨Ó·½,¥N¤J¤½¦¡,¦ý°õ¦æ³£µL§@¥Î,½Ð°Ý­n«ç»ò°µ??
´`Äæ¶K¸ê®Æ.rar (22.02 KB)

TOP

¦^´_ 14# jcchiang

·PÁ¦A¦¸«ü¾É,­ì¨Ó§Ú§âRange("A4" & xcol)²z¸Ñ¿ù»~,
³o­Ó.Range("A4").Resize(1, xcol).Value¤~¬O§Ú­nªºµ²ªG

TOP

¦^´_ 14# jcchiang

¤£¦n·N«ä,§Ú¦b¼g¤½¦¡¥N¤J®É,¦]¬°¤½¦¡«Üªø,¤@ª½¥X²{¬õ¦r,¬O§_»Ý­n´«¦æ?§Ú¸ÕµÛ´«¦æ,¦ý¤½¦¡«ç»ò¤Á³£¤£¦æ,½Ð±Ð³o»òªøªº¤½¦¡­n«ç»ò´«¦æ¤~¥i¥H?
  1.         With W.Sheets("Àu")
  2.             W.Sheets("Àu").Activate
  3.                 Range("B15:AI19").ClearContents
  4.                     i = "B15:AI15"
  5.                         xcol = W.Sheets("Àu").Range(i).Columns.Count
  6.                             .Range("B15").Resize(1, xcol).Value = "=" & "VLOOKUP(B$2,­¸¤ñ!$F:$FO,COUNTA(­¸¤ñ!$F$3:$FO$3),)"
  7.                             .Range("B15").Resize(1, xcol).Value = .Range("B15").Resize(1, xcol).Value
  8.                             .Range("B16").Resize(1, xcol).Value = "=" & "IF(B$2="","",SUMIF(­¸¤ñ!$F:$F,B$2,­¸¤ñ!$FT:$FT)+1)"
  9.                             .Range("B16").Resize(1, xcol).Value = .Range("B16").Resize(1, xcol).Value
  10.                             .Range("B17").Resize(1, xcol).Value = "=" & "IF(B14-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$B$4:$B$55))>=0,"",ABS(B14-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$B$4:$B$55))))"
  11.                             .Range("B17").Resize(1, xcol).Value = .Range("B17").Resize(1, xcol).Value
  12.                             .Range("B18").Resize(1, xcol).Value = "=" & "IF(B$9*SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$BJ$3:$CB$3="¦w")*(­¸¤ñ!$BJ$4:$CB$55))>=0,"OK",INT(B$9*SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$BJ$3:$CB$3="¦w")*(­¸¤ñ!$BJ$4:$CB$55))/SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))))"
  13.                             .Range("B18").Resize(1, xcol).Value = .Range("B18").Resize(1, xcol).Value
  14.                             .Range("B19").Resize(1, xcol).Value = "=" & "IF(B$14*SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$BI$4:$BI$55))>=0,"OK",INT(B$14*SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))-SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$BI$4:$BI$55))/SUMPRODUCT((­¸¤ñ!$F$4:$F$55=B$2)*(­¸¤ñ!$G$4:$G$55))))"
  15.                             .Range("B19").Resize(1, xcol).Value = .Range("B19").Resize(1, xcol).Value
  16.         End With
½Æ»s¥N½X

TOP

¦^´_ 17# ­ã´£³¡ªL

ÁÂÁ­ã¤j,
¥[¤F¤Þ¸¹«á,´ú¸Õ¨S°ÝÃD¤F

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD