各位老师！大哥！帮忙看看！在下面的代码加个条件！

引用:

原帖由 白云2011 于 2011-8-10 20:49 发表
Sub 文本转数字()
With ActiveCell.Columns("B:IV")
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
End With
End Sub

引用:

原帖由 白云2011 于 2011-8-10 21:59 发表
Private Sub 文本转数字()
S = Range("A1:A" & Range("A" & Cells.Rows.Count).End(3).Row)
With ActiveSheet.UsedRange
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
End With
Range("A1:A" & Ran ...

复制内容到剪贴板

代码:

Sub Macro1()
    Dim cnn As Object, SQL$, s$
    SQL = "select * from [数据总表$a3:AI" & Sheets("数据总表").Cells(Rows.Count, 1).End(xlUp).Row & "]"
    If Len([D12]) Then s = s & " and f2='" & [D12] & "'"
    If Len([A11]) Then s = s & " and f1>=#" & [A11] & "#"
    If Len([A13]) Then s = s & " and f1<=#" & [A13] & "#"
    If Len(s) Then SQL = SQL & " where " & Mid(s, 6) '如果都为空则全部显示
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
    ActiveSheet.UsedRange.Offset(15).ClearContents
    [a16].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
    文本转数字
End Sub

Sub 文本转数字()
s = Range("A1:A" & Range("A" & Cells.Rows.Count).End(3).Row)
With ActiveSheet.UsedRange
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
End With
Range("A1:A" & Range("A" & Cells.Rows.Count).End(3).Row) = s
End Sub