返回列表 上一主題 發帖

[發問] 按字元數量篩選電郵地址

回復 1# jcmdrt


    12位元 是指  @  前面的位元數 還是 總位元數??
1234567891234@XXX.XXX.XX  ?
1234567891234 ?

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

以下是一點點的小程式
可以先放一些試驗看看
再用篩選功能篩選
  1. Private Sub CommandButton1_Click()
  2. '前置
  3.     [a1] = "電子信箱"
  4.     [b1] = "總字數"
  5.     [c1] = " @所在位置"
  6.     [d1] = " @前字數"
  7.     [e1] = " @後字數"
  8.    
  9. '欄寬
  10.     Columns("a:a").Select
  11.     Selection.ColumnWidth = 35
  12.     Columns("B:B").Select
  13.     Selection.ColumnWidth = 10
  14.     Columns("C:C").Select
  15.     Selection.ColumnWidth = 15
  16.     Columns("D:D").Select
  17.     Selection.ColumnWidth = 10
  18.     Columns("E:E").Select
  19.     Selection.ColumnWidth = 10
  20.    
  21. '程式區
  22.     For pg = 2 To ActiveSheet.Range("a1").CurrentRegion.Rows.Count
  23.         Cells(pg, 2) = Len(Cells(pg, 1))
  24.         Cells(pg, 3) = InStr(Cells(pg, 1), "@")
  25.         Cells(pg, 4) = Mid(Cells(pg, 1), 1, Cells(pg, 3) - 1)
  26.         Cells(pg, 5) = Mid(Cells(pg, 1), Cells(pg, 3) + 1, 90)
  27.    
  28.     Next
  29. End Sub
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復 7# jcmdrt

這個是將要分解的 電子信箱 放在A欄位..
執行後  會分解開來
可依照 總字數是否超過12 再去做篩選(excel 內有預設功能)

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題