gulie8的博客

Option ExplicitSub yaoqingma()Application.DisplayAlerts = FalseApplication.ScreenUpdating = False'打开文档Workbooks.Open Filename:="d:\Users\zhanggl21\Desktop\6666\邀请码数据\邀请码数据.xls"'将文档另存为xlsx格式Act...

Option ExplicitSub caoluweekly()Call caoluw电话Call caoluw委托Call caoluw直聊Call caoluw约看End Sub'...............上周400电话...............Sub caoluw电话()Application.DisplayAlerts = FalseApplicat...

Option ExplicitSub qdloupan()Application.ScreenUpdating = FalseApplication.DisplayAlerts = False'新建结果工作簿并命名Workbooks.AddActiveWorkbook.SaveAs Filename:="d:\Users\zhanggl21\Desktop\6666\上周各区董下...

Option ExplicitSub searchdata()Application.DisplayAlerts = FalseApplication.ScreenUpdating = False'Call wangquCall businessshopCall shangpuApplication.DisplayAlerts = TrueApplication.Scree...

Option Explicit'************************************中原网上月投入产出*************************Sub zyroi()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseCall ctmroiCall ptmroiCall ...

Option Explicit'……………………………………………………………………上月中原网小区访问及来电情况…………………………………………………………………………………………………………………Sub zyestate()Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseCall zyestat...

Option Explicit'.....................................上月直聊委托约看400－......................................................................Sub caolumonthly()Call caolu电话Call caolu委托Call caolu直聊'Ca...

Option Explicit'……………………………………………………………………………………………上月三端电话与直聊贡献成交………………………………………………………………………………………………………………………………………………………'定义模块级变量Dim dhwsht As Worksheet, zlwsht As Worksheet, khcfwsht As Workshee...

Option ExplicitDim rwbk As WorkbookDim rsht As Worksheet'…………………………………………………………………………………各区董楼盘点击及电话直聊情况……………………………………………………………………………………………………………………………………Sub qdallestate()Application.ScreenUpdatin...

Option Explicit'定义模块级变量(结果类)Dim zcshu%, zcdate As Date, wtshu As Integer, wtkf As Integer, wtdate As Date, ykkf As Integer, ykshu As Integer, wycall%, wydate As Date, zllines As Integer, zlkf As In...