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

[µo°Ý] ¦p¦ó§Ö³t³B²z¤j§å¶qªº¸ê®Æ¡H

[µo°Ý] ¦p¦ó§Ö³t³B²z¤j§å¶qªº¸ê®Æ¡H

§Ú­n§ä¥XBÄ檺¹ïÀ³­È¡A¨Ã±NCÄæ°µ¼Æ­ÈªºÂà´«¡A¦ý¤£¼W¥[Äæ¦ì¡A¥u¹ï³¯¦C¥»¨­°µ³B²z¡A¤p§Ì°µ¤F¤@­ÓVBA¡A¦ý¤@ª½µLªk¹B§@¡C½Ð¦U¦ìÀ°¦£¡A©Î¬O¦³§ó§Öªº°µªk¤]¥i´£¨Ñµ¹§Ú¾Ç²ß¤@¤U¡CÁÂÁÂ
°ÝÃD.zip (996.48 KB)
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

¦^´_ 1# apolloooo

If KK = "FS" Then KK.Offset(0, 1).Value = KK.Offset(0, 1).Value / 5

TOP

®¦¡A§Ú¬Ý¨ì¤F¡CÁÂÁ¡C   ¥i¬O­pºâ®É¶¡¯uªº«Üªø¡A¦³¤ñ¸û§Öªº¤èªk¶Ü¡H
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

TOP

§Þ³N¤W¥i¥H¥Î³o¼Ë°µ¶Ü¡H
Range("B6:B60605")=Range("B6:B60605") / 5  ¥Î¾ã§åªº·§©À¶Ü¡H  ³o¼Ë·|¥X¿ù
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

TOP

¦^´_ 4# apolloooo
  1. Private Sub CommandButton1_Click()
  2.   Dim ar, i
  3.   
  4.   ar = Range("B6:C60605").Value
  5.   For i = 1 To UBound(ar)
  6.     If ar(i, 1) = "FS" Then ar(i, 2) = ar(i, 2) / 5
  7.   Next
  8.   Range("B6:C60605").Value = ar
  9. End Sub
½Æ»s¥N½X

TOP

¥u¯à»¡¡A¶W§Ö¡C   ·PÁ¤j¤j¤F¡C
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

TOP

­ì¨Ó¥i¥H¨Ï¥Î°}¦C¡A¾Ç¤F¤@½Ò¡A§Ú²{¦bÁٲ²ªº¨Ï¥Îif µM«á¤@­Ó¤@­Óºâ!
stillfish00 ¤j¡A¼F®`:)

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD