&麻烦医生帮忙看下图片是怎么回事！谢谢
麻烦医生帮忙看下图片是怎么回事！谢谢
发病时间：最近24小时
麻烦医生帮忙看下图片是怎么回事！谢谢
您输入的回答少于20个中文字，请补充输入。
精选回答(2)
副主任医师
擅长：对小儿常见病以及内科常见病都可以进行初步诊断和治疗。
不好意思，这里没有看到你上传图片，请在追问补充孩子临床症状，在帮你分析解答
擅长：内、外、妇、儿、皮肤各科常见病、多发病，精通各种药理，尤其擅长多种内科疾病：呼吸系统-支气管肺炎、肺心病、支气管哮喘；心血管系统-冠心病；神经系统-脑卒中；消化系统-胃肠炎、胃十二指肠溃疡；内分泌系统-糖尿病、亚甲炎等各种慢性非传染性疾病诊疗。
你好，据你描述的情况，没有看到图片，建议重新上传图片看看能否帮到你。
向医生提问
全国三甲医院，主任级名医在线坐诊已有124家三甲医院，828位主任医师在线答疑大家都帮忙看看这请帖怎么写，，谢谢！_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
大家都帮忙看看这请帖怎么写，，谢谢！
对朋友的称呼怎么写送呈：对自己本村的朋友称呼怎么写：对同学的称呼怎么写送呈送呈，一个姓但不是亲戚，有点急啊
我有更好的答案
都直接写名字就行
采纳率：22%
直接写名字，其它不用管
这是什么年代了,想怎么写就怎么写嘛,~
为您推荐：
其他类似问题
请帖的相关知识
换一换
回答问题，赢新手礼包[切换城市]
热门推荐：
查看: 59919|回复: 21
积分205帖子最后登录注册时间
江湖中人, 积分 205, 距离下一级还需 295 积分
V币0 丫好0 才气0 注册时间
分享到微信
马上注册，结交更多好友，享用更多功能，让你轻松玩转福州小鱼网。 &&已有账号？ 或者您也可以直接使用
热门推荐：
&2017 ,福州小鱼网信息技术有限公司 版权所有，并保留所有权利。
小编咨询热线
商务咨询热线
gid=,fid=599,gid=,gid=599结婚喜帖怎么写?急!请闽南人回答，谢谢!
答案长度必须超过10个字，请勿发布无效或违法言论。
（共有1个回答）
我来回答吧，结婚喜帖一般来讲，要用繁体字，以父母的名义邀请亲朋，显得隆重。
1、封面例如:
送呈 台启 阖府统请
(公历) 年 月 日
谨定于 (星期 )
(农历) 年 月 日
(新郎名字)
为 于(上/下)午 时举行结婚典礼，是晚于 本宅 敬备喜酌
(新娘名字)
(父亲名字)
(母亲名字)
雷车驾雨龙尽起,霞泛天边凤来仪。 另外告诉你一个好玩的东西，可以把两个人的结婚照做成印章盖在喜帖上，很有意思：
你好，首先感谢你的信任。骆智龙、潘裕红。1.散文句：以（骆）驼穿越沙海的（智）慧，（龙）上九天的豪气，（潘）安绝世之风华，组合成我俩充（裕）的生活和火（红）的爱
叫洪濑鸡爪 洪濑区特产 些家般都保密配
样的日子，可以让你们体面的和好。揣想一下，对方最喜欢的是什么。除了他（她）的最爱，憨态可掬的情侣公仔熊一定可以让他（她）开怀一笑。同甘共苦时，表示甜蜜的心形巧克
建筑工程竣工消防验收报告工程名称验收日期建设单位(盖章)：填表说明：1、本表由建筑工程建设单位在组织消防验收时填写，建设、设计、施工、监理单位对本职责范围内的验
闽南的简单介绍：
　　闽南(Hokkien)，闽南即指福建的南部，地域上的闽南包括厦门、漳州、泉州、龙岩。但从地域和文化等多方面来说，闽南特指的是泉州、厦门、漳
石膏板顶与墙四周、石膏板接缝都出现裂缝，这是很明显的冷收缩现象
用烧红的小铁块放入钥匙孔，让铁块插入其中，然后在里面搅拌，在铁块温度没冷却的时候抽出来，用纸差掉502，反复多试一下，就OK了
从风水上来说，我们在买房时要注意的风水还是比较多的，特别在一些楼层的选择就有更多了。 水命的人：最适宜住一楼或六楼，宜住低层，不宜住得太高，因为水是向低流。宜是
卫生间隔断一般标准型坐厕尺寸为：900(W)×1200(D)×1900(H)，而一般公共卫生间隔断门的尺寸都是控制在1.1m-1.3m左右，但是这样的尺寸也得具
大家都关注
(C)2017 列表网&琼ICP备号-12&增值电信业务经营许可证B2-&查看: 2247|回复: 13
感谢各位高手的帮助，但是这个问题还是有，多条件统计的
阅读权限20
在线时间 小时
通过前几天坛子内高手的指导，对vba有了个非常初步的认识，非常感谢
关于我想做的报表，对比了函数和两种vba的思路
开始做了累加计数的方法，计算比较慢
有告诉我sql做这种统计是最快的，但是弄出来好像也没快多少
我只是编好了2行的报表内容，如果编上20行，估计这个就会慢的惊人了，由于这个还没入门，只能照附件那样编
请问高手有没有更有效的编译方法，谢谢了，我要编的内容不止20行
17:01 上传
点击文件名下载附件
217.48 KB, 下载次数: 19
阅读权限20
在线时间 小时
我们公司不能下载附件，顺便说下，可以的话请帖代码，谢谢
阅读权限50
在线时间 小时
& & & & & & & &
试试.... 单元格 J5 原合并,现拆开 ,J5 内容为 故障零件 J4 为 部位Sub test()
& & Dim rs, cnn
& & Dim Arr, Brr(), Crr(), ds$, i&, j&
& & Dim sql1$, sql2$, sql3$, sql4$, sql5$, sql6$, sql$
& & Set rs = CreateObject(&Adodb.Recordset&)
& & Set cnn = CreateObject(&Adodb.Connection&)
& & cnn.Open &provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=& & ThisWorkbook.FullName
& &
& & '月份
& & sql = &Transform count(*) Select 故障零件 from [市场反馈日信息表$] where isnull(datepart('m',生产日期))=false and isnull(故障零件)=false and year(生产日期)='2010' group by 故障零件 order by 故障零件 pivot datepart('m',生产日期) &
& & rs.Open sql, cnn, 1, 1
& & Arr = rs.GetRows
& & rs.Close
& & ReDim Brr(1 To UBound(Arr, 2) + 1, 1 To UBound(Arr) + 5)
& & For i = 0 To UBound(Arr, 2)
& && &&&Brr(i + 1, 1) = Arr(0, i)
& && &&&For j = 1 To UBound(Arr)
& && && && &Brr(i + 1, j + 5) = Arr(j, i)
& && &&&Next
& & Next
& & Sheets(&中型报表&).Range(&j6&).Resize(UBound(Brr), UBound(Brr, 2)) = Brr
& &
& & '各规格车发生故障统计
& & '故障零件表
& & ds = &[中型报表$J5:J& & Sheets(&中型报表&).[j65536].End(xlUp).Row & &] &
& & sql1 = &(select 故障零件 from & & ds & & ) as a &
& & '20t-25t
& & sql2 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE200') and year(生产日期)='2010' group by 故障零件) as b on b.故障零件=a.故障零件 &
& & sql3 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE210') and year(生产日期)='2010' group by 故障零件) as c on c.故障零件=a.故障零件 &
& & sql4 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE230') and year(生产日期)='2010' group by 故障零件) as d on d.故障零件=a.故障零件 &
& & sql5 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE250') and year(生产日期)='2010' group by 故障零件) as e on e.故障零件=a.故障零件 &
& & '近一个月的
& & sql6 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where&&生产日期&=#& & Sheets(&中型报表&).Range(&l1&) & &# group by 故障零件) as f on f.故障零件=a.故障零件&
& & sql = &select b.次数 as t20,c.次数 as t21,d.次数 as t23,e.次数 as t25,f.次数 as 月内 from(((((& & sql1 & sql2 & &)& & sql3 & &)& & sql4 & &)& & sql5 & &)& & sql6 & &)&
& & rs.Open sql, cnn, 1, 3
& & Arr = rs.GetRows
& & rs.Close
& & '赋值
& & ReDim Brr(1 To UBound(Arr, 2) + 1, 1 To 4)
& & ReDim Crr(1 To UBound(Arr, 2) + 1, 1 To 1)
& && &&&For i = 0 To UBound(Arr, 2)
& && && && &For j = 1 To 4
& && && && && & Brr(i + 1, j) = Arr(j - 1, i)
& && && && &Next
& && && && &Crr(i + 1, 1) = Arr(j - 1, i)
& && &&&Next
& & With Sheets(&中型报表&)
& && &&&.Range(&b6&).Resize(UBound(Brr), UBound(Brr, 2)) = Brr
& && &&&.Range(&i6&).Resize(UBound(Crr), 1) = Crr
& && &&&.Range(&A6:AG& & UBound(Brr) + 6).Borders.LineStyle = 1
& & End With
& &
& & cnn.Close
& & Set rs = Nothing
& & Set cnn = Nothing
End Sub
复制代码
[ 本帖最后由 camle 于
01:40 编辑 ]
01:32 上传
点击文件名下载附件
226.9 KB, 下载次数: 33
阅读权限20
在线时间 小时
速度好快，，
不过运行完1~12月的就提示系统运行错误？
阅读权限50
在线时间 小时
原帖由 audient 于
12:55 发表
速度好快，，
不过运行完1~12月的就提示系统运行错误？
j5单元格没拆分吧?
&单元格 J5 原合并,现拆开 ,J5 内容为 故障零件 J4 为 部位&
阅读权限20
在线时间 小时
已经拆了，麻烦帮忙看看这个有什么问题
15:45 上传
点击文件名下载附件
231.47 KB, 下载次数: 8
阅读权限50
在线时间 小时
原帖由 audient 于
15:45 发表
已经拆了，麻烦帮忙看看这个有什么问题
J5和J4内容搞反了....
部位&&------J4
故障零件---J5
阅读权限20
在线时间 小时
高手就是高手，敬仰，，，，
目前还没看懂，不过我会加油滴
阅读权限20
在线时间 小时
高手能给解释下这段不，我想加入一列，但是这个地方加进去以后，Drr和Crr结果是一样的，没太明白这个赋值的过程是怎么来的
'¹&E&O&I&A&¼&±í
& & ds = &[&OÐÐ&I±¨±í$J5:J& & Sheets(&&OÐÐ&I±¨±í&).[j65536].End(xlUp).Row & &] &
& & sql1 = &(select ¹&E&O&I&A&¼& from & & ds & & ) as a &
& & '20t-25t
& & sql2 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE200') and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&d2&) & &# and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&g2&) & &# group by ¹&E&O&I&A&¼&) as b on b.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼& &
& & sql3 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE210') and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&d2&) & &# and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&g2&) & &# group by ¹&E&O&I&A&¼&) as c on c.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼& &
& & sql4 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE230') and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&d2&) & &# and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&g2&) & &# group by ¹&E&O&I&A&¼&) as d on d.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼& &
& & sql5 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE250') and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&d2&) & &# and &Eú²ú&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&g2&) & &# group by ¹&E&O&I&A&¼&) as e on e.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼& &
& & '½ü&O&&&&O&A&&A
& & sql6 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE200' or &úÐ&I='XE210' or &úÐ&I='XE230'or &úÐ&I='XE250') and ¹&E&O&I&E&O&AE&U&=#& & Sheets(&&OÐÐ&I±¨±í&).Range(&l1&) & &# group by ¹&E&O&I&A&¼&) as f on f.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼&&
& & '200Ð&&E±&A&U&&A
& & sql7 = & left join (select count(*) as &&I&E&,¹&E&O&I&A&¼& from [&Eг&·&&A&&E&OÐ&A&I&±í$] where (&úÐ&I='XE200' or &úÐ&I='XE210' or &úÐ&I='XE230'or &úÐ&I='XE250') and year(&Eú²ú&E&O&AE&U)='2010' and ¹¤×÷&E±¼&&=200 group by ¹&E&O&I&A&¼&) as g on g.¹&E&O&I&A&¼&=a.¹&E&O&I&A&¼&&
& & '&E&&O&&E¼&O&&A&&&
& & sql = &select b.&&I&E& as t20,c.&&I&E& as t21,d.&&I&E& as t23,e.&&I&E& as t25,f.&&I&E& as &O&A&A&U,g.&&I&E& as &O&&AE&U from((((((& & sql1 & sql2 & &)& & sql3 & &)& & sql4 & &)& & sql5 & &)& & sql6 & &)& & sql7 & &)&
& & rs.Open sql, cnn, 1, 3
& & Arr = rs.GetRows
& & rs.Close
& & '&³&O&
& & ReDim Brr(1 To UBound(Arr, 2) + 1, 1 To 4)
& & ReDim Crr(1 To UBound(Arr, 2) + 1, 1 To 1)
& & ReDim Drr(1 To UBound(Arr, 2) + 1, 1 To 1)
& && &&&For i = 0 To UBound(Arr, 2)
& && && && &For j = 1 To 4
& && && && && & Brr(i + 1, j) = Arr(j - 1, i)
& && && && &Next
& && && && &Crr(i + 1, 1) = Arr(j - 1, i)
& && && && &Drr(i + 1, 1) = Arr(j - 1, i)
& && &&&Next
& & With Sheets(&&OÐÐ&I±¨±í&)
& && &&&.Range(&b6&).Resize(UBound(Brr), UBound(Brr, 2)) = Brr
& && &&&.Range(&i6&).Resize(UBound(Crr), 1) = Crr
& && &&&.Range(&h6&).Resize(UBound(Drr), 1) = Drr
& && &&&.Range(&A6:AG& & UBound(Brr) + 6).Borders.LineStyle = 1
& & End With
阅读权限20
在线时间 小时
'各规格车发生故障统计
& & '故障零件表
& & ds = &[中型报表$J5:J& & Sheets(&中型报表&).[j65536].End(xlUp).Row & &] &
& & sql1 = &(select 故障零件 from & & ds & & ) as a &
& & '20t-25t
& & sql2 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE200') and 生产日期&=#& & Sheets(&中型报表&).Range(&d2&) & &# and 生产日期&=#& & Sheets(&中型报表&).Range(&g2&) & &# group by 故障零件) as b on b.故障零件=a.故障零件 &
& & sql3 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE210') and 生产日期&=#& & Sheets(&中型报表&).Range(&d2&) & &# and 生产日期&=#& & Sheets(&中型报表&).Range(&g2&) & &# group by 故障零件) as c on c.故障零件=a.故障零件 &
& & sql4 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE230') and 生产日期&=#& & Sheets(&中型报表&).Range(&d2&) & &# and 生产日期&=#& & Sheets(&中型报表&).Range(&g2&) & &# group by 故障零件) as d on d.故障零件=a.故障零件 &
& & sql5 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE250') and 生产日期&=#& & Sheets(&中型报表&).Range(&d2&) & &# and 生产日期&=#& & Sheets(&中型报表&).Range(&g2&) & &# group by 故障零件) as e on e.故障零件=a.故障零件 &
& & '近一个月的
& & sql6 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE200' or 机型='XE210' or 机型='XE230'or 机型='XE250') and 故障日期&=#& & Sheets(&中型报表&).Range(&l1&) & &# group by 故障零件) as f on f.故障零件=a.故障零件&
& & '200小时内的
& & sql7 = & left join (select count(*) as 次数,故障零件 from [市场反馈日信息表$] where (机型='XE200' or 机型='XE210' or 机型='XE230'or 机型='XE250') and year(生产日期)='2010' and 工作时间&=200 group by 故障零件) as g on g.故障零件=a.故障零件&
& & '啥意思这里？
& & sql = &select b.次数 as t20,c.次数 as t21,d.次数 as t23,e.次数 as t25,f.次数 as 月内,g.次数 as 早期 from((((((& & sql1 & sql2 & &)& & sql3 & &)& & sql4 & &)& & sql5 & &)& & sql6 & &)& & sql7 & &)&
& & rs.Open sql, cnn, 1, 3
& & Arr = rs.GetRows
& & rs.Close
& & ReDim Brr(1 To UBound(Arr, 2) + 1, 1 To 4)
& & ReDim Crr(1 To UBound(Arr, 2) + 1, 1 To 1)
& & ReDim Drr(1 To UBound(Arr, 2) + 1, 1 To 1)
& && &&&For i = 0 To UBound(Arr, 2)
& && && && &For j = 1 To 4
& && && && && & Brr(i + 1, j) = Arr(j - 1, i)
& && && && &Next
& && && && &Crr(i + 1, 1) = Arr(j - 1, i)
& && && && &Drr(i + 1, 1) = Arr(j - 1, i)
& && &&&Next
& & With Sheets(&中型报表&)
& && &&&.Range(&b6&).Resize(UBound(Brr), UBound(Brr, 2)) = Brr
& && &&&.Range(&i6&).Resize(UBound(Crr), 1) = Crr
& && &&&.Range(&h6&).Resize(UBound(Drr), 1) = Drr
& && &&&.Range(&A6:AG& & UBound(Brr) + 6).Borders.LineStyle = 1
& & End With
& & cnn.Close
& & Set rs = Nothing
& & Set cnn = Nothing
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师