lzth.net
当前位置:首页 >> VBA 如何通过代码实现将 A1单元格的内容输出成为文... >>

VBA 如何通过代码实现将 A1单元格的内容输出成为文...

Sub 输出文本() Open ThisWorkbook.Path & "\A1.txt" For Append As #1 data = [A1] Print #1, data Close #1 End Sub

你这个很难实现,除非A1单元格的公式不复杂,有一定的规律可循,可以用一些方法进行处理,下面是将A=1:B=2:C=3用替换的方式处理的,给你一个思路,你自己研究解决 Sub 计算A1公式的值() Dim A, B, C, S$ S = Range("A1") S = Replace(S, "A", 1) 'A=1(将A替换成1) S = Replace(S, "B", 2) S = Replace(S, "C", 3) Range("B1") = Evaluate(S) End Sub

先设置单元格字号为最大,然后再设置单元格格式“缩小字体填充”即可.

下面程序只针对某个表,如Sheet1. 鼠标右击该表的名称(如Sheet1),选择“查看代码”,粘贴下列代码: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then If Cells(1, 2) <> "" Then If Cells(1, 1) = "" Then MsgBox "A1 不能为空" '此句可不要 Cells(1, 2) = "" Cells(1, 2).Select End If End If End IfEnd Sub

Sub Macro1()' Macro1 Macro' 宏由 AutoBVT 录制,时间: 2017/6/8 Dim t As String ''''''''这里的t就是下面第一个文本框里的内容,可以自定义,比如你的第一个文本框里'''''''''''的内容就是"测试讲文本框……" ActiveSheet.Shapes("Rectangle 1").Select ActiveSheet.[A1] = Selection.Characters.Text End Sub

在 Excel VBE 里进入菜单栏的工具、引用,勾选“Microsoft Word 15.0 Object Library”,其中我的版本号是 15.0,不同 Office 版本号不同,识别其它字段即可,然后运行下宏:Sub ExcelOperatorWordDemo() Dim WdApp As Word.Application,

宏代码 Sub 指定位置新建工作表并命名() Sheets.Add before:=Sheets(1) 'before 前边.after 后边 ActiveSheet.name = "表1" Cells(1, 1) = "A1单元格输入的内容" End Sub

楼上的看错了吧.人家的数据是在一个单元格里的Cells(1,1) & Cells(2,1) & Cells(3,1) 这么连..离题了 我试了下用这个可以 str = Replace(str, Chr(10), "") Sub Macro1() Dim str As String str = Range("A1").Value str = Replace(str, Chr(10), "") MsgBox str End Sub

单元格引用方法:以sheet1表为例.如果vba代码放到sheet1对象外面用sheet1.cells(行号,列号),如果放到sheet1对象里面用cells(行号,列号) 行号指第几行,列号指第几列,二者用数字(或代表数字的变量)表示.比如:sheet1.cells(1,1)表示sheet1表的a1单元格,sheet1.cells(5,2)表示sheet1表的b5单元格.for m = 1 to 9 sheet1.cells(m,1) ' 这样可以循环得到sheet1表的a1:a9单元格 next m

如果假设你是选当前表格的A1,那直接MsgBox ActiveSheet.Name 如果假设你是选取指定表格的A1,那就是你指定的那个表格名,"表格名" 如果假设你是在VBA代码执行过程中,用鼠标选取了不特定的另一个表的单元格,并想获取此单元格

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com