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

[µo°Ý] 学员«H®§¤ñ对ÉO显¥Ü

[µo°Ý] 学员«H®§¤ñ对ÉO显¥Ü

¥»©«³Ì«á¥Ñ Farnsworth ©ó 2015-6-3 15:46 ½s¿è



这¬O³Ìªìªºªí®æ

2.png (94.07 KB)

2.png

3.png (109.75 KB)

3.png

4.png (141.8 KB)

4.png

??«H®§¤ñ?ÉO?¥Ü.zip (956.13 KB)

¦^´_ 1# Farnsworth

¥Ñ¤_¶W过时­­¤£¯à¦A编辑¤F¡Aª©­±¥i¯à说ªº¤£¬O«Ü²M·¡¡A­n¨D¤Î说©ú请¦U¦ì¬Ýªþ¥ó¡A·P谢¡I

TOP

¦^´_ 2# Farnsworth
¦³´XÂI»Ý¨Æ¥ý»¡©úªº:
1. ¦]¬°»y¨t¤£¦PªºÃö«Y,¸ê®Æ¤¤ªºÂ²Åé¦r·|Åܦ¨?, ¾É­P .Value= ... ¨º¦æ·|¦]¦¹µLªk½á­È,¬G¸Ó¦æ§Ú¶È¯à¥N´«¦¨©T©wªº­È¨Ó°µ´ú¸Õ.
2. ¦b Excel ªí®æ¤¤,°£«D·Q«ü©w¤å¦r¤Á³Î¦ì¸m,§_«h¥i¥HÅý Excel ¦Û¤v´«¦æ,
   ¦¹³B§â (学员«H®§汇总统计) ¤u§@ªí¤¤ªº©Ò¦³¼ÐÃD¤å¦r¥h°£´«¦æ¦r¤¸,¤è«Kµ{¦¡ª½±µ¨ú¥Î.
3. ¦]À³¤W­z 2. ªºª½±µ¨ú¥Î»Ý¨D, §A¶·­n­×§ï (学员«H®§汇总统计) ¤u§@ªí¤¤ªº G2 Àx¦s®æ¤º®e (¬ì¥Ø¥|¦X®æ) ¬° (¬ì¥Ø¥|¦X®æ学员) ¤è¯à¶¶§Q®M¥Î.
  1. Sub nn()
  2. 'G : ¬ì¥Ø¥|¦X®æ学员     .Interior.ColorIndex=10 .font.colorindex=-4105
  3. 'H : 财务«Ç©Ò¦³¥æ费学员 .Interior.ColorIndex=36 .font.colorindex=41
  4. 'I : ¦Ò试费710总ªí      .Interior.ColorIndex=47 .font.colorindex=44
  5. 'J : 学员«H®§汇总VIP    .Interior.ColorIndex=40 .font.colorindex=53
  6. 'K : °h学C1             .Interior.ColorIndex=36 .font.colorindex=47
  7. 'L : 学员«H®§A2B2       .Interior.ColorIndex=6  .font.colorindex=3
  8. 'M : °h学A2B2           .Interior.ColorIndex=23 .font.colorindex=49
  9. 'N : °h学VIP            .Interior.ColorIndex=4142 .font.colorindex=1

  10.   Dim iCol%
  11.   Dim lRow&
  12.   Dim sStr$
  13.   Dim vD, vInt(), vFnt()
  14.   Dim wsSou As Worksheet, wsTar As Worksheet
  15.   
  16.   Set vD = CreateObject("Scripting.Dictionary")
  17.   
  18.   vInt = Array(10, 36, 47, 40, 36, 6, 23, -4142)
  19.   vFnt = Array(-4105, 41, 44, 53, 47, 3, 49, 1)
  20.   
  21.   Set wsSou = Sheets("学员«H®§汇总")
  22.   Set wsTar = Sheets("学员«H®§汇总统计")
  23.   
  24.   lRow = 3
  25.   With wsTar
  26.     .Range(.Rows(3), .Rows(Rows.Count)).Delete
  27.     .Activate
  28.   End With
  29.   
  30.   With wsSou
  31.     While .Cells(lRow, 1) <> ""
  32.       .Range(.Cells(lRow, 1), .Cells(lRow, 6)).Copy wsTar.Cells(lRow, 1)
  33.       vD(.Cells(lRow, 2) & .Cells(lRow, 3)) = lRow
  34.       lRow = lRow + 1
  35.     Wend
  36.   End With
  37.   
  38.   With Sheets("学员«H®§汇总统计")
  39.     iCol = 7  ' G Column
  40.     Do While .Cells(2, iCol) <> ""
  41.       sStr = .Cells(2, iCol)
  42.       Set wsSou = Sheets(sStr)
  43.       lRow = 2 - (sStr = "学员«H®§汇总VIP")
  44.       With wsSou
  45.         Do While .Cells(lRow, 1) <> ""
  46.           If vD.Exists(.Cells(lRow, 2) & .Cells(lRow, 3)) Then
  47.             With wsTar.Cells(CInt(vD(.Cells(lRow, 2) & .Cells(lRow, 3))), iCol)
  48.               .Value = wsTar.Cells(CInt(vD(.Cells(lRow, 2) & .Cells(lRow, 3))), 2)
  49.               .Interior.ColorIndex = vInt(iCol - 7)
  50.               With .Font
  51.                 .ColorIndex = vFnt(iCol - 7)
  52.                 .Bold = True
  53.               End With
  54.             End With
  55.           End If
  56.           lRow = lRow + 1
  57.         Loop
  58.       End With
  59.       iCol = iCol + 1
  60.     Loop
  61.   End With
  62. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# luhpro
«D±`·P谢±zªº¸Ñµª¡A¥¿¦b测试¡A¤£¦XÓ쪺¦a¤è§Ú¦A联¨t±z¡C

1. ¦]¬°»y¨t¤£¦PªºÃö«Y,¸ê®Æ¤¤ªºÂ²Åé¦r·|Åܦ¨?, ¾É­P .Value= ... ¨º¦æ·|¦]¦¹µLªk½á­È,¬G¸Ó¦æ§Ú¶È¯à¥N´«¦¨©T©wªº­È¨Ó°µ´ú¸Õ.

¬Ý过§A¤W­±²Ä¤@条说©ú¡A¦bµ{§Ç¨Ï¥Î¤¤§Ú应该«ç

TOP

¦^´_ 3# luhpro


¬Ý过±z这¥y¡G1. ¦]¬°»y¨t¤£¦PªºÃö«Y,¸ê®Æ¤¤ªºÂ²Åé¦r·|Åܦ¨?, ¾É­P .Value= ... ¨º¦æ·|¦]¦¹µLªk½á­È,¬G¸Ó¦æ§Ú¶È¯à¥N´«¦¨©T©wªº­È¨Ó°µ´ú¸Õ.
´N¬O¤£ª¾¹D这¬q¥N码应该§ï¦¨¤°¤\内®e¡A请«ü±Ð¡A·P谢¡I¡I¡I

TOP

¦^´_  luhpro

¬Ý过±z这¥y¡G1. ¦]¬°»y¨t¤£¦PªºÃö«Y,¸ê®Æ¤¤ªºÂ²Åé¦r·|Åܦ¨?, ¾É­P .Value= ...
Farnsworth µoªí©ó 2015-6-4 10:35

­ì«h¤WÀ³¸Ó¬O¤£¥Î§ïªº,
¨º¥y¸Üªº·N«ä¬O§Ú¤£¯àª½±µ¥H§A´£¨ÑªºÂ²Åé¦r¸ê®Æ¨Ó°µ´ú¸Õ.

³q±`§Úµ¹ªºµ{¦¡³£·|¥H¼Ó¥D©Ò´£¨Ñªº¸ê®Æ¹ê»Ú°µ¹L´ú¸Õ,
½T»{¥i¥H¹F¨ì§Ú²z¸Ñ«áªº¼Ó¥D»Ý¨D¤~·|¶K¤W¨Ó,
°£«D¹ê¦b¬O®É¶¡¤W¨Ó¤£¤Î§¹¦¨´ú¸Õ.

¦Ó¦]¬°¦¹¨Ò¦³»y¨t¤W¤£¦Pªº½t¬G,
°õ¦æ§A´£¨Ñªº¸ê®Æ·|µo¥Í¿ù»~,
¬G¦Ó¸Ó¦æ§Ú¥u¯à¥t¥Î©T©w¸ê®Æ°µ¥N´«, (¨Ò¦p : 123)
¥H«Kµ{¦¡¯à¶¶§Q°õ¦æ§¹²¦,
¬G¦Ó°£¸Ó¦æ°õ¦æµ²ªG¥¼¯à§¹¦¨´ú¸Õ¥~,
¨ä¾l¤w¾¨¶q´ú¸Õ§¹¦¨.

TOP

¥»©«³Ì«á¥Ñ Farnsworth ©ó 2015-6-6 17:54 ½s¿è

¦^´_ 6# luhpro

¯à¤£¯à«ö·Ó±zªº·Qªk¡A§A¥i¥H§â©Ò¦³ªº简Ê^¦W称资®Æ³£§ï¦¨§A©Ò»Ý­nªº¡A¥B运¦æ¥¿ÚÌ¡A°µ¤@¥÷发§Ú邮½c¡][email protected]¡^¡A§Ú¯uªº°µ¤£来ªº¡A¨D±z¤F¡A¦A¦¸·P谢¡I¡I¡I

TOP

¦^´_ 6# luhpro

±z¦n¡A¤S­n³Â烦±z¡A¯à¤£¯à°µ¤@¥÷§A运¦æ¥¿Ú̪º¤å档给§Ú¬Ý¬Ý¡C§Aªºµ{§Ç¦¡¦pªG¦³¤LÉE¦æ学员¡A运¦æ°_来´N¦ºÉó¡A¦b§Ú这边¤@ª½没测试³q过¡C

TOP

¦^´_  luhpro

±z¦n¡A¤S­n³Â烦±z¡A¯à¤£¯à°µ¤@¥÷§A运¦æ¥¿Ú̪º¤å档给§Ú¬Ý¬Ý¡C§Aªº ...
Farnsworth µoªí©ó 2015-6-7 10:49

§A­n¥ý§â¸Ì­±¨º¤@°ï¤½¦¡¥þ³¡§R±¼,
¤£µMµ{¦¡¹B¦æ®É¤@ª½­«·s­pºâ´X¥G«OÃÒ¦º¾÷,
©ÎªÌ­n¥ý§â¹Bºâ¼Ò¦¡§ï¦¨¤â°Ê,¨Ã¨ú®ø¤Ä¿ïÀx¦s«e¦Û°Ê­«ºâ.

¥t¥~¤½¦¡­×§ï¤@¦æ:

.Value = wsTar.Cells(CInt(vD(wsSou.Cells(lRow, 2) & wsSou.Cells(lRow, 3))), 2)

¾Ç­û°T®§¤ñ¹ï»PÅã¥Ü.zip (194.89 KB)

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD