°£¤F¨Ï¥Îon error resume next, ¦p¦ó¤£Åã¥Ü¿ù»~
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
«öENTER ¦V¤U¼vÅTactivecell ¦ì¸m
¥»©«³Ì«á¥Ñ enoch ©ó 2012-7-3 10:13 ½s¿è
µ{¦¡¥Î§@¦b²Ä2Äæ¿é¤J¸ê®Æ«á, ·|¤ñ¹ï¸ê®Æ¬O§_¯à¦b¸ê®Æ®w§ä¨ì,
Y§ä¨ì·|¦b²Ä4ÄæÅã¥Ü§ä¨ì¸ê®Æ, Y¤£¦s¦b·|Åã¥Ü"§ä¤£¨ì", ¤Îµo¥XÁnµ
Y excel ³]©w¤F«öenterÁä«á, Àx¦s®æ¦V¤U,
·íµ{¦¡¦b²Ä3¦æ¿é¤J¸ê®Æ«öenter«á, ¦]¬°Àx¦s®æ¤w¥h¤F²Ä4¦æ,
µ{¦¡·|¿ù»~³B²z²Ä4¦æ¸ê®Æ
½Ð°ÝÀ³¦p¦ó×§ï, Á×§Kµ{¦¡»{¿ùactivecell
¥t¥~·í¨Ï¥ÎÀɮפºªº¦WºÙ½d³ò"data", «e±¬O§_¤@©w»Ýn¥[¤W©Ò¦b¤u§@ªí"information"
½Ð«ü±Ð- Private Sub Worksheet_Change(ByVal Target As Range)
- On Error GoTo errhandler
- Dim row As Integer
- row = ActiveCell.row
- If Target.Column <> 2 Then Exit Sub
- If Cells(row, "A") <> "" Then
- Cells(row, "D") = Application.WorksheetFunction.VLookup(Cells(row, "B"), Sheets("Information").Range("data"), 1, False)
- End If
- Exit Sub
- errhandler:
- Call Beep
- Cells(row, "D") = "§ä¤£¨ì"
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
°£¤F¨Ï¥Îon error resume next, ¦p¦ó¤£Åã¥Ü¿ù»~
¦bExcel¤½¦¡, ¥i¥H¦bVlookup«e±¥[¤WISNA , Á×§K§ä¤£¨ì¸ê®Æ®É¥X²{ERROR
YªG¦bVBA, °£¤F¨Ï¥Î on error resume next
¦p¦óÁ×§K·í¨Ï¥ÎApplication.WorksheetFunction.VLookup §ä¤£¨ì¸ê®Æ®É¥X²{¿ù»~ |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
½Ð°ÝGBKEE
½Ð°Ý¥ÎExcel function®É, ¦ó®É¨M©wn§_¥[WorksheetFunction©O?
¨âªÌ¥u¦b©óWorksheetFunction ·|¦^À³°õ¦æ¤Wªº¿ù»~¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
|
|
|
|
|
|