Excel 使用正则表达式校验数据有效性

Select Case Cells(1, y).Value '根据修改所在列 表头名 校验数据有效性
MsgBox "【" & Cells(1, y).Value & "】 第" & x & "行:" & text & vbCrLf & "会员号必须字母开头,长度为4~11位。", 48, "数据输入有误"

Excel 宏筛选数据

Private Sub EachExcel()    Dim i, j    j = UsedRange.Rows.Count    For i = 1 To UsedRange.Rows.Count '遍历所有行  &
分页:«1»

Copyright © 2009-2011 linhaibo.com. All Rights Reserved .