Board logo

標題: Excel VBA Check Email Format [打印本頁]
作者: 黑道明    時間: 2019-12-14 19:50     標題: Excel VBA Check Email Format

本身set 左 DV
= ISNUMBER(MATCH("*@*.?*",AF2:AF2,0))
去阻止D人入錯野.....

點知佢地用複製貼上.......突破左DV............
依然入錯格式既Email比我.....

依家我想用VBA去搵邊隻錯格式 , 然後果格就轉紅色.
但係唔知點寫呢句 "*@*.?*"
  1. Private Sub CommandButton1_Click()


  4. For r = 1 To Range("a1").CurrentRegion.Rows.Count
  5.         
  6.             If LCase(Range("a" & r)) = ("*@*.?*") Then
  7.             
  8.                 Range("a" & r).Interior.ColorIndex = 0
  9.                
  10.         Exit For

  12.             Else

  14.                 Range("a" & r).Interior.ColorIndex = 3

  16.             End If
  17.             
  18.     Next r
  19.    
  20. End Sub
複製代碼
作者: d-snake    時間: 2019-12-15 16:30

用Regex
https://stackoverflow.com/questi ... essions-in-vbscript
作者: 黑道明    時間: 2019-12-15 17:59

用Regex
d-snake 發表於 2019-12-15 16:30


睇唔明佢做緊咩.....
Google 到都係差唔多既野....睇唔明.......

C兄可唔可以解釋一下每句發生緊咩事......

我停留係IF THEN ELSE 同FOR LOOP 階段
其他未識住......
  1. Function ValidEmail(ByVal emailAddress)

  3. 'this function will use regular expressions to check an '
  4. 'email address for validity '

  6. 'instantiate regex object container, output boolean '
  7. Dim objRegEx, retVal

  9. 'using late binding, vbscript reference is not required '
  10. Set objRegEx = CreateObject("VBScript.RegExp")

  12. '.pattern -looks for a valid email address '
  13. With objRegEx
  14.       .Pattern = "^\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b$"
  15.       .IgnoreCase = True
  16. End With

  18. retVal = objRegEx.Test(emailAddress)

  20. 'get rid of RegEx object '
  21. Set objRegEx = Nothing

  23. ValidEmail = retVal

  25. End Function
複製代碼
作者: myricky    時間: 2019-12-15 22:02

提示: 作者被禁止或刪除 內容自動屏蔽
作者: maninweb    時間: 2019-12-16 09:55

本身set 左 DV
= ISNUMBER(MATCH("*@*.?*",AF2:AF2,0))
去阻止D人入錯野.....

點知佢地用複製貼上....... ...
黑道明 發表於 2019-12-14 19:50


最簡單係用 filter, 做唔到十全十美, 都做到九成幾
Clipboard04.jpg

圖片附件: Clipboard04.jpg (2019-12-16 09:55, 67.33 KB) / 下載次數 104
https://h2.hkepc.com/forum/attachment.php?aid=2165243&k=7406112fa7b52bce6ffcbcc8ec520591&t=1781791658&sid=38c8OB9v6q

作者: myricky    時間: 2019-12-16 11:20

提示: 作者被禁止或刪除 內容自動屏蔽
作者: maninweb    時間: 2019-12-16 13:32

用filter唔得喎
@abc.

abc.@com
abc@abc.
以上呢D應該全部pass當無問題, 實際就錯到gg ...
myricky 發表於 2019-12-16 11:20


因為果 2 個 filter 只係簡單舉例, 只搵出無 . 及 @
其實個變化仲有好多玩法.
Clipboard02.jpg

圖片附件: Clipboard02.jpg (2019-12-16 13:30, 10.73 KB) / 下載次數 78
https://h2.hkepc.com/forum/attachment.php?aid=2165288&k=a3f785cff0b5b91c242a70fad496eb6f&t=1781791658&sid=38c8OB9v6q

作者: myricky    時間: 2019-12-16 13:42

提示: 作者被禁止或刪除 內容自動屏蔽
作者: maninweb    時間: 2019-12-16 17:24

filter係測唔到先後次序的(除左最前最後), 而"@"同"."又唔係最前後, 所以一定唔work ...
myricky 發表於 2019-12-16 13:42


最簡單方法係用 filter, 原先, 無乜點諗, 就將無 . 同 @ 嘅抽取嚟

諗深一層, 用 *@*.* 就基本上解決, 但係都有你引述的情況

再深一層, 用 ?*@?*.?*  就解決 .同 @ 之後缺字情況, 不過, 解決唔到 . 開頭, 咪用第二個 filter

我諗, 基本上解決百分之九十幾.

再有新情況, 就再改.
作者: d-snake    時間: 2019-12-18 16:00

睇唔明佢做緊咩.....
Google 到都係差唔多既野....睇唔明.......

C兄可唔可以解釋一下每句發生緊咩事... ...
黑道明 發表於 2019-12-15 17:59



成段code係一個function
ValidEmail("abc@test.com") 會return true
ValidEmail("abc@test") 會return false




歡迎光臨 電腦領域 HKEPC Hardware (https://h2.hkepc.com/forum/) Powered by Discuz! 7.2