Question

我试图在Excel中完成一个小型VBA项目，目的是让我比使用内置过滤器/搜索选项更容易过滤数据。基本上我有一个表格，其中包含一些与数据标题相关的用户输入。我在搜索的值上有一个公差带的输入，例如输入是：标题名称;名义搜索值;公差。然后，它将找到该容差范围内的所有数据行。

我希望循环以便运行并将每一行复制到新工作表的代码如下所示。我想设置范围＆＃34; fc＆＃34;等于ssMin和ssMax之间的第一个找到的单元格。我最好使用If块吗？

import Vue from 'vue'
import App from './App'
import router from './router'

Vue.component('global', require('./components/Global'))

Vue.config.productionTip = false

new Vue({
  el: '#app',
  router,
  template: '<App/>',
  components: { App }
})

Answer 1

再次感谢您的评论，我今天玩了一个游戏，但无法通过高级过滤器来完成我想要的操作。沉浸在这个小小的if语句中，让我想知道为什么我一开始就困扰着.find。＆＃34; FR＆＃34;是一个在上一个函数中选择的范围，我不确定是否将它作为一个范围分配给它更加整洁但是我很难混淆我是如何通过它的从函数返回到子然后回到另一个函数但这个方法似乎工作。再次感谢那些评论的人！

Private Function searchCells(ifc)
Dim ss As Integer
Dim fc As Range
Dim ssMax As Integer
Dim ssMin As Integer
Dim cell As Range
Dim fr As Range

ss = lstboxChannelList.List(ifc, 1)
ssMax = ss + lstboxChannelList.List(ifc, 2)
ssMin = ss - lstboxChannelList.List(ifc, 2)


Set fr = Selection
For Each cell In fr

    If cell.Value < ssMax And cell.Value > ssMin Then
        cell.Select
        'More code to come here
        'MsgBox ("found one!")

    End If

Next cell

End Function

VBA在两个其他人之间找到任何价值

1 个答案: