請教大大

小弟有一個問題想請教

我希望當我選擇某範圍的儲存格 (假設是A1:H8)

可經Msgbox 或顯示在某一儲存格 來表示上述被選擇範圍內"紅色儲存格"的格數?

還請專家們幫忙解答一下~
1.每次選擇儲存格區域後,則會自動出現 MsgBox 訊息提示的方式
就是用VBA編輯器在您所想要使用這項功能的 工作表 中的 程式碼 內容中,加入如下的內容,
這樣就會有當您在這個工作表中選擇儲存格範圍時,就會即時用 MsgBox 訊息通知.
其中 Worksheet_SelectionChange 這是一個 Excel 的內建系統 Event 程序,
細節用法也可參考 Microsoft 的官網資料.



要出現格數訊息就是改成如下

MsgBox "所圈選的儲存格範圍[" & Target.Address(0, 0, xlA1) & "] 共有" & Target.Cells.Count & "格" , vbOKOnly, "儲存格圈選"



2.執行巨集才產生訊息告知的方式

MsgBox "所圈選的儲存格範圍[" & Selection.Address(0, 0, xlA1) & "] 共有" & Selection.Cells.Count & "格" , vbOKOnly, "儲存格圈選"




================================

[參照範圍].Cells.Count <---這個敍述就是傳回這個參照範圍內所包含的格數
謝謝你! 我再好好的想想!
yuehmao wrote:
1.每次選擇儲存格...(恕刪)
新手~請多指教
另一種做法,不一定適用,僅供參考:

1.在某格輸入自訂函式,即可取得紅色儲存格的數量:
=howManyRedCells('請自行劃定範圍')




2.自訂函數如下:
Function howManyRedCells(ByVal table_Array As Range) As Integer
Dim rng As Range

howManyRedCells = 0
For Each rng In table_Array
If rng.Interior.Color = 255 Then howManyRedCells = howManyRedCells + 1
Next
End Function
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!