热点科技

标题: [求助] 请教一个excel的问题 [打印本页]

作者: deweydh 时间: 2007-4-2 22:32
标题: [求助] 请教一个excel的问题
请教一个excel的问题
请问如何在每个单元格里面加上双引号，将每个单元格的内容引起来呢？谢谢

作者: jackda66 时间: 2007-4-2 22:55
没有用过这样的.........暂时不知道!

作者: liguoqing101 时间: 2007-4-2 22:59
lz说的是把所有单元格都这样么，若是的话可以用录制宏的办法。。。。。。。。

作者: terry13145266 时间: 2007-4-2 23:10

原帖由 zwq7274 于 2007-4-2 22:59 发表
lz说的是把所有单元格都这样么，若是的话可以用录制宏的办法。。。。。。。。

请问具体应该怎么做呢？我就是这个目的，请你教我一下

作者: 363404855 时间: 2007-4-2 23:26
再顶一下

作者: cucugeorge 时间: 2007-4-2 23:45
ActiveCell.FormulaR1C1 = """" + ActiveCell.Value + """"
添加一个宏，将这段代码输入进去，然后运行就可以将所选择的单元格的内容加上引号。（注意+号前面和后面都是四个"符号）

作者: 596635560 时间: 2007-4-2 23:52
Dim aaa As String
aaa = ActiveCell.Value
ActiveCell.FormulaR1C1 = """" + aaa + """"
代码更新一下，原来的代码在单元格内容都是数字的情况下要出错，这个不会了。功能和原来的一样。

作者: adamini 时间: 2007-4-3 00:06
提示: 作者被禁止或删除内容自动屏蔽

作者: xxxvampire 时间: 2007-4-3 08:48

原帖由 keyman-lu 于 2007-4-3 00:06 发表

请问我这样操作为什么不正确呢？

光复制那段代码是没用的，不完整。完整的应该是这样

Sub a()
Dim aaa As String
aaa = ActiveCell.Value
ActiveCell.FormulaR1C1 = """" + aaa + """"
End Sub

另外：这段代码运行一次只能为一个单元格加上引号，用起来很麻烦

作者: RotkSkyDj 时间: 2007-4-4 13:14
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临热点科技 (http://www.itheat.com/activity/)