实时搜索: excel几个宏如何一起用

excel几个宏如何一起用

265条评论 4006人喜欢 1290次阅读 253人点赞
例如我有一个文件夹,里面有三个文件名分别为1,2,3。我需要提取每个表格sheet1中的数据A1。如何用宏批量完成。 , 我从我同事那里考来一个用于翻译的EXEL宏表格文件,他的使用方式是同时打开这个宏文件和需要被翻译的文件,在被翻译的文件那里运行宏就行了(如图一),但是在我这按他的方法打开之后却没有出现这个宏(如图二),安全性也已经设置了启用所有宏,也试过直接将宏另存为”启用宏的工作簿“,依然没办法使用这个宏命令。求真大神帮助 , 如图:我某一个工作簿中有十几个相同这种格式的工作表,我需要把这十几个工作表中,所有3月26日的所有这些数据全部复制导一个工作表中,这个宏应该怎么写弄? , 想录...

如何使用excel的宏生成多个表格: 5.XSL,右键sheet1——查看代码——粘贴代码——运行代码

Sub mysub()
Dim ShApp As Object, mysheet As Object
Dim TF As Boolean, i As Integer
Dim aTable As Object, n As Integer
On Error Resume Next
n = 0
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请选定要处理的excel文档"
.Filters.Add "excel文档", "*.xls" '暂定扩展名为xls的excel文档
.AllowMultiSelect = True
If .Show > -1 Then Exit Sub
Set ShApp = GetObject(, "Excel.Application")
If Err > 0 Then
TF = True
Set ShApp = CreateObject("Excel.Application")
End If
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))
With mysheet.Sheets(1)
.[a8].copy [a65536].end(xlup).offset(1)
End With
n = n + 1
mysheet.Close True
Next i
End With
If TF = True Then ShApp.Quit
Set ShApp = Nothing
MsgBox "处理完毕,共处理了" & n & "个excel文档。"
Application.ScreenUpdating = True
End Sub

如何用宏提取在一个文件夹中的多个EXCEL表格中的相同位置的数据: 5.XSL,右键sheet1——查看代码——粘贴代码——运行代码

Sub mysub()
Dim ShApp As Object, mysheet As Object
Dim TF As Boolean, i As Integer
Dim aTable As Object, n As Integer
On Error Resume Next
n = 0
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请选定要处理的excel文档"
.Filters.Add "excel文档", "*.xls" '暂定扩展名为xls的excel文档
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
Set ShApp = GetObject(, "Excel.Application")
If Err <> 0 Then
TF = True
Set ShApp = CreateObject("Excel.Application")
End If
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))
With mysheet.Sheets(1)
.[a8].copy [a65536].end(xlup).offset(1)
End With
n = n + 1
mysheet.Close True
Next i
End With
If TF = True Then ShApp.Quit
Set ShApp = Nothing
MsgBox "处理完毕,共处理了" & n & "个excel文档。"
Application.ScreenUpdating = True
End Sub

excel中的宏怎么应用到另外个工作簿中: 这个问题我知道!你录制宏的时候要选择保存在:“个人宏工作薄”这个选项

excel中宏的使用方法。: Excel的宏是由一系列的Visual Basic语言代码构成的,因此,如果你熟悉VisualBasic
语言,可以用它编写为宏,如果用户不熟悉VB语言,可以用记录功能建立宏。下面详细介绍一
下有关的方法和技巧。

一、建立宏
要想建立一个宏,方法有两种:一是用宏记录器记录所要执行的一系列操作;二是用Visu
al Basic语言编写。这两种方法各有优越之处,自动记录宏可以使用户在不懂Visual Basic
语言的情况下也可建立自己的宏,但缺点是对于一些复杂的宏要记录的操作很多,而且可能有
些功能并非是能通过现有的操作所能完成的;自己动手编写宏则不必进行繁琐的操作而且能
实现自动记录所不能完成的一些功能。在这里需要说明的一点是,即使自动记录的宏,记录器
也是把它翻译成Visual Basic语言来存放的,因此,在这里的一点技巧是你可以使用自动记录
功能记录宏,记录完毕后再打开宏进行编辑、修改简化或增强宏的功能,这样可省去许多输入
代码的工作。建立宏的方法如下:

1.在"工具"菜单中,选择"记录宏",再单击右侧的"记录新宏"命令。

2.在对话框中输入宏名。可以使用省略宏名如"宏2",也可以在"宏名"框中键入另一名称


3.若要给出宏的简单说明,在"说明"框中可键入描述性文字。

4.若要设置有关宏的选项,单击"选项"。

5.单击"确定",然后执行所记录的操作。

6.操作完成之后,在"工具"菜单中, 选择"记录宏",右侧的"记录新宏"命令已变成了"停
止记录",单击即可结束。
"记录宏"命令下的其它三个选项的说明:
"使用相对引用"——此项为一开关选项,此开关不打开时,记录宏使用单元格绝对引用,
用这种方式记录的宏总是在最初记录宏的单元格位置操作。此开关打开之后,用户在任何情
况下都可以使用宏而不是在特定的单元或范围中才能使用,当然存储此宏的工作簿必须在打
开的情况下宏才能使用,使用相对引用可使记录的宏使用更灵活。
"标示记录位置"和"在标示处记录"——指的是确定开始记录宏的位置,从此处开始记录
宏的代码。注意:此两选项只对"模块"工作表(记录操作后翻译为VB代码的工作表Module)有
效。
"记录新宏"对话框的选项说明:
"工具"菜单下的菜单项——可以将宏加入到"工具"菜单下,作为一个菜单选项,以供方便
使用。
快捷键——通过指定快捷键执行宏。需注意的一点是:当包含宏的工作薄打开时,此宏的
快捷键优先Microsoft Excel快捷键执行, 因此,如果你为宏设置的快捷键和Excel的快捷键
相同的话,那么Excel的快捷键将不能发挥作用,要尽量避免快捷键相同。
保存到"个人工作簿"——"个人工作簿"是一个隐蔽的工作簿,一般情况下启动Excel时会
自动打开它,因此,如果将常用的宏保存在其中, 可以在任何工作簿中使用,建议将非专用的
宏都放在此簿中,使用方便,管理也方便。
保存到"当前工作簿"——将宏存储到当前工作簿中,只有当记录该宏的工作簿打开时,本
工作簿和其它的工作簿才能使用它,一般的工作簿专用宏用此选项。
保存到"新工作簿"——将宏保存到新的工作簿中,该项意义不大,一般很少用。语言选项
——Visual Basic,将记录的操作翻译为Visual Basic语言,这是常用的选项。MS Excel 4.
0 宏语言,将操作翻译为Excel 4.0的宏语言,如果你对4.0版的宏语言不熟悉,尽量不要采用
此选项,否则给以后的编辑、修改带来麻烦。
上面介绍的是用记录的方式建立宏,如何直接用Visual Basic语言编辑宏呢?首先还是要
按照上面的步骤进行到第5步时, 单击"确定"后,不是进行操作而是开始编写VB代码。这里有
两种情况:1.如果你的工作簿中已经有了一个用来记录宏的"模块"工作表,最好在建立宏之前
将其切换到前台(激活),然后再建立新宏。在这种情况下,单击"确定"按钮之后, Excel将自
动在"模块"工作表中生成新宏的代码框架,一行为SUB "宏名",下一行为END SUB, 此时你就
可以在两行之间直接输入VB代码了。输入完毕,要执行"停止记录"命令。2.如果你的工作簿
中还没有"模块"工作表, 那么你从工作簿底部可以看到Excel为你新建了一个,用鼠标激活它
,这时你将看到刚才激活它的操作已被记录成代码,一般来说这是我们不需要的,将此行代码
删除,然后编写你自己的代码即可。

二、执行宏
一个宏建立完毕后就可以执行了,执行宏的方法有多种,可根据具体情况采用不同的方法
,下面介绍常用的几种方法。

1.用"工具"菜单下的"宏"命令执行
打开"工具"菜单,选择"宏",在对话框中输入要运行的宏的名字或用鼠标在宏列表中选择
都可以,然后单击"执行"按钮。

2.用快捷键执行宏
如果你在建立宏时,为宏指定了快捷键,那么直接按快捷键即可,这是比较快捷的方法,缺
点是需要记住每个宏的快捷键。

3.如果在建立宏时,为宏指定了在"工具"菜单下的菜单项,那么打开"工具"菜单后执行所
对应的菜单项命令即可。

4.在模块文件中执行宏
建立的宏都是存储在模块文件中的,激活模块文件后,将光标移到所要执行的宏代码中的
任何位置(SUB和END SUB之间),按F5键即可执行。如果光标不在宏代码之间,按F5后将会激活
运行宏的对话框,与第一种方法相同。如果VISUAL BASIC工具栏处于激活状态,那么单击VIS
UAL BASIC工具栏中"执行宏"按钮也可执行。这种执行宏的方法比较适合于对刚记录的宏进
行验证或修改后验证时采用。

5.通过将宏指定为按钮或图形来执行
单击常用工具栏上的"绘图"按钮,可以在工作表中建立图形或按钮,建立图形后,单击鼠
标右键,在快捷菜单中单击"指定宏"命令,在"宏名/引用"对话框中,键入宏名; 如果建立的是
按钮,则创建完毕自动出现指定宏对话框。单击"确定"按钮,这样就可以将按钮或图形指定为
一个宏,当单击此按钮或图形对象时,宏将自动执行。此种方法适用于在自己的工作表中使用
的专用宏,可将其放在合适的位置,随时单击运行。注意:在指定宏操作完毕后关闭绘图工具
栏时,一定要使其中的"选定图形"按钮处于弹起状态,否则单击按钮或图形将不能执行宏,而
且也不能选择单元格。

6.通过将宏指定给工具栏按钮执行
在"视图"菜单中,单击"工具栏"命令,若要创建一个新的工具栏并自定义工具栏按钮,在
"工具栏名称"对话框中键入新工具栏名,再单击"新建"按钮(如果要为已有的工具栏添加按钮
,则单击"自定义"),此时在对话框左上方就出现自定义的工具栏。然后在"自定义工具栏"对
话框的"分类"列表框中单击"自定义"命令,再从"工具按钮"下面拖动喜爱的按钮到自定义的
工具栏上,当把按钮放到工具栏上时,就会自动出现"指定宏"对话框,输入宏名后单击"确定"
即可,此时又会出现"自定义工具栏"对话框,如果不再需要自定义按钮,单击"关闭"命令。这
时自定义的工具栏一般比较小且是放置在工作表中的,双击其标题条,它自动变成长条状并放
置到工作表上方的工具栏区。建议新建一个自己的自定义工具栏并将常用的公用宏放置在其
上,这样使用起来很方便。

三、编辑和删除宏
一个宏建立之后可能不满意,需要编辑修改或其使命完成之后需要删除,下面是常用的一
些方法。

1.编辑、修改宏如果用户对Excel的Visual Basic语言不熟悉,那么最好的方法是重新记
录宏,在新建宏时,在"宏名"框中输入原来的名字, 单击"确定",Excel将提示用户是否替换已
存在的宏,单击"是"即可。
如果用户熟悉VB语言,可直接对宏进行修改。单击菜单条中的"工具"选项,选择"宏"命令
项,选择要编辑的宏,单击"编辑"按钮,就可以进行编辑了。此处有一点小技巧,如果你不想手
工编写代码,将光标移到需要插入代码的位置,选择"工具"菜单中"记录宏"命令下的"在标示
处记录"选项,然后可以进行操作,操作完毕后选择"停止记录",则刚才的操作就翻译成了VB代
码,放在光标之后,利用这种方法可以为已有的宏增添新的功能,这种方法不生成SUB、END S
UB代码,适用于现有宏的修改。另一种方法是单击工作簿底部的"模块"文件,其中存放的是宏
的VB代码,在此处可同时修改其中所有的宏。
修改已记录宏的一些技巧如下:A、去掉 Select 方法和 Selection 属性。记录器经常
记录 Select 方法和 Selection 属性,但这会导致宏通用性受到限制,因为Select 方法和
Selection 属性要求工作表是活动的。因此如果要记录的宏不是专用的,一般要将其去掉,用
Worksheets 方法来代替操作对象,同样,对记录的ActiveCell属性一般也需要去掉。 B、去
掉不必要的参数。记录器可能会记录一个方法的所有参数,如果只想修改其中一两个参数,可
从录下的语句中清除不必要的参数,功能不变,程序也得到了简化。
如果你想在当前工作簿中使用另一个工作簿(非个人工作簿)中的宏,可以将其复制过来
,复制的方法是将另一个工作簿中的模块表复制到当前工作簿中,其操作和复制其它工作表是
一样的,也可以通过剪贴板在模块表之间复制宏代码来达到复制宏的目的。

2.删除宏
删除宏的方法很简单,单击菜单条中的"工具"选项,选择"宏"命令项,选择要删除的宏,单
击"删除"按钮,就可以删除了。这种删除只是使得此宏不能再执行了,如果你已为此宏指定了
菜单项、工具栏按钮、图形等,它们也就没什么作用了,则需要启动相应的功能来删除这些对
象。比如对定义到工具栏上的指定宏按钮的删除方法如下:在"视图"菜单中,单击"工具栏"命
令,选择工具栏,单击"自定义"按钮,此时用鼠标左键将工具栏上需要删除的按钮从工具栏上
拖离开工具栏即可删除它。

Excel中如何用宏把一个工作簿中多个工作表中符合某条件的数据全部复制到另外一个工作簿中。:

写代码不难,下面给一个框架,你适当修改后用:

Option Explicit

Sub 复制数据()
    Dim st As Worksheet, st2 As Worksheet, arr, i, n
    Set st2 = Sheets("汇总")
    n = 1
    For Each st In Sheets
        If st.Name <> "汇总" Then
            arr = st.UsedRange
            For i = 1 To UBound(arr)
                If arr(i, 14) = "3月24日" Then
                    st.Rows(i).Copy st2.Rows(n)
                    n = n + 1
                End If
            Next i
        End If
    Next st
End Sub

两个地方要修改,一是汇总表的名称,二是N列如果是日期类型判断语句要改为DateSerial(2019,3,24)

Excel 怎样可以同时在多个工作表中运行宏: 把包含要运行的宏的工作簿另存为加载项格式的文档,Excel会自动保存在Addin文件夹中,当在加载项管理中勾选了这个加载项后,Excel在运行时会自动加载它,这样你的电脑上就可以在所有工作簿中运行同一个宏了

excel出现这个情况怎么解决,录制宏无法使用: 你的EXCEL在安装时没有选择VBA吧
卸载重装一次OFFICE看看

Excel中如何用函数或宏分别统计不连续区域的空白单元数: 试试在C2输入:
=IF(A2<>"",MIN(IF(B3:B999<>"",999,ROW(B3:B999)))-ROW()-1,"")
然后按ctrl+shift+enter 结束(正确结束公式旁有{}符号)
然后下拉。

  • picc导管多少钱

    我怎么在xp系统中添加日语输入法添加不了呀,也重新复制了ime的文件,也不可以使用,请哪位懂的人帮帮忙: IME2007安装方法:1:解压到C:\WINDOWS\IME 2:解压出的文件夹名字改为JAPAN 3: 就地解压里面的那个IM23.CAB 4:点IME32,MSI 5:到桌面输入法图标处添加日语输入法就可以了!...

    399条评论 2519人喜欢 2198次阅读 773人点赞
  • note3红米note2哪个好

    分期哪家好,石家庄手机分期贷款,石家庄苹果分期: 招商银行信用卡用户在招行用户专享 Apple Store 在线商店购买产品达 RMB 300 以上可申请分期付款服务, 使用分期付款的订单最高限额为 RMB 150000。银行会根据您的申请进行核实及批准。目前3期抢...

    557条评论 2882人喜欢 4454次阅读 990人点赞
  • ob是什么

    苹果手机英雄杀怎么没有中文输入法?: 苹果手机英雄杀怎么没有中文输入法,你可以查看一下操作说明。 ...

    678条评论 6314人喜欢 2164次阅读 988人点赞
  • 2016款rav4 crv哪个好

    给揭秘下精仿三星手机哪家最好,价格要多少钱: 所谓“精仿/高仿”的手机没有质量保证,不建议进行购买,同时它并不是三星生产的产品,为了能够保证权益,建议购买大陆上市三星正品行货若需要购买三星手机,建议到正规的手机专卖店购买,例如:三星指定的专卖店、三星商城、天猫三...

    368条评论 6580人喜欢 6470次阅读 662人点赞
  • 昆山到赣榆多久

    手机信号稳定性哪家好: 如果是手机出现信号不稳定的问题,建议您尝试操作:1.可能是您所处的位置信号覆盖不佳,建议您重启手机或更换其他位置尝试。2.手机连接无线网络将设备更新至最新版本。注:升级前请备份设备中数据(如联系人、信息、图片等)。3...

    695条评论 5859人喜欢 6021次阅读 710人点赞
  • 0.01%等于多少

    哪种手机输入法比较适合女孩子用,好看点的,呵呵: 搜狗....皮肤比较多的说... ...

    905条评论 5889人喜欢 1530次阅读 578人点赞
  • exo35是谁的黑称

    哪家手机贴膜比较好,在什么位置: 购买的新机一般会有一层一次性的塑料膜,使用时摘掉即可。手机出厂时屏幕没有贴膜,但请您放心,机器出厂前屏幕经过防刮测试可防止正常操作范围内的磨损,不用贴膜也不影响使用。但贴膜可以有效避免一些尖锐物体对屏幕造成直接损坏,...

    734条评论 5553人喜欢 4636次阅读 557人点赞