返回列表下一主題上一主題發帖

[發問] 針對 (特定範圍內) 字體顏色自動計算加總與按鈕更新問題

JT1221

中學生 Rank: 2

帖子: 9
主題: 3
精華: 0
積分: 62
點名: 1
作業系統: Window 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 臺北
註冊時間: 2018-10-25
最後登錄: 2024-5-16

2019 豬年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-1-11 14:22 | 只看該作者

[發問] 針對 (特定範圍內) 字體顏色自動計算加總與按鈕更新問題

各位版大好

遇到一個問題和寫法請各先進指導 !! 先感謝大家~~

問題：按鈕換頁後，VBA因為按鈕代號不同，無法執行，是否有通用的寫法可以在更換下一個工作頁時會自動偵測按鈕代號

附件是『針對每個月需計算庫存與接單後剩餘的數量自己寫的簡易VBA，想請教先進是否有其他方式能簡化程式碼 (最下面顏色設定如果有10個就會寫不完了):L ，謝謝

生產計劃.rar (644.03 KB)

樓主熱帖

VBA 新手進化中

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 251
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2019-1-11 15:47 | 只看該作者

本帖最後由 Hsieh 於 2019-1-11 15:58 編輯

是這樣的意思嗎?

Sub 更新日期_Click()
ActiveObject = Application.Caller '啟動程序的按鈕
ActiveSheet.Shapes(ActiveObject).TextFrame.Characters.Text = "更新日期：" & Now()
Call ColorSUM
End Sub
Public Sub ColorSUM()
Dim k, i As Integer, Cp(), Dic
Set Dic = CreateObject("Scripting.Dictionary")
Cp = Array(3, 13, 33, 4, 9, 22, 27, 1) '色碼
For i = 0 To UBound(Cp)
Dic(Cp(i)) = 0
Next
r = Range("F500").End(xlUp).Offset(3).Row '從特定位置開始加總
For k = 9 To 33
For i = 17 To Range("C17").End(xlDown).Row '循列計算顏色加總
Dic(Cells(i, k).Font.ColorIndex) = Dic(Cells(i, k).Font.ColorIndex) + Cells(i, k)
Next
For j = 0 To UBound(Cp)
Cells(r, k).Offset(j).Font.ColorIndex = Cp(j)
Cells(r, k).Offset(j).Font.Bold = True
Cells(r, k).Offset(j) = Cells(5, k) + Dic(Cp(j))
Dic(Cp(j)) = 0 '歸零
Next
Next
End Sub

複製代碼

回復 1# JT1221

學海無涯_不恥下問

TOP

JT1221

中學生 Rank: 2

帖子: 9
主題: 3
精華: 0
積分: 62
點名: 1
作業系統: Window 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 臺北
註冊時間: 2018-10-25
最後登錄: 2024-5-16

2019 豬年全勤獎章

3^#

發表於 2019-1-11 16:37 | 只看該作者

回復 2# Hsieh

感謝Hsieh超級版主的回覆，你寫的程式碼超級精簡，正在研究中 !! {:3_59:}

試執行之後，按鈕的部份沒問題，但是下面計算結果有點問題，應該是我原來的說明不清楚造成。
我做了一張圖來說明計算的規則
最上面1的部份是現在庫存，中間的區塊不理會
2的部份是客戶需求，目前裡面都是【-值】，所以會直接用+號來做計算
3的部份是我需要計算的目前剩餘庫存，目前依1的部份來說，應該會有三種顏色，但實際執行有四種顏色 !!
因為程式碼還看不太懂，所以要麻煩再幫忙看看 !! 感謝 !!

生產計劃-執行後.rar (643.12 KB)

VBA 新手進化中

TOP

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題