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

[µo°Ý] VBA¤¤ªº¨ç¼Æ¦¡ ¨ú¥N

[µo°Ý] VBA¤¤ªº¨ç¼Æ¦¡ ¨ú¥N

¥»©«³Ì«á¥Ñ PJChen ©ó 2020-3-1 18:00 ½s¿è

Dear,
¦b¤u§@ªí¤¤¥i¥H¦Û©w¸q¨ç¼Æ¨Ï¤½¦¡Åܱo²¼ä,¦ý¦]¬°¥Î±o¤Ó¦h¤F,·í»Ý­n­×§ï®É,¤]¬O«Ü¥O¤H²V²c...
·Q§ï¦b¼gµ{¦¡®É,§â¤½¦¡¥Î¤@­Ó¥N½Xxcªí¥Ü,³Ì«áÅܦ¨­È,³o¼Ë´N¤£¥Î¤@ª½§â¤¾ªøªº¨ç¼Æ¦¡¼g¥X¨Ó,¦ý¬O"¦æ¤£³q",
½Ð°Ý¬O§_¦³¨ä¥Lªº¼gªkor»Ý­n¤°»òª«¥ó,¸Õ¤F¤S¸ÕÁ`¬O¤£¦æ..
                i = "C1:J1"
                    xcol = Range(i).Columns.Count
                    Set xc = "=" & "SUMPRODUCT((­¸¤ñ!$F$4:$F$70=¬d±b!$B$3)*(­¸¤ñ!$AP$3:$BH$3=¬d±b!C4)*(¤ñµá¦h!$AP$4:$BH$70))" '¬d±b_­qÁʼÆ
                        .Range("C5").Resize(1, xcol).Value = "=" & xc
                        .Range("C5").Resize(1, xcol).Value = .Range("C5").Resize(1, xcol).Value

¦^´_ 2# jcchiang

§ï³o¼Ë ¦bC5Àx¦s®æ ¸ê®Æ¥¿½T,¦ý¨ä¥LÀx¦s®æ±o¥Xªº­È·|¿ù»~,­ì¦]¬°¦b©ó¬õ¦r³¡¥÷,C4¤£¬O$C$4 À³¯àÀHµÛÀx¦s®æ¤£¦P¦Ó¦ì²¾,¥i¬O±N¤½¦¡¥Îxc¨ú¥N®É,«oÅܱo¤£·|²¾°Ê,¥u¬O¤@­Ó¦ºªºªF¦è,½Ð°Ý¯à¦³¨ä¥L¼gªk,¥i¥HÅý¤½¦¡¬¡¥Î¶Ü?
SUMPRODUCT((­¸¤ñ!$F$4:$F$70=¬d±b!$B$3)*(­¸¤ñ!$AP$3:$BH$3=¬d±b!C4)*(¤ñµá¦h!$AP$4:$BH$70))

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2020-3-2 17:41 ½s¿è

¦^´_ 4# jcchiang
§Ú¤GºØ³£­n¥Î,¥H¥Ø«e­qÁʼƤ½¦¡¨Ó»¡,±qC5:J5 / C14:J4
VBA¤¤ªº¨ç¼Æ¦¡ ¨ú¥N.rar (103.59 KB) ¬O¿ùªº,¥¦¤£Åý§Ú§R°£,½Ð¤Å¤U¸ü
³Ì·s®w¦s-¬d±b.rar (83.12 KB)

VBA¤¤ªº¨ç¼Æ¦¡ ¨ú¥N.rar (103.59 KB)

TOP

¦^´_ 4# jcchiang
§Úª¾¹D¤F,­n³o¼Ë§ï...·PÁ±z
.Range("C5").Resize(xcol, xcol).Value = ¬d±b_­qÁʼÆ
.Range("C5").Resize(xcol, xcol).Value = .Range("C5").Resize(xcol, xcol).Value

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2020-3-2 19:00 ½s¿è

¦^´_ 6# PJChen
³o¼Ë°µ,¸ê®ÆÁÙ¬O¿ù吔...°£¤FC5¤@¾ã¦Cªº¸ê®Æ¥¿½T,¨ä¾l³s°õ¦æ³£¦³°ÝÃD,¥d¦í¤F...
  1. ¬d±b_­qÁÊ¼Æ = "=" & "SUMPRODUCT((­¸¤ñ!$F$4:$F$70=$B$3)*(­¸¤ñ!$AP$3:$BH$3=C4)*(­¸¤ñ!$AP$4:$BH$70))"
  2. ¬d±b_­qÁʽc²~ = "=" & "IF(C5=0,"",INT(C5/$C$3)&IF(MOD(C5,$C$3)=0,""½c"",""½c+""&MOD(C5,$C$3)))"
  3. ¬d±b_¼t¯Ê = "=" & "SUMPRODUCT((­¸¤ñ!$F$4:$F$70=$B$3)*(­¸¤ñ!$BJ$3:$CB$3=C4)*(­¸¤ñ!$BJ$4:$CB$70))"
  4. ¬d±b_¼t¯Ê½c²~ = "=" & "IF(C7=0,"",INT(C7/$C$3)&""½c"")&IF(MOD(C7,$C$3)=0,"",""+""&MOD(C7,$C$3))"
  5. ¬d±b_¹º³æ = "=" & "SUMPRODUCT((­¸¤ñ!$F$4:$F$70=$B$3)*(­¸¤ñ!$CD$3:$CV$3=C4)*(­¸¤ñ!$CD$4:$CV$70))"
  6. ¬d±b_¹ê¥X¼Æ = "=" & "SUMPRODUCT((­¸¤ñ!$F$4:$F$70=$B$3)*(­¸¤ñ!$CX$3:$DP$3=C4)*(­¸¤ñ!$CX$4:$DP$70))"
  7. ¬d±b_¹ê¥X½c²~ = "=" & "IF(C10=0,"",INT(C10/$C$3)&""½c"")&IF(MOD(C10,$C$3)=0,"",""+""&MOD(C10,$C$3))"

  8.                     i = "C1:J1"
  9.                     xcol = Range(i).Columns.Count  '¬Ý´Xµ§¸ê®Æ
  10.                         .Range("C5").Resize(1, xcol).Value = ¬d±b_­qÁʼÆ
  11.                         .Range("C5").Resize(1, xcol).Value = .Range("C5").Resize(1, xcol).Value
  12.                             .Range("C14").Resize(xcol, xcol).Value = ¬d±b_­qÁʼÆ
  13.                             .Range("C14").Resize(xcol, xcol).Value = .Range("C14").Resize(xcol, xcol).Value
  14.                            
  15.                                 .Range("C6").Resize(1, xcol).Value = ¬d±b_­qÁʽc²~
  16.                                 .Range("C6").Resize(1, xcol).Value = .Range("C6").Resize(1, xcol).Value
  17.                                     .Range("C15").Resize(xcol, xcol).Value = ¬d±b_­qÁʽc²~
  18.                                     .Range("C15").Resize(xcol, xcol).Value = .Range("C15").Resize(xcol, xcol).Value
  19.                                     
  20.                                         .Range("C7").Resize(1, xcol).Value = ¬d±b_¼t¯Ê
  21.                                         .Range("C7").Resize(1, xcol).Value = .Range("C7").Resize(1, xcol).Value
  22.                                             .Range("C16").Resize(xcol, xcol).Value = ¬d±b_¼t¯Ê
  23.                                             .Range("C16").Resize(xcol, xcol).Value = .Range("C16").Resize(xcol, xcol).Value
  24.                                             
  25.                                                 .Range("C8").Resize(1, xcol).Value = ¬d±b_¼t¯Ê½c²~
  26.                                                 .Range("C8").Resize(1, xcol).Value = .Range("C8").Resize(1, xcol).Value
  27.                                             .Range("C17").Resize(xcol, xcol).Value = ¬d±b_¼t¯Ê½c²~
  28.                                             .Range("C17").Resize(xcol, xcol).Value = .Range("C17").Resize(xcol, xcol).Value
  29.                                         .Range("C9").Resize(xcol, xcol).Value = ¬d±b_¹º³æ
  30.                                         .Range("C9").Resize(xcol, xcol).Value = .Range("C9").Resize(xcol, xcol).Value
  31.                                     .Range("C10").Resize(xcol, xcol).Value = ¬d±b_¹ê¥X¼Æ
  32.                                     .Range("C10").Resize(xcol, xcol).Value = .Range("C10").Resize(xcol, xcol).Value
  33.                                 .Range("C19").Resize(xcol, xcol).Value = ¬d±b_¹ê¥X¼Æ
  34.                                 .Range("C19").Resize(xcol, xcol).Value = .Range("C19").Resize(xcol, xcol).Value
  35.                             .Range("C11").Resize(xcol, xcol).Value = ¬d±b_¹ê¥X½c²~
  36.                             .Range("C11").Resize(xcol, xcol).Value = .Range("C11").Resize(xcol, xcol).Value
  37.                         .Range("C20").Resize(xcol, xcol).Value = ¬d±b_¹ê¥X½c²~
  38.                         .Range("C20").Resize(xcol, xcol).Value = .Range("C20").Resize(xcol, xcol).Value
½Æ»s¥N½X

TOP

¦^´_ 9# jcchiang

¥»·Q§ïµ½ªí®æ,Åý¥¦Â²¼ä¤SRUN§Ö¨Ç,¦n¹³¸£³UÅܱo§ó·Q¤£²M·¡¤F...
¥ý½Ð±Ð¥t­Ó¤½¦¡°ÝÃD,§Ö§â§Ú·dºÆ¤F....
¥H¤U3­Ó¤½¦¡,ª½±µkey¦bÀx¦s®æ®É³£¨S°ÝÃD,¦ý¬°¤°»ò¦bVBA¤¤,§¹¥þµLªk°õ¦æ?
1) µLªk°õ¦æ
xRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("E3:E" & xRow).Formula = "=IF(E3="",""µL¥æ³f"",T3&S3&R3)"
2)µLªk°õ¦æ
Range("Z3:Z" & xRow).Formula = "=IF(AB3="","",AB3-Y3)"

3) µLªk°õ¦æ
Range("F2:F" & xRow).Formula = "=IF(MONTH(A3)<>MONTH(A4),SUM(INDIRECT(ADDRESS(MATCH(DATE(YEAR(A3),MONTH(A3),1),A:A,0),COLUMN(D3),3)):D3),"")"

TOP

¦^´_ 11# jcchiang

­ì¨Ó¬O¥X¦bÂù¤Þ¸¹,·PÁÂ,,,§Ú¦A¸Õ¸Õ

TOP

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

·PÁ­ã¤jÀ°§Ú°_¤F¤@­ÓÀY,¥Ñ©ó¾ã­Ó¬d±b¤º®eÁÙ¤£§¹¾ã,³Ñ¾lªº¸ê®Æ,§Ú¦A¬Ý¬Ý¯à§_¨Ì¼Ëµe¸¬Äªµ¹¸É¤W~~ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD