[µo°Ý] ½Ð°Ý¦p¦ó¦Û°Ê·s¼W¤u§@ªí¡A¨Ã±N¦WºÙ§ï¦¨¤å¦r(¤µ¤Ñ¤é´Á)¡A¦b¶K¤W¬YÀɮרåB¤£§t¤½¦¡

´Ñ»y³¾»ï

½Ð°Ý¦p¦ó§Q¥Î¦Û°Ê¥Í¦¨·sªº¤u§@ªí¡A¨Ã±N¤u§@ªí¦WºÙ§ï¬°²Î­p­È(¤µ¤Ñ¤é´Á)<==¨Ò¦p:²Î­p­È(20110525)¡A¦pªG·í¤Ñ¤w¸g¦³²Î­p¹L«h¦b¤é´Á«á­±¥[-1..-2..-3¥H¦¹Ãþ±À¡A¨Ò¦p:²Î­p­È(20110525-1)¡A¥B±NM1¨ìQ12(¶À¦â³¡¤À)ªºªí®æ¤Î­È¶K¤W(¦ý¬O¤£§t¤½¦¡)¡A½Ð°Ý¦¹¥¨¶°¸Ó¦p¦ó¼g? TEST.rar (8.75 KB)

¤U¸ü¦¸¼Æ: 8

2011-5-25 20:18

´Ñ»y³¾»ï

½Ð°Ý¦p¦ó§Q¥Î¦Û°ÊÂIÀ»A1~A12¡A¨Ã±NR2~T2ªº­È¶K¨ìÁ`ªí¤W(¤£¥[¤½¦¡)¡A½Ð°Ý¦¹¥¨¶°¸Ó¦p¦ó¼g?µ{§Ç:ÂIÀ»A1-->½Æ»sR2~T2-->¶K»sÁ`ªíB1~D1¡A:
ÂIÀ»A2-->½Æ»sR2~T2-->¶K»sÁ`ªíB2~D2¡K¡K¨Ìª½¨ìÂIÀ»A12-->½Æ»sR2~T2-->¶K»sÁ`ªíB12~D12
TEST2.rar (13.53 KB)

¤U¸ü¦¸¼Æ: 11

2011-5-25 20:41

GBKEE

¦^´_ 2# ´Ñ»y³¾»ï
Sheets("²Î­p­È")ªºµ{¦¡½X

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Not Application.Intersect([A2:A12], Target(1)) Is Nothing Then
   
3.         With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
4.             .Cells(1) = Target(1)
   
5.             .Cells(1, 2).Resize(, 3) = Range("R2").Resize(, 3).Value
   
6.         End With
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 3# GBKEE


ÁÂÁ©p£x¦^ÂÐ~§Ú¤F¸Ñ¤F!!
½Ð°Ý­n§ó¦p§ó§ï¦¨¡A¦Û°ÊÂIÀ»A2~A12©O?

GBKEE

¦^´_ 4# ´Ñ»y³¾»ï
Worksheet_SelectionChange   ´N¬O¤u§@ªí¹w³]¨Æ¥óµ{¦¡  (·Æ¹«¥ªÁäÂIÀ»¤@¦¸)

´Ñ»y³¾»ï

¦^´_ 5# GBKEE


    ³o­Ó§Úª¾¹D!§Ú·Q°Ý»¡!¦pªG·QÅý¥L"¦Û°Ê³sÄòÂIÀ»"
                                                      A2
                                                      A3
                                                      A4
                                                      A5.....¤@ª½¨ìA12
´N¹³:Range("A2").Select
       Range("A3").Select
                   .   
                   .   
                   .   
                   .   
      ¨Ìª½¨ìRange("A12").Select
­n«ç»ò§ï¼g¶i¥h~©ÎªÌ²¤Æ??

Hsieh

¦^´_ 6# ´Ñ»y³¾»ï

1. Sub ¶ê¨¤¯x§Î2_Click()
   
2. Dim Ar()
   
3. With Sheet1
   
4. Rng = .[Q1:T1].Value
   
5. For Each a In .Range("A2:A12")
   
6. .[Q2] = a
   
7. ReDim Preserve Ar(s)
   
8. Ar(s) = Application.Transpose(Application.Transpose(.[Q2:T2]))
   
9. s = s + 1
   
10. Next
    
11. End With
    
12. For Each sh In Sheets
    
13.   If sh.Name Like Format(Date, "yyyymmdd") & "*" Then k = k + 1
    
14. Next
    
15. k = IIf(k = 0, "", "_" & CStr(k))
    
16. With Sheets.Add
    
17. .Name = Format(Date, "yyyymmdd" & k)
    
18. .[A1:D1].Value = Rng
    
19. .[A2].Resize(s, 4) = Application.Transpose(Application.Transpose(Ar))
    
20. End With
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# ´Ñ»y³¾»ï
¤£¤Ó¤F¸Ñ§Aªº·N«ä ¸Õ¬Ý¬Ý

¥þ³¡½Æ»s

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Set Rng = [A2:A12]
   
4.     If Not Application.Intersect(Rng, Target(1)) Is Nothing Then
   
5.         With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
6.             .Cells(1).Resize(Rng.Rows.Count) = Rng.Value
   
7.             .Cells(1, 2).Resize(Rng.Rows.Count, 3) = Range("R2").Resize(, 3).Value
   
8.         End With
   
9.     End If
   
10. End Sub

½Æ»s¥N½X

½Æ»s ¿ï¾Ü³B¨ì©³³¡

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Set Rng = [A2:A12]
   
4.     If Not Application.Intersect(Rng, Target(1)) Is Nothing Then
   
5.         For i = Target(1).Row To Rng.End(xlDown).Row
   
6.             With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
7.                 .Cells(1) = Cells(i, Target(1).Column)
   
8.                 .Cells(1, 2).Resize(, 3) = Range("R2").Resize(, 3).Value
   
9.             End With
   
10.         Next
    
11.     End If
    
12. End Sub

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 7# Hsieh


    ¨S¿ù³o´N¬O§Ú­nªºµª®×¡A¦Ó¥B2­Ó°ÝÃD³£µª¤F!ÁÂÁ±zªº¦^ÂÐ!·Q¦b½Ð°Ý¤@¤U!
¦pªG±NQ2:T2§ï¦¨¤FR1:R4(Åܦ¨ª½¦¡ªº)¡A¨º­n¦p¦ó¨Ï­ÈÂà¸m(Åܦ¨¾î¦¡ªº)??Àɮצpªþ¥ó! TEST2-2.rar (19.69 KB)

¤U¸ü¦¸¼Æ: 8

2011-5-27 22:39

´Ñ»y³¾»ï

¦^´_ 8# GBKEE
ÁÂÁ±zªº¦^ÂÐ!ÁöµM³o¤£¬O§Ú­nªºµª®×!¦ý¬O§Ú«o¥i¥H¥Î¨ì¥t¤@ªº¬O¦a¤è¡A©Ò¥HÁÙ¬O«ÜÁÂÁ±z!