[µo°Ý] ²Î­pµ§¼Æ¤Î­pºâ¼Æ¶q

b9208

«e½ú±z¦n
¦pªþÀɤº»¡©ú¡u²Î­pµ§¼Æ¡v¤Î¡u­pºâ¼Æ¶q¡v
¡u²Î­pµ§¼Æ¡v¡G±ø¥óÄæ¦ì¬Û¦PªÌ¡A¥uºâ¤@µ§¸ê®Æ¡C
¡u­pºâ¼Æ¶q¡v¡G±ø¥óÄæ¦ì¬Û¦PªÌ¡A¥u­pºâ¼Æ¶q­È¡ª³Ì¤j­È¡ª¡C
«D±`·PÁ«ü¾É

T1.rar (5.31 KB)

¤U¸ü¦¸¼Æ: 35

2013-4-18 10:10

b9208

¡u²Î­pµ§¼Æ¡v¡G±ø¥óÄæ¦ì¬Û¦PªÌ¡A¥uºâ¤@µ§¸ê®Æ¡C
¡u­pºâ¼Æ¶q¡v¡G±ø¥óÄæ¦ì¬Û¦PªÌ¡A¥u¥[Á`¼Æ¶q­È¡ª³Ì¤j­È¡ª¡C
Àµ½Ð¥ý¶i­Ì«ü¾É
·P¿E¤£ºÉ

b9208

¦^´_ 6# Hsieh
Dear Hsieh
«D±`·PÁÂÀ°¦£»P«ü¾É
¥Ø«e¹B¦æ¤W¬Ookªº
ÁÂÁÂ

b9208

¦^´_ 7# ML089
Dear ML089

ÁÂÁ°ѻP«ü¾É»P°Q½×¡A¥i¥H¾Ç²ß¨Ï¥Î¨ç¼Æ²Õ¦X¹B¥Î¡C
¶Wª©ªºvba¥i¥H²Î­pµ§¼Æ¤Î¼Æ¶q¡C

b9208

¦^´_ 6# Hsieh
Dear Hsieh

For Each a In Range([B8], [B8].End(xlDown))
m = a.Text & "," & a.Offset(, 2) & "," & a.Offset(, 4)
n = a.Text & "," & a.Offset(, 1) & "," & a.Offset(, 2)
   If d(m) <= a.Offset(, 7) Then d(m) = a.Offset(, 7)
   d1(n) = ""
Next
  
¤W¥y¤¤ d1(n) = ""   ¤§¥Î·N¬°¦ó¡H
·PÁ«ü¾É

b9208

¦^´_ 6# Hsieh
Dear Hsieh
µ{¦¡¤Î¿é¥X¸ê®Æ¦b¦P¤@¤u§@ªí¡A°õ¦æOK¡C
¦pªGµ{¦¡¤Î¿é¥Xªí®æ¸m©ósheet2¡A°ò¥»¸ê®Æ¸m©ósheet1¡A¿é¥X¸ê®Æ³£¬O0¡C­×­q¦p¤U¡G
With Sheets("sheet1")
For Each a In Range([B8], [B8].End(xlDown))
..........
.........................
End With
For Each a In [N8:N14]

¥t½Ð±Ð¼W¥[ª½±µ­pºâ¥[Á` Total ¥\¯à¡A¦p¦ó­×§ï¡CÁÂÁÂ

b9208

¦^´_ 15# Hsieh
ÁÂÁª©¥D
¥i¥H°õ¦æ
²Å¦X»Ý¨D

b9208

¦^´_ 15# Hsieh
Dear Hsieh

For Each a In .Range(.[B8], .[B8].End(xlDown))
m = a.Text & "," & a.Offset(, 2) & "," & a.Offset(, 4)
n = a.Text & "," & a.Offset(, 1) & "," & a.Offset(, 2)
   If d(m) <= a.Offset(, 7) Then _
   d(m) = a.Offset(, 7) '¨ú¥XB¡BD¡BFÄæ¦P²Õ³Ì¤j­È
   d1(n) = "" 'B¡BC¡BDÄ椣­«½Æ¯Á¤Þ
Next
¤W­zµ{¦¡¤¤   d1(n) = "" 'B¡BC¡BDÄ椣­«½Æ¯Á¤Þ
«ä¦Ò«Ü¤[¤FÁÙ¬OµLªk²z¸Ñ
d1(n) ³]©w¦¨""¡A«áÄò¦p¦ó­p¼Æ¡H
Àµ½Ð«ü¾É