register313

¦^´_ 1# 317

¥ý¥Î¨ç¼Æ¨Ó§¹¦¨,°Ñ¦Ò

1.¿ïC4~C13
  ¿é¤J=TRANSPOSE(OFFSET(Sheet1!B3:K3,MATCH(C3,Sheet1!A3:A18,0)-1,0))
   Ctrl+Shift+Enter §¹¦¨¿é¤J
2.C14=VLOOKUP(C3,Sheet1!A3:M18,12,0)&VLOOKUP(C3,Sheet1!A3:M18,13,0)

transpose.rar (6.52 KB)

¤U¸ü¦¸¼Æ: 21

2012-4-22 22:26

register313

¦^´_ 7# ©P¤j°¶

½Ð¸Ô¬Ý2#¤§¾Þ§@¨BÆJ
transpose.rar (22.5 KB)

¤U¸ü¦¸¼Æ: 15

2012-4-24 19:13

register313

¦^´_ 6# ©P¤j°¶

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Target.Address <> "$C$3" Then Exit Sub
   
4.   Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
   
5. If A Is Nothing Then Exit Sub
   
6.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
   
7.   [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

½Æ»s¥N½X

aa.rar (9.17 KB)

¤U¸ü¦¸¼Æ: 16

2012-4-24 19:20

register313

¦^´_ 11# ©P¤j°¶

1. Private Sub ComboBox1_Change()
   
2.   ½d³ò = Sheets("¤H¥Á").Cells(3, 1).End(xlDown).Row
   
3.   ComboBox1.ListFillRange = "¤H¥Á!$a$3:$b$" & ½d³ò
   
4.   [C3] = ComboBox1
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Change(ByVal Target As Range)
   
8. Dim A As Range
   
9. If Target.Address <> "$C$3" Then Exit Sub
   
10.    Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
    
11. If A Is Nothing Then Exit Sub
    
12.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
    
13.   [C14] = A.Offset(, 11) & A.Offset(, 12)
    
14. End Sub

½Æ»s¥N½X

cc.rar (12.54 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-25 23:28