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

[µo°Ý] ¤U©Ô¦¡¿ï³æ³sµ²ªºÀx¦s®æµLªk±Ò°ÊWorksheet_change

¦^´_ 2# Joker33006

§ï¦¨³o¼Ë¥i¥H¶Ü?
   
  1. Private Sub ComboBox1_Change()
  2.   Dim irow As Integer
  3. irow = Range(ComboBox1.LinkedCell).Row
  4. Sheet4.Cells(irow, 9).Value = Application.WorksheetFunction.VLookup(ComboBox1, Sheet2.Range("b:K"), 3, False)
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD