应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » EXCEL中的VBA程序问题
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 1099  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

yg4018

兑换贵宾

优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！

[求助] EXCEL中的VBA程序问题 已有2人参与

我想用EXCEL的VBA程序实现以下峰值筛选功能：
符合以下条件的点：
               Ini>Ini+1
               Ini>Ini-1
               Ini>c
其中Ini为ni处的值，c为常数100，
满足以上条件的点即为峰值。这个程序应当怎样编辑？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2016-10-19 12:38:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouxiaochun

实习版主

优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！
用for循环遍历

发自小木虫Android客户端
回复此楼
2楼2016-10-19 12:48:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

管理员

优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！

【答案】应助回帖

不需要用vba， 你直接用if函数就可以了。
楼主的 这个  Ini>Ini+1  不好弄啊，

函数格式：
if(logical_test,value_if_true,value_if_false)。
其中：“logical_test”表示设定的条件，“value_if_true”表示当目标单元格与设定条件相符时返回的函数值，“value_if_false”表示当目标单元格与设定条件不符时返回的函数值。
例如,   =if(fenshu>=60,"及格","不及格"
        其中分数是你引用的单元格。

多个条件，可以用excel的多条件if函数 ，学习下这个就会了
https://zhidao.baidu.com/question/260093456.html
赞一下 回复此楼
3楼2016-11-08 22:33:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onelightwang

兑换贵宾

优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！

【答案】应助回帖

★
jjdg: 金币+1, 谢谢 2017-03-02 03:17:06
dim S(10) as int   '预计峰值个数上线为10
dim T as int            '峰值数量
dim i as int       '计数君
   

for i=1 to N-1    'N为数据个数，请自行赋值
    if Cells(1,i) >C then
              if (Cells(i-1)-Cells(i))<0 ) and(Cells(i+1)-Cells(i))>0) then
                s(t)=i       
                T=T+1
              end if
    end if
next
赞一下 回复此楼
4楼2017-02-28 06:12:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yg4018 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +3 zzzzyk123 2026-04-01 3/150 2026-04-01 06:16 by 无际的草原
[考研] 324分 085600材料与化工 +9 呆鹅oor 2026-03-27 9/450 2026-04-01 00:46 by fmesaito
[考研] 材料专硕306英一数二 +3 z1z2z3879 2026-03-31 3/150 2026-04-01 00:39 by fmesaito
[考研] 材料科学与工程求调剂 +13 深V宿舍吧 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[考研] 284求调剂 +9 小熊～～ 2026-03-31 9/450 2026-03-31 18:22 by 253863592
[考研] 085600，321分求调剂 +7 大馋小子 2026-03-31 7/350 2026-03-31 18:02 by 无际的草原
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +11 dongfang59 2026-03-27 11/550 2026-03-31 16:51 by Wang200018
[考研] 322求调剂：一志愿湖南大学 材料与化工（085600），已过六级。 +10 XX小邓 2026-03-29 10/500 2026-03-31 16:46 by 不吃魚的貓
[考研] 材料专硕调剂 +13 椰椰。 2026-03-29 13/650 2026-03-31 16:37 by hypershenger
[考研] 本科211安全工程，初试290分，求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[考研] 一志愿南昌大学324求调剂 +6 hanamiko 2026-03-30 6/300 2026-03-31 12:19 by 唐沐儿
[考研] 0817化工学硕调剂 +7 努力上岸中！ 2026-03-31 7/350 2026-03-31 09:58 by nalakaiqi
[有机交流] 考研调剂 +8 watb 2026-03-26 8/400 2026-03-30 18:40 by 544594351
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 291求调剂 +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[考研] 298求调剂 +4 种圣赐 2026-03-28 4/200 2026-03-29 08:42 by q1092522407
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 一志愿211院校 344分 东北农业大学生物学学硕，求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
信息提示
关闭
请填处理意见
关闭