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

[µo°Ý] ¬d¸ß¸ê®Æ«á­×§ï¦^¦s

[µo°Ý] ¬d¸ß¸ê®Æ«á­×§ï¦^¦s

¥»©«³Ì«á¥Ñ caimy ©ó 2016-2-25 09:23 ½s¿è

½Ð°Ý¦bB¬d¸ßA¸ê®Æ«á¡A¦bB­×§ï¤º®e¦^¦s§ó§ïA¸ê®Æ¸ê°T¤º®e¡AÀ³¸Ó¦p¦ó¼g
ÁÂÁÂ

¸Õ¸Õ
SHEET1=¤u§@ªíB
SHEET2=¤u§@ªíA


Sub ¬d´M()
Sheet1.[B4].ClearContents
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then
  Sheet1.Cells(4, 2) = Sheet2.Cells(M, 2)
    Y = Y + 1
  End If
  Next
End Sub


Sub ­×§ïÀx¦s()
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then

  Sheet2.Cells(M, 2) = Sheet1.Cells(4, 2)
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

¥»©«³Ì«á¥Ñ caimy ©ó 2016-2-26 08:35 ½s¿è

ÁÂÁÂrouber590324¤j¤jªºÀ°¦£¡A¸Õ¥Î¨S°ÝÃD·PÁÂ:)

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD