![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
记录写过的一些重要的代码;
记录一些重要知识点。
gulie8
这个作者很懒,什么都没留下…
展开
-
周0邀请码数据
Option Explicit Sub yaoqingma() Application.DisplayAlerts = False Application.ScreenUpdating = False '打开文档 Workbooks.Open Filename:="d:\Users\zhanggl21\Desktop\6666\邀请码数据\邀请码数据.xls" '将文档另存为xlsx格式 Act...原创 2019-10-28 12:00:10 · 636 阅读 · 0 评论 -
周0上周直聊委托约看400
Option Explicit Sub caoluweekly() Call caoluw电话 Call caoluw委托 Call caoluw直聊 Call caoluw约看 End Sub '...............上周400电话............... Sub caoluw电话() Application.DisplayAlerts = False Applicat...原创 2019-10-28 11:59:32 · 142 阅读 · 0 评论 -
周0各qudong辖属楼盘电话直聊
Option Explicit Sub qdloupan() Application.ScreenUpdating = False Application.DisplayAlerts = False '新建结果工作簿并命名 Workbooks.Add ActiveWorkbook.SaveAs Filename:="d:\Users\zhanggl21\Desktop\6666\上周各区董下...原创 2019-10-28 11:59:03 · 96 阅读 · 0 评论 -
整月半月0搜索推广流量数据
Option Explicit Sub searchdata() Application.DisplayAlerts = False Application.ScreenUpdating = False 'Call wangqu Call businessshop Call shangpu Application.DisplayAlerts = True Application.Scree...原创 2019-10-28 11:57:53 · 199 阅读 · 0 评论 -
zy网上月投入产出
Option Explicit '************************************中原网上月投入产出************************* Sub zyroi() Application.DisplayAlerts = False Application.ScreenUpdating = False Call ctmroi Call ptmroi Call ...原创 2019-10-28 11:57:03 · 149 阅读 · 0 评论 -
上月zy网小区访问及来电情况
Option Explicit '……………………………………………………………………上月中原网小区访问及来电情况………………………………………………………………………………………………………………… Sub zyestate() Application.ScreenUpdating = False Application.DisplayAlerts = False Call zyestat...原创 2019-10-28 11:56:24 · 140 阅读 · 0 评论 -
上月直聊委托约看400
Option Explicit '.....................................上月直聊委托约看400-...................................................................... Sub caolumonthly() Call caolu电话 Call caolu委托 Call caolu直聊 'Ca...原创 2019-10-28 11:55:47 · 178 阅读 · 0 评论 -
上月三端电话与直聊贡献成交
Option Explicit '……………………………………………………………………………………………上月三端电话与直聊贡献成交……………………………………………………………………………………………………………………………………………………… '定义模块级变量 Dim dhwsht As Worksheet, zlwsht As Worksheet, khcfwsht As Workshee...原创 2019-10-28 11:54:59 · 195 阅读 · 0 评论 -
各qudong楼盘点击及电话直聊情况
Option Explicit Dim rwbk As Workbook Dim rsht As Worksheet '…………………………………………………………………………………各区董楼盘点击及电话直聊情况…………………………………………………………………………………………………………………………………… Sub qdallestate() Application.ScreenUpdatin...原创 2019-10-28 11:54:27 · 128 阅读 · 0 评论 -
daily report
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...原创 2019-10-28 11:53:26 · 930 阅读 · 0 评论