返回列表 上一主題 發帖

[發問] 不同欄位中數字的比對

kyotogoeric

帖子
8 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-9-4 
最後登錄
2014-11-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-4 21:12 | 只看該作者

[發問] 不同欄位中數字的比對

今天在工作中接到一個令我想不出辦法的難題，不知是否有人能提供好方法

問題是這樣的。

在兩個不同欄位中有兩組長度不同的數字，可是我只想比對兩組數字中的某兩個數字

例如：30020150000,04HE15-100。

這兩個欄位中的數字長度不同，但我只想比對標記紅色的數字是否相同，若不同則數字反紅

請教各位，有這樣的公式可寫嗎？
收藏 分享

luhpro

帖子
833 
主題
6 
精華
0 
積分
913 
點名
8  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-9-18 
2#
發表於 2014-9-6 03:25 | 只看該作者
本帖最後由 luhpro 於 2014-9-6 03:28 編輯
今天在工作中接到一個令我想不出辦法的難題，不知是否有人能提供好方法

請教各位，有這樣的公式可寫嗎？
kyotogoeric 發表於 2014-9-4 21:12

若想要現成的沒有,
因為 Excel 系統自帶的公式其作用主體為 "儲存格", 沒有針對其內個別文數字做處理的公式.

不過可以自己做一個 :  底下函數使用的方式為 :  =CompNumber(A1,B1) , 傳回值為布林值
  1. Function CompNumber(rng1 As Range, rng2 As Range) As Boolean
  2.   Dim iNum1%, iNum2%, iPos%, iLen%
  3.   Dim rTar As Range
  4.   
  5.   CompNumber = False
  6.   Set rTar = rng1
  7.   iLen = Len(rTar)
  8.   For iPos = 1 To iLen
  9.     With rTar.Characters(Start:=iPos, Length:=2).Font
  10.       If .ColorIndex = 3 Then Exit For
  11.     End With
  12.   Next
  13.   If iPos <> iLen Then
  14.     iNum1 = CInt(Mid(rTar, iPos, 2))
  15.   Else
  16.     Exit Function
  17.   End If
  18.   
  19.   Set rTar = rng2
  20.   iLen = Len(rTar)
  21.   For iPos = 1 To iLen
  22.     With rTar.Characters(Start:=iPos, Length:=2).Font
  23.       If .ColorIndex = 3 Then Exit For
  24.     End With
  25.   Next
  26.   If iPos <> iLen Then
  27.     iNum2 = CInt(Mid(rTar, iPos, 2))
  28.   Else
  29.     Exit Function
  30.   End If
  31.   
  32.   If iNum1 = iNum2 Then CompNumber = True
  33. End Function
複製代碼
而若想當比對不符就直接將文字變為紅色 :
  1. Private Sub cbComp_Click()
  2.   ChkNum [A1], [B1]
  3. End Sub

  5. Sub ChkNum(rng1 As Range, rng2 As Range)
  6.   Dim iNum1%, iNum2%, iPos%, iLen%
  7.   Dim lRow&
  8.   Dim rTar As Range
  9.   
  10.   Set rTar = rng1
  11.   lRow = 0
  12.   While rng1.Offset(lRow) <> ""
  13.     iLen = Len(rTar)
  14.     For iPos = 1 To iLen
  15.       With rTar.Characters(Start:=iPos, Length:=2).Font
  16.         If .ColorIndex = 3 Then Exit For
  17.       End With
  18.     Next
  19.     If iPos <> iLen Then
  20.       iNum1 = CInt(Mid(rTar, iPos, 2))
  21.     Else
  22.       Exit Sub
  23.     End If
  24.   
  25.     Set rTar = rng2.Offset(lRow)
  26.     iLen = Len(rTar)
  27.     For iPos = 1 To iLen
  28.       With rTar.Characters(Start:=iPos, Length:=2).Font
  29.         If .ColorIndex = 3 Then Exit For
  30.       End With
  31.     Next
  32.     If iPos <> iLen Then
  33.       iNum2 = CInt(Mid(rTar, iPos, 2))
  34.     Else
  35.       Exit Sub
  36.     End If
  37.   
  38.     If iNum1 <> iNum2 Then
  39.       rng1.Offset(lRow).Font.ColorIndex = 3
  40.       rng2.Offset(lRow).Font.ColorIndex = 3
  41.     End If
  42.     lRow = lRow + 1
  43.     Set rTar = rng1.Offset(lRow)
  44.   Wend
  45. End Sub
複製代碼
數字比對-a.zip (12.46 KB)

TOP

kyotogoeric

帖子
8 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-9-4 
最後登錄
2014-11-2 
3#
發表於 2014-9-6 21:14 | 只看該作者
感謝回覆

我要研究一下，因為我是初學者，還不知道怎麼將上述的自製公式帶入我的excel內

TOP

kyotogoeric

帖子
8 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-9-4 
最後登錄
2014-11-2 
4#
發表於 2014-9-17 10:07 | 只看該作者
除了VBA我這幾天也利用函數做了一個簡單的比對方式，也是可以比較出欄位中兩欄位數字是否相同

IF(RIGHT(LEFT(欄位,自左邊算數字長度),比對數字)=RIGHT(欄位,自左邊算數字長度),比對數字),"ok","NG")

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
5#
發表於 2014-9-17 13:59 | 只看該作者
回復 4# kyotogoeric

例如：30020150000,04HE15-100。

這兩個欄位中的數字長度不同，但我只想比對標記紅色的數字是否相同，若不同則數字反紅

1. 資料及規則說明太少，若以目前來看
A1 30020150000
B1  04HE15-100
C1 公式 =IF(MID(A1,6,2)=MID(B1,5,2),"同","不同")

標記紅色，可以用 設定格式化條件來標示(整個儲存格用顏色提醒)
設定公式 =MID($A1,6,2)<>MID($B1,5,2)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題