如何更新名单

bgt1982 · 发表于 2022-11-30 13:30

VBA没有多少基础，找不到方向，特来求教。

要求点击控件之后，更新A列抽奖名单（删掉已经抽过奖的3个名单）。

wengjl · 发表于 2022-11-30 13:38

你只要把抽中的，在B列标记上 1
再抽时，加个条件 B列为空。这样就排除了

bgt1982 · 发表于 2022-11-30 16:18

wengjl 发表于 2022-11-30 13:38
你只要把抽中的，在B列标记上 1
再抽时，加个条件 B列为空。这样就排除了

那还不如我现在方便，只要选中抽中的，右键选择删除，单元格上移，马上就能进行下一轮抽奖。

wengjl · 发表于 2022-11-30 16:34

bgt1982 发表于 2022-11-30 16:18
那还不如我现在方便，只要选中抽中的，右键选择删除，单元格上移，马上就能进行下一轮抽奖。

你这是手工操作。
B列标记1，那是可以用VBA自动处理的

media888 · 发表于 2022-11-30 21:38

。
。
。
Calculate

i = 1
For p = i To 250
If Sheet16.Range("C2") = Sheet16.Cells(p, 1) Then Sheet16.Cells(p, 1).Delete Shift:=xlShiftUp

Next

media888 · 发表于 2022-11-30 21:40

Calculate
Calculate
Calculate

i = 1
For p = i To 250
If Sheet16.Range("C2") = Sheet16.Cells(p, 1) Then Sheet16.Cells(p, 1).Delete Shift:=xlShiftUp

Next

bgt1982 · 发表于 2022-12-2 16:22

media888 发表于 2022-11-30 21:40
Calculate
Calculate
Calculate

像我这种没有VBA基础的人，就需要这样的帮助，谢谢！

bgt1982 · 发表于 2022-12-2 19:35

media888 发表于 2022-11-30 21:40
Calculate
Calculate
Calculate

不知道为什么，没有达到预期的效果，执行后没有按照预期的要求删掉抽奖名单，看代码好像又没有问题，能否提示下哪里出了问题？

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

[求助] 如何更新名单

评分

评分