打什么书能掉1格子啊 求大神指点 最好一本到位【神武逍遥外传吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：913,973贴子：
打什么书能掉1格子啊 求大神指点 最好一本到位
打什么书能掉1格子啊 求大神指点 最好一本到位
全新回合《逍遥情缘》2018回合巨制,激萌宠物,神兽自由交易,梦幻家园与你浪费相约,全新职业,回合巨制,情定逍遥,冲级领千元红包,九大活动喜迎公测,神兽,红包齐放送
有没有大神
一开始审判在5 上必杀把审判打掉了
你这只能保命或者强壮啊
没有稳不稳，都是看脸，缺啥补啥
高强力高追
贴吧热议榜
使用签名档&&
保存至快速回贴查看: 156|回复: 7
小女子跪求大神指点
阅读权限10
在线时间 小时
请大神指点：计算《食堂表》内考勤号码B列对应的M列的出勤数，将出勤加和对应每个人的考勤号码填写在《汇总表》的AK列。
19:07 上传
点击文件名下载附件
64.71 KB, 下载次数: 4
阅读权限20
在线时间 小时
打开汇总表时，显示“无法识别的文件格式&.
阅读权限10
在线时间 小时
重新上传一次，看是否能够打开
19:18 上传
点击文件名下载附件
123.21 KB, 下载次数: 7
阅读权限20
在线时间 小时
Set D = CreateObject(&SCRIPTING.DICTIONARY&)
ARR = Sheets(&食堂&).UsedRange
For I = 2 To UBound(ARR)
D(ARR(I, 2) & ARR(I, 4) & ARR(I, 6)) = D(ARR(I, 2) & ARR(I, 4) & ARR(I, 6)) + ARR(I, 13)
RL = Range(&C65536&).End(xlUp).Row
CL = [IV4].End(xlToLeft).Column
For X = 4 To RL
& &For Y = 5 To CL - 4
& &Cells(X, Y) = D(Cells(X, 3) & Cells(X, 4) & Cells(3, Y))
阅读权限20
在线时间 小时
附件----------
20:32 上传
点击文件名下载附件
27.35 KB, 下载次数: 2
阅读权限10
在线时间 小时
昨天刚学的字典 今天练练手
(73.65 KB, 下载次数: 1)
20:34 上传
点击文件名下载附件
Sub 汇总()
Set wb = Workbooks.Open(ThisWorkbook.Path & &\食堂.xls&)
Set d = CreateObject(&Scripting.Dictionary&)
num = wb.Worksheets(&食堂&).[b2].End(xlDown).Row
With wb.Worksheets(&食堂&)
For i = 2 To num
d(.Cells(i, 2).Value) = d(.Cells(i, 2).Value) + .Cells(i, 13).Value * 1
wb.Close 0
ThisWorkbook.Activate
For i = 4 To 9
Cells(i, 37) = d(CStr(Cells(i, 3).Value))
阅读权限20
在线时间 小时
建议1.将数据源与汇总放在同一工作簿中。
& & 2.汇总表中列标题日期单元格最好不要带没字，没有必要，若带汉字要对日期汉字进行字符串正则处理相当麻繁
& & 3.将数据源中的汇总字段不要设定为文格式，数字的文本格式怎么进行汇总？
& & 以上最基本，最基础的事项比解决问题更重要
阅读权限10
在线时间 小时
附件----------
为什么运行的是代码中断？
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有***Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师