- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 8
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-11-16
- ³Ì«áµn¿ý
- 2015-11-16
|
[µ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!!!!!!!!!!!!!!!!!!!!!! |
|