2022年2月1日 星期二

【ExcelVBA教學】如何在VBA中動態判斷某一個儲存格的值是否等於某一個數字

這是網友問到的功能,因為他把程式碼寫在模組中,所以程式執行都沒作用,事件可以在工作表跟Thisworbook中找到,差別是一個是單一工作表另一個是所有工作表都會同時驅動。



address 回傳所在儲存格位置 例如:$A$1

column  回傳所在儲存格欄位順序 何如:range("a1").column 會回傳1

name 顯示物件名稱



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    MsgBox Sh.Name & Target.Address & "hi"

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

if Target.address="$A$1" and Target.value=100 then 

MsgBox "儲存格A1的值等於100"

end if

End Sub



沒有留言:

張貼留言

注意:只有此網誌的成員可以留言。

別再一個個手動轉檔了!這款免費 Word 神器,讓你一鍵批次轉 PDF,效率提升 100 倍

你是否也曾遇過這樣的場景?專案報告、學期作業或會議資料,手邊堆積了幾十個、甚至上百個 Word 檔案,老闆或教授卻要求全部轉成 PDF 格式繳交。於是,你只能認命地打開一個個檔案,點擊「另存新檔」、選擇 PDF、儲存、關閉,然後再重複下一個... 這個過程不僅枯燥乏味,更浪費了大...