¨Ìq³æ¸ê®ÆÂà´«¦¨¤»¶g±Æµ{ªí¡A·q½Ð¦U¦ì¤j¤j½ç±Ð!!!
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
·PÁÂHsieh¥Sªº¦^ÂÐ,¤p§Ì«ö³Ì·sµ{¦¡½X°õ¦æ«á,«o¶]¥X"°õ¦æ¶¥¬q¿ù»~'9'¡A°}¦C¯Á¤Þ¶W¥X½d³ò"¡A¨Ã°±¦bar(0, x) = ar(0, x) + A.Offset(, 3)¦¹µ{¦¡½X¡A¦]§Ú²{°õ¦æªºµ§¼Æ¦³§Ö200µ§¡A¬O¦³³]µ§¼Æ¶Ü???
ÁÙ¦³ì´£¨Ñ³øªí¤¤¶È¦³"q³æ"¡A"®Æ¸¹"¡A"¶µ¦¸"¤T¸ê®Æ¡A¦ý¦pªGn¦A¼W¥[´Xµ§¸ê®Æ¡Aìµ{¦¡½X¬O§_§Y»Ý¦Aקï??? |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¥ý·PÁÂHsiehª©¥D¤F,©ú¤é¦A´ú¸Õ¬Ý¬Ý,¦ý¤W¤@Ó°ÝÃD¤´·Q½Ð°Ý,´N¬O¦p³æ½Æ»s¥N½X,¦]¦ó°õ¦æ¥¨¶°·|¶]¥X¿ù»~©O...
Hsiehª©¥Dªº¥¨¶°,¤j¤j°§C¤u§@¶q,¯uªº¤Ó·PÁ§A¤F |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 254
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-23
|
¦^´_ 12# p6703 - Sub Ex()
- Dim A As Range, x%, y%
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("Sheet2")
- s = Application.Min(.Rows(1))
- With Sheets("Sheet1")
- n = Application.Max(.Columns("E:F")) - s + 4
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- ReDim ar(0 To 1, 0 To n)
- m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2)
- If IsEmpty(d(m)) Then
- GoTo 10
- Else
- For i = 0 To 1
- For j = 0 To n
- ar(i, j) = d(m)(i, j)
- Next
- Next
- End If
- 10
- x = A.Offset(, 4) - s + 4 '»Ý¨D¤é
- y = A.Offset(, 5) - s + 4 '¥æ´Á
- For i = 0 To 2
- ar(0, i) = A.Offset(, i)
- Next
- ar(0, 3) = "»Ý¨D¤é"
- ar(1, 3) = "¥æ´Á"
- ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨D
- ar(1, y) = A.Offset(, 3)
- d(m) = ar
- Erase ar
- Next
- End With
- r = 2
- For Each ky In d.keys
- .Cells(r, 1).Resize(2, n + 1) = d(ky)
- r = r + 2
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
Hsieh ª©¥D¦]¤p§Ì¹ê»Ú±Æµ{¦³®É·|¦³¸ó¤ëªº°ÝÃD¡A¨Ò¡G»Ý¨D¤é5/20¡A¥æ´Á¦^ÂШì6/10¡A¦ý«ö¥Ø«e¥¨¶°°õ¦æµo²{¶È¤ñ¹ï"¤é"¦Ó¤w¡A¦p«ö¥H¤W¤é´Á¡A¨ä¥æ´Á¹ïÀ³ªº·|¨q¨ì5/10¡A¦¹¬O§_¥i¦A×¥¿??? |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
·PÁÂHsieh ª©¥D¡A¤p§Ì±N¥N½X½Æ»sn°õ¦æ®É¡A¤S¦b"n = .Cells(1, .Columns.Count).End(xlToLeft).Column - 1¡¨¦¹¦C¶]¥X"°õ¦æ¶¥¬q¿ù»~ '424': ¦¹³B»Ýnª«¥ó"ªºÄµ§iµøµ¡¡A¬O°£¤F½Æ»s¥~ÁÙ¦³»Ýn¦A°µ¤°»òªº³]©w¶Ü??? |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 254
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-23
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-4-28 00:11 ½s¿è
¦^´_ 4# p6703 - Sub Ex()
- Dim A As Range
- Set d = CreateObject("Scripting.Dictionary")
- With Sheet2
- n = .Cells(1, .Columns.Count).End(xlToLeft).Column - 1
- s = Day(.[E1])
- With Sheet1
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- ReDim ar(0 To 1, 0 To n)
- m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2)
- If IsEmpty(d(m)) Then
- GoTo 10
- Else
- For i = 0 To 1
- For j = 0 To n
- ar(i, j) = d(m)(i, j)
- Next
- Next
- End If
- 10
- x = Day(A.Offset(, 4)) - s + 4 '»Ý¨D¤é
- y = Day(A.Offset(, 5)) - s + 4 '¥æ´Á
- For i = 0 To 2
- ar(0, i) = A.Offset(, i)
- Next
- ar(0, 3) = "»Ý¨D¤é"
- ar(1, 3) = "¥æ´Á"
- ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨D
- ar(1, y) = A.Offset(, 3)
- d(m) = ar
- Erase ar
- Next
- End With
- r = 2
- For Each ky In d.keys
- .Cells(r, 1).Resize(2, n + 1) = d(ky)
- r = r + 2
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¤p§Ì¥ýºN¯Á¬Ý¬Ý¤F.¦A¦¸·PÁÂregister313¥S^^ |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
·PÁÂregister313¥S¡A¥i¥H°õ¦æ¤F¡A¦ý¤p§Ì¤£©ú¥Õ¡Aµ{¦¡½X¤@¼Ë¡A¦]¦ó¤p§Ì¦Û¤v½Æ»s¶K¤Wªº´N¤£¦æ©O???ÁÙ¦³¤p§Ì±µÄ²vba¤£¤[¡A¤£ª¾¬O§_¥i½Ðregister313¥S°w¹ïµ{¦¡½X¤p¤p»¡©ú¤@¤U¡AÁÂÁÂ... |
|
|
|
|
|
|