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

[µo°Ý] ½Ð°Ý¦p¦ó¥Î VBA EXCEL §P§O°Ï¶¡

[µo°Ý] ½Ð°Ý¦p¦ó¥Î VBA EXCEL §P§O°Ï¶¡



½Ð°Ý¦U¦ì
¦p¦ó¼gVBA §PÂ_A­È¸¨©óEÄ檺­þ­Ó°Ï¶¡,¨ä¹ïÀ³­È¦A­¼»PA­È ´N¥i¥H±o¨ìN­È

³o§xÂZ§Ú¦n¤[~

³Â·Ð¤j®a«üÂI~~~

¦b¦¹¥ýÁÂÁ¤j®a¤F

¦^´_ 1# ch20070723

¹³³o¼Ë¶Ü¡H
  1. Sub check_it()
  2. For Each MyValue In Range("a2:a" & [a65536].End(xlUp).Row)
  3.   If MyValue.Value < 1 Then
  4.      MyValue.Offset(0, 1) = MyValue.Value * 9
  5.    ElseIf MyValue.Value < 2 Then
  6.       MyValue.Offset(0, 1) = MyValue.Value * 8
  7.    ElseIf MyValue.Value < 5 Then
  8.       MyValue.Offset(0, 1) = MyValue.Value * 7
  9.    ElseIf MyValue.Value < 10 Then
  10.       MyValue.Offset(0, 1) = MyValue.Value * 6
  11.    ElseIf MyValue.Value < 15 Then
  12.       MyValue.Offset(0, 1) = MyValue.Value * 5
  13.    ElseIf MyValue.Value < 20 Then
  14.      MyValue.Offset(0, 1) = MyValue.Value * 4
  15.    ElseIf MyValue.Value < 50 Then
  16.      MyValue.Offset(0, 1) = MyValue.Value * 3
  17.    Else: MyValue.Offset(0, 1) = MyValue.Value * 2
  18.   End If
  19. Next
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# owen06
¨S¿ù!!!!¤Ó·PÁ¤F!!!!!!
§Ú¬Q¤Ñ¥Î¤F¤@­Ó¤U¤È·d¤£¥X¨Ó,±z¤@¤U¤l´NÀ°§Ú¼g¥X¨Ó~~~
¤Ó¼F®`¤F°Õ!!!!!
ÁÂ~~~ÁÂ~~~~ÁÂ~~~ÁÂ~~~~:'(

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD