[µo°Ý] ½Ð°Ý³z¹LVBAÂù¦V¬d¸ß¡A¦p¦ó°Ï§O­^¤å¤j¤p¼g?¡A¤]´N¬O¦r­n§¹¥þ¤@¼Ë

peter460191

¦p¹Ï¤ÎªþÀɤ¤¡A¦bÀx¦s®æC5¤ÎC6¶¡¶i¦æÂù¦V¬d¸ß¡A¦ý¥u­n¹J¨ì¦³¤j¤p¼g®É¡A¤£ºÞ¬O¥ý¤j¼gÁÙ¬O¥ý¤p¼g¡A²Ä¤@¦¸¬d¸ß§¹«á±ý¦A¬d¸ß²Ä¤G¦¸®É¡A´N¤£¯à¬d¸ß¡A½Ð°Ý¦U¦ì°ª¤â¦p¦óÅý¥¦§P§O¤j¤p¼g¡AÁÂÁ±z!

¤U¸ü (49.19 KB)

2013-5-30 14:15

Âù¦V¬d¸ß.rar (14.98 KB)

¤U¸ü¦¸¼Æ: 11

2013-5-30 14:21

VBAµ{¦¡¡G
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range
If Intersect(Target, [C5:C6]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Set A = Columns("A:B").Find(Target, lookat:=xlWhole)
If A Is Nothing Then MsgBox
[C5] = Cells(A.Row, 1).Value
[C6] = Cells(A.Row, 2)
10
Application.EnableEvents = True
End Sub

peter460191

¦^´_ 2# GBKEE


    «D±`ÁÂÁÂGBKEE ª©¥Dªº«ü¾É¡A¤~²¨¾Ç²Lµu®É¶¡µLªk©úÁA²`¶øªº¤º®e¡A¤è«KÀ°§Ú§ï¦nµ{¦¡½X¥H§Q¬ã¨s¶Ü¡HÁÂÁ±z¤F!

peter460191

¦^´_ 4# stillfish00


    ·PÁÂstillfish00«ü¾É¡A¤w¦¨¥\¤F¡A·|¥J²Ó¬ã¨sª©¥Dªº»¡©ú¡A¦A¤@¦¸ÁÂÁ¨â¦ìªº«ü¾É¡AÁÂÁ±z!

peter460191

¦^´_ 6# GBKEE


    1#»¡:²Ä¤@¦¸¬d¸ß§¹«á±ý¦A¬d¸ß²Ä¤G¦¸®É¡A´N¤£¯à¬d¸ß,¬O¦ó·N!
·N«ä¬O·íc5Àx¦s®æ¿ï¨ì¤j¤p¼g¨ä¤¤¤@­Ó®É,¦A¿ï¥t¤@­Ó´N¤£¯à°Ê¤F

peter460191

¦^´_ 8# Hsieh


   ÁÂÁ Hsieh ª©¥Dªºµ{¦¡¡A±N¥J²Ó¬ã¨s¬Ý¬Ý¡A«D±`ÁÂÁ±z!