工作宏脚本

A. 求讨论宏和脚本有什么区别

脚本(script)是使用一种特定的描述性语言,依据一定的格式编写的可执行文件,又称作宏或批处理文件。脚本通常可以由应用程序临时调用并执行。

B. 在Excel的实际应用中，请问：1.怎样编写“宏”代码2.怎样编写“脚本”代码

楼上的回答很好。当然有相应的书，书店有，网上也能搜索到。

我特别要说的第一点是：VBA本身的帮助系统非常全面，我记性不好，几乎每次写VBA的时候都要查一下手册。

第二点，许多详细的语句是可以通过录制宏来得到例子代码，其实我们要写的许多脚本是可以录制的，然后修改一下，比如用for或者while写个循环来往复做。

VBA的语法基本上和VB差不多，只要知道一些EXCEL的对象结构就好编程，下面是我写的一个例子代码，本程序是我工作需要的一个任务抽象出来的：把基层公司上报的多个EXCEL文件里面某个表的内容串起来，本来也可以手工去复制粘贴，但是分公司数十个，个别公司更新数据的时候很麻烦，你看看，可以对“宏”有个直观的认识：

PrivateSubCommandButton1_Click()
IfCells(1,1)<>"结果："Then
Cells(1,2)="A1的内容是否被修改，程序不敢贸然转换！"
ExitSub
EndIf
ForEachwInWorkbooks
Ifw.Name=Cells(6,2)Then
Cells(1,2)="先关闭要导入的文件，如果是本文件名字与要导入的相同，请关闭后充命名再打开！"
ExitSub
EndIf
Nextw
IfMsgBox("程序无法判断是否重复导入，请慎重选择!",vbYesNo,"警告")<>vbYesThenExitSub
Cells(1,2)="开始转换，耐心等待。。。"
'定位本表的指定工作薄到变量target_sheet里面
ForEachtarget_sheetInSheets
Iftarget_sheet.Name=Cells(2,2)ThenExitFor
Nexttarget_sheet
Iftarget_sheet.Name<>Cells(2,2)Then
Cells(1,2)="本工作薄里面没有找到指定的工作表["&Cells(2,2)&"]。"
EndIf
'找到本工作薄指定工作表的最后一行
k=Cells(3,2)
Whiletarget_sheet.Cells(k,1)<>""Ortarget_sheet.Cells(k,2)<>""Ortarget_sheet.Cells(k,3)<>""
k=k+1
Wend
i=7
ok_list=""
WhileCells(i,3)<>""
IfCells(i,3)="1"Then
'f=MsgBox(Cells(i,2),vbYesNo,"即将转换的文件。。。")
st=Dir(Cells(i,2))
Ifst=""Then
Cells(1,2)="文件["&Cells(i,2)&"]不存在，转换终止"
ExitSub
EndIf
'打开文件，打开后ActiveWorkbook指向新的工作薄
Workbooks.OpenCells(i,2)
'定位新打开的工作薄
'ForEachnew_bookInWorkbooks
'Ifnew_book.Name=Cells(i,2)ThenExitFor
'Nextnew_book
'检测工作表是否存在
ForEachsource_sheetInActiveWorkbook.Sheets
Ifsource_sheet.Name=Cells(2,2)ThenExitFor
Nextsource_sheet
Ifsource_sheet.Name<>Cells(2,2)Then
ActiveWorkbook.Close
Cells(1,2)="文件["&Cells(i,2)&"]中不存在指定的工作表["&Cells(2,2)&"]，转换终止"
ExitSub
EndIf
'循环导入所有行
j=Cells(3,2)
Whilesource_sheet.Cells(j,1)<>""Orsource_sheet.Cells(j,2)<>""Orsource_sheet.Cells(j,3)<>""
'导入一行
source_sheet.Rows(j).Copytarget_sheet.Rows(k)
'Forx=1ToCells(4,2)
'target_sheet.Cells(k,x)=source_sheet.Cells(j,x)
'Nextx
j=j+1
k=k+1
Wend
ActiveWorkbook.Close
Ifok_list=""Then
ok_list=Cells(i,1)
Else
ok_list=ok_list&"、"&Cells(i,1)
EndIf
Cells(i,3)=0
Cells(i,4)="√"
EndIf
i=i+1
Wend
Cells(1,2)="恭喜你，本次转换完成："&ok_list
EndSub

C. 脚本怎么做

如果你看到的脚本是一段语句，你可以把它复制下来，然后打开按键精灵，点〔增加〕会打开脚本编辑器，在编辑区域（右下空白的地方）的上面一点有〔普通〕和〔源文件〕两个按钮，点〔源文件〕，然后把你复制下来的语句粘贴到下面编辑区。

后设定好上面的〔脚本描述〕、〔启动热键〕、〔中止热键〕和〔循环〕，然后点保存，好了以后退出来就可以在按键精灵的主界面看到你刚才新建的脚本了，在〔有效〕一栏打上勾就可以用了。

脚本简单地说就是一条条的文字命令，这些文字命令是可以看到的（如可以用记事本打开查看、编辑），脚本程序在执行时，是由系统的一个解释器，将其一条条的翻译成机器可识别的指令，并按程序顺序执行。因为脚本在执行时多了一道翻译的过程，所以它比二进制程序执行效率要稍低一些。

脚本(Script)，就是含有bind和alias等命令的集合，你可以把这个集合存为一个独立的文件然后在需要的时候执行，这样就可以方便你在CS中的使用。脚本可以存为后缀名为.cfg的文件放在cstrike文件夹下，执行时在控制台输入：exec（脚本文件名）.cfg即可。

脚本语言是为了缩短传统的编写-编译-链接-运行（edit-compile-link-run）过程而创建的计算机编程语言。 它的命名起源于一个脚本“screenplay”，每次运行都会使对话框逐字重复。早期的脚本语言经常被称为批量处理语言或工作控制语言。

一个脚本通常是解释执行而非编译。脚本语言通常都有简单、易学、易用的特性，目的就是希望能让程序员快速完成程序的编写工作。而宏语言则可视为脚本语言的分支，两者也有实质上的相同之处。

D. 宏和脚本是同一个概念吗那它们是什么可以理解为一些大软件中的附属小软件吗

不是，宏是一个通称，一般一组批处理的过程就可以叫宏，这个取决于软件，比如有些软件可以录制键盘的操作或者鼠标的操作过程，就可以叫键盘宏或者鼠标宏，录制好了还可以回放，这些并不是脚本的范围。
至于脚本，一般也是泛指那些能以字符形式表现出来的的代码，很多时候，脚本可以做语言代码来讲，比如说一段javascript的代码，你也可以说它是一段javascript脚本。其它的比如批处理bat，也可以叫批处理脚本等等。
这样来看的话，宏和脚本其实有时候可以是同一样东西，比如office中的vba，它可以重复播放，也是字符形式的代码。你可以叫它vba宏，也能叫vba脚本。
至于大软件中的小软件，如果是能独立运行的，那就是独立的程序，如果不能单独运行，并且用户能按需要自行添加修改的，那一般会被叫做扩展或者组件或者插件（比如说firefox中的扩展，或者ps中的滤镜）

E. WORD中的宏是怎么用一些基本的功能怎么用，一般都用他做什么

宏的一些典型应用：

1、加速日常编辑和格式设置

2、组合多个命令，例如插入具有指定尺寸和边框、指定行数和列数的表格

3、使对话框中的选项更易于访问

4、自动执行一系列复杂的任务

5、Word 提供两种方法来创建宏：宏录制器和 Visual Basic 编辑器 。

宏是一个批量处理程序命令，正确地运用它可以提高工作效率。微软的office软件允许用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力。如完成一个一打开word文件同时要打开某个文件的功能，必须要自己编写一段称之为宏的脚本。

(5)工作宏脚本扩展阅读：

VBA 可以访问许多操作系统函数并支持文档打开时自动执行宏。这使得用这种语言写计算机病毒成为可能。1990年代中后期，宏病毒成为了最流行的计算机病毒类型之一。其它的包括宏语言的项目，故意从其宏语言中排除了一些功能（如：自动执行）以避免破坏程序。然而，这一特性在很多事务中受到欢迎。

F. Excel表格单元格格式设置语法，以及宏脚本问题。

在工作表名称上点鼠标右键,选查看代码,在弹出的VBA编辑窗口里粘贴下面的代码,关闭VBA窗口,在工作表里按ALT+F8选中执行.

Sub 格式()
For Each rng In Range("A:A")
If rng <> "" Then rng.Value = Format(rng, "@@@@@@@@@@@ @@@@ @@@@ @@@@ @")
Next
End Sub

G. excel宏脚本问题

set ws=createobject("wscript.shell")
path=ws.currentdirectory
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(path)
set files=folder.files
for each file in files
if right(file,3)="xls" then call excel(file)
next
msgbox "操作成功！",48+4096,"系统提示"
sub excel(a)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(a)
intRow = 1
Do Until objExcel.Cells(intRow,1).Value = ""
h= objExcel.Cells(intRow, 1).Value
objExcel.Cells(intRow, 2).Value=left(h,3)
objExcel.Cells(intRow, 3).Value=mid(h,4,2)
objExcel.Cells(intRow, 4).Value=right(h,2)
intRow = intRow + 1
Loop
objExcel.ActiveWorkbook.Save '保存
objExcel.Quit
end sub

把上面的内容保存成VBS文件，之后把它复制到EXCEL文档的目录下，双击运行即可，连宏也不用了一个文件搞定了。

（强烈建议：请务必在测试后使用！）

已经修改后，发给你了，查收一下。 :)

H. 脚本制作教程

按键精灵就是一个动作录像器，它能够把你的电脑动作给记录下来，然后进行重放，而录制下来的动作就是脚本，今天要讲的教程非常简单，只需点点鼠标就能制作完成。
制作按键精灵脚本
按键精灵脚本制作，支持多种脚本功能语句，包括键盘按键动作、鼠标点击动作、鼠标移动动作、控制动作、输入字符串动作、延迟动作等动作循环：每个动作都可以进行循环，你可以定义热键中止动作的循环，也可以自己定义循环的次数或者循环的时间其他特性：所有的热键都可以对指定的窗口有效，这样就不会出现切换了窗口还自动执行动作的情况;每个动作都生成一个脚本文件，高手可以自己编辑这个文件，实现功能强大的宏键。
会用脚本之后，您一定希望知道这个脚本是如何制作出来的吧?下面我们就一步步介绍鼠标连点脚本的制作方法。
第一步：新建脚本，进入脚本编辑器
点击上方工具栏的新建按钮，就可以新建一个脚本。
第二步：插入命令，实现鼠标左键点击
在编辑器左侧的基本命令面板找到“鼠标命令”，展开这个面板之后，我们会看到鼠标动作的命令，我们选择“左键单击”，执行次数1次，然后按下“插入”按钮，就可以在右边的脚本编辑界面里看到“左键单击”这条命令!
第三步：设置脚本，反复点击
我们希望这个脚本能够反复的自动操作，也就是反复执行“左键单击”这个动作，这就需要在脚本属性里进行设置了，如图9所示，将脚本循环设置为“循环到按中止键为止”
第四步：保存脚本，尽情享用
脚本制作成功以后就可以保存脚本使用了!我们先把脚本描述改为“我的左键连点器”，然后点击“保存退出”，这样脚本就制作成功了。
调试按键精灵脚本
脚本调试热键：
执行热键：
脚本的启动热键
暂停/继续热键：Pause
停止热键：脚本的中止热键
单步调试：ScrollLock
断点功能：
说明：脚本运行到设置断点的位置会自动暂停，利用断点功能可以有效的查看当前脚本执行的状况。
设置断点：选中某行脚本，单击鼠标右键，即可插入断点，在设置了断点的位置单击右键，再次选择“设置断点”即可取消断点。
变量查看：
说明：可以查看变量当前的值，一般是配合断点功能使用。
使用方法：在变量查看窗口输入变量名，脚本调试过程中利用断点暂停脚本后即可看到变量的值。
调试信息：
说明：使用TracePrint命令即可输出调试信息。
举例：TracePrint
x
即可输出变量x的值。
使用按键精灵脚本
按键精灵的主界面分别由“工具栏”、“脚本显示区”、“脚本属性区”三个部分组成。
按键精灵主界面清爽简洁，一目了然。最值得称道的是他内置了35个常用的脚本，本文既然是为了帮助网游玩家学会制作脚本，那我们就先进入“网络游戏”脚本分类吧!
在网络游戏分类里我们能看到10个脚本，其中最简单也最有用的应该属“鼠标左键连点”，就让我们看看这个脚本到底是如何工作的。
第一步：选中脚本
选中“鼠标左键连点”这个脚本后，在脚本属性里列出了这个脚本的一些基本信息。
第二步：启动脚本
在脚本属性中，我们看到启动热键是F10，也就是说按下F10热键，就可以启动当前的脚本。
只要两步，您就会发现自己的鼠标自动开始点击左键，是不是非常神奇?只要您按下中止热键，脚本就会停止，按键精灵就是这么忠实的一个好帮手。
任务易为自由职业工作者寻找和分析任务项目，并构建以任务为主题的社交平台。

I. 如何能够自动执行EXCEL宏脚本

Private Sub Workbook_Open()
End Sub
上面的过程可能不是您需要的。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
具体看您需要。