excel表中,指定的单元格数字自动跳转到下一位数?

在这个表中,当蓝色的单元格数字发生变化时,红色的单元格会从1自动跳转到下一位数字... 在这个表中,当蓝色的单元格数字发生变化时,红色的单元格会从1自动跳转到下一位数字 展开
 我来答
boyayes
2021-07-17 · TA获得超过4518个赞
知道大有可为答主
回答量:4231
采纳率:75%
帮助的人:1034万
展开全部

你这个问题,公式就不行了,得用VBA解决了。

如果你的Office版本是WPS个人免费版是用不了VBA的,只能要用微软的Office软件。

如果你的Office版本是微软Office2007或更高版本,并且你的工作簿格式是.xlsx的,请另存为.xlsm格式(启用宏的工作簿)。

记住,以后截图带上行号和列号,不然单元格的名称都叫不出来。

我用D4和G2给你示范一下:

第1步:按ALT+F11打开VBA编辑器。

第2步:在左侧双击对应的工作表名。

第3步:在右侧粘贴代码。

第4步:关闭VBA编辑器。

为了方便你复制,代码如下:

Dim x As Variant '声明一个模块级变量x


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address(0, 0) = "D4" Then '如果单击目标是D4单元格

        x = Target.Value '把目标单元格的值记录到变量x中

    End If

End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address(0, 0) = "D4" Then '如果双击目标是D4单元格

        x = Target.Value '把目标单元格的值记录到变量x中

    End If

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "D4" Then '如果变更目标是D4单元格

        If Target.Value <> "" And Target.Value <> x Then '如果目标的值不是空值、且与之前的值不相等

            Application.EnableEvents = False

            Range("G2") = Val(Range("G2")) + 1 '那么把G2累加上1

            Application.EnableEvents = True

        End If

    End If

End Sub

追问

按照你的方式,我成功解决了问题,谢谢,我还想请教一下,比如我想红色单元格里面输入一个字下面就会一个个的显示出来,直到输入接近的产品时候,我可以直接回车,产品就自动显示在红色单元格里面,我现在弄的这一种就很不方便,要在小三角形那里拉出来,自己选,比较麻烦

追答
你这个问题可以考虑用VBA的用户窗体。不过有点小复杂,最好是即时交流才好办。
三勇星7860

2022-06-29 · 贡献了超过340个回答
知道答主
回答量:340
采纳率:5%
帮助的人:10.9万
展开全部
记住,以后截图带上行号和列号,不然单元格的名称都叫不出来。我用D4和G2给你示范一下:第1步:按ALT+F11打开VBA编辑器。第2步:在左侧双击对应的工作表名。第3步:在右侧粘贴代码。第4步:关闭VBA编辑器。为了方便...
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
乔二娜

2022-06-28 · 超过40用户采纳过TA的回答
知道答主
回答量:437
采纳率:86%
帮助的人:19.5万
展开全部
以前写完前面一格东西,按光标就可以到左边或者右边单元格,现在按光标,所有表格都移动,还不能到下一单元格。点鼠标很麻烦 怎么处理 键盘有个SCROLL LOCK 按了就好了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
擦村6

2022-06-29 · 贡献了超过486个回答
知道答主
回答量:486
采纳率:50%
帮助的人:11.8万
展开全部
? 等号,点击制定单元格
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
喊辟韧3925

2022-06-29 · 贡献了超过856个回答
知道答主
回答量:856
采纳率:75%
帮助的人:27万
展开全部
? 等号,点击制定单元格
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(6)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式