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