返回列表 上一主題 發帖

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

stephenlee

帖子
63 
主題
32 
精華
0 
積分
125 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2018-7-19 
最後登錄
2022-8-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-9-14 10:04 | 只看該作者

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

驗證欄位名稱問題。

假設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

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

2016猴年全勤獎章
2#
發表於 2020-9-14 10:49 | 只看該作者
  1. Sub zz()
  2. Dim c, a, Msg$, n&
  3. c = Array("Line", "JobNo", "Color", "Size", "PO")
  4. a = [a1:e1].Value
  5. For j = 1 To UBound(a, 2)

  7. If UCase(c(j - 1)) = UCase(a(1, j)) Then
  8.     Msg = Msg & Chr(10) & j & " " & "Text compare passed"
  9.     If Not c(j - 1) = a(1, j) Then
  10.         Msg = Msg & " but Case not matched"
  11.     Else
  12.         Msg = Msg & " and Case macthed"
  13.         n = n + 1
  14.     End If
  15. Else
  16.     Msg = Msg & Chr(10) & j & " " & "String compare failed"
  17. End If
  18. Next
  19. If n = UBound(a, 2) Then Msg = "!All Passed"
  20. If Len(Msg) > 0 Then Debug.Print Mid(Msg, 2)
  21. End Sub
複製代碼

TOP

stephenlee

帖子
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

准提部林

帖子
2836 
主題
10 
精華
0 
積分
2892 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-30 
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

帖子
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

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題