公式轉化為程式語法。 - Excel程式區

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兔年全勤獎章

12^#

發表於 2017-11-23 08:21 | 只看該作者

回復 11# papaya
參考看看,
不懂的VBA程式碼,可將不懂的函數,方法,在VBA說明上查看如 Application,或 Rows

Option Explicit
Private Sub CommandButton1_Click()
Dim Rng As Range, M As Integer
Set Rng = Range("DK7", [DK7].End(xlDown))
M = Application.Max(Rng)
M = Application.Match(M, Rng, 0)
[DT1] = Rng.Cells(M).Address(0, 0)
With Rng.Resize(, 3)
.Interior.ColorIndex = xlNone
.Rows(M).Interior.ColorIndex = 8
[dk4].Resize(, 3) = .Rows(M).Value
End With
End Sub
Private Sub CommandButton2_Click()
Dim Rng As Range, M As Integer
Set Rng = Range("DK7", [DK7].End(xlDown)).Resize(, 3)
For i = 1 To Rng.Columns.Count
'*** 搜尋範圍內的每個欄位的最大值 ****
With Rng.Columns(i)
'M = Application.Max(.Cells)
M = Application.Match(Application.Max(.Cells), .Cells, 0)
[DT1].Offset(i - 1) = .Cells(M).Address(0, 0)
End With
With Rng
If i = 1 Then .Interior.ColorIndex = xlNone
.Rows(M).Interior.ColorIndex = Array(, 8, 15, 22)(i)
[dk4].Offset(i - 1).Resize(, 3) = .Rows(M).Value
End With
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

13^#

發表於 2017-11-23 09:54 | 只看該作者

本帖最後由 papaya 於 2017-11-23 09:59 編輯

回復 12# GBKEE

超級版主:您好!
感謝您撥冗解答。
貴解答，小弟會細心仔細的研究~感恩^^

小弟才剛學VBA，連宣告變數定義都還沒有搞懂，但又必須要馬上用；
雖然早就有看微軟的相關函數使用在VBA的說明，但總覺得艱澀難懂；
又想到一直上論壇麻煩人，也不是辦法，所以儘量先上網找相近的程式語法套用。
日前看到可以利用Application將公式轉為語法，也不用再選擇貼上值，因此就一直測試各函數中，
有哪些函數能利用Application轉化? 並上網求教正確的寫法。

很巧~剛剛瀏覽到一篇連陣列公式都可以不用選擇貼上值的文章︰
http://forum.twbts.com/viewthread.php?tid=2122&extra=&page=1
5#
因為該題的提問者和回答者都已許久未登錄論壇，所以正好藉此請教您︰敬請撥冗惠予賜教~
不知是否能以~
X = ["DK"&MATCH($DK$4,INDIRECT("DK7:DK"&COUNT(DK:DK)+3),)+6]
Range(X).Resize(1, 3).Interior.ColorIndex = 8
(以上只是舉例)
之類似程式碼來完成需求?
如果可以，請指導正確的寫法；
如果不型~亦敬請告知。
謝謝您^^

joblyc017

　暱稱:

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

14^#

發表於 2017-11-23 09:59 | 只看該作者

本帖最後由 joblyc017 於 2017-11-23 10:05 編輯

回復 11# papaya

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

15^#

發表於 2017-11-23 10:07 | 只看該作者

回復 14# joblyc017
J大:您好!
感謝您撥冗再次指導。

可否麻煩您將程式罵另外貼上。
圖檔無法複製。
謝謝您^^

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

16^#

發表於 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)

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

17^#

發表於 2017-11-24 07:55 | 只看該作者

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

回復 14# joblyc017

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

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兔年全勤獎章

18^#

發表於 2017-11-24 08:41 | 只看該作者

本帖最後由 GBKEE 於 2017-11-24 08:44 編輯

回復 16# papaya

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

Option Explicit
Private Sub CommandButton1_Click()
Dim Rng As Range, M As Variant
Dim Sh As Worksheet
Set Sh = Sheets("sheet1")
Set Rng = Sh.Range("DK7:DM" & Sh.[DM65536].End(xlUp).Row)
With Rng
.Interior.ColorIndex = -4142
M = Application.Match(Sh.Range("DK4"), .Columns(1), 0)
If IsNumeric(M) Then '有找到
.Cells(M, 1).Resize(1, 3).Interior.ColorIndex = 8
End If
End With
'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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

19^#

發表於 2017-11-24 14:26 | 只看該作者

回復 18# GBKEE

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

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

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