[µo°Ý] Ãö©ó¸ê®ÆÅçÃÒ°ÝÃD

j88141

¿é¤J¿ù»~¸ê®Æ®É¥¼¥X²{ÅçÃÒ°T®§
¬d¤Fofficeªº»¡©ú »¡

°T®§¥u·|¦b¸ê®Æª½±µÁä¤JÀx¦s®æ®É¥X²{¡C
°T®§·í¨Ï¥ÎªÌ¦bÀx¦s®æ¤¤¥H½Æ»s©Î¶ñ¤J¤è¦¡¿é¤J¸ê®Æ®É¤£·|¥X²{

·Q½Ð°Ý¦pªG¥ÎVBAªº¸Ü¡A¬O§_¥i¥H¦b½Æ»s©Î¶ñ¤J¤è¦¡®É
¥X²{ÅçÃÒ°T®§

GBKEE

¦^´_ 1# j88141
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Selection.Copy
   
4.     With Range("D1")
   
5.         .PasteSpecial xlPasteValues  '¶È½Æ»s­È
   
6.         .Select
   
7.         Application.SendKeys "{F2}~", True     '«öÁä F2:´¡¤J ,~ :Enter
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

j88141

¦^´_ 2# GBKEE


   §Ú¦Û¤v°µ¤F¤@­Ó¤p¨Ò¤l¡A
¥i¬O¤£ª¾¹D¦p¦ó§âGBKEEª©¥Dªºµ{¦¡½X¹B¥Î¤W¥h
¬¡­¶Ã¯.rar (15.08 KB)

¤U¸ü¦¸¼Æ: 8

2014-8-28 15:46

ÁÂÁÂGBKEEª©¥DÀ°¦£¸Ñ´b

GBKEE

¦^´_ 3# j88141
¤£ª¾¬O2007Àɮצb2003Àô¹Ò¤¤ÂàÀÉ,¨S¦³¨£¸ê®ÆÅçÃÒªºÀx¦s®æ
­×§ï¤@¤U§Aªºµ{¦¡

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Rng(1 To 2) As Range, E As Range
   
3.     Set Rng(1) = [A1:C2]   'ÂX¥R¨ìC2¸Õ¸Õ  '¥i­×§ï¬°¤j½ÒªíªºE¦C ¨ì P¦C
   
4.     Application.EnableEvents = False
   
5.     If Not Intersect(Target, Rng(1)) Is Nothing Then  'Target, Rng(1) Àx¦s®æ½d³ò¦³¥æ¶°¨ì
   
6.         For Each E In Rng(1).Rows(1).Cells            '©m¦W¦C
   
7.             Set Rng(2) = Range("C11:C14").Find(E, LookAt:=xlWhole, MatchCase:=True)
   
8.             With E.Offset(1)
   
9.                 If Not Rng(2) Is Nothing Then .Value = Rng(2).Offset(0, 1).Value Else .Value = ""
   
10.             End With
    
11.         Next
    
12.     End If
    
13.     Application.EnableEvents = True
    
14. End Sub

½Æ»s¥N½X

j88141

¦^´_ 4# GBKEE


¦^´_    GBKEE¤j
§Aªºµ{¦¡½X§ï§¹«á¡A§Úµo²{A2:C2 ·|Åܦ¨µLªk³æ¿W¿é¤J(·Q­n³£¥i¥H¿é¤J)
µ¥©ó¬O³QA1:C1¸j¬[(­nA1¦³¿é¤J¡AA2¤~¦³)

³o¦¸À³¸Ó¦³¸ê®ÆÅçÃÒªºÀx¦s®æ¤F

¤U¸ü (40.27 KB)

2014-8-28 21:48

¬¡­¶Ã¯.rar (16.32 KB)

¤U¸ü¦¸¼Æ: 5

2014-8-28 21:52

Hsieh

¦^´_ 5# j88141
ÅçÃÒ¤½¦¡§ï¤@¤U
=COUNTIF($G$2:$H$5,A$2)>0

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [A1:C1]) Is Nothing Then Exit Sub '¿é¤J¤H¦Wªº½d³ò³]©w¦bA1:C1
   
3. If Target.Count > 1 Then MsgBox "¥u¯à§ïÅܤ@®æ": Exit Sub
   
4.         Set Rng = Range("C:C").Find(Target, LookAt:=xlWhole, MatchCase:=True)
   
5.         With Target.Offset(1)
   
6.             If Not Rng Is Nothing Then .Value = Rng.Offset(0, 1).Value: Application.SendKeys "{F2}~"
   
7.             DoEvents
   
8.            If .Validation.Value = False Then .Value = ""
   
9.         End With
   
10. End Sub

½Æ»s¥N½X

¬¡­¶Ã¯.rar (14.43 KB)

¤U¸ü¦¸¼Æ: 10

2014-8-28 22:21

j88141

ÁÂÁ¦U¦ì¸Ñµª
¦¨¥\¤F
~