VBA 函數公式無法執行 - Excel程式區

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 2020-12-19 14:44 | 顯示全部帖子

回復 2# ziv976688

太複雜了, 沒辦法

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

2^#

發表於 2020-12-19 15:14 | 顯示全部帖子

回復 2# ziv976688

既用vba, 何須複雜, 將各區段位址取出即可

對角五段區域的最大數-01.rar (12.64 KB)

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

3^#

發表於 2020-12-19 22:08 | 顯示全部帖子

回復 6# ziv976688

N = 0: Cx = 0  '換檔後, 變數要歸零
For Each xR In [A2:A60]
If xR Like "*_*" Then N = N + 1
If xR = "小計" Then
   S1 = xR(1, Cx + 2).Resize(1, N).Address
   S2 = xR(1, Cx + 2).Address(0, 0)
   Cells(65, Cx + 2).Resize(1, N) = "=IF(MAX(" & S1 & ")=" & S2 & "," & S2 & ","""")"
   Cx = Cx + N: N = 0
End If
Next

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

4^#

發表於 2020-12-24 11:15 | 顯示全部帖子

回復 9# ziv976688

N = 0: Cx = 0  '換檔後, 變數要歸零
dim xE as range
set xE=[A:A].find("總計",lookat:=xlwhole)
For Each xR In range("A2:A" & xE.row-2)
If xR Like "*_*" Then N = N + 1
If xR = "小計" Then
   S1 = xR(1, Cx + 2).Resize(1, N).Address
   S2 = xR(1, Cx + 2).Address(0, 0)
   Cells(65, Cx + 2).Resize(1, N) = "=IF(MAX(" & S1 & ")=" & S2 & "," & S2 & ","""")"
   Cx = Cx + N: N = 0
End If
Next