在Excel中如何判断VBA循环,达到条件时中止循环 20
在A:A列中有若干数字每个数字都是唯一的,在TextBox1中填入一个数字,判断与A列中的数字是否相同,则指定该单元格,否则找查下一个.请问要如何操作?...
在A:A列中有若干数字每个数字都是唯一的,在TextBox1中填入一个数字,判断与A列中的数字是否相同,则指定该单元格,否则找查下一个.
请问要如何操作? 展开
请问要如何操作? 展开
展开全部
启动excel后按Alt+F11启动VBA编辑环境,并在左侧点击右键→插入→用户窗体。在工具栏中,添加按钮到窗体:
双击按钮,并添加如下代码
Private Sub CommandButton1_Click()
Dim lastRow, i As Long
With Sheets(1)
lastRow = Sheets(1).UsedRange.Rows.Count
For i = 1 To lastRow
If TextBox1.Text = .Range("A" & i).Value Then
.Range("A" & i).Select
Exit For
End If
Next
End With
End Sub在VBA中运行窗口,测试结果为输入10,A列单元格的10被选中:
展开全部
Private Sub CommandButton1_Click()
Dim intTemp As Long
Dim I As Long
intTemp = Int(TextBox1.Text)
For I = 1 To 65534
If Sheet3.Cells(I, 1) = intTemp Then
Sheet3.Cells(I, 1).Select
Exit For
End If
Next
End Sub
sheet3要换成你的数据所在表
Dim intTemp As Long
Dim I As Long
intTemp = Int(TextBox1.Text)
For I = 1 To 65534
If Sheet3.Cells(I, 1) = intTemp Then
Sheet3.Cells(I, 1).Select
Exit For
End If
Next
End Sub
sheet3要换成你的数据所在表
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |