-- 作者:漂亮美眉vszh
-- 发布时间:2019/3/22 15:49:00
-- FindRow查找6位的数值可找到,查找8位的找不到
此主题相关图片如下:123.png
此主题相关图片如下:456.png
Dim r As Integer r = Tables("MSA信号探测法子表").Findrow("基准值=\'0.47690111\'") MessageBox.Show(r) If r > 0 Then MessageBox.Show("对应基准值在:" & r + 1 & "行") Else MessageBox.Show("未查找到对应行或切换行刷新数据~~~") \' lb11.text = "未查找到对应行或切换行刷新数据~~~" End If
|