有没那位老师医生帮我看看那里这是什么字

来源：蜘蛛抓取(WebSpider) 时间：2016-10-21 18:11 标签： 医生帮我看看那里
老师们帮我看看是什么字？？？我不认识_汉字吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：23,178贴子：
老师们帮我看看是什么字？？？我不认识
投资上玖富网，注册即可获得300元红包！3000万+注册用户，银行及风控体系
大吉豊河之？涌幢？　　　　------赫赫钜辽，肇兴松漠。圣祖龙飞，化覃区中。太宗纂统，拓殖旧封。胤嗣承平，宣我皇风。天祚罔纲，鲜克有终。遂提一旅，遂资一成，皇皇德宗，祀夏告功。丕显祖烈，卜年三百。漆水源浚，函夏同风。～
Private Sub CommandButton1_Click()INPUTDATE:
Message = "请输入日期(格式为: 月/日)"
DD = InputBox(Message)
Sheets("今日").Cells(5, 12) = DD
MSG = "您输入的日期是:" & DD & ", 正确吗?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
M = MsgBox(MSG, Style)
If M = 7 Then
GoTo INPUTDATE
MYDATE = CDate(DD)
D = Format(MYDATE, "MMMDD")
MYFILE$ = D & "."
On Error GoTo ERRORHANDLER
ChDir "Z:\Income Auditor\MR"
Workbooks.Open Filename:=MYFILE$
Workbooks("MR. ").Close SAVECHANGES:=False
ERRORHANDLER:
Select Case Err
If Right(D, 2) = "01" Then
Sheets("昨日").Cells.ClearContents
MYDATE = MYDATE - 1
D = Format(MYDATE, "MMMDD")
MYFILE$ = D & "."
ChDir "Z:\Income Auditor\MR"
Workbooks.Open Filename:=MYFILE$
Sheets("今日").Range("TOTAL").Copy
ActiveWorkbook.Close SAVECHANGES:=False
Sheets("昨日").Cells.PasteSpecial
Message = "程序执行出错,中断执行"
Style = vbOKOnly + vbExclamation
M = MsgBox(Message, Style)
ActiveWorkbook.Close SAVECHANGES:=False
End SelectEnd SubPrivate Sub CommandButton2_Click()
MYNAME = ActiveWorkbook.Name
ChDir "Z:\Income Auditor\MR"
If MYNAME = "MR." Then
D1 = Sheets("今日").Cells(5, 12)
D2 = Format(D1, "MMMDD")
MYFILE$ = D2 & "."
ActiveWorkbook.SaveAs Filename:=MYFILE$
ActiveWorkbook.Close SAVECHANGES:=TrueEnd Sub
贴吧热议榜
使用签名档&&
保存至快速回贴百度拇指医生
&&&普通咨询
您的网络环境存在异常，
请输入验证码
验证码输入错误，请重新输入江苏省中小学教师班主任知识网络竞赛试题(四套有答案)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
江苏省中小学教师班主任知识网络竞赛试题(四套有答案)
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩17页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢

我要回帖

更多关于 医生帮我看看那里 的文章

 

随机推荐