返回列表 上一主題 發帖

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

  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)

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

TOP

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



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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題