返回列表 上一主題 發帖

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

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

回復 12# GBKEE
TEST-2A.png
2017-11-24 07:37


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

GBKEE 超級版主:您好!
感謝您的提醒~重新再查閱一次;雖然沒有馬上領會,但經過一再套例子測試,終於懂得如何運用^^
程式碼非常短即可
  1. Private Sub CommandButton1_Click()
  2. Range("DK7:DM" & [DM65536].End(xlUp).Row).Interior.ColorIndex = -4142
  3. Range("DK" & Application.Match(Range("DK4"), Range("DK7:DK" & Sheets("Sheet1").[DK65536].End(xlUp).Row), 0) + 6).Resize(1, 3).Interior.ColorIndex = 8

  4. End Sub
複製代碼
TEST-2A.rar (13.51 KB)

TOP

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

回復 14# joblyc017

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

TOP

回復 18# GBKEE

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


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

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

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題