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

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

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

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

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-27 09:35 ½s¿è

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-5-27 09:38 ½s¿è

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-5-27 08:03 ½s¿è

¦^´_ 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~©ÎªÌ²¤Æ??

TOP

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

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-5-26 20:19 ½s¿è

¦^´_ 3# GBKEE


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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-25 21:36 ½s¿è

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

TOP

½Ð°Ý¦p¦óÅý·Æ¹«ÂIÀ»A1«á¡A½Æ»sR2~T2¡A»s¥t¤@­Ó¤u§@ªí¶K¤W?

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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD