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

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

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

½Ð°Ý³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)

¤éªí7-test¤ë¥÷.rar (114.09 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-14 11:29 ½s¿è

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD