遍历数组问题

一掷乾坤

假如有个数组arr（），有八个元素，数值为1-8，我输入一个数字，现在想遍历数组，如果我输入的值在数组中，就继续执行以后的代码，如果不存在，就提示我输入的数值有误，重新输入。
想问：判断这个不存在，代码要怎么写。

ykcbf1100

可以建一个字典，把数组中的值放进字典中，这样，只要判断输入的数字在不在字典中就可以了。

一掷乾坤

ykcbf1100 发表于 2023-4-21 16:26
可以建一个字典，把数组中的值放进字典中，这样，只要判断输入的数字在不在字典中就可以了。

我是这个想法 设置个变量等于0 如果有查到 就把变量改成1 最后判断变量的值，我去看看字典 还没了解过

盼盼198310

一掷乾坤 发表于 2023-4-21 16:39
我是这个想法 设置个变量等于0 如果有查到 就把变量改成1 最后判断变量的值，我去看看字典 还没了解过

这个办法可行

lushang2018

首先是for循环建立字典，然后是if dic（exits），最后在循环加入数组 redim preserve ,k=k+1,写入数组
这种情况，你最好发个案例上来，要不然不好理解和解决！

一掷乾坤

盼盼198310 发表于 2023-4-21 17:27
这个办法可行

这方法就是麻烦，碰到就要循环一次，我还不会自定义函数，还得继续学习。

盼盼198310

函数的底层也是循环,一样的

lizhipei78

一维数组可以使用filter，VBA.Filter(Arr, "a", 1)表示筛选包含a,不区分大小写，VBA.Filter(Arr, "A", 0, 1) '不包含A的意思,同理1不区分大小写,0区分大小写

一掷乾坤

盼盼198310 发表于 2023-4-21 17:53
函数的底层也是循环,一样的

确实，就是写一次循环用多次，或者写多次循环的区别。