VB6.0 + Excel,判断数据的位置? 5C

在VB6.0+ Excel 中,如何判断某一数据在数据表中的位置?

例如,在数据表中某一个单元格数据为“MON”,如何判断他的位置?

4个回答

'What =>改成你要查的字符

Range("A1").Select
Dim targetRange As Range
Set targetRange = Cells.Find(What:="MON", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , MatchByte:=False, SearchFormat:=False)

If targetRange Is Nothing Then
Debug.Print "not found"
Else

Debug.Print targetRange.Row
Debug.Print targetRange.Column
Cells.FindNext(After:=ActiveCell).Activate

End If

'targetRange.Activate

你应该直接@大神啊,不能在这里干等着

 '
    Range("A1").Select
    Dim targetRange As Range
    Set targetRange = Cells.Find(What:="MONx", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False)

If targetRange Is Nothing Then
    Debug.Print "not found"
Else

    Debug.Print targetRange.Row
    Debug.Print targetRange.Column
    Cells.FindNext(After:=ActiveCell).Activate
End If

    'targetRange.Activate

Private Sub Command1_Click()
Dim Xlbook As Workbook
Dim Xlapp As Application
Dim Xlsheet As Worksheet
Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel
Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿
Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表

Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。

Xlbook.Close False '关闭工作簿 不保存
Set Xlapp = Nothing '释放
Set Xlbook = Nothing

End Sub

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!