同一儲存格內資料進行大小比對 - Excelㄧ般區

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

11^# 跳轉到 »

發表於 2022-12-14 13:46 | 只看該作者

回復 9# Andy2483

回復自己又測試到更進一步認識自定義函數
函數裡宣告字串,使用者輸入儲存格位址,會自動轉化為字串值,可以少用一個變數

Option Explicit
Function MXA(字串 As String) As Double
Dim Y, V, j&, P#
Application.Volatile
Set Y = CreateObject("Scripting.Dictionary")
字串 = Replace(Replace(Replace(字串, " 長", ","), "、", ","), " ", ",")
V = Split(字串, ",")
For j = 3 To UBound(V) Step 4
If IsNumeric(V(j)) And V(j) <> "" Then
P = V(j): Y(P) = ""
End If
Next
MXA = Application.Max(Y.keys())
Set Y = Nothing: Erase V
End Function

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 31
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-28

12^#

發表於 2022-12-14 21:36 | 只看該作者

回復 11# Andy2483

regexp的解法

Sub test()
Dim Find_Num, reg As Object, i As Integer, mxa As Double
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "長(.+?)、"
reg.Global = True
Set Find_Num = reg.Execute(Range("d3"))
If Find_Num.Count > 0 Then
      For i = 0 To Find_Num.Count - 1
         If mxa < Find_Num(i).submatches(0) Then mxa = Find_Num(i).submatches(0)
      Next i
End If
MsgBox mxa
Set reg = Nothing
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

13^#

發表於 2022-12-14 22:05 | 只看該作者

vba自訂函數//
自訂文宇開頭後面的數字
可求 MAX, MIN, SUM...

Xl0000311-1.rar (12.99 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

14^#

發表於 2022-12-15 08:30 | 只看該作者

回復 12# quickfixer

謝謝前輩指導正則方法,後學習得很多知識
心得註解如下,請前輩再指導,謝謝

學習執行過程:

學習執行結果:

Option Explicit
Sub test_quickfixer()
Dim Find_Num As Object, reg As Object, i As Integer, mxa As Double
'↑宣告變數!(Find_Num,reg)是通用型變數,(i)是長整數變數,(mxa)是雙精度小數數字
Set reg = CreateObject("VBScript.RegExp")
Set Find_Num = CreateObject("VBScript.RegExp")
'↑令reg這物件變數是正則
reg.Pattern = "長(.+?)、"
'↑令正則的規則是 "長"字元與"、"符號之間(含)
'會計科目名稱,(.+?)可以是任意字符串故採用.加號表示科目名稱長度不能為0 ,
'加號之後的問號表示如果與之後的模式衝突時, 盡可能少地匹配相應的字符串(非貪婪匹配)
reg.Global = True
'↑正則的結果都要保留
Set Find_Num = reg.Execute(Range("d3"))
MsgBox Find_Num(1)
'MsgBox Find_Num(1, 1) '失敗偵錯
'MsgBox Find_Num(1, 0) '失敗偵錯
'MsgBox Find_Num(0, 1) '失敗偵錯
'↑令Find_Num這通用型變數是 [D3]儲存格值以reg執行的正則
'之前不確定Find_Num是陣列還是什麼? 今天進一步確定他也是物件
'1.SET
'2.Find_Num As Object
'3.Set Find_Num = CreateObject("VBScript.RegExp")
'4.MsgBox Find_Num(1)
If Find_Num.Count > 0 Then
'↑如果Find_Num這正則的數量是大於 0 ??
      For i = 0 To Find_Num.Count - 1
      '↑設順迴圈!i從0到 Find_Num正則的數量-1 (代表正則的索引號也是0開始)
         If mxa < Find_Num(i).submatches(0) Then
         '↑如果迴圈數正則中取Pattern = "長(.+?)、" 規則的小括號中的數值,
         '大於mxa這雙精度小數值??
         '找了好久!submatches(0)代表第一個子匹配,即小括號中的數值
            mxa = Find_Num(i).submatches(0)
            '↑mxa的初始值是0,後續迴圈正則經If判斷式比較後,會取得最大值的
         End If
      Next i
End If
MsgBox mxa
Set reg = Nothing
Set Find_Num = Nothing
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

15^#

發表於 2022-12-15 10:36 | 只看該作者

本帖最後由 Andy2483 於 2022-12-15 10:44 編輯

回復 13# 准提部林

謝謝前輩指導,後學在此帖學到很多知識
請前輩再指導,謝謝
函數輸入:

結果:

Function GetNum(xS As String, X$, TY$)
'↑自訂函數名GetNum,變數1(xS)是字串,變數2(X)是字串,變數3(TY)是字串
Dim T, k, s%, xD
'↑宣告(T,k,xD)是通用型變數,(s)是短整數
'後學還不能確定%&如何正確使用,可能是防止溢位??
GetNum = ""
'↑令GetNum這自訂函數值是空字元!
'代表的是先不管後面能不能有值,先給空格
xS = Replace(xS, X, "|" & X)
'↑令xS這輸入的變數字串進行字元置換(用輸入的X變數字串換成 "|"符號連接X變數字串)
s = Len(X)
'↑令s這短整數變數是輸入的X變數字串的字元數
If s = 0 Then Exit Function
'↑如果s字元數是 0,就結束自訂函數
Set xD = CreateObject("Scripting.Dictionary")
'↑令xD是字典
For Each T In Split(xS & "|", "|")
'↑設順迴圈!令T是 (xS輸入的變數字串連接"|"符號後被"|"符號分割的一維陣列)陣列子字串
'& "|" 暫不清楚為何要加這個??懇請指導
If Left(T, s) = X Then
'↑如果迴圈陣列子字串T的左側 s(輸入的X變數字串的字元數) 的字串,是輸入的X變數字串??
   k = k + 1
   '↑令k這通用型變數+1
   xD(k) = Val(Mid(T, s + 1))
   '↑令K這數字是key,
   'ITEM是迴圈陣列子字串T 取從s + 1個字元開始的全部字元,經Val函式轉化的數值
   '學到了
   '1.xD(k) = Val(Mid(T, 1)),Val函式轉化的字串開頭若不是數字,回傳值為0
   '2.Val函式轉化的字串判讀到可轉化為數值連續字元,之後的字元捨棄
End If
Next
If k = 0 Then Exit Function
'↑如果k是 0,就結束自訂函數
If UCase(TY) = "MAX" Then
'↑如果函數輸入的TY變數字串是 "MAX" ??
GetNum = Application.Max(xD.Items)
'↑令GetNum回傳xD字典裡的items最大值
ElseIf UCase(TY) = "MIN" Then
'↑否則如果函數輸入的TY變數字串是 "MIN" ??
GetNum = Application.Min(xD.Items)
'↑令GetNum回傳xD字典裡的items最小值
ElseIf UCase(TY) = "SUM" Then
'↑再否則如果函數輸入的TY變數字串是 "SUM" ??
GetNum = Application.Sum(xD.Items)
'↑令GetNum回傳xD字典裡的items平均值
End If
End Function
http://forum.twbts.com/thread-23804-1-1.html
'上鏈結帖用 Application.Volatile 是因為格式變化會影響自訂函數,
'所以將使用者定義的函數標示為易變,
'測試結果是游標格變化就會重算自訂函數

'此帖可以不必使用Application.Volatile,目標格編輯就會回傳值即可
Sub T_20221215()
MsgBox Val("4.21、03/04 12:00 AA-173.25(x)")
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

16^#

發表於 2022-12-16 07:41 | 只看該作者

本帖最後由 Andy2483 於 2022-12-16 07:47 編輯

回復 15# Andy2483

修正自己的武斷,不求甚解,
不要怪別人不教我們,該檢視自己努力了多少,做錯了多少決定,喪失了多少學習機會
回答錯了,修正回來就好了!

'1.xD(k) = Val(Mid(T, 1)),Val函式轉化的字串開頭若不是數字,回傳值為0
'2.Val函式轉化的字串判讀到可轉化為數值連續字元,之後的字元捨棄

Sub T_20221216_1() '可以開頭是小數點
MsgBox Val(".21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_2() '可以自動Trim掉前方空白字元
MsgBox Val(" 4.21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_3() '可以判斷開頭是負符連接小數點
MsgBox Val("-.21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_4() '可以判斷開頭是負符
MsgBox Val("-4.21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_5() '可以自動Trim掉前後方空白字元
MsgBox Val(" -4.21 、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_6() '可以判斷開頭是正符
MsgBox Val("+4.21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_7() '不做運算
MsgBox Val("+4.21+1、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_8() '自動去除中間的空白字元
MsgBox Val("+4.21 1 1、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_9() '不會將日期型式的字串判為日期,且整數的多於0會自動去除
MsgBox Val("03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_10() '不會將時間型式的字串判為時間
MsgBox Val("12:00 AA-173.25(x)")
End Sub
Sub T_20221216_11() '會判別奇怪符號
Workbooks.Add
[A1] = "1200" & ChrW(160) & "00 AA-173.25(x)"
MsgBox Val("1200" & ChrW(160) & "00 AA-173.25(x)")
http://forum.twbts.com/viewthrea ... &from=favorites
End Sub
Sub T_20221216_12() '可以開頭是小數也可以去空省零
MsgBox Val("00 0.21、03/04 12:00 AA-173.25(x)")
End Sub

'如果還有想到補充的,後學會再回來修正,謝謝論壇,謝謝各位前輩

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

17^#

發表於 2022-12-16 11:29 | 只看該作者

回復 13# 准提部林

謝謝前輩指導
後學研究前輩的範例陣列公式無法理解,請前輩撥空再指導
請教前輩:
1.是不是在第5大項開始就是陣列?
2.ROW($1:$19)*199-198,199 是什麼意義?
3.為什麼 --TEXT() 前面要有兩個 - 負號 ?

Xl0000311-1_20221216_1.zip (19.09 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

18^#

發表於 2022-12-23 11:40 | 只看該作者

本帖最後由 Andy2483 於 2022-12-23 11:46 編輯

回復 16# Andy2483

補充:
Sub T_20221216_11() '會辨認單引號
MsgBox Val("'4.21、03/04 12:00 AA-173.25(x)")
End Sub
Sub T_20221216_12() '會辨認"^"符號,而且出現型態不符的偵錯
MsgBox Val("4.21^2、03/04 12:00 AA-173.25(x)")
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

19^#

發表於 2022-12-23 12:30 | 只看該作者

回復 18# Andy2483

現在想得到的除錯方式:
Sub T_20221216_13() '會辨認單"^"符號,而且出現型態不符的偵錯
MsgBox Val(Replace("4.21^2、03/04 12:00 AA-173.25(x)", "^", ""))
MsgBox Val(Split("4.21^2、03/04 12:00 AA-173.25(x)", "^")(0))
'如果要運算:
MsgBox Val(Split("4.21^2、03/04 12:00 AA-173.25(x)", "^")(0)) ^ Val(Split("4.21^2、03/04 12:00 AA-173.25(x)", "^")(1))
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

20^#

發表於 2023-3-8 16:25 | 只看該作者

本帖最後由 Andy2483 於 2023-3-8 16:39 編輯

回復 15# Andy2483

謝謝准提部林前輩
'& "|" 暫不清楚為何要加這個??懇請指導

[D3]="03/04 10:00 AA-179.25(x) 長-4.21、03/04 12:00 AA-173.25(x) 長-3.019、03/05 12:00 AA-179(x) 長-5.169、875.09 長"
[B2]=GetNum(D3,"長","max")=0

======================================
抱歉!好像也不是這原因,繼續探索

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

[發問] 同一儲存格內資料進行大小比對

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]