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

[µo°Ý] Ãö©óVBA«¬ºA¤£²Å¦X (¿ù»~ 13)ªº°ÝÃD!!

[µo°Ý] Ãö©óVBA«¬ºA¤£²Å¦X (¿ù»~ 13)ªº°ÝÃD!!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-11-16 11:30 ½s¿è

§Ú¬O§¹¥þ¤£·|VBAªº,¤@ª½³£¬O¥t¤@¦ì¦P¨Æ°µªº,
¦ý¥L¤w¸gresign¤F,²{¦b¥X¤F°ÝÃD¦ý¤½¥q¨S¦³¤H·|VBA
½Ð¤j®aÀ°À°¦£¥i¥H¶Ü????·P¿E!!!!!!

§Ú¬O¦bgenerate report®É¼u¥X ->«¬ºA¤£²Å¦X (¿ù»~ 13)
µM«á°»¿ù(¦p¤U)

'Total Paid

m = 0

For t = v To j

m = m + Cells(t, 4).Value <-³o¦æhighlight¤F,À³¸Ó¬O³o¦æ¿ù¤F

Next t

t = t + 3

With Cells(t, 4)
    .Value = m
    .NumberFormat = "_($* #,##0.00_);@"
    .Font.Bold = True
End With
With Cells(t, 2)
    .Value = "Total Paid:"
    .WrapText = False
    .Font.Bold = True
End With

Range(Cells(t, 1), Cells(t, 4)).Borders(xlEdgeBottom).LineStyle = xlContinuous


½Ð¤j®aÀ°¦£!!!!!«ô°U¤j®a!!!!!!!!!!!!!!!!!!!!!!

¦^´_  byho_130
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2015-11-16 11:36


OMG thank you so much!!!!! it's work!!!!!!!!!!!!!!!!!!!!!!!
thank you so so much !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
¤Ó·P¿E¤F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD