¨Ì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 ª©¥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
- 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
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 243
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-9
|
¦^´_ 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
|
¥ý·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
- 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
|
ªº½T¦³¦pHsiehª©¥D©Ò»¡ªºª¬ªp¡A¦ý§Y¨Ï§Ú±N¤é´Á³Ì¤pȤw§ó·s¦Ü5/1°_¡A¦ý°õ¦æ®É¤´µo¥Í¿ù»~¡Aªþ¤WÀɮסA·Ð½ÐHsiehª©¥D¸Ñ´b¡AÁÂÁÂ!!!
Book1.rar (15.27 KB)
|
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 243
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-9
|
¦^´_ 18# 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) = "¥æ´Á"
- If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨DÁקKSheet1¤º»Ý¨D¤éµL¤é´Á
- If y > 0 Then ar(1, y) = A.Offset(, 3) '¥æ´ÁÁקKSheet1¤º¥æ´ÁµL¤é´Á
- 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
|
¯u¬O¤Ó·PÁÂHsiehª©¥D¡A¸Ñ¨M¤F¤p§Ìªº¤j°ÝÃD¡A°õ¦æ¤w¥i¦Û°Ê®M¥X
¦pªG¤p§Ì·Q¦A¥[¤J¦h¤@¨Çªº¸ê®Æ¡]¨Òì¥u¦³q³æ,®Æ¸¹,¶µ¦¸¡A·Q¦A¼W¥[«È¤á,³W®æ...¡^==>¤w§ó·sªþ¥ó¤¤¡A½Ð°Ý¦p¦óקï???
¤p§Ì¦³¦Û¤v´ú¸Õקï¡A¦ý¥\¤O¹ê¦b¤£¨¬¡A§ï«áÁÙ¬OµLªk®M¥X¥¿½T¸ê®Æ¡A¬G·Ð½ÐHsiehª©¥DÀ°¦£
Book2.rar (16.01 KB)
|
|
|
|
|
|
|