excel如何在设定值范围显示ok

sub pd()'模块名

dim rng as range， p as integer， q as integer

p=80'设定范围下限值

q=90'设定范围上限值

for each rng in selection'遍历

if rng.value>=p and rng.value≤q then'判断范围

msgbox("ok")'若符合条件，则弹出窗体信息"ok"

end if

next

end sub

sheet页选定数据，vba窗口运行按钮(或按键盘上的F8)