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

¦p¦ó¦bVBA¤¤¨Ï¥ÎVLOOKUP

¦p¦ó¦bVBA¤¤¨Ï¥ÎVLOOKUP

½Ð°Ý¦bVBA ¤º, ¦p¦ó¨Ï¥ÎVLOOKUP¨ç¼Æ
¨Ò¦p¦b¤u§@ªí¤º= vlookup(a1,data,3,false) ¦b¥¨¶°À³¸Ó¦p¦ó­×§ï
»Ý­n¦b«e­±¥[¤WApplication.worksheetfunction ¶Ü?
½Ð«ü±Ð

¦^´_ 1# enoch

vba¤º­n¨Ï¥Î¤u§@ªí¨ç¼Æ,¶·¦b¤u§@ªí¨ç¼Æ«e¥[ Application.WorksheetFunction (©ÎApplication)
  1. Sub XX()
  2. Dim data As Range
  3. Set data = [d1:f10]
  4. [b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313

½Ð±Ð¤j¤j¡A¦pªG¥H¦¹ÃD¥Ø¡A¤£¨Ï¥Î«ö¶s¡A¦p¦ó¿é¤J«á¥ß§Y§ó·s¡A·PÁ¼·¤¾«ü¾É!

TOP

¦^´_ 3# man65boy

¤u§@ªí¼Ò²Õ
  1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
  2. Dim data As Range
  3. Set data = [d1:f10]
  4. If TARGET.Address = "$A$1" Then [b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# register313


    ¦¬¨ì~¾Ç²ß¤F¡AÁÂÁÂ!

TOP

§Ú³£¾Ç·|¤F, ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD