[發問] 驗證欄位名稱問題。

驗證欄位名稱問題。

假設A1:E1 有 5個欄位名稱

每一個欄位名稱我要驗證是否是我所要求的名稱。

例如 A1至E1 分別是

Line JobNo Color Size PO

我要先開始驗證A1是不是Line, B1是不是Job No, C1是不是Color,D1是不是Size, E1是不是PO

如果由A1檢查到E1 如果是我所驗證的欄位名稱(需要大小寫完全相符),如果是的話,在檢查後以一個彈出式提示
告知沒有問題。以一次提示, 不能每一個驗到有問題後再一直彈出提示。

如果A1至E1 有任何一個欄位名稱與我所要求的不符,則彈出式提示有問題,好讓我之後查證。謝謝

樓主熱帖

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

2^#

發表於 2020-9-14 10:49 | 只看該作者

Sub zz()
Dim c, a, Msg$, n&
c = Array("Line", "JobNo", "Color", "Size", "PO")
a = [a1:e1].Value
For j = 1 To UBound(a, 2)
If UCase(c(j - 1)) = UCase(a(1, j)) Then
Msg = Msg & Chr(10) & j & " " & "Text compare passed"
If Not c(j - 1) = a(1, j) Then
Msg = Msg & " but Case not matched"
Else
Msg = Msg & " and Case macthed"
n = n + 1
End If
Else
Msg = Msg & Chr(10) & j & " " & "String compare failed"
End If
Next
If n = UBound(a, 2) Then Msg = "!All Passed"
If Len(Msg) > 0 Then Debug.Print Mid(Msg, 2)
End Sub

複製代碼

TOP

stephenlee

中學生 Rank: 2

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

3^#

發表於 2020-9-14 11:15 | 只看該作者

ikboy 發表於 2020-9-14 10:49

謝謝大哥幫忙,不好意思我貼上了之後 ,沒有任何提示彈出,可否再麻煩你幫忙再看一下代碼是否有問題。

非常感謝閣下幫忙。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2020-9-14 11:56 | 只看該作者

本帖最後由准提部林於 2020-9-14 12:02 編輯

大小寫必須相同:
Sub Macro1()
Dim AR, i%, M, C%
M = Array("檢查無誤", "有錯誤-標示紅字")
AR = Array("", "Line", "JobNo", "Color", "Size", "PO")
With Range("A1:E1")
   .Font.ColorIndex = 0
   For i = 1 To .Count
      If .Item(i) <> AR(i) Then .Item(i).Font.Color = vbRed: C = 1
   Next i
End With
MsgBox M(C)
End Sub

檢查一個不符即跳出:
If .Item(i) <> AR(i) Then .Item(i).Font.Color = vbRed: C = 1: Exit For

若有空格問題, 將文字色改成底色 .Interior.Color

========================

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

5^#

發表於 2020-9-15 17:43 | 只看該作者

謝謝大哥幫忙,不好意思我貼上了之後 ,沒有任何提示彈出,可否再麻煩你幫忙再看一下代碼是否有問題。 ...
stephenlee 發表於 2020-9-14 11:15

我使用Debug.print 顯示, 你可以改為 Msgbox Mid(Msg, 2)

TOP