ªð¦^¦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!!!!!!!!!!!!!!!!!!!!!!

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

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

TOP

¦^´_ 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. Next t
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  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 : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD