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

½Ð±Ðexcel °}¦C°ÝÃD

¥»©«³Ì«á¥Ñ lionliu ©ó 2015-7-19 11:35 ½s¿è

¦^´_ 10# GBKEE
­è­è¦b´ú¸Õ¤@¦¸¡Aµ²ªG¬O:DO WHILE RNG <>"" ,RNG=11 µ²§ô¡ASHEETS 2 RUN¨ì ROW =11®É©|¥¼µ²§ô¡A
³o¤@¬qµ{¦¡·|¥X¿ùstrcomma = WorksheetFunction.Find(",", Sheets(1).Cells(i, 8))¡A
©Ò¥H§Ú¤~³o¼ËÃhºÃ¡A¦ý¬O·í§Ú°±±¼¦¹¿ù»~¤S¯à¶]§¹¥þ¡C
¤£ª¾¦¹¬q»yªk­þ¸Ì¥X¿ù¡AÁÙ¬O¤£À³¸Ó©ñ¦b¦¹¦ì¸m¡A­Y¦³¿ù«e3¶µ¤S¯à²£¥Í·P¨ì«D±`¤£¸Ñ¡C
lionliu

TOP

¦^´_ 11# lionliu
¬O³o¼Ë¶Ü?
  1. R = Rng.Cells(1, 8).Value
  2.             strcomma = WorksheetFunction.Find(",", R) '­×§ï¦ì¸m HÄæ,
  3.             lenstr = Len(R)
  4.             dsc = Right(R, lenstr - strcomma)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE
ÁÙ¬O¿ù¦ý°ÝÃD¤£¤@¼Ë

Â^¨ú1.JPG Â^¨ú.JPG
lionliu

TOP

¦^´_ 13# lionliu
°Ñ¦Ò¬Ý¬Ý
  1. Dim R As String         '«¬ºA¬°¦r¦ê

  2. '³o¸Ì¤]­n­×§ï ·í§@¥Î¤¤ªº¤u§@ªí¬O¤u§@ªí1®É ·|¦³ "«¬ºA¤£²Å¦Xªº¿ù»~
  3. '.Cells(i, 4) = Cells(i, 2) * Cells(i, 3)        '­×§ï¦ì¸m DÄæ¥Ñ­pºâ¨D­È

  4. .Cells(i, 4) = .Cells(i, 2) * .Cells(i, 3)                             '­×§ï¦ì¸m DÄæ¥Ñ­pºâ¨D­È
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE
ÁÂÁÂgb¤j­ôªº±Ð¾É¥i¥H¤F¡A¦ý¬O«o¦³¦a¤è¦³ºÃ°Ý¡C
r=rng.cells(1,8).value ¬°¦ó¤£¬O r=rng.cells( i , 8).value
lionliu

TOP

¦^´_ 15# lionliu
¬Ý¬Ý¦ì¸mªº®t²§
  1. MsgBox rng.Cells(1, 8).Address  '¬°¦ó¤£¬O
  2. MsgBox rng.Cells(i, 8).Address
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD