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

[µo°Ý] ¤U©Ô¦¡¿ï³æ¼´¨ú¸ê®Æ

[µo°Ý] ¤U©Ô¦¡¿ï³æ¼´¨ú¸ê®Æ

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-7-24 17:52 ½s¿è

§Ú·Q§Q¥ÎXCEL »s§@¤@­Ó «È¤á­q³æ¸ê°T, ¤£ª¾¹D¦p¦ó¨Ï¥Î?
VLOOKUP¤£¤Ó¼ô±x,½Ð¨DÀ°¦£

¤U©Ô¦¡¿ï³æ·|»s§@, ¦ý¬O¤£ª¾¹D«ç»ò¥h±q¸ê®Æ®w¼´¸ê®Æ¥X¨Ó
¨Ò¦p±qB1 ¿ï¾Ü«È¤á¥N½X


¥L·|±q¸ê®Æ®w­¶­±¥h¿ï¨ú¸ê®Æ, §â§Ú¤U©Ô¦¡¿ï³æ¿ïªºA «È¤á¥N½Xªº¸ê°T¹ïÀ³Äæ¦ì§@Åã¥Ü


¦]¬°¨C¦¸¤ÀÃþ·|¤£¤@¼Ë, ©Ò¥H¤¤¶¡¦³F,G,H Äæ ¬O§Ú¦Û¤v¿é¤J¤£ª¾¹D¯à¤£¯à§¹¦¨
¦pªG¤£¯à¤]¥i¥H§âRemark Äæ¦ì²¾¨ì FÄæ¦ì, G,H,I ÄæÅܦ¨¤ÀÃþ1,2,3

¤ÀÃþªí.rar (68.38 KB)

¦^´_ 1# v03586
§Ú¬OÀ³¥Î Find() ¨Ó°µ¥X³o¤@½d¨Ò¡A ¤£¹L
§Ú­Ë§Æ±æ¬Ý¬Ý¨Ï¥Î VLookup ¦p¦ó¹F¦¨¡C

¤ÀÃþªí.rar (33.33 KB)

TOP

¦^´_ 1# v03586
  1. ThisWorkbook:
  2. Option Explicit

  3. Private Sub Workbook_Open()
  4.     Dim rng As Range, cts As Integer
  5.     Dim sh As Worksheet, dic As Object
  6.     Dim m As Variant
  7.    
  8.     Set dic = CreateObject("scripting.dictionary")

  9.     Set sh = Sheets("¸ê®Æ®w")
  10.     With Sheets("½d¨Ò´ú¸Õ")
  11.         With .ComboBox1
  12.             .Clear
  13.             '  .Value = ""
  14.             .ColumnCount = 1
  15.             .ColumnWidths = "80"
  16.             .ColumnHeads = False
  17.             
  18.             For Each rng In Range(sh.[A2], sh.[A2].End(xlDown))
  19.                 dic(rng.Value) = rng.Value
  20.             Next
  21.             
  22.             m = dic.Items                    ' ¦r¨å¦s¤J¨ì m ÅܼƤ¤
  23.             For cts = 0 To UBound(dic.Keys)
  24.                 .AddItem m(cts)
  25.             Next
  26.             .Value = ""                      ' m(0) = "A"
  27.         End With
  28.     End With
  29. End Sub
½Æ»s¥N½X
  1. ¤u§@ªí3 (½d¨Ò´ú¸Õ)¡G
  2. Private Sub ComboBox1_Change()
  3.     Dim sh As Range, c As Variant
  4.    
  5.     Sheets("½d¨Ò´ú¸Õ").[A3:I65535].Clear
  6.     Set sh = Sheets("½d¨Ò´ú¸Õ").[A3]

  7.     '  ³o­Ó½d¨Ò·|¦b²Ä¤@±i¤u§@ªí¤Wªº A1:A500 ½d³ò¤º´M§ä­È¬° 2 ªº©Ò¦³Àx¦s®æ¡A
  8.     '  ¨Ã±N³o¨ÇÀx¦s®æªº­ÈÅÜ§ó¬° 5¡C
  9.     With Sheets("¸ê®Æ®w").Range("A2:A" & [A2].End(xlDown).Row)
  10.         Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
  11.         If Not c Is Nothing Then
  12.             firstAddress = c.Address
  13.             Do
  14.                 c.Resize(, 5).Copy sh
  15.                 sh.Offset(0, 8) = c.Offset(0, 6)
  16.                
  17.                 Set sh = sh.Offset(1)
  18.                 Set c = .FindNext(c)
  19.             Loop While Not c Is Nothing And c.Address <> firstAddress
  20.         End If
  21.     End With
  22. End Sub
½Æ»s¥N½X

TOP

¬O·Q¿z¿ï¸ê®Æ§a¡I½×¾Â¦³«Ü¦h¨Ò¤l¡A§ä¤@¤UÀ³¥i¥H¡A©Î¦Û¦æ¿ý»s¥¨¶°¸Õ¸Õ¡A
­Y·Q¥Î¯Â¤½¦¡¡A°Ñ¦Ò¦p¤U¡]¤£¥Î°}¦C¤½¦¡¡D¥[»²§UÄæ¡^¡G
¤ÀÃþªí_V1.rar (26.55 KB)

»²§U¤½¦¡¡G
=LOOKUP("z",IF({1,0},"",(MATCH(C$1,INDIRECT("¸ê®Æ®w!A"&A2+2&":A9000"),)+A2)&""))

¨ú¸ê®Æ¤½¦¡¡G
=IF($A3="","",INDEX(¸ê®Æ®w!$A:$G,$A3+1,MATCH(B$2,¸ê®Æ®w!$1:$1,)))

¥H¤W¾A¥Î¤_¡e¥¼±Æ§Ç¡fªº¸ê®Æ¡ã¡ã

TOP

¦^´_ 4# ­ã´£³¡ªL


    ·PÁ¤j¤jªº´£¿ô....¦]¬°¦³¥ý¥hYoutube ª¦¤å, ¤£ª¾¹D³o­Ó±M¦³¦Wµü!! ²{¦b¤S¾Ç¤F¤@©Û¤F!! ·PÁÂ

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD