想要用vba实现在一列数值中将第一个小于0的数值和最后一个大于0的值看作一个区间,并判断当这个区间的存在的名称不一致时,将区间标记为黄色(图中标记绿色是为了区分每个区间,判断完区间最后一个正数后,当下一次出现负数再重新判断)
关注
码龄 粉丝数 原力等级 --
- 被采纳
- 被点赞
- 采纳率
已结题
关于#vba#进行判断的问题
收起
- 写回答
- 好问题 0 提建议
- 关注问题
- 微信扫一扫点击复制链接分享
- 邀请回答
- 编辑 收藏 删除
- 收藏 举报
2条回答 默认 最新
- 关注
码龄 粉丝数 原力等级 --
- 被采纳
- 被点赞
- 采纳率
CSDN专家-showbo 2022-09-15 14:10关注示例如下
Sub setCellCValue() rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row For i = 2 To rownum '遍历数据行 If Sheets(1).Cells(i, "B") < 0 Then r = True lasta = Sheets(1).Cells(i, "A") For j = i + 1 To rownum '找最后一个正值 cella = Sheets(1).Cells(j, "A") If cella <> lasta Then r = False End If If Sheets(1).Cells(j, "B") > 0 And Sheets(1).Cells(j + 1, "B") < 0 Then Exit For End If lasta = cella Next If j > rownum Then j = rownum Sheets(1).Cells(j, "C") = r i = j End If Next End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢? 本回答被专家选为最佳回答 , 对您是否有帮助呢? 本回答被题主和专家选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏举报微信扫一扫点击复制链接分享编辑预览轻敲空格完成输入- 显示为
- 卡片
- 标题
- 链接
评论按下Enter换行,Ctrl+Enter发表内容
编辑
预览
轻敲空格完成输入
- 显示为
- 卡片
- 标题
- 链接
报告相同问题?
提交
- 2021-01-12 06:48回答 2 已采纳 第一个需求可以用这段代码 Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private S
- 2022-11-17 01:55回答 2 已采纳 Sub setCellCValue() rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row For i = 2 To
- 2023-01-09 07:02回答 7 已采纳 Sub CheckMergedCellsAdjacency() Dim rng1 As Range, rng2 As Range Set rng1 = Range("A1:B2")
- 2024-06-05 15:06VBA判断出现自定义序列则输出结果.xlsm 判断一列或者一行连续出现指定序列就输出指定结果
- 2018-12-04 05:48回答 1 已采纳 如果答案对你有帮助,请采纳下 ``` Sub hello() r = ThisWorkbook.Sheets(1).Range("A65535").End(xlUp).Row For i
- 2021-06-02 01:31回答 4 已采纳 ALTER FUNCTION [dbo].[节假日用时] ( @s datetime,@e datetime ) RETURNS int AS BEGIN DECLARE @result in
- 2021-10-09 01:49回答 2 已采纳 a=Worksheets("sheet1").Range("H" & i).Valuec=Worksheets("sheet1").Range("H" & m).ValueDim z as Integ
- 2020-12-14 09:01weixin_39754411的博客 在Excel的函数中我们有if函数,给定一个条件,...如何能通过VBA代码来对学生成绩进行一次性判定?1. 首先还是来到VBA的编程环境,点击“开发工具”> “Visual Basic”> 添加一个新的模块。2. 添加或手动写一个...
- 2017-09-21 01:13回答 4 已采纳 可行 写完直接用call 调用
- 2022-05-19 09:17回答 3 已采纳 题主要的代码如下 Sub getPrime() num = 0 s = "" For i = 101 To 199 Step 2 half = CInt(i / 2) i
- 2022-12-27 21:04回答 1 已采纳 写多个if呀
- 2022-12-14 11:58这个"Excel-VBA宏编程实例源代码-判断是否有错误发生以进行分歧处理.zip"压缩包文件包含了一个具体的例子,演示了如何在VBA宏中处理错误。 首先,让我们了解VBA中的错误处理机制。VBA提供了两种主要的错误处理结构...
- 2018-12-02 14:52因此,了解如何使用VBA判断一个工作簿是否处于结构保护或窗口保护状态,并根据判断结果采取相应的措施,就显得尤为重要。 #### 一、结构保护与窗口保护简介 **结构保护**:当工作簿启用结构保护后,用户将无法对...
- 2021-10-28 14:54七七禾页的博客 判断j列数据>m列数据>l列数据>m列数据,否则提示错误 Sub test() n = 5 '表示从第5行开始 While (n <= 147) '到147行终止 c1 = Range("j" + CStr(n)).Value 'j列判断 c2 = Range("k" + CStr(n))....
- 2022-12-15 14:20这个“Excel-VBA宏编程实例源代码-以是否为阵列进行判断.zip”文件提供了一个具体的示例,教我们如何通过VBA来判断一个变量是否为数组,这对于处理大量数据或执行复杂操作的用户来说尤其有用。 首先,我们需要理解...
- 没有解决我的问题, 去提问
问题事件
联系我们(工作时间:8:30-22:00)
400-660-0108kefu@csdn.net在线客服
- 京ICP备19004658号
- 经营性网站备案信息
- 公安备案号11010502030143
- 营业执照
- 北京互联网违法和不良信息举报中心
- 家长监护
- 中国互联网举报中心
- 网络110报警服务
- Chrome商店下载
- 账号管理规范
- 版权与免责声明
- 版权申诉
- 出版物许可证
- ©1999-2025北京创新乐知网络技术有限公司