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

[µo°Ý] excel²Î­p¤½¦¡¹Bºâ¹L¤[°ÝÃD

[µo°Ý] excel²Î­p¤½¦¡¹Bºâ¹L¤[°ÝÃD

Â^¨ú.PNG
2018-10-14 00:19


½Ð°Ý¬O§_¦³¿ìªk¸Ñ¨M²Î­p¤½¦¡³y¦¨¹Bºâ¹L¤[ªº°ÝÃD¡A¨Ò¦p­×§ï¤½¦¡©Î¨Ï¥Î¥¨¶°¥[³t¹Bºâ
¦]¬°¥u­n¿z¿ï±ø¥ó¡A¤@µ¥´N­n5-10¤ÀÄÁ¤~·|­«·s²Î­p¼Æ¾Ú§¹¦¨¡A¹ê¦b¬O¤Ó¤[¤F
¦A¨Ó¬O¼Æ¾Ú¨Ó·½ªº¸ê®Æ¥¼¨Ó·|¨C¤ë¦V¤U·s¼W¡A¸ê®Æ¶V¦h·|µ¥§ó¤[§a!!¨D¸Ñ~~~~~~~~~~

»¡©ú¡G
¡i²Î­p¡j¬¡­¶¤W¤è¥i¿z¿ï±ø¥ó¡A¥H¿z¿ï©Ò»Ý¦~¤ë¤Î²Î­p¼Æ¾Ú¡A¥t¨Ï¥Î¥H¤U¤½¦¡²Î­p¡i¼Æ¾Ú¨Ó·½¡j¬¡­¶¼Æ¾Ú
=SUMPRODUCT(¼Æ¾Ú¨Ó·½!$D$6:$OC$1299*(¼Æ¾Ú¨Ó·½!$OD$6:$OD$1299>=$D$1)*(¼Æ¾Ú¨Ó·½!$OD$6:$OD$1299<=$F$1)*(¼Æ¾Ú¨Ó·½!$C$6:$C$1299=E$4)*(¼Æ¾Ú¨Ó·½!$D$4:$OC$4=$D5)*(¼Æ¾Ú¨Ó·½!$D$5:$OC$5=$H$1))


¡i¼Æ¾Ú¨Ó·½¡j¬¡­¶¨C¤ë¸ê®Æ·|¦V¤U°ïÅ|¡A©Ò¥H¸ê®Æ½d³ò·|¶V¨Ó¶V¤j¡A¨Ò¦p¥¼¨Ó¥i¯à¨ì2000©Î5000


test.rar (973.01 KB)
*¦v¤k¤@ªTµL»~*

³oÀ³¥i¥Îvba³B²z,
«Øij±N¨Ó·½¸ê®ÆªºÄæ¦ì§R¥h¤@¨Ç, ¤j¬ù«O¯d100Ä楪¥k§Y¥i(§Úªºª©¥»µLªk¥Î³o»ò¦hÄæ),
¨Ã±N²Î­p¤½¦¡¥ý¶K¦¨­È©Î²MªÅ, ¥H§K¶}±Ò®É³y¦¨¥dÀÉ!
¦³¥²­n®É, ±N²Î­p³W«h³v¤@»¡©ú~~

§Ú±N³o©«Âà¨ìµ{¦¡°Ï, Åý¤j®a°Ñ¦ÒÀ°À°¦£!!!

¦pªG³o°ÝÃD¤w¤£»Ý­n¸Ñ¨M, ´Nºâ¤F~~

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-24 02:53 ½s¿è

¦^´_ 1# msmplay

¬Ý§Aªº¤½¦¡¡A§AÀ³¸Ó¥u¬O·Q§â²Å¦X¦UºØ±ø¥óªº³¡¤À°µ¥[Á`¦Ó¤w¡A

­è­è§â§AªºÀÉ®×¥t¦s¦¨.xls¡A¦ý¬O¥u¦³256Äd¡A§Aªº¼Æ¾Ú¨Ó·½³Q±j­¢¸y±Ù@@¡A¤½¦¡¤]¿ù»~¤F

¥ýªþ¤W¨Ó¡AVBA¬O°µ±o¨ìªº¡AÁöµM§Aªº±ø¥ó¦³ÂI¦h~~~©ú¤Ñ¿ïÁ|­n¥ý¨ÓºÎ¤F¡A¦pªG¨S¤HÀ°§A¡A§Ú¥i¥H¸Õ¬Ý¬Ý(§Ú·sª©Excel)

test+.rar (254.89 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-24 18:34 ½s¿è

¦^´_ 3# n7822123


«ö¤U²Î­p«ö¶s§Y¥i¡A§Úªº¹q¸£³t«×´X¬íÄÁ§Y¥i§¹¦¨
111.png
2018-11-24 18:22


Sub ²Î­p()
Dim Arr, °Ï­º¦C, °Ï¦C¼Æ, d As Object
Dim «¬¸¹$, ¤é´Á$, ©±¦W$, Ãþ«¬$, Str$, °Ï­º¦C¦ê$, °Ï¦C¼Æ¦ê$
Dim ¤é´Á°_&, ¤é´Á²×&, i%, R%, C%, Rn%, Cn%, °Ï¼Æ%
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
¤é´Á°_ = [²Î­p!D1]: ¤é´Á²× = [²Î­p!F1]
Ãþ«¬ = [²Î­p!H1]
'====¿é¤J¸ê®Æ¨ì¦r¨å¡A¦r¨åªºKey¨Ì©±¦W¡B«¬¸¹°µ°Ï¤À====
'==========¨ÌÃþ«¬°µ¿z¿ï¡A¨Ã¨Ì¤é´Á¥[Á`==========
Sheets("¼Æ¾Ú¨Ó·½").Activate
Arr = Range([C4], Cells(Rows.Count, 394).End(xlUp))
Rn = UBound(Arr): Cn = UBound(Arr, 2) - 1
For R = 3 To Rn: For C = 2 To Cn
  ©±¦W = Arr(1, C): «¬¸¹ = Arr(R, 1)
  ¤é´Á = Arr(R, 392): Str = ©±¦W & "," & «¬¸¹
  If Arr(2, C) = Ãþ«¬ And ¤é´Á >= ¤é´Á°_ And ¤é´Á <= ¤é´Á²× Then d(Str) = d(Str) + Arr(R, C)
Next: Next
'============¿é¥X¦r¨å¸ê®Æ¨ì²Î­p¤u§@ªí============
Sheets("²Î­p").Activate
Rn = Cells(Rows.Count, 2).End(xlUp).Row
For R = 1 To Rn    '¥ý§PÂ_¥X¦U¤p°Ï(¦X¨ÖÀx¦s®æ)ªº­º¦C»P¦C¼Æ
  If Cells(R, 2) Like "*°Ï" Then
    °Ï­º¦C¦ê = °Ï­º¦C¦ê & "," & R
    °Ï¦C¼Æ¦ê = °Ï¦C¼Æ¦ê & "," & Cells(R, 2).MergeArea.Rows.Count - 1  '¦©±¼¤p­p¦C
    °Ï¼Æ = °Ï¼Æ + 1
  End If
Next R
°Ï­º¦C = Split(°Ï­º¦C¦ê, ","): °Ï¦C¼Æ = Split(°Ï¦C¼Æ¦ê, ",")  '©î¦¨°}¦C
Cn = [E4].End(2).Column - 4   '²Î­pªí­n¿é¤J¸ê®ÆªºÄæ¼Æ
For i = 1 To °Ï¼Æ  '±q¦r¨å¤ñ¹ïkey¨Ã¿é¥X¸ê®Æ¨ì¬ÛÀ³Äæ¦C
  Arr = Cells(°Ï­º¦C(i), 5).Resize(°Ï¦C¼Æ(i), Cn)
  For C = 1 To Cn: For R = 1 To °Ï¦C¼Æ(i)
    ©±¦W = Cells(R + 4, 4): «¬¸¹ = Cells(4, C + 4)
    Arr(R, C) = d(©±¦W & "," & «¬¸¹)
  Next R: Next C
  Cells(°Ï­º¦C(i), 5).Resize(°Ï¦C¼Æ(i), Cn) = Arr
  Cells(Val(°Ï­º¦C(i)) + Val(°Ï¦C¼Æ(i)), 5).Resize(, Cn) = "=sum(R[-" & °Ï¦C¼Æ(i) & "]C:R[-1]C)"   '¤p­p¦C¤½¦¡(Sum.....)
Next i
End Sub

test-1124.rar (914.48 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD