请教一个数组问题

wcj6376tcp · 发表于 2024-6-1 20:59

WK = Array("周一", "周二", "周三", "周四", "周五")
fj = InputBox("请输入周几放假：", "提示：如周一", "周一")
请问这里如何添加代码才会变成以下效果？
WK = Array( "周二", "周三", "周四", "周五")

liulang0808 · 发表于 2024-6-1 21:02

是因为输入了对应信息所以才在数组中剔除吗？
可以考虑使用字典，先将数组内容赋值给字典
输入后，从字典中删除

wcj6376tcp · 发表于 2024-6-1 21:08

本帖最后由 wcj6376tcp 于 2024-6-1 21:16 编辑

liulang0808 发表于 2024-6-1 21:02
是因为输入了对应信息所以才在数组中剔除吗？
可以考虑使用字典，先将数组内容赋值给字典
输入后，从字典 ...

对的，我想在下面的代码中不再去执行改项名称的sheet了，正常情况遍历5天的表册，如果有放假则，排除该天现在因为左表是公式写的导致有放假，数据就会不统一，拜托拜托！
https://club.excelhome.net/thread-1693798-2-1.html

liulang0808 · 发表于 2024-6-1 21:21

Set d = CreateObject("scripting.dictionary")
For Each x In Array("周一", "周二", "周三", "周四", "周五")
d(x) = x
Next
fj = InputBox("请输入周几放假：", "提示：如周一", "周一")
If d.exists(fj) Then d.Remove fj
WK = d.keys

剑指E · 发表于 2024-6-1 21:32

wk = Filter(wk, fj, 0)

wcj6376tcp · 发表于 2024-6-1 21:37

本帖最后由 wcj6376tcp 于 2024-6-1 22:09 编辑

liulang0808 发表于 2024-6-1 21:21
Set d = CreateObject("scripting.dictionary")
For Each x In Array("周一", "周二", "周三", " ...

谢谢，这样后面代码修改了一下，可以了

wcj6376tcp · 发表于 2024-6-1 21:37

本帖最后由 wcj6376tcp 于 2024-6-1 21:44 编辑

剑指E 发表于 2024-6-1 21:32
wk = Filter(wk, fj, 0)

谢谢，这样原后续代码可以继续执行，能否同时剔除几个项？

剑指E · 发表于 2024-6-2 12:57

wcj6376tcp 发表于 2024-6-1 21:37
谢谢，这样原后续代码可以继续执行，能否同时剔除几个项？

只要wk数组内的元素字符完全包含字符串fj（fj不能为数组，但可以为数组的某个元素），比如
wk=Filter(wk,"周",0)结果将返回空数组

		自动登录	找回密码
密码			免费注册

[求助] 请教一个数组问题

评分

评分