求修改代码

LNS17 · 发表于 2019-6-25 19:29

本帖最后由 LNS17 于 2019-6-25 20:43 编辑

某列>=指定的数值/指定单元格值，详情请看附件：

求修改指定数值的值除以指定单元格值的代码.rar (12.25 KB, 下载次数: 5) ，一楼附件没有表达清楚，新的求助附件上传至5楼

sylinmc · 发表于 2019-6-25 19:52

结果显示在AH1？？只要一个结果？？那直接找最后一个值就行了

liulang0808 · 发表于 2019-6-25 19:53

楼主的需求描述，如果有多个满足需求的值，结果要怎么放？

LNS17 · 发表于 2019-6-25 20:02

本帖最后由 LNS17 于 2019-6-25 20:04 编辑

liulang0808 发表于 2019-6-25 19:53
楼主的需求描述，如果有多个满足需求的值，结果要怎么放？

你好超神，如例中Q2:Q14,所有>=3的值数的.... 补充补充： “个数”，也就是先得统计>=3的数值出现的个数，然后再用这个个数除以AJ1的值。..................忘记了这个的区别了，抱歉抱歉. AJ1的值就是A列有字行的行数

LNS17 · 发表于 2019-6-25 20:40

新附件上传

sylinmc · 发表于 2019-6-25 20:49

LNS17 发表于 2019-6-25 20:40
新附件上传

Sub 判断Q列()
r = Cells(Rows.Count, 17).End(3).Row
For i = 2 To r
If Cells(i, 17) >= 3 Then n = n + 1
Next
[AH1] = n / [AJ1]
End Sub

liulang0808 · 发表于 2019-6-25 20:58

Sub 判断Q列()
[aj1] = WorksheetFunction.CountA(Columns(1))
If [aj1] > 0 Then
[ah1] = WorksheetFunction.Round(WorksheetFunction.CountIf(Columns("Q:Q"), ">=3") / [aj1], 2)
End If
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 求修改代码