数组应用中的问题

xyes1991

rq之前为啥使用冒号，而不是逗号

请问图片红框中的为啥是用冒号，而不是用逗号？

darklesson

冒号是两行不同的代码链接在一行使用。调用参数时方便你看查看代码而已。
例如
r=10:c=4
cells(r,c)=rnd

杨建营

这行代码相当于将两行代码简写为一行，中间的冒号是系统规定的。

feilanga

1. Sub ykcbf()
   
2.     Dim b(1 To 3), sum(1 To 3), st(1 To 3) '定义变量
   
3.     r = Cells(Rows.Count, "a").End(3).Row '计算数据行数
   
4.     arr = [a1].Resize(r, 4) '将数据读入数组
   
5.     Set d = CreateObject("Scripting.Dictionary") '创建字典对象
   
6.     Set d1 = CreateObject("Scripting.Dictionary")
   
7.     Set d2 = CreateObject("Scripting.Dictionary")
   
8.     Set d3 = CreateObject("Scripting.Dictionary")
   
9.     tod = Date '获取今天日期
   
10.     yf = Month(tod) '获取本月月份
    
11.     nf = Year(tod) '获取本年年份
    
12.     For i = 2 To UBound(arr) '遍历数据数组
    
13.         s = arr(i, 2) '获取当前行的名称
    
14.         rq = CDate(arr(i, 1)) '获取当前行的日期
    
15.         d(s) = "" '将名称存入字典
    
16.         summ = summ + arr(i, 4) '累加总金额
    
17.         If rq = tod Then '如果日期是今天
    
18.             d1(s) = "" '将名称存入今天的字典
    
19.             sum(1) = sum(1) + arr(i, 4) '累加今天的金额
    
20.         End If
    
21.         If Month(rq) = yf Then '如果日期是本月
    
22.             d2(s) = "" '将名称存入本月的字典
    
23.             sum(2) = sum(2) + arr(i, 4) '累加本月的金额
    
24.         End If
    
25.         If Year(rq) = nf Then '如果日期是本年
    
26.             d3(s) = "" '将名称存入本年的字典
    
27.             sum(3) = sum(3) + arr(i, 4) '累加本年的金额
    
28.         End If
    
29.     Next
    
30.     For x = 1 To 3 '遍历3个汇总结果
    
31.         Cells(x + 1, 12) = sum(x) '将金额输出在表格中
    
32.     Next
    
33.     Cells(2, 11) = d1.Count '输出今天的名称数量
    
34.     Cells(3, 11) = d2.Count '输出本月的名称数量
    
35.     Cells(4, 11) = d3.Count '输出本年的名称数量
    
36.     Cells(5, 11) = d.Count '输出总的名称数量
    
37.     Cells(5, 12) = summ '输出总金额
    
38. End Sub

复制代码

xyes1991

darklesson 发表于 2023-6-12 13:26
冒号是两行不同的代码链接在一行使用。调用参数时方便你看查看代码而已。
例如
r=10:c=4

明白了，谢谢