请教各位老师，帮忙看下，如何用VBA来实现

chenhong0973 · 发表于 2024-4-8 13:40

yynrzwh 发表于 2024-4-8 11:50

老师您好：
ReDim br(1 To UBound(ar) - 2, 1 To 1)
For i = 3 To UBound(ar)
      s = Format(ar(i, 1), "yyyy-m-d")
      br(i - 2, 1) = ar(i, 17) / d(s)
      If ar(i, 48) = "" Then ar(i, 48) = ar(i - 1, 48)
这几句能加个注释吗？我想学习下，后面的自己来学着写，感谢！

yynrzwh · 发表于 2024-4-8 21:15

简单注释下，有基础应该能看懂

新建 Microsoft Excel 工作表.zip (319.55 KB, 下载次数: 7)

shiruiqiang · 发表于 2024-4-8 21:34

本帖最后由 shiruiqiang 于 2024-4-8 21:37 编辑

ykcbf1100 发表于 2024-4-8 10:02
你又退了？那我先观望一下。

表格线用绿的也行啊，非得红的刺眼

，自己折磨自己
ykcbf1100老师也观望了啊

ykcbf1100 · 发表于 2024-4-8 22:21

shiruiqiang 发表于 2024-4-8 21:34
表格线用绿的也行啊，非得红的刺眼，自己折磨自己
ykcbf1100老师也观望了啊

我主要怕浪费时间

chenhong0973 · 发表于 2024-4-9 09:36

shiruiqiang 发表于 2024-4-8 21:34
表格线用绿的也行啊，非得红的刺眼，自己折磨自己
ykcbf1100老师也观望了啊

谢谢老师的建议，绿色好看多了

chenhong0973 · 发表于 2024-4-9 10:01

yynrzwh 发表于 2024-4-8 21:15
简单注释下，有基础应该能看懂

谢谢老师的指点！

chxw68 · 发表于 2024-4-9 10:07

试试眼力。

chenhong0973 · 发表于 2024-4-9 10:47

本帖最后由 chenhong0973 于 2024-4-9 10:50 编辑

chxw68 发表于 2024-4-9 10:07
试试眼力。

老师，谢谢您在百忙之中抽空帮我解决问题，非常的感谢！

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

[求助] 请教各位老师，帮忙看下，如何用VBA来实现