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

[µo°Ý] ·Q»s§@¤@­ÓªÑ²¼»ù®æªº³Ì°ª»ù¬ö¿ý

[µo°Ý] ·Q»s§@¤@­ÓªÑ²¼»ù®æªº³Ì°ª»ù¬ö¿ý

§Ú·Q­n¦bªÑ²¼¬ö¿ýªí¤¤
³]©w¤@­Ó±q°lÂܤé¶}©l
¨C¤Ñ§ó·s·í¤é³Ì°ª»ù®æ
¦pªG·í¤é³Ì°ª»ù¦³¤ñ¾ú¥v³Ì°ª»ùÁÙ­n°ªªº¸Ü
±N¾ú¥v³Ì°ª»ù=·í¤é³Ì°ª»ù
¦pªG¨S¦³¤j©ó«h¤£§ïÅܾú¥v³Ì°ª»ù

¸ê®Æ¦³¦hµ§¨C¤@¦æ³£»Ý­n³v¤@¤ñ»ù
¦]¬°¸ê®Æ¬O¦b¦¬½L«á¤~°µ¤@¦¸§ó·s
©Ò¥H§Æ±æ¯à°µ¦¨³æÁä«ö¶sªº§Î¦¡
¨C¤Ñ§ó·s§¹¦¬½L«á°µ¤@¦¸³Ì°ª»ù§ó·s

¨Ò¦p:¥N¸¹      ªÑ¦W       ·í¤é³Ì°ª    ¾ú¥v³Ì°ª
         1101    ¥xªd       47.55             47.0
         1102    ¨Èªd       38.3               40.0

«h«ö¤U«ö¶s«á¡A¥xªdªº¾ú¥v³Ì°ª·|§ïÅܦ¨47.55¡A¦Ó¨Èªd¤£ÅÜ

§Æ±æ¦³¤j¤j­Ì¥i¥H¨ó§U§Ú ÁÂÁÂ~

¸Õ¸Õ¬Ý¡G
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim i, lastRow As Integer
  4.    
  5.     lastRow = [A1].End(xlDown).Row       '¨ú±oAÄæ³Ì¤U¤@¦æ
  6.    
  7.     For i = 2 To lastRow
  8.    
  9.        '¦pªG ·í¤é³Ì°ª»ù>¾ú¥v³Ì°ª»ù, «h
  10.        If Cells(i, 3) > Cells(i, 4) Then
  11.            Cells(i, 4) = Cells(i, 3)    '¾ú¥v³Ì°ª»ù=·í¤é³Ì°ª»ù
  12.        End If
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

´ú¸Õµ²ªGOK
·PÁ¤j¤j³á
§Ú·|¦n¹B¥Îªº

TOP

¥i¥H¦A½Ð°Ý¤@¤U¤j¤j
03.    Dim i, lastRow As Integer

04.   

05.    lastRow = [A1].End(xlDown).Row       '¨ú±oAÄæ³Ì¤U¤@¦æ

06.   

07.    For i = 2 To lastRow

³oÃ䪺·N«ä¬O¬Æ»ò¶Ü?
§Ú·Q³]­p¨ä¥L«ö¶s¦ý¬O¤£²M·¡³v¦æ¤ñ¹ïªº¼gªk
·P®¦±z~

TOP

¦^´_ 4# 89691007

Dim i, lastRow As Integer   
==> ©w¸q¡yi¡z¡B¡ylastrow¡z¬°¾ã¼Æ

lastRow = [A1].End(xlDown).Row       '¨ú±oAÄæ³Ì¤U¤@¦æ
==> lastrow=¨ú±oAÄ檺³Ì«á¤@­Ó¦³¼Æ­Èªº¦C¸¹
      §A¦b¤u§@ªí¸Ì¡A«öctrl+¤W¡B¤U¡B¥ª¡B¥kÁä¥h°Ê¬Ý¬Ý¡A´N«Ü²M·¡©ú¾é¤F
      end(xldown)=ctrl+¤U
      end(xlup))=ctrl+¤W
      end(xltoright))=ctrl+¥k
      end(xltoleft))=ctrl+¥ª
¦ý¬O¦pªG§AªºaÄ檺¼Æ­È¦³¤£³sÄòªºªÅ¥Õ®æªº¸Ü¡A«Øij§A§ï¥Î
[a65536].end(xlup).row¡A¤ñ¸û¤£·|µo¥Í§PÂ_¿ù»~¡C

For i = 2 To lastRow
==> for ­n·f°tnext¡A for i= 2 to lastrow(­è¤~¤W­±¦³­pºâ¥Xlastrowªº¼Æ­È)¡A
       i´N·|±q2¤@ª½°õ¦æ¨ìlastrowªº¼Æ­È¬°¤î¡A°²³]lastrow¬O50¦n¤F¡A
       ¨º»ò¥L´N·|À°§A¥h´ú If Cells(2, 3) > Cells(2, 4)
                                   Cells(3, 3) > Cells(3, 4)
                                   Cells(4, 3) > Cells(4, 4)
                                                 ¡G
                                                 ¡G
                                                 ¡G
                                   Cells(50, 3) > Cells(50, 4)

TOP

©Ò¥HI±q2¶}©l¬O«ü¸õ¹L¼ÐÀY¶}©l©¹¤U­pºâ½d³ò
lastRow = [A1].End(xlDown).Row       '¨ú±oAÄæ³Ì¤U¤@¦æ
¬O­pºâ¦³¸ê®Æªº¼Æ¦C¦@¦³´X¦æ

for i= 2 to lastrow ¬O¥u¦³Åܰʦæ¼Æ½d³ò¶Ü
¨º¦pªG¬OÅܰʦC¼Æ©O?


ÁÂÁ¤j¤j¸Ô²Ó¸Ñ»¡~

TOP

¦^´_ 6# 89691007

for i= 2 to lastrow ¬O¥u¦³Åܰʦæ¼Æ½d³ò¶Ü
¨º¦pªG¬OÅܰʦC¼Æ©O?


¤W­±ªºlastrow¡A¤£´N¬O­pºâ¦C¼ÆªºÅܰʶܡH
¥h§PÂ_¥X¸ê®Æ½d³ò¦baÄ檺²Ä´X¦C¡C

cells(row,column)
row =¦C(¾î)
column=Äæ(ª½)   

cells(i,1)¡Bcells(1,i)
¬Ý§A­nÅý­þ¤@­Ó°Ê¡A´N§â¥L³]©w¬°ÅܼƴN¦n¤F

TOP

³á³á~¤F¸Ñ!
ÁÂÁ¤j¤jªº¦^ÂÐ

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD