24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1088  |  回复: 3

yg4018

新虫 (初入文坛)

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

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

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouxiaochun

铁杆木虫 (正式写手)

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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 安徽大学专硕生物与医药专业(086000)324分,英语已过四六级,六级521,求调剂 +4 美味可乐鸡翅 2026-03-26 4/200 2026-03-27 15:27 by 星空星月
[考研] 308求调剂 +6 墨墨漠 2026-03-27 6/300 2026-03-27 15:20 by caszguilin
[考研] 085601 材料工程 313分 求调剂 +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[考研] 085600材料与化工306 +10 z1z2z3879 2026-03-21 11/550 2026-03-27 11:31 by wangjy2002
[考研] 333求调剂 +3 question挽风 2026-03-23 3/150 2026-03-27 11:29 by 不吃魚的貓
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
[考研] 一志愿吉大071010,316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 333求调剂 +7 87639 2026-03-21 12/600 2026-03-26 22:08 by 不吃魚的貓
[考研] 总分322求生物学/生化与分子/生物信息学相关调剂 +5 星沉uu 2026-03-26 6/300 2026-03-26 19:02 by macy2011
[考研] 340求调剂 +3 Amber00 2026-03-26 3/150 2026-03-26 18:57 by 不吃魚的貓
[考研] 一志愿211 初试270分 求调剂 +6 谷雨上岸 2026-03-23 7/350 2026-03-26 18:55 by 不吃魚的貓
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 311求调剂 +3 冬十三 2026-03-24 3/150 2026-03-24 21:31 by peike
[考研] 306求0703调剂一志愿华中师范 +10 纸鱼ly 2026-03-21 11/550 2026-03-24 17:22 by qingfeng258
[考研] 材料/农业专业,07/08开头均可,过线就行 +3 呵唔哦豁 2026-03-23 4/200 2026-03-23 22:30 by 汪!?!
[论文投稿] 急发核心期刊论文 +3 贤达问津 2026-03-23 5/250 2026-03-23 17:13 by 妹子不好惹
[考研] 求调剂一志愿海大,0703化学学硕304分,有大创项目,四级已过 +6 幸运哩哩 2026-03-22 10/500 2026-03-22 20:10 by edmund7
信息提示
请填处理意见