驗證欄位名稱問題。 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 驗證欄位名稱問題。

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

2016猴年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

中學生 Rank: 2

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

2016猴年全勤獎章

2^#

發表於 2020-9-15 17:43 | 顯示全部帖子

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

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

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題