公式轉化為程式語法。 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 公式轉化為程式語法。

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

[發問] 公式轉化為程式語法。

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

11^# 跳轉到 »

發表於 2017-11-24 07:39 | 顯示全部帖子

本帖最後由 papaya 於 2017-11-24 07:41 編輯

回復 12# GBKEE

"不懂的VBA程式碼,可將不懂的函數,方法,在VBA說明上查看如 Application,或 Rows"

GBKEE 超級版主:您好!
感謝您的提醒~重新再查閱一次；雖然沒有馬上領會，但經過一再套例子測試，終於懂得如何運用^^
程式碼非常短即可

Private Sub CommandButton1_Click()
Range("DK7:DM" & [DM65536].End(xlUp).Row).Interior.ColorIndex = -4142
Range("DK" & Application.Match(Range("DK4"), Range("DK7:DK" & Sheets("Sheet1").[DK65536].End(xlUp).Row), 0) + 6).Resize(1, 3).Interior.ColorIndex = 8
End Sub

複製代碼

TEST-2A.rar (13.51 KB)

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

12^#

發表於 2017-11-24 07:55 | 顯示全部帖子

本帖最後由 papaya 於 2017-11-24 07:56 編輯

回復 14# joblyc017

J大:
除了一個字一個字重新敲鍵(真的不能接受必須這樣做)，實在不知如何複製貴解答程式碼~
所以未能測試貴解答檔的結果~尚請見諒!
再次感謝您的不吝指導^^

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

13^#

發表於 2017-11-24 14:26 | 顯示全部帖子

回復 18# GBKEE

多試試看指定物件變數,可減少vba編寫的錯誤

GBKEE 超級版主:您好!
您的標準範例，小弟會仔細研讀~感恩

謝謝您一再的溫馨叮嚀。
剛剛已有上網訂了1本~跟我學Excel VBA
希望有所幫助

靜思自在 : 屋寬不如心寬。

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