ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索

facelist

您需要登录后才可以留言 登录 | 免费注册


xing_chen 2023-8-23 01:21
老师!抱歉!打扰。
Sub TEST_A3()
Dim Arr, i&, j%, k%, V, X&, N&
For t = 1 To Sheets.Count
Sheets(t).Select
Arr = Range([a1], [h65536].End(3)(2, 3))
For i = 2 To UBound(Arr) - 1
N = N + 1 - k
For j = 1 To 9: Arr(N, j) = Arr(i, j): Next-------下标越界
If Arr(i, 2) = "手续费" Then k = 1: V = V + Arr(i, 8): X = X + 1
If k = 1 Then Arr(N, 8) = V: Arr(N, 3) = X & "笔"
If Arr(i + 1, 2) <> "手续费" Then k = 0
Next i
[l2].Resize(N, 10) = Arr
Next
End Sub
例题在循环不了
https://club.excelhome.net/thread-1670750-1-1.html
(出处: ExcelHome技术论坛)
可以帮我看看嘛,下标越界错在哪里
冒昧打扰,敬请原谅。谢谢
0wchz 2023-7-30 15:32
求助有数值串对应求值代码,谢谢-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1668987-1-1.html?_dsign=d3ee1282,看看
我要注册 2023-7-19 07:21
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1667758&pid=11292927
请问老师:本贴若B、C列向下)相对应的比较着色如何修改设置呢!见14、15楼,麻烦解答一下 。
xing_chen 2022-10-21 09:36
老师,你好!方便的时候帮我看看https://club.excelhome.net/thread-1628333-2-1.html,此附件并修改,我修改多时为成。谢谢!
xing_chen 2022-10-19 11:44
老师,你好!由于担心我的讨教在论坛中下沉,你没有看到,所以冒昧在此留言。我的讨教在https://club.excelhome.net/thread-1641586-3-1.html,方便时帮忙修改一下。谢谢!
laoshenji 2019-2-1 09:39
给老师拜个早年!
TTZXX2016 2018-1-1 17:01
祝老师新年快乐!
玉阳山人 2017-10-4 17:46
祝老师双节快乐!
TTZXX2016 2017-10-1 06:22
祝老师节日快乐!
piny 2017-9-29 13:32
謝謝准大, 中秋佳節愉快 ^^
七夕、 2017-7-29 19:56
嗯.留个脚印
向老师学习`^^
510437958 2017-3-29 09:57
http://club.excelhome.net/thread-1337010-1-1.html准提老师,有时间看看这个小问题吗?
laoshenji 2017-3-7 16:26
老师:请相助http://club.excelhome.net/thread-1332520-1-1.html,谢谢!
piny 2017-1-26 15:16
准大, 雞年行大運 ^^
TTZXX2016 2017-1-1 11:30
祝老师新年快乐!
TTZXX2016 2016-10-1 10:31
节日快乐!
TTZXX2016 2016-9-15 12:17
中秋节快乐!
510437958 2016-5-17 17:30
http://club.excelhome.net/thread-1278287-1-1.html准提老师,有兴趣看看这个VBA吗?谢谢!.
piny 2016-4-11 23:41
准提部林: 朋友, 好久未見!
祝:
新年有新意, 意意皆如如
如如者, 一切都是最美好境界!
哈 現在才看到 也祝您事事順心 ^^
ykqrs 2016-3-9 18:09
准兄,春节开始今天第一次上论坛,祝你身体健康,万事如意
12下一页

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 17:58 , Processed in 0.034513 second(s), 3 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

返回顶部