[µo°Ý] ½Ð°Ý³o­Ó¬d¸ß¸Ó«ç»ò¼g¤J©O

olisun

½Ð°Ý³o­Ó¬d¸ß¸Ó«ç»ò¼g¤J©O

·í¤é³øªí¬d¸ß¨Ã¿é¤J¤é´Á¡Ae2=input¤§¤é´Á¡A¨Ã¤ñ¹ïsheets("´CÅé¤ÏÀ³")¤¤ªºa3:a
¦pªG¿é¤Jªº¤é´Á¤£¦s¦b¡A«h¥X²{"¤é´Á¤£¦s¦b"¦³«h
p2=sheets("´CÅé¤ÏÀ³")ªºc3:c
d13=sheets("´CÅé¤ÏÀ³")ªº(d3:d)¡A
e13=sheets("´CÅé¤ÏÀ³")ªº(e3:e)

GBKEE

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

1. Private Sub Ex()
   
2.     Dim F As Range
   
3.     With Sheets("¤é³øªí")
   
4.         Set F = Sheets("´CÅé¤ÏÀ³").Range("a:a").Find(.[E2], LookAT:=xlWhole)
   
5.         If F Is Nothing Then
   
6.             .[P2] = ""
   
7.             .[D13:Q15] = ""
   
8.             MsgBox "¬dµL¦¹¤é´Á   " & .[E2]
   
9.             Exit Sub
   
10.         Else
    
11.             .[P2] = F.Offset(, 2)
    
12.             For I = 0 To 2
    
13.                 .[D13].Offset(I).Resize(, 14) = F.Offset(, 3 + (I * 14)).Resize(, 14).Value
    
14.             Next
    
15.         End If
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

Àx¦s®æªºÅçÃҤ覡 §A¥i¥Î¿ý»s¸Õ¸Õ¬Ý

1. Private Sub Workbook_Open()
   
2. 'Sheets("¤é³øªí¿é¤J").Range("p2") = Array("´¸", "«B", "³±")
   
3. With Sheets("¤é³øªí¿é¤J").Range("P2").Validation
   
4.         .Delete
   
5.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
6.         xlBetween, Formula1:="´¸,«B,³±"
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

olisun

ÁÙ¬O±o¾a±z¡AÁÂÁÂ