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

byho_130

§Ú¬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

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

GBKEE

¦^´_ 1# byho_130
¸Õ¸Õ¬Ý

1. For t = v To j
   
2.     If IsNumeric(Cells(t, 4)) Then
   
3.         m = m + Cells(t, 4).Value '<-³o¦æhighlight¤F,À³¸Ó¬O³o¦æ¿ù¤F
   
4.     End If
   
5. 
   
6. Next t

½Æ»s¥N½X

­ã´£³¡ªL

For t = v To j¡@¡÷¡@v=??,  j=??

m = m + Cells(t, 4).Value¡@¡÷¡@Àˬd¤@¤U¡@Cells(t, 4)¡@¬O§_¬°¡e¼Æ­È¡f¡H