[第46问]请帮我把表格中的函数公式改写成VBA代码

hbhs2022 · 发表于 2024-5-17 09:47

本帖最后由 hbhs2022 于 2024-5-17 12:24 编辑

附件有说明。

baofa2 · 发表于 2024-5-17 11:24

本帖最后由 baofa2 于 2024-5-17 11:57 编辑

三分区，第二分区统计13-23，共11个，若12个，与其它的规律一致，可写出通用的来，不然还得单独处理

hbhs2022 · 发表于 2024-5-17 11:37

baofa2 发表于 2024-5-17 11:24
三分区，第二分区统计13-23，共11个，若12个，与其它的规律一致，可写出通用的来，不然还得单独处理

这样分区对称些。

baofa2 · 发表于 2024-5-17 11:50

hbhs2022 发表于 2024-5-17 11:37
这样分区对称些。

Sub test0()
Dim data, results() As Long
Dim i As Long, j As Long, k As Long, p As Long, x As Long
Sheet2.Activate
x = Range("AY3").Value + 2
k = -Int(-35 / x)
data = Range("C4:G4", Range("C4:G4").End(xlDown)).Value
ReDim results(1 To UBound(data), 1 To 7)
For i = 1 To UBound(data)
For j = 1 To UBound(data, 2)
p = -Int(-data(i, j) / k)
If x = 3 Then If data(i, j) = 24 Then p = 3
results(i, p) = results(i, p) + 1
Next
Next
With Range("AZ4").Resize(UBound(results), UBound(results, 2)) '自行改为 Range("AQ4")
.ClearContents
.Resize(, x).Value = results
End With
Beep
End Sub

复制代码

hbhs2022 · 发表于 2024-5-17 12:24

本帖最后由 hbhs2022 于 2024-5-17 12:29 编辑

非常正确。谢谢！把函数公式清除，把代码加上去，单元格底纹改变了，我又重新设置条件格式。

蓝桥玄霜 · 发表于 2024-5-17 12:35

把表单控件换成ActiveX控件，显示内容相同。输入代码执行即可。

hbhs2022 · 发表于 2024-5-17 13:04

蓝桥玄霜发表于 2024-5-17 12:35
把表单控件换成ActiveX控件，显示内容相同。输入代码执行即可。

谢谢！非常正确！

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

[已解决] [第46问]请帮我把表格中的函数公式改写成VBA代码