Excel 怎么查看EXCEL中的宏代码_百度知道
Excel 怎么查看EXCEL中的宏代码
我有更好的答案
快捷键ALT+F11、工具——宏——VB编辑器、鼠标右键点sheet名——查看代码，代码一般写在模块里，有时候也会写在表里，可以复制。拓展：1、计算机科学里的宏(Macro)，是一种批量处理的称谓。一般说来，宏是一种规则或模式，或称语法替换 ，用于说明某一特定输入(通常是字符串)如何根据预定义的规则转换成对应的输出(通常也是字符串)。这种替换在预编译时进行，称作宏展开。2、计算机科学里的宏是一种抽象的,根据一系列预定义的规则替换一定的文本模式。Excel办公软件自动集成了&VBA&高级程序语言，用此语言编制出的程序就叫&宏&。使用&VBA&需要有一定的编程基础，并且还会耗费大量的时间，因此，绝大多数的使用者仅使用了Excel的一般制表功能，很少使用到&VBA&。
采纳率：99%
方法很多：快捷键ALT+F11
工具——宏——VB编辑器
鼠标右键点sheet名——查看代码代码一般写在模块里，有时候也会写在表里可以复制您也可以向我们团队发出请求，会有更专业的人来为您解答！如果我的回答没能帮助您，请继续追问。　
本回答被提问者和网友采纳
按 ALT+F11
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何使用EXCEL宏命令实现自动计算功能？_百度知道
如何使用EXCEL宏命令实现自动计算功能？
希望解决以下问题：在某一个单元格输入计算公式（例如3*4+3），然后在右侧的单元格直接显示出结果（例如15.00）。望高手百忙之中不吝赐教。献上本人还有的最高分。
致各位大侠： 是用EXCEL宏命令，实现以上功能。而且，宏命令是可以实现上述功能的。决定提高悬赏分！
我有更好的答案
CharToValue() 函数可计算单个单元格中可能含有的计算公式。若A1单元格有3×4+3，要求B1出结果，请在B1的输入框中填写=CharToValue(A1) 。并支持下拉自动应用公式。StrToSUM()函数可计算单元格区域中可能含有的计算公式。若想在H10中求A1:F10的汇总结果，请在H10的输入框中填写=StrToSUM(A1:F10) 。'以下是需要使用的代码，请按下ALT+F11启动VBA编辑器，插入一个模块，将以下代码粘贴其中，就可以应用了。Public Function CharToValue(myRange As Range) As Single'将单元格中可能存在的算式进行计算(仅限于四则运算和括号）On Error Resume NextDim Str1 As String, Str2 As String, Str3 As String, Str4 As StringDim i As IntegerStr1 = myRange.TextStr2 = &.+-*/ ()＋－×÷（）&'取出算式For i = 1 To Len(Str1)Str3 = Mid(Str1, i, 1)If InStr(1, Str2, Str3) & 0 ThenStr4 = Str4 & Str3End IfNext'替换算式中因为习惯可能存在的非法，以利计算Str4 = Replace(Str4, &＋&, &+&)Str4 = Replace(Str4, &－&, &-&)Str4 = Replace(Str4, &×&, &*&)Str4 = Replace(Str4, &÷&, &/&)Str4 = Replace(Str4, &（&, &(&)Str4 = Replace(Str4, &）&, &)&)Str4 = Evaluate(Str4)If IsNumeric(Str4) = True ThenCharToValue = Val(Str4)ElseCharToValue = 0End IfEnd FunctionPublic Function StrToSUM(myRange As Range) As Single'将单元格区域中含有的算式汇总结果——区域中单元格必须连续'如：我有15元+欠别人10元，汇总结果＝25，而不是 5Dim i As LongDim SumSing As SingleWith myRangeFor i = 1 To .Cells.CountSumSing = SumSing + CharToValue(.Cells(i))NextEnd WithStrToSUM = SumSingEnd Function微软的OFFICE是最为流行的办公软件，主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公处理软件的代表产品，可以作为办公和管理的平台，以提高使用者的工作效率和决策能力。Office 2000中文版有4种不同的版本：标准版、中小企业版、中文专业版和企业版。在Office 2000中各个组件仍有着比较明确的分工：一般说来，Word主要用来进行文本的输入、编辑、排版、打印等工作；Excel主要用来进行有繁重计算任务的预算、财务、数据汇总等工作；PowerPoint主要用来制作演示文稿和幻灯片及投影片等；Access是一个桌面数据库系统及数据库应用程序；Outlook是一个桌面信息管理的应用程序；FrontPage主要用来制作和发布因特网的Web页面。Microsoft Office XP是微软有史以来所发行的Office版本中最重要的版本，而且也被认为是迄今为止功能最强大、最易于使用的Office产品。新版Office放弃了以往以产品发布年命名的惯例！产品名称中的XP，是英文Experience（体验）的缩写，代表着新版Office在包容覆盖广泛设备的Web服务之后，将给用户带来丰富的、充分扩展的全新体验。除核心的 Office XP 程序 — Microsoft Word、Excel、Outlook和 PowerPoint— 外，Office XP 专业版 中包含 Microsoft Access 2002，它是 Office XP 数据库解决方案，可帮助用户存储、访问和分析数据。
采纳率：99%
假设22*33*55在A1单元格光标定位在B1,菜单栏，插入，名称，定义，输入“ABC”&(不含双引号）在引用位置输入=EVALUATE(A1)确定,这样，在B1输入=ABC就会得出算式22*33*55的结果
本回答被网友采纳
　　送你两个函数，可以计算单元格或单元格区域中可能包含的四则运算（包括有括号）。如，我有15元+欠别人10元，汇总结果＝25，而不是 5　　CharToValue() 函数可计算单个单元格中可能含有的计算公式。若A1单元格有3×4+3，要求B1出结果，请在B1的输入框中填写=CharToValue(A1) 。并支持下拉自动应用公式。　　StrToSUM()函数可计算单元格区域中可能含有的计算公式。若想在H10中求A1:F10的汇总结果，请在H10的输入框中填写=StrToSUM(A1:F10) 。　　'以下是需要使用的代码，请按下ALT+F11启动VBA编辑器，插入一个模块，将以下代码粘贴其中，就可以应用了。　　Public Function CharToValue(myRange As Range) As Single　　'将单元格中可能存在的算式进行计算(仅限于四则运算和括号）　　On Error Resume Next　　Dim Str1 As String, Str2 As String, Str3 As String, Str4 As String　　Dim i As Integer　　Str1 = myRange.Text　　Str2 = &.+-*/ ()＋－×÷（）&　　'取出算式　　For i = 1 To Len(Str1)　　Str3 = Mid(Str1, i, 1)　　If InStr(1, Str2, Str3) & 0 Then　　Str4 = Str4 & Str3　　End If　　Next　　'替换算式中因为习惯可能存在的非法，以利计算　　Str4 = Replace(Str4, &＋&, &+&)　　Str4 = Replace(Str4, &－&, &-&)　　Str4 = Replace(Str4, &×&, &*&)　　Str4 = Replace(Str4, &÷&, &/&)　　Str4 = Replace(Str4, &（&, &(&)　　Str4 = Replace(Str4, &）&, &)&)　　Str4 = Evaluate(Str4)　　If IsNumeric(Str4) = True Then　　CharToValue = Val(Str4)　　Else　　CharToValue = 0　　End If　　End Function　　Public Function StrToSUM(myRange As Range) As Single　　'将单元格区域中含有的算式汇总结果——区域中单元格必须连续　　'如：我有15元+欠别人10元，汇总结果＝25，而不是 5　　Dim i As Long　　Dim SumSing As Single　　With myRange　　For i = 1 To .Cells.Count　　SumSing = SumSing + CharToValue(.Cells(i))　　Next　　End With　　StrToSUM = SumSing　　End Function
本回答被提问者采纳
这个用红是做不了的 需要用到简单的VB 你需要做个计算器那种样子的东西 简单点来说 两个TextBox的输入框 一个显示结果的TextBox 你可以往里写数字 然后在加两个5个按钮 4个运算符 1个显示结果 如 你在TextBox1里输入3 TextBox2里输入5 然后在点乘法 最后点等于 TextBox3里就会显示出3*5的结果15如果用简单的办法 那就用上面的同志的方法 在显示结果的单元格中 写上运算规则 但不是写具体数字 而是写单元格 比如 A1=3 A2=4 A3=3 那么规则就是=A1*A2+A3
很简单，在一个单元格中 输入公式前面加一个等号，（例如：=3*4+3）然后确定就OK了!
额。。。。。这简单啊。。。。。EXCEL的基本操作。你所说的在一个单元格里输入（3*4+3）不行的。EXCEL的计算功能是以单元格为单位的。你只能吧这3个元素分开为3个单元格，例如“A1输入3，B1输入4，C1输入3，然后在右侧单元格输入＝A1*B1+C1回车”就出来了。 如果你非要象（例如3*4+3）这样输出的话，也行。不过你需要在这个式子前面加个“＝”号，而且显示结果也只是在本单元格直接显示，并且在不查看单元格的情况下看不到计算示。求满意。。
1条折叠回答
其他3条回答
为您推荐：
其他类似问题
您可能关注的内容
宏命令的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 116|回复: 2
【急急急】求助大神，简易vba代码
阅读权限20
在线时间 小时
我想把下面几段代码合并成一段代码，应该怎么来合并：
第一段：Sub js()
& & Dim sht As Worksheet, i As Integer
& & For Each sht In Worksheets
& && &&&If sht.Range(&J4&).Value & 0 Then
& && &&&i = i + 1
& && &&&Range(&AI4&).Value = i
& && &&&End If
& & Next sht
第二段：Sub js()
& & Dim sht As Worksheet, i As Integer
& & For Each sht In Worksheets
& && &&&If sht.Range(&J5&).Value & 0 Then
& && &&&i = i + 1
& && &&&Range(&AI5&).Value = i
& && &&&End If
& & Next sht
第三段：Sub js()
& & Dim sht As Worksheet, i As Integer
& & For Each sht In Worksheets
& && &&&If sht.Range(&J6&).Value & 0 Then
& && &&&i = i + 1
& && &&&Range(&AI6&).Value = i
& && &&&End If
& & Next sht
一共到34，也就是接下来的代码都是J后面加1，AI后面加1，一直到J34和AI34.
阅读权限20
在线时间 小时
本帖最后由 扑腾 于
22:07 编辑
& & Dim sht As Worksheet, i As Integer
& & For k = 4 To 34
& && &&&For Each sht In Worksheets
& && && && &If sht.Range(&J& & k).Value & 0 Then
& && && && && & i = i + 1
& && && && && & Range(&AI& & k).Value = i
& && && && &End If
& && &&&Next sht
哎！回帖只是希望你以后发帖别再加急了，毕竟欠妥
阅读权限20
在线时间 小时
Dim sht As Worksheet, i As Integer
& & For k = 4 To 34
您这个代码只是执行了AI4单元格的值啊，AI5到AI34单元格的值都没执行啊。亲。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3022|回复: 15
真心求助三个分类汇总宏代码（有难度的）！谢谢了！急
阅读权限20
在线时间 小时
本帖最后由 zengsijun 于
21:14 编辑
(18.6 KB, 下载次数: 84)
21:13 上传
点击文件名下载附件
真心求助！
& &请问要如何编写VBA代码实现这三种汇总方式:
1、汇总1、按定额编号方式汇总，并将汇总结果写入汇总1工作表，表内数据行数不限；
2、汇总2、按构件名称（代码）列汇总，并将汇总结果写入汇总2工作表，表内数据行数不限；
3、汇总3、按钢材断面类型和规格型号列双条件汇总，并将汇总结果写入汇总3工作表，表内数据行数不限；其中：汇总3方式的各型材断面类型行总重量（kg)和涂料总面积(㎡)没办法从表中直接提取，各行的此两个数据是用相应规格型号的总重量（kg)和涂料总面积(㎡)与各“小计”行内的构件根数（件）相乘后再同规格型号相加所得！
QQ图片13.jpg (229.82 KB, 下载次数: 92)
19:28 上传
阅读权限20
在线时间 小时
本帖最后由 ione_fox 于
20:14 编辑
Sub 汇总1()
Dim arr, dic, k&, brr, i&
Sheets(&sheet1&).Activate
& & arr = Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr) + 1, 1 To 4)
& & For i = 5 To UBound(arr)
& && &&&If arr(i, 1) && && Then
& && &&&k = k + 1
& && &&&brr(k, 1) = arr(i, 1)
& && &&&brr(k, 2) = arr(i, 2)
& && &&&brr(k, 3) = arr(i, 13)
& && &&&brr(k, 4) = arr(i, 14)
& && &&&End If
& & Next i
& & k = k + 1
Sheets(&汇总1&).Activate
& & Range(&a3:d65536&) = &&
& & brr(k, 1) = &合计&
& & Range(&a3&).Resize(k, 4) = brr
& & Range(&c& & k + 2) = WorksheetFunction.Sum(Range(&c3:c& & k + 1))
& & Range(&d& & k + 2) = WorksheetFunction.Sum(Range(&d3:d& & k + 1))
End Sub复制代码先做一个代码写得太多了
阅读权限20
在线时间 小时
能否帮帮我，谢谢了！！
阅读权限20
在线时间 小时
恳请版主及高手们帮我解决下！谢谢！
阅读权限70
在线时间 小时
原始数据搞成报表，再从报表汇总是自找麻烦。
阅读权限20
在线时间 小时
ione_fox 发表于
先做一个代码写得太多了
谢谢您的热心帮助，我试着按你第一个汇总VBA修改了一下，做了汇总2的代码，但为何计算出来的量不对，能否帮我修改下，谢谢了！
Sub 汇总2()
Dim arr, dic, k&, brr, i&
Sheets(&sheet1&).Activate
& & arr = Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr) + 1, 1 To 6)
& & For i = 5 To UBound(arr)
& && &&&If arr(i, 2) && && And arr(i, 7) && && Then
& && &&&k = k + 1
& && &&&brr(k, 1) = arr(i, 2)
& && &&&brr(k, 2) = arr(i, 7)
& && &&&brr(k, 3) = arr(i, 10)
& && &&&brr(k, 4) = arr(i, 12)
& && &&&brr(k, 5) = arr(i, 13)
& && &&&brr(k, 6) = arr(i, 14)
& && &&&End If
& & Next i
& & k = k + 1
Sheets(&汇总2&).Activate
& & Range(&a4:f65536&) = &&
& & brr(k, 1) = &合计&
& & Range(&a4&).Resize(k, 6) = brr
& & Range(&c& & k + 2) = WorksheetFunction.Sum(Range(&c4:c& & k + 1))
& & Range(&d& & k + 2) = WorksheetFunction.Sum(Range(&d4:d& & k + 1))
& & Range(&e& & k + 2) = WorksheetFunction.Sum(Range(&e4:e& & k + 1))
& & Range(&f& & k + 2) = WorksheetFunction.Sum(Range(&f4:f& & k + 1))
阅读权限20
在线时间 小时
ione_fox 发表于
先做一个代码写得太多了
另外，有时候，你帮我写的这个代码，为何有时候取不出数据是什么原因？谢谢
阅读权限20
在线时间 小时
Sub 汇总2()
Application.ScreenUpdating = False
Dim arr, dic, k&, brr, i&
Sheets(&sheet1&).Activate
& & arr = Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr) + 1, 1 To 6)
& & For i = 5 To UBound(arr)
& && &&&If arr(i, 2) && && And arr(i, 7) && && Then
& && &&&k = k + 1
& && &&&brr(k, 1) = arr(i, 2)
& && &&&brr(k, 2) = arr(i, 7)
& && &&&brr(k, 3) = arr(i, 10)
& && &&&brr(k, 4) = arr(i, 12)
& && &&&brr(k, 5) = arr(i, 13)
& && &&&brr(k, 6) = arr(i, 14)
& && &&&End If
& & Next i
& & k = k + 1
Sheets(&汇总2&).Activate
& & Range(&a4:f65536&) = &&
& & brr(k, 1) = &合计&
& & Range(&a4&).Resize(k, 6) = brr
& & Range(&c& & k + 3) = WorksheetFunction.Sum(Range(&c4:c& & k + 2))
& & Range(&d& & k + 3) = WorksheetFunction.Sum(Range(&d4:d& & k + 2))
& & Range(&e& & k + 3) = WorksheetFunction.Sum(Range(&e4:e& & k + 2))
& & Range(&f& & k + 3) = WorksheetFunction.Sum(Range(&f4:f& & k + 2))
Application.ScreenUpdating = True
End Sub复制代码
阅读权限20
在线时间 小时
ione_fox 发表于
谢谢您这么晚还在帮助我！非常感谢！您帮我写的汇总1、汇总2都很好，谢谢您！能否再麻烦您帮我看一下汇总3，汇总3无法直接取数，估计会很难！
阅读权限20
在线时间 小时
顶一下，求高手解决！！！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 790|回复: 7
求助宏代码(问题已解决)
阅读权限30
在线时间 小时
本帖最后由 jzyjs8680 于
12:27 编辑
求助宏代码
(16.37 KB, 下载次数: 17)
02:56 上传
点击文件名下载附件
阅读权限30
在线时间 小时
将以下代码复制到“总表”的代码窗口中就可以了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
& && && && & If Target.Parent.Name && &总表& Then Exit Sub
& && && &&&a = Target.Column
& && && &&&If a && 2 Then Exit Sub
& && && &&&r = Target.Row
& && && &&&b = Sheet4.Cells(65536, 2).End(xlUp).Row
& && && &&&Sheet2.Range(Sheet2.Cells(r, 2), Sheet2.Cells(r, 3)).Copy Destination:=Sheet4.Cells(b + 1, 2)
阅读权限30
在线时间 小时
qqaa266 发表于
将以下代码复制到“总表”的代码窗口中就可以了。
Private Sub Worksheet_SelectionChange(ByVal Target A ...
我没能成功，能否做在我的附件里
阅读权限90
在线时间 小时
(22.94 KB, 下载次数: 15)
09:32 上传
点击文件名下载附件
阅读权限30
在线时间 小时
<font color="#0205910 发表于
谢谢，比我想像的还要好
阅读权限90
在线时间 小时
(16.74 KB, 下载次数: 11)
09:55 上传
点击文件名下载附件
阅读权限30
在线时间 小时
yangyangzhifeng 发表于
我测试了一样好用,谢谢
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师