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

Ãö©ó¶i¶¥¿z¿ï+¶W³sµ²

Ãö©ó¶i¶¥¿z¿ï+¶W³sµ²

¦U¦ì¤j¤j¡ã¡ã¡ã
¤£¦n·N«ä¡ã¡ã¦]¬°³Ìªñ·Q­n°µ¤@­Ó·j´Mªºªí®æ¡ã
·j´Mªíªº¤u§@ªí·|¥h¿z¿ïSHEETªº¤u§@ªí¤º®e.....
¦]±N¨Ó¦bªþ¥ó¤¤ªº¥X³f¬y¤ô¸¹Äæ¦ì©T©w·|¦³¶W³sµ²
¦]¬°§Ú¨S¾Ç¹LVB
©Ò¥H¥u·|¤@ÂIÂIªº¿ý»s
¦ý¬O·j´Mªí®æ°µ¦n«á¡ãµo²{·j´M¥X¨Óªº¶W³sµ²¨Sªk³sÂI¿ï»P³sµ²
¤§«e¦bºô¸ô¤W¦³§ä¨ì¦³¤H¤]¦³Ãþ¦üªº°ÝÃD¡ã
¦ý¬O§Úµ{¦¡½X¬Ý¤£À´¡ã¡ã¡ã
©Ò¥H¤£ª¾«ç»ò§ï¡ã¡ã¡ã
§Æ±æ¦³¦n¤ßªº¤j¤j¥i¥HÀ°À°¦£....
¨Ãªþ¤W§Úªºªí®æ......
·P¿E¤£ºÉ¡ã¡ã¡ã¡ã

¥t¥~¡ã¡ã¡ã¦]¬°§ÚÅv­­¤£°÷¡ã¡ã¡ã¡ã©Ò¥H¥i¯à¨Sªk¤U¸ü¦n¤j¤j§ï¦nªº¤å¥ó¡ã¡ã
©Ò¥H¤£ª¾¥i§_´£¨Ñµ{¦¡½X¡ã¡ã¨Ã§i¶D§Ú«ç»ò¥[¡ã¡ã¡ã
§Ú¦Û¤v¦A¸Õ¸Õ¬Ý»¡©O¡H¡H¡H
¥ýÁÂÁ¦U¦ì¤j¤j¤F
EXCEL1.zip (102.68 KB)

¦^´_ 1# dodo234


    ¤£À´VBA ­n¦h¬Ý»¡©ú
  1. Option Explicit
  2. Sub ¥¨¶°1()
  3.     Dim i As Integer, Rng As Range
  4.     Sheets("Sheet1").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
  5.         CriteriaRange:=Range("A1:D2"), CopyToRange:=Range("A4:S4"), Unique:=False
  6.     With Sheets("¬d¸ßªí")
  7.         i = 5
  8.         Do While .Cells(i, "a") <> ""
  9.         Set Rng = Sheets("Sheet1").Columns("A:A").Find(.Cells(i, "a"), LookIn:=xlValues)
  10.         .Hyperlinks.Add Anchor:=.Cells(i, "a"), Address:="", SubAddress:=Rng.Address(, , , 1, 1)
  11.       '¶W³sµ² ¤]¥i¿ý»s¬Ý¬Ý
  12.             i = i + 1
  13.         Loop
  14.     End With
  15.         
  16.         
  17. End Sub
  18. Sub ¥¨¶°2()
  19. '
  20. ' ¥¨¶°2 ¥¨¶°
  21. '
  22. '
  23.     Range("A2:D2").Clear
  24.     Range("A5:S39").Clear
  25.     Range("C2").Select
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤£¦n·N«ä¡ã¡ã¡ã
½Ð±Ð¤@¤UGBKEE¤j¡ã½Ð°Ý±z»¡ªº§Ú¨º·j´Mªí¨ä¹ê³£¥i¥H¥Î¿ý»sªº»ò¡H¡H¡H
½Ð°Ý¡ã¡ã­n«ç»ò°µ©O¡H¡H¡H§Ú·Q¾Ç¤@¤U¡ã¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD