- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-10-26
|
- 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
½Æ»s¥N½X |
|