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

[µo°Ý] ¬d¸ß¸ê®Æ«á­×§ïÅܧó

[µo°Ý] ¬d¸ß¸ê®Æ«á­×§ïÅܧó

½Ð°Ý·í§ÚB¸ê®Æ¬d¸ßA¸ê®Æ¸ê°T«á
­×§ïB¸ê®Æ¤º®e¥i¥H§ó§ïA¸ê®Æ¸ê°T¤º®e¡AÀ³¸Ó«ç¼Ë¼g
¦pªþ¥ó
ÁÂÁÂ
AAA.rar (27.64 KB)

¦^´_ 1# ÅQ®ð¨«¥þ¨­
  1. Sub repair()
  2. Dim r, s
  3.     For r = 2 To Sheets("¬d¸ß").[C65536].End(xlUp).Row
  4.        For s = 2 To Sheets("¸¹½X").[A65536].End(xlUp).Row
  5.          If Sheets("¸¹½X").Cells(s, 1) = Sheets("¬d¸ß").Cells(r, 3) Then
  6.            Sheets("¸¹½X").Cells(s, 16) = Sheets("¬d¸ß").Cells(r, 18)
  7.          End If
  8.        Next
  9.     Next
  10. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¤j¤j¸Ñµª

TOP

·Q½Ð°Ý¦U¦ì°ª¤â
¦pªG³o¤@­ÓÀɮצ³2­Ó"¸¹½X"ªº¤u§@ªí¥¦ªºµ{¦¡·|§ì2¦¸£°
¬°Ô£ªü.¥u­n¦³¬ÛÃö¸ê®Æ³£·|§ì¥X¨Ó
¥i¥H¥u§ì©T©w¤u§@ªí¶Ü?

TOP

¦P¤@­Ó°ÝÃD
¦pªG³o­ÓÀɮצ³¥u¨ì»¡¬d¸ß«á§@­×¥¿¥i¥HÂл\¹L¥h
¤£¹L¦³¦V¥u©T©wÄæ¦ì
¦pªG§Ú·Q­n¤£ºÞ­þ¤@­ÓÄæ¦ì³£¥i¥H­×¥¿«á§ó·sÀ³¸Ó«ç»ò°µ

TOP

¤Ó¦n¤F ­è¦n¤]¹J¨ì¤@¼Ëªº°ÝÃD
¦³½d¨Ò¥i¥H°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD