查看完整版本 : EXCEI問題

想問EXCEL全頁里，有藍色數字/紅色數字的儲存格，總和程式是什麼？

頂

VBA幫到你

[quote]原帖由 [i]funnyso[/i] 於 2019-6-21 12:19 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501437222&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
VBA幫到你 [/quote]


新手，VBA是什麼意思？

頂

問題是EXCEL全頁里，在大多數黑數字里，找出有藍色數字儲存格，藍色數字加總和的程式是什麼？

可以試下以下方法
[attach]9829309[/attach]

[[i] 本帖最後由 alan_2012 於 2019-6-23 10:09 PM 編輯 [/i]]

[quote]原帖由 alan_2012 於 2019-6-23 10:08 PM 發表 
可以試下以下方法
[/quote]


[attach]9829341[/attach] 感謝師兄先，就這樣，找出藍色數字1000和黃格里的2000藍色數字總和，

師兄我是新手，怎樣開VBAproject？

[[i] 本帖最後由 獨孤沉淪 於 2019-6-23 10:41 PM 編輯 [/i]]

[quote]原帖由 [i]alan_2012[/i] 於 2019-6-23 10:08 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501581279&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
可以試下以下方法
[/quote]


按alt11 説我記憶體不足😭😭😭，

[[i] 本帖最後由 獨孤沉淪 於 2019-6-23 10:54 PM 編輯 [/i]]

Short cut key --- Alt + F11 可以編寫vba. Memory 問題, 能否print screen讓我看看

[quote]原帖由 [i]alan_2012[/i] 於 2019-6-23 10:58 PM 發表 
Short cut key --- Alt + F11 可以編寫vba. Memory 問題, 能否print screen讓我看看 [/quote]
師兄我私信你了

[attach]9829566[/attach][attach]9829566[/attach] [attach]9829567[/attach][attach]9829567[/attach]

改左一下, 好用d, 可用於任何font color[attach]9837395[/attach]



Function SumColor(SumRange As Range, RefRangle As Range)
    SumColor = 0
    For Each Cell In SumRange
        If Cell.Font.Color = RefRangle.Font.Color Then
            SumColor = SumColor + Cell.Value
        End If
    Next Cell
End Function

[quote]原帖由 [i]alan_2012[/i] 於 2019-6-25 05:05 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501674779&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
改左一下, 好用d, 可用於任何font color



Function SumColor(SumRange As Range, RefRangle As Range)
    SumColor = 0
    For Each Cell In SumRange
        If Cell.Font.Color = RefRangle.Font.Color Then
    ... [/quote]


就是這樣，但你發給我的，改不了

[quote]原帖由 [i]alan_2012[/i] 於 2019-6-25 05:05 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501674779&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
改左一下, 好用d, 可用於任何font color



Function SumColor(SumRange As Range, RefRangle As Range)
SumColor = 0
For Each Cell In SumRange
If Cell.Font.Color = RefRangle.Font.Color Then
... [/quote]

你發給我的一開，就彈這圖，按你説法做，按alt+f11説我記憶體不足！
[attach]9839453[/attach]

[[i] 本帖最後由 獨孤沉淪 於 2019-6-26 12:13 AM 編輯 [/i]]

[quote]原帖由 [i]獨孤沉淪[/i] 於 2019-6-26 12:11 AM 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=501697514&ptid=28302472][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
你發給我的一開，就彈這圖，按你説法做，按alt+f11説我記憶體不足！
9839453 [/quote]

請睇以下條LINK:


[url=https://social.technet.microsoft.com/Forums/lync/en-US/7df8006d-2919-4c69-a371-c409ca0f46a1/vbe6extolb-could-not-be-loaded?forum=officeitproprevious]https://social.technet.microsoft.com/Forums/lync/en-US/7df8006d-2919-4c69-a371-c409ca0f46a1/vbe6extolb-could-not-be-loaded?forum=officeitproprevious[/url]

Hi,

VBE6EXT.OLB is Visual Basic Extensibility. The ‘VBE6EXT.OLB could not be loaded’ error usually happens when some files got corrupted in Office/Visual Basic.

A simple repair of Office installation from Control Panel should be able to fix it. Please have a try and see if that will correct the issue.

Another way you can try is - locate the VBE6EXT.OLB file in Windows (the file usually exists under C:\Program Files or Program Files(x86)\Common Files\Microsoft Shared\VBA), rename it to VBE6EXT.OLB.old.

Then Launch Word, press "ALT+F11", you should get a popup window asking repair the program, click Yes. Restart Office after the repair is finished, then verify result again.

Regards,
Ethan Hua

1. 在控制台重裝OFFICE

2. 在 C:\Program Files\Common Files\microsoft shared\VBA\VBA6 或 C:\Program Files (x86)\Common Files\microsoft shared\VBA\VBA6，Rename VBE6EXT.OLB to VBE6EXT.OLB.OLD. 再回OFFICE 按ALT+F11選YES

但若果你揾唔到VBE6EXT 個FILE，用返第一個方法，重裝OFFICE唔該。

*** 作者被禁止或刪除 內容自動屏蔽 ***

[quote]原帖由 [i]ncream[/i] 於 2019-6-26 10:02 AM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501709343&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]


請睇以下條LINK:


[url]https://social.technet.microsoft.com/Forums/lync/en-US/7df8006d-2919-4c69-a371-c409ca0f46a1/vbe6extolb-could-not-be-loaded?forum=officeitproprevious[/url]

Hi,

VBE6EXT.OLB is Visual ... [/quote]


官方下載重裝了，找到miicrosoft shared,但沒有VBA/VBA6。。。。

今晚再試

[[i] 本帖最後由 獨孤沉淪 於 2019-6-27 12:32 PM 編輯 [/i]]

[quote]原帖由 [i]獨孤沉淪[/i] 於 2019-6-27 12:30 PM 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=501779942&ptid=28302472][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
官方下載重裝了，找到miicrosoft shared,但沒有VBA/VBA6。。。。

今晚再試 [/quote]

最好做法是先UNINSTALL再INSTALL。


1. VBA方面，首先入選項

[attach]9848368[/attach]

2. 選開發人員

[attach]9848369[/attach]

剔晒佢。

[[i] 本帖最後由 ncream 於 2019-6-28 08:56 AM 編輯 [/i]]

[quote]原帖由 [i]ncream[/i] 於 2019-6-28 08:54 AM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501824292&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]


最好做法是先UNINSTALL再INSTALL。


1. VBA方面，首先入選項



剔晒佢。 [/quote]


找到了vb6ext個file了，改名了，還是一樣，今晚再試你説的人，謝謝

[quote]原帖由 [i]ncream[/i] 於 2019-6-28 08:54 AM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=501824292&ptid=28302472][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]


最好做法是先UNINSTALL再INSTALL。


1. VBA方面，首先入選項



剔晒佢。 [/quote]


試了，還是一樣，沒變，還是彈記憶體不足。

[quote]原帖由 [i]獨孤沉淪[/i] 於 2019-6-29 05:20 PM 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=501900289&ptid=28302472][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]



試了，還是一樣，沒變，還是彈記憶體不足。 [/quote]


找出面整機鋪頭幫你，重裝整部電腦，人家會教你backup。

恕我說一下, 感官直覺僅是ㄧ些加總, 數字會有顏色, 除了是負數外, 不就是我們自己去改變以方便觀看嗎?    例如A群裡有幾項, 加總起來的數字我就給他改成藍色字, B群加總後我也是有一個藍色字, 最後加總各項(全部藍色字)的合計, 我再給他改呈紅色字..... 全部僅是方便瀏覽用