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

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

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

¿é¤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®§

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


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

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-8-28 22:21 ½s¿è

¦^´_ 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)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD