帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-5-18 22:10 | 只看該作者

[發問] (已解決)統計顏色次數

本帖最後由 freeffly 於 2012-2-22 17:02 編輯

如果我有一個資料是用當月價格比較上次交易價格
當價格較低時會標上顏色
要用什麼方式可以計算出該列的顏色出現次數
就是該產品降價次數?

新增 Microsoft Excel 工作表 (3).rar (1.63 KB)

樓主熱帖

字典兩各字還真難理解

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

26^#

發表於 2012-8-22 08:55 | 只看該作者

回復 25# c_c_lai
看圖解文: 一直不明暸你的真正意思
3. 這種情事常易發生在當模組龐大，處理內容複雜時的不經意處理。
是啊! 所以須要仔細反覆的檢查程式碼 ,執行後的正確性

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

25^#

發表於 2012-8-22 08:41 | 只看該作者

回復 24# GBKEE
您誤解我的意思，我的重點僅在於 Rng 變數的使用。

假設：For X = 1 To Rng ~ Next X 之內容非常複雜
1.  如果在 For Next Loop 內 Coding 時一時疏忽，同時引用了 Rng 變數並將其
   值改變；
2.  之後，在 For Next Loop 後段處理時，亦同樣引用了 Rng 變數值，
   此處是希望引用原先的 Rng 變數值時，他忽略了在 For Next Loop 內
   已異動了 Rng 變數值，結果執行發生了不可預期的錯誤。
3.  這種情事常易發生在當模組龐大，處理內容複雜時的不經意處理。

而非您程式的解譯，請您見諒。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2012-8-22 08:12 | 只看該作者

回復 23# c_c_lai

Option Explicit
Sub Ex()
Dim Rng As Integer, i As Integer, x As Integer
Rng = 10
i = 0
For x = 1 To Rng '這裡迴圈最終值已設定=10 不受以後的影響
Debug.Print x '請在即時視窗看 x 的變動
i = i + 1
Rng = i + 5 'Rng變數不影響迴圈最終值
x = Rng '這 X變數才會影響迴圈的次數
Next
MsgBox "迴圈迴結束後 X= " & x
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

23^#

發表於 2012-8-22 07:46 | 只看該作者

回復 22# GBKEE
我的本意是：

請您別介意，莫說糾正一詞了！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2012-8-21 20:11 | 只看該作者

回復 21# c_c_lai
Set X = R.Cells(1) 在程序中是會表達明確些 , 不修改它在這程序中一樣達到效果,
程式中也 Dim X As Range 應因是一時忘記用它吧!
謝謝你的提醒,糾正.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

21^#

發表於 2012-8-21 16:37 | 只看該作者

回復 4# GBKEE

Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
For Each R In Rng.Rows
Set Rng = R.Cells(1)

複製代碼

您為何不寫成？

Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
For Each R In Rng.Rows
Set X = R.Cells(1)

複製代碼

TOP

sammyshain

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
註冊時間: 2012-7-13
最後登錄: 2012-9-12

20^#

發表於 2012-8-21 14:57 | 只看該作者

真的好厲害~

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

19^#

發表於 2011-6-6 20:29 | 只看該作者

回復 18# Hsieh

謝謝大大花時間解說
那兩句的寫法對我來說還需要花時間裡解

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

18^#

發表於 2011-6-4 08:21 | 只看該作者

回復 17# freeffly

Sub ex()
[AE:AE] = ""
R = 5'第5列開始
Do Until Cells(R, 2) = ""
Set Rng = Range(Cells(R, 3), Cells(R, "AD"))'C:AD欄的列範圍
i = 1
Do Until Rng(1, i) <> ""'找到該列的第一個數值位置
i = i + 1
Loop
first = Rng(1, i): i = i + 1'把第一個數值記住，準備從第一個數值後開始找數值
For k = i To Rng.Count
If Rng(1, k) > first Then cnt = cnt + 1'如果儲存格數值比前一個數值大，計數的變數就加1
If Rng(1, k) <> "" Then first = Rng(1, k)'如果不是空格，就把儲存格的值記住，準備跟下一個數值做比較
Next
Cells(R, "AE") = cnt: cnt = 0'整列跑完後，就把計數的值填入，然後歸零
R = R + 1'下一列
Loop
End Sub

學海無涯_不恥下問

TOP