问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VBA引用单元格

发布网友 发布时间:2023-08-21 03:42

我来回答

3个回答

热心网友 时间:2024-12-15 03:07

以计算男,女人数为列,说明IF写法及单元格表示法
如E1单元格,可表示为range("E1")也可表示为cells(1,5)
用变量来表示:range("E"&j) 或cells(j,5)
下面说明IF的使用来计算男女人数
sub 计数 ()
dim R&,x&,Nan&,Nv&'建立整数变量
dim arr '建立一个数组,如果数据量大,用数组会运行快很多
r=range("E65536").end(xlup).row'计算出E列最后一个非空行的行号
arr=range("E1:E"&r).value'把E列所有数据装入数组
for x=1 to ubound(arr)'建立一个循环,从1到数组的最大单元
if arr(x,1)="男" then'建立判断,如果是男性
nan=nan+1'男性计数,如果是男,男+1
else'如果不是男,因为性别只有男女所以不用elseif arr(x,1)="女" then
nv=nv+1'女性计数,如果不是男,则女+1
end if
next x'结束循环
msgbox "男:" & nan &"人,女:" & nv & "人"'弹出提示框男女的数量。也可以写入指定的单元格中
end sub
这是一个举例,旨在说明IF的用法,希望对您有所帮助。

热心网友 时间:2024-12-15 03:07

可以直接使用cells(r,c)引用单元格,用数字来表示行数和列数
比如a5单元格:cells(5,1)
E列是第5列,则:cells(j,5)
if语句:
if cells(j,5).value="男" then
'条件成立的语句放这里……
else
'条件不成立的语句放这里……
end if
------
字符串要用英文双引号括起来:"男"

热心网友 时间:2024-12-15 03:08

Dim j As Integer
If Range("E" & j).Value = "男" Then

或者
Dim j As Integer
Dim E As Range
Set E = Range("E" & j)
If E.Value = "男" Then
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
联想E盘不见了怎么办? 电脑e盘不见了怎么恢复?6个步骤找回e盘 五一去河源万绿湖游玩,需要携带哪些物品? 五一假期,旅行必带的物品是什么 建行办新卡用了新手机号,旧卡就自动绑了信号 请问电磁炉热敏电阻阻值是多少 电磁炉换电阻多少钱 电磁炉配件电阻多少钱 电磁炉510K大电阻多少钱一个 更换电磁炉电阻多少钱 看人潮如海爱唱歌的朋友大家一起来出自哪里 幼儿园你说耶我说耶,大家一起耶耶耶是什么歌曲的歌 上海到环球动漫嬉戏谷 自驾游 怎么走 老式厕所堵了怎么办 老式厕所回水怎么解决 给一些军事武器资料(谢谢,本人需要搞定作业问题) 浙教版九下科学第二、第三章总结、(写过的来) 飞鹤卓耀和卓睿哪款好 红米4怎么不支持generalu盘 老鹳草有什么功效与作用及药用价值 老鹳草的作用 丝状疣会不会病变 毛舜筠回忆张国荣时道出了什么? 因为张国荣 她可能这辈子都无法真心幸福 毛舜筠谈张国荣落泪后悔未嫁他,一段好的感情为什么总是抓不住?_百度知... 安发牌甘诺宝力胶 囊和其他保 健 品相 比有什么优 势吗? 超声波清洗剂的注意问题 超声波清洗与酸碱溶液清洗相比有什么特点 超声波清洗机废水可以循环使用么 超声清洗液50%的乙腈怎么处理回收 vba 数组参数问题 深圳壹海城销售代理是谁,占地面积是多少? 深圳壹海城为什么贵,房屋产权是多久? 从皇岗口岸坐地铁怎样才能到盐田壹海城 福田车站到盐田壹海城怎么走 从横岗到壹海城怎么坐车 萧的孔越多越好吗 为什么接收信息时对方发的宋体字自动显示为微软雅黑 哈工大威海分校有几个校区,有多大? 空速星痕三个女主一起上是哪一章 结晶紫储存方法 结晶紫保存方法 家里飞进来一直小蜜蜂会不会对人体有害 找回pp密码 凌波鱼嘌呤含量高吗 南京微创电子厂怎么样 戚啸艳是谁?国电南自独立董事 一次性活检钳谁家的好 南京儿童医院可以做心脏微创手术吗 桃科村属于哪个省哪个市 桃科村车牌号是多少