请隐士高人系统无错看看我这是错币吗，谢谢！

来源：蜘蛛抓取(WebSpider) 时间：2015-06-05 06:04 标签： 错版人民币
请高人看看我的HCG正常吗？谢谢了_百度宝宝知道查看: 1456|回复: 11
一个关于RESIZE的问题，请高人指点，谢谢！
阅读权限30
在线时间 小时
想用下面的代码，汇总所有工作表中的内容。不过代码中用了RESIZE,老是不成功（直接USEDRANGE.COPY就OK）.请高人看看我的代码哪里错了？谢谢！
(34.39 KB, 下载次数: 16)
11:50 上传
点击文件名下载附件
Sub hb()
On Error Resume Next
Dim musedrange As Variant
Dim mrow As Integer, mcolumn As Integer, trow As Long
&&trow = 2
& &mfile = Dir(ThisWorkbook.Path & &\&)
&&Do While mfile && &&
&&If mfile && ThisWorkbook.Name Then
& &Set mworkbook = CreateObject(ThisWorkbook.Path & &\& & mfile)
& && &musedrange = Workbooks(mfile).Sheets(&Sheet1&).UsedRange
& && &myrow = UBound(musedrange)
&&'---------------------------------------------
& && & ThisWorkbook.Sheets(&t&).Cells(trow, 1).Resize(myrow, 4) _
& && & = mfile.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4)
& &&&'两条横线之间的代码好像不起作用
& &&&'mfile.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4)取不到值，不知道哪里错了？
&&'----------------------------------------------------
& && & trow = trow + myrow - 1
& && &End If
& && &mfile = Dir
& && &Loop
& &
End Sub
复制代码
阅读权限90
在线时间 小时
& & & & & & & &
& && & ThisWorkbook.Sheets(&t&).Cells(trow, 1).Resize(myrow, 4) _
& && & = mfile.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4).value
后面加上.value 试试看。
阅读权限30
在线时间 小时
本帖最后由 zhyj_88 于
12:36 编辑
myfile、myrow和mworkbook没有定义，另不能确保打开的工作簿中有无sheet1工作表。
阅读权限30
在线时间 小时
谢谢指点，加了VALUE也不行 （自己的工作表中确定有Sheet1),请再次看看 指点下 谢谢
阅读权限20
在线时间 小时
我也没看出是何原因，请高手出来指点一下。mfile.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4)这个值应当可取到呀！
阅读权限30
在线时间 小时
& & & & & & & &
谢谢楼上的，的确是看着对 结果却啥都没有---，郁闷！！ 请高人看看
阅读权限20
在线时间 小时
请高手出手吧！我也很关注此问题！
阅读权限90
在线时间 小时
& & & & & & & &
ThisWorkbook.Sheets(&t&).Cells(trow, 1).Resize(myrow, 4) _
& && & = mfile.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4).value
ThisWorkbook.Sheets(&t&).Cells(trow, 1).Resize(myrow, 4) _
& && & = Workbooks(mfile).Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4).value
阅读权限30
在线时间 小时
yjh_27 发表于
ThisWorkbook.Sheets(&t&).Cells(trow, 1).Resize(myrow, 4) _
& && & = mfile.Sheets(&Sheet1&).Cells(3, ...
谢谢 找了半天原来这里错了，非常感谢！
Workbooks(mfile).Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4).Value
mworkbook.Sheets(&Sheet1&).Cells(3, 1).Resize(myrow, 4).Value
也行，呵呵！！
阅读权限20
在线时间 小时
高手终于出现了！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by请高人看看我家宝宝起的名字吧！谢谢！_百度宝宝知道---06月05日 14:10后使用快捷导航没有帐号？
扫一扫，访问微社区
查看: 1308|回复: 25
请高人看看我的这种情况，谢谢。
注册:,精华:,
14-16岁这几年暴饮暴食很厉害，甜食，饮料等吃得都很厉害，每天除了饭，恨不得好几瓶饮料，巧克力等。17岁到医院诊断空腹血糖13，餐后22，住了1个月院，血糖完全达到正常人的标准，9年后，因为过去的1年暴饮暴食，甜食也开始越吃越多了，偶然去医院查了下空腹8.4（凌晨3点测的，测之前12小时精神极度紧张和焦虑），没测饭后，吃了一粒二甲双胍后血糖下来了，经过这几天的饮食严格控制（没有吃药），血糖餐后在5.7-5.9浮动，但昨天晚饭2小时后血糖是8.4（精神紧张焦虑了4个小时，晚饭喝了一杯无糖无伴侣的速溶咖啡），今天中午餐后2小时一查又正常了：5.8，请高人看看我这到底是怎么回事。
注册:,精华:,
距第一次空腹查8.4到餐后测正常，只有24小时（期间吃过1粒二甲双胍，但是距餐后测的那次已经满24小时了，之后再也没吃过药）我觉得我这种情况有点极端，暴饮暴食血糖会升得老高，但是一旦控制饮食，体重下来血糖和正常人又没两样，很奇怪。
注册:,精华:,
饮食规律啊
注册:,精华:,
失落的小糖人 发表于
饮食规律啊
谢谢，我觉得和经常熬夜，吃饭不规律很有关系。
注册:,精华:,
都说2型糖尿病需要终身用药，为什么我控制饮食和体重就可以不用药？
注册:,精华:,
看样子还得引起重视
注册:,精华:,
xyp525 发表于
看样子还得引起重视
谢谢~~~~~~~~~~~
注册:,精华:,
你现在必须要生活规律一些了 饮食好好注意 加强运动 建议你生活规律后去当地3甲医院好好测试一下再说了
注册:,精华:,
楼主我觉得你的情况别管是不是糖尿病都要多运动和控制饮食。千万别有不是糖尿病就又可以大吃特吃的想法，那样的话，即使你现在没有多严重，以后也肯定是糖人。现在就应该开始注意调整了
注册:,精华:,
愛婕一生 发表于
楼主我觉得你的情况别管是不是糖尿病都要多运动和控制饮食。千万别有不是糖尿病就又可以大吃特吃的想法，那 ...
谢谢您，饮食，作息，心情已经开始严格控制了。
Powered by

我要回帖

更多关于 错版人民币 的文章

 

随机推荐