常用宏命令
魔兽世界宏命令解析
一些常用命令翻译：1.判断条件命令:help-判断目标是否为友善。
harm-判断目标是否为敌对。
combat-判断你是否在战斗中。
stance或stan ce:#-判断你是否在姿态中或是否在指定姿态中。
stealt h-判断你是否在潜行。
modifi er或mo difie r:x(x可为shi ft、ctrl、alt 或者是它们的组合)判断某个或某几个按键是否被按下。
equipp ed:<item>-判断某件物品是否在装备中。
<item>可以是装备栏编号、装备分类(武器、副手。
)、装备子类(双手剑、法仗等等。
)target=<unit>-可以把技能目标指定为任何有效的目标，并且可以另你不丢失当前目标！<unit>还可以为“none”，用来指定没有目标的时候。
“self”，用来指定只对自己施放。
比如“/use [target=self] 厚符文布绷带”，无论任何时候都只对自己使用绷带。
action bar:<number>-判断当前动作条是否被列出。
<number>可为1、2、3、4、5、6~ pet:<pet type 或 pet name>-pet type为宠物类型；pet name为宠物名字。
如果不填写宠物类型或名字则判断宠物是否存在。
mounte d-判断是否在坐骑上。
swimmi ng-判断是否在游泳。
flying-判断是否在飞行中。
outdoo rs-判断你是否在室外。
indoor s-判断你是否在室内。
button:<#> 判断某个特定按钮是否被用来触发技能。
<#>可为1(鼠标左键)、2(鼠标右键)、3(鼠标按键3，也就是鼠标滚轮向下按，不是向上滚也不是向下滚)、4(鼠标按键4，多键鼠标专用)、5(鼠标按键5，多键鼠标专用)。
EXCEL常用宏命令
Range("a1").Value =
n = ThisWorkbook.Sheets.Count
Range("a2").Value = n
For i = 1 To n
Cells(i, 2).Value = Sheets(i).Name
16 用窗体添加列和输入文本的综合举例:
Private Sub CommandButton1_Click()
Dim irow As Integer
irow = [a65536].End(xlUp).Row + 1
Cells(irow, 1) = boBox1.Value
22 显示及隐藏工作表
Sheets("首页").Visible = xlSheetVisible
Sheets("首页").Visible = xlSheetHidden
23 选择单元格:
Range("C2").Select
Range("C2,C5").Select
i = MsgBox("系统提供不同服务，是否浏览资费信息？", vbYesNoCancel, "谷子提示：")
If i = vbYes Then
MsgBox "资费信息：********", , "谷子提示"
Else
"输入要运行的代码"
Next
12、显示/隐藏图表的命令
CAD宏命令
rec 空格长方形.正方形；ro 空格旋转；z 空格选中缩放e 空格删除；ex 空格拉伸；s 空格缩放比例z 空格e 空格> 全部显示；z 空格a 空格> 全屏缩放z 空格p 空格>回到上一个缩放的任务；pl 空格pl 线l 空格直线； c 空格圆； a 空格圆弧；di 空格测量直线距离li 空格整个图形信息；la 空格图层p 空格小手z 空格空格缩放和小手；f 空格倒角；ml 空格ml 线mirrtext 空格镜圆；dxfout 导出封闭形；AR: 阵列(array)pl 空格j 空格封闭图形；tr 空格修剪；x 空格炸开B: 定义块；D: 尺寸资源管理器；F: 倒圆角；G: 对相组合H: 填充；I: 插入；S: 拉伸；T: 文本输入W: 定义块并保存到硬盘中；L: 直线；M: 移动；V: 设置当前坐标U: 恢复上一次操做；O: 偏移；F1: 获取帮助F2: 实现作图窗和文本窗口的切换；F3: 控制是否实现对象自动捕捉F4: 数字化仪控制；F5: 等轴测平面切换F6: 控制状态行上坐标的显示方式；F7: 栅格显示模ro 空格旋转ex 空格拉伸；z 空格a 空格> 全屏缩放；pl 空格pl 线c 空格圆； a 空格圆弧；la 空格图层f 空格倒角；dxfout 导出封闭形；tr 空格修剪；D: 尺寸资源管理器I: 插入；S: 拉伸；L: 直线；M: 移动；O: 偏移F3: 控制是否实现对象自动捕捉面切换F6: 控制状态行上坐标的显示方式；F式控制F8: 正交模式控制；F9: 栅格捕捉模式控制F10: 极轴模式控制；F11: 对象追踪式控制Ctrl+B: 栅格捕捉模式控制(F9)；Ctrl+C: 将选择的对象复制到剪切板上Ctrl+F: 控制是否实现对象自动捕捉(f3)；Ctrl+G: 栅格显示模式控制(F7) Ctrl+J: 重复执行上一步命令；Ctrl+K: 超级链接；Ctrl+N: 新建图形文件Ctrl+M: 打开选项对话框AA: 测量区域和周长(area)；AL: 对齐(align)；AP: 加载*lsp程系AV: 打开视图对话框(dsviewer)；SE: 打开对相自动捕捉对话框ST: 打开字体设置对话框(style)；SO: 绘制二围面( 2d solid)SP: 拼音的校核(spell)；SC: 缩放比例(scale)；SN: 栅格捕捉模式设置(snap)DT: 文本的设置(dtext)；DI: 测量两点间的距离；OI：插入外部对相Ctrl+1: 打开特性对话框；Ctrl+2: 打开图象资源管理器；Ctrl+6: 打开图象数据原子Ctrl+O: 打开图象文件；Ctrl+P: 打开打印对说框；Ctrl+S: 保存文件Ctrl+U: 极轴模式控制(F10)；Ctrl+v: 粘贴剪贴板上的内容Ctrl+W: 对象追踪式控制(F11)；Ctrl+X: 剪切所选择的内容Ctrl+Y: 重做；Ctrl+Z: 取消前一步的操作。
ff14宏命令大全
ff14宏命令大全在《最终幻想14》（Final Fantasy XIV）中，宏命令是一种非常重要的工具，可以帮助玩家简化操作、提高游戏效率。
本文将为大家详细介绍ff14宏命令的相关内容，包括宏命令的定义、编写方法、常用宏命令示例等，希望能够帮助玩家更好地利用宏命令，提升游戏体验。
一、宏命令的定义。
宏命令是一种将多个游戏指令组合在一起的功能，通过简单的指令触发复杂的操作。
在ff14中，玩家可以通过宏命令来一键施放技能、切换装备、发送固定文本等操作，极大地方便了游戏操作。
二、宏命令的编写方法。
1. 打开宏命令窗口。
在游戏中，按下“/”键可以打开宏命令窗口，也可以通过菜单栏找到“宏”选项进入宏命令编辑界面。
2. 编写宏命令。
在宏命令编辑界面，玩家可以输入宏的名称，并编写具体的指令内容。
宏命令采用特定的格式进行编写，例如“/ac 治疗”表示施放“治疗”技能，“/equip 主手武器”表示切换主手武器。
3. 绑定宏命令。
编写完成宏命令后，玩家可以将宏命令绑定到快捷栏上，方便在游戏中进行调用。
三、常用宏命令示例。
1. 一键施放技能。
在团队副本中，治疗职业可以编写宏命令实现一键施放多个治疗技能，提高治疗效率。
2. 切换装备。
战斗职业在切换不同作战模式时，可以编写宏命令快速切换对应的装备套装，提高作战灵活性。
3. 发送固定文本。
团队副本中，玩家可以编写宏命令发送固定的战术指令或鼓舞性文本，提升团队合作氛围。
四、宏命令的注意事项。
1. 宏命令的编写需要遵循游戏规则，不得利用宏命令进行作弊行为。
2. 宏命令的使用需要根据游戏实际情况进行调整，避免出现不必要的错误操作。
3. 玩家在使用宏命令时，需要注意技能的冷却时间和战斗节奏，避免因为宏命令而影响游戏操作。
五、总结。
宏命令作为《最终幻想14》游戏中的重要功能，可以帮助玩家简化操作、提高游戏效率。
通过本文的介绍，相信大家对宏命令有了更深入的了解，希望能够在游戏中更好地利用宏命令，提升游戏体验。
魔兽世界宏命令大全
魔兽世界宏命令大全魔兽世界（World of Warcraft）是一款备受玩家喜爱的大型多人在线角色扮演游戏，它拥有庞大的世界观和复杂的游戏系统。
在游戏中，玩家可以通过宏命令来简化操作，提高游戏效率。
宏命令是一种将多个指令组合在一起的方式，可以一键执行多个操作，让玩家在战斗和日常活动中更加轻松自如。
下面是魔兽世界中常用的宏命令大全，希望对玩家们有所帮助。
1. 自动攻击宏。
/cast [target=mouseover, exists, harm] 攻击。
这个宏可以让你在鼠标指向敌人时自动攻击，无需再点击敌人再点击攻击按钮，大大提高了战斗效率。
2. 一键施法宏。
/cast [target=mouseover, exists, help] 治疗术；[target=mouseover, exists, harm] 火球术。
这个宏可以根据鼠标指向的目标类型进行施法，如果是友方目标，则施放治疗术，如果是敌方目标，则施放火球术，省去了切换目标的麻烦。
3. 一键切换宏。
/cast [stance:1] 猎豹形态；[stance:2] 熊形态。
这个宏可以在猎豹形态和熊形态之间快速切换，适用于德鲁伊等变身职业。
4. 多重施法宏。
/castsequence reset=5 火球术, 寒冰箭。
这个宏可以按顺序施放多个法术，每次按下宏的时候都会施放下一个法术，适用于需要连续施法的职业。
5. 一键合剂宏。
/use 法力合剂。
/use 治疗合剂。
这个宏可以一键使用多种合剂，无需手动点击物品栏中的合剂，节省了操作时间。
6. 一键施放宏。
/cast [@focus] 专注打击。
这个宏可以在设置了焦点目标后，一键对焦点目标施放专注打击，适用于需要频繁切换目标的职业。
7. 多重触发宏。
/cast [mod:shift] 冰霜新星；[mod:alt] 寒冰箭。
这个宏可以根据按键的不同组合施放不同的法术，提高了技能的灵活运用。
8. 宏组合宏。
宏操作指令
一、筛选数据: ApplyFilter应用－过滤使用ApplyFilter操作可以对表、窗体或报表应用筛选、查询或SQL WHERE 子句，以便限制或排序表、基础表以及窗体或报表的查询中的记录。
对于报表，只能在其OnOpen 事件属性所指定的宏中使用该操作。
二、移动记录或页: FindNext,FindRecord,GoToControl,GoToPage,GotoRecord1.使用FindNext操作，可以查找下一个记录，该记录符合由前一个FindRecord 操作或“在字段中查找”对话框所指定的准则2.使用FindRecord操作，可以查找符合FindRecord 参数指定的准则的第一个数据实例。
3.使用GoToControl操作，可以把焦点移到打开的窗体、窗体数据表、表数据表、查询数据表中当前记录的特定字段或控件上。
4.使用GoToPage操作，可以在活动窗体中将焦点移到某一特定页的第一个控件上。
5.使用GoToRecord操作可以使指定的记录成为打开的表、窗体或查询结果集中的当前记录。
三、执行: RunCommand /Quit /OpenQuery/ RunCode/ RunMacro /RunSQL /RunApp /CancelEvent/StopAllMacros /StopMacro1.使用RunCommand操作可以运行Microsoft Access 的内置命令。
内置命令可以出现在Microsoft Access 菜单栏、工具栏或快捷菜单上。
2.用Quit操作可以退出Microsoft Access 。
Quit 操作还可以指定在退出Microsoft Access 之前保存数据库对象的几个选项。
3.使用OpenQuery操作，可以在“数据表”视图、“设计”视图或“打印预览”中打开选择查询或交叉表查询。
该操作将运行一个操作查询。
可以为查询选择数据输入方式。
4.使用RunCode操作可调用Visual Basic 的Function 过程。
宏命令
三、破胆怒吼+立刻绷带，以及一键绷带宏/施放破胆怒吼/script SpellStopCasting()/script UseContainerItem(2,1)/script TargetUnit("player")其中/script UseContainerItem(2,1)/script TargetUnit("player")就是一键绷带宏。
可以单独建一个。
绷带放在中间那个包左上开始第一格。
这是战士的一个实用技巧。
虽然时机有时候难以把握，但是只要敌我双方身上都没有流血效果，我们就可以25怒+2000血，也就是说这个宏用好了能顶一件+200耐的装备。
成功用出后要是都没打赢，那基本上就是RP问题.....一键绷带也非常有用。
平时我们绷带都是点了绷带还要点人。
或者要先F1再点绷带。
总之就是要按两个键。
将其简化到一个键，只要多节省1秒，那就是多获得了250血，也就等于比不会这招的对手多25耐。
25耐的优势还不够多么？3-2 铿锵玫瑰烈朋友要的，一键血性狂暴+切换狂暴姿态/施放血性狂暴/script SpellStopCasting()/施放狂暴姿态/ if (UnitHealth("target")<20) then CastSpellByName("斩杀(等级 5)"); end/施放嗜血(等级 4)/ if (UnitMana("Player")>34) then CastSpellByName("旋风斩");end/ if (UnitMana("Player")>34) then CastSpellByName("英勇打击");end狂暴状态攻击的宏,如果对方的血少于20%则斩杀否则放嗜血. 如果怒气大于34,则使用旋风斩, 或英勇打击这个数值我自己设的,具体情况可以看自己更改.武器战士的/script if(UnitIsFriend("player","target")) then AssistUnit("target"); end;/cast 压制(等级 x)/script if (UnitHealth("target")<20) then CastSpellByName("斩杀(等级 x)") else CastSpellByName("致死打击(等级 x)") end第一行：点中目标时打目标，点中队友时协助队友打。
宏命令大全
治疗:
/v 对%t施放复活喽 要踩的赶紧踩
/cast 复活术
—————————————————————————————————————————————————
战士：
冲锋断筋宏：
#showtooltip 冲锋
/cast 冲锋
/cast 断筋
巨人打击乘胜追击宏：
#showtooltip 巨人打击
/castsequence reset=0 0,乘胜追击
/cast 巨人打击
斩杀宏：
#showtooltip
/startattack
/cast 斩杀
/cast 投掷
援护战旗宏：
#showtooltip 援护
/cast 斩击
/stopattack [nocombat]
毒割：
/castsequence 毒伤,毒伤,割裂
/script UIErrorsFrame:Clear()
潜伏帷幕：
#showtooltip 潜伏帷幕
/dismount [mounted]
/cast !潜行
/cast 潜伏帷幕
法师：
宝宝+远程Nova宏:
--------------------------------
#showtooltip [pet] 冰冻术
#showtooltip [nopet] 召唤水元素
/cast [nopet] 召唤水元素
/click [pet] PetActionButton5
/script UIErrorsFrame:Clear()
Word宏命令大全
Word宏命令⼤全1、为宏命令指定快捷键。
在WORD中，操作可以通过菜单项或⼯具栏按钮实现，如果功能项有对应的快捷键的话，利⽤快捷键可以快速实现我们需要的功能。
如最常见的CTRL＋O、CTRL＋A等等。
WORD已经为很多功能指定了快捷键，可以⼤⼤提⾼WORD的操作速度，⽐⽤⿏标操作快捷很多。
⽽我们⾃⼰编辑或者录制的宏，可以⽤菜单项操作完成，也可以为这些命令设置按钮，通过⼯具栏按钮操作，如果为这些常⽤的宏指定合适的快捷键，会为我们提供很⼤的便利。
如何为功能项设置快捷键或修改功能项已有的快捷键，需要对 WORD进⾏⾃定义设置。
在WORD主界⾯中，点击“⼯具”菜单下的“⾃定义”菜单项，在“⾃定义”对话框中，点击“键盘”，如下图所⽰：2、举例说明WORD打开状态下，按ALT＋F11，打开VBA编辑器，粘贴如下代码Sub 英⽂引号转中⽂双引号()'Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = """".Forward = True.Wrap = wdStop.MatchByte = TrueEnd WithWith SelectionWhile .Find.Execute.Text = ChrW(8220).Find.Execute.Text = ChrW(8221)WendEnd WithEnd Sub保存后，再打开“⾃定义”等命令可以出现下图：这时按你要指定的快捷键，⼀⼀般要跟CTRL、ALT和SHIFT结合，可选取⼀个两个或者三个，再加上某⼀个字母。
上例我为选定的宏指定的快捷键为ALT+"，因为"与'是在同⼀键上，实际操作是按三个键。
如果“⽬前指定到”项为[未指定]，选择是保存常规模板“NORMAL”还是本⽂档，点“指定”，然后关闭。
魔兽世界宏命令大全
魔兽世界宏命令大全魔兽世界（World of Warcraft）是一款备受玩家喜爱的大型多人在线角色扮演游戏，它以其庞大的游戏世界、丰富的剧情和多样的游戏玩法而闻名于世。
在游戏中，玩家可以通过宏命令来简化操作、提高效率，甚至实现一些自定义的功能。
本文将为大家介绍魔兽世界中常用的宏命令大全，希望能够帮助玩家更好地享受游戏乐趣。
1. 宏命令简介。
宏命令是一种在游戏中可以执行多个指令的功能。
通过宏命令，玩家可以将多个游戏指令绑定在一个按键上，从而在游戏中快速执行这些指令。
宏命令可以帮助玩家简化操作、提高效率，同时也可以实现一些特殊的功能。
2. 宏命令的创建。
在魔兽世界中，玩家可以通过以下步骤来创建宏命令：打开游戏内的宏命令界面；点击“新建宏命令”按钮；在弹出的界面中输入宏命令的名称，并编写宏命令的具体内容；点击“保存”按钮，即可成功创建一个宏命令。
3. 常用的宏命令。
（1）施放技能。
#showtooltip。
/cast 技能名称。
（2）使用物品。
#showtooltip。
/use 物品名称。
（3）切换装备。
/equip 装备名称。
（4）发送聊天信息。
/run SendChatMessage("信息内容", "频道", "语言", "目标")。
（5）自定义宏命令。
/run 宏命令内容。
4. 宏命令的应用。
在魔兽世界中，宏命令可以被广泛应用于各种游戏场景中，比如战斗、采集、交易等。
通过合理的宏命令设置，玩家可以在游戏中更加轻松地完成各种任务，提高游戏的操作效率和自身的游戏体验。
5. 宏命令的注意事项。
在使用宏命令时，玩家需要注意以下几点：确保宏命令的内容符合游戏规定，不得违反游戏规则；注意宏命令的触发条件，避免在不恰当的时机执行宏命令；定期检查宏命令的有效性，及时更新和调整宏命令的内容。
总结。
魔兽世界中的宏命令是玩家在游戏中提高操作效率、实现自定义功能的重要工具。
WS常用宏命令分享
#showtooltip 嗜血/castsequence reset=4 嗜血,狂风打击,狂风打击/cast 怒击/startattack#showtooltips/cast !神鹤引项踢#showtooltips/castsequence reset=0 0,1,2,3,4,虎眼酒/castsequence reset=0 0,1,2,3,豪能酒/castsequence reset=0 0,1,2,猛虎掌/castsequence reset=0 0,1,贯日击/castsequence reset=0 0,幻灭踢/castsequence reset=0 旭日东升踢#showtooltip 真气波/cast[target=player] 真气波#showtooltip 醉酿投/castsequence reset=0 醉酿投,火焰之息,猛虎掌/script UIErrorsFrame:Clear()#showtooltip 金钟罩/castsequence reset=0 贯日击,金钟罩/script UIErrorsFrame:Clear()宏1和宏2都在CD，使用这个宏，有泄气腿就泄气腿，没真气就贯日击，能量真气都不够，就猛虎掌#showtooltip 幻灭踢/castsequence reset=0 0,0,猛虎掌/castsequence reset=0 0,贯日击/castsequence reset=0 幻灭踢/script UIErrorsFrame:Clear()（1）醉酿投CD一到就醉酿投，金钟罩CD一到就金钟罩，醉酿投、金钟罩都CD的时候，能幻灭踢就幻灭踢，不能幻灭踢就贯日击，没能量、没真气的时候，就猛虎掌）这个宏我测试了很多次，发现偶尔幻灭踢会断，因为连续按键快了，直接跳过，只打么猛虎掌了。
#showtooltip/castsequence reset=0 0,0,0,0,猛虎掌/castsequence reset=0 0,0,0,贯日击,0/castsequence reset=0 0,0,幻灭踢,0,0/castsequence reset=0 0,金钟罩0,0,0/castsequence reset=0 醉酿投,0,0,0,0/script UIErrorsFrame:Clear()（2）醉酿投CD一到就醉酿投，并且依次释放火焰之息，猛虎掌（用来打出强化金钟罩的buff），金钟罩CD一到就金钟罩，醉酿投、金钟罩都CD的时候，能幻灭踢就幻灭踢，不能幻灭踢就贯日击，没能量、没真气的时候，就猛虎掌）这个宏我测试了很多次，发现偶尔幻灭踢会断，因为连续按键快了，直接跳过，只打么猛虎掌了。
魔兽世界宏命令大全
/gpromote /groster
/gremove
/guildremove
/gkick
/saveguildroster .
界面命令 命令
/achievements /calendar /lfg /lfm /macro
/stopwatch
别名
/achievement /achieve,/ach . . . /m,/宏 /timer /sw
. /ins /remfriend . .
/usetalents
.
/usetalents
.
队伍命令
命令
别名
/clearmainassist
/clearmaintank /invite /ffa /group /master /mainassist /maintank /needbeforegreed /promote /raidinfo
/gkick 张三 /saveguildroster
宠物命令
命令
/petaggressive .Leabharlann /petattack.
/petautocastoff .
/petautocaston .
/petautocasttoggle .
/petdefensive
.
/petfollow
.
/petpassive
.
/petstay
.
别名
战队命令
命令 /teamcaptain /teamdisband /teaminvite
范例 /a , /a 张三 /clearfocus /cleartarget /focus /focus targettarget /目标 张三 /目标 party3
宏命令全表
《宏命令全表》(《List of slash commands》翻译版) ] 译者：Subelf>>766魔兽世界宏命令查询器目录前言目录一、[ 基本命令 ]二、[ 聊天命令 ]人物状态三、[ 好友列表 ]四、[ 团队命令 ]拾取分配五、[ 公会命令 ]六、[ 频道命令 ]七、[ PVP ]八、[ 客户端控制 ]九、[ 表情命令 ]有些命令需要参数，而部分命令的参数则是可以省略的。
比如/join可以接受两个参数，一个是可选的，另一个则是必需的，我们用"/join <频道名称> [密码] "来表示。
也就是说“<>”中的是必需的，“[]”中的则是可选的。
一、基本命令/?, /h, /help显示帮助信息。
/a, /assist [player]协助[player]，也就是选择[player]的目标。
如果没有指定[player]，当前目标将作为参数。
/camp, /logout准备返回人物选择界面，出现等待返回的倒数提示。
如果在旅店或主城则直接返回。
/cast, /spell使用技能。
/combatlog开启/禁止战斗日志功能，以便把战斗记录保存到 <魔兽世界安装目录>/Logs/WoWCombatlog.txt/dismount立即直接下马，无视自身状态。
/equip装备背包中可装备物品。
战斗中只能装备武器/副手/远程并会触发1.5s GCD。
非战斗则无任何限制。
/exit, /quit准备退出游戏，出现等待退出的倒数提示。
如果在旅店或主城则直接退出。
/f, /fol, /follow [player]自动跟随[player]。
如果没有指定[player]，当前目标将作为参数。
/ins, /inspect [player]观察[player]。
如果没有指定[player]，当前目标将作为参数。
/played查看总游戏时间。
/rand, /random, /rnd, /roll [[min] max]获取一个[min,max]区间的随机数，min默认为1，max默认为100。
WLK-生存猎常用宏
WLK-生存猎常用宏一、爆炸射击#show 爆炸射击/cast !自动射击/cast [@pettarget,exists] 杀戮命令/cast 爆炸射击/use 10说明：爆炸射击、自动射击、杀戮命令、工程手套加速器四合一二、瞄准射击#show 瞄准射击/cast !自动射击/cast 瞄准射击/cast [@pettarget,exists] 杀戮命令/use 10三、多重射击#showtooltip 多重射击/cast !自动射击/cast [@pettarget,exists] 杀戮命令/cast [@mouseover,nodead,harm] 多重射击;多重射击/use 10说明：鼠标指向多重，不用TAB切目标，鼠标移动到目标上直接打出去四、黑箭#show 黑箭/cast !自动射击/cast 黑箭/cast [@pettarget,exists] 杀戮命令/use 10五、毒蛇钉刺#show 毒蛇钉刺/cast !自动射击/cast [@pettarget,exists] 杀戮命令/cast [target=mouseover,harm,nodead][]毒蛇钉刺/use 10说明：鼠标指向毒蛇钉刺，同理多重射击宏六、稳固射击#showtooltip 稳固射击/targetenemy [noexists][help]/cast !自动射击/cast [@pettarget,exists] 杀戮命令/cast 稳固射击说明：带自动导航的，按的时候小心别ADD，如果不习惯可以把/targetenemy [noexists][help]这一行删掉，就不会自动导航了。
七、乱射#showtooltip 乱射/cast [@cursor] 乱射说明：取消法阵的红圈圈，鼠标移到哪就A到哪八、杀戮射击#show 杀戮射击/cast 杀戮射击/cast [@pettarget,exists] 杀戮命令/cancelaura 保护祝福/use 10说明：杀戮射击时取消保护祝福九、爆炸陷阱#show 爆炸陷阱/cast 爆炸陷阱/cast !猛禽一击/cast 猫鼬撕咬说明：爆炸陷阱绑定近战技能十、爆发宏#show 急速射击/cast 急速射击/cast 血性狂怒(种族特长)/cast 野性呼唤/use 13/use 14/use 速度药水十一、宝宝复合宏#showtooltip/cast [nopet] 召唤宠物/cast [@pet,dead] 复活宠物/cast [pet,mod] 解散野兽;治疗宠物说明：没宝宝的时候优先召唤宝宝，有宝宝的时候优先治疗，按住ALT/SHIFT解散宝宝。
魔兽世界宏命令教程
魔兽世界宏命令教程1.常用的宏命令1.1常用的宏命令1.释放技能命令/cast释放一个或多个技能,可以加入一些条件判断,是最常用的命令/castsequence依次释放释放数个技能,同样可以加入一些条件判断,常见于所谓的"无脑宏"/use使用一个物品，可以直接用物品名称也可以用物品栏位置2.动作命令/cancelform取消变形/cancelaura取消状态或增益/startattack开始攻击，一般写不写差别不大，释放技能会自动开始攻击的/stopattack停止攻击，与startattack相反，用于防止破除控制等功能，也不大会用到/target /targetenemy切换目标，用到的也不多，抓贼宏会用到，更多时候需要的反而是不切换目标的情况下对特定目标释放技能/mount召唤坐骑/dismount解散坐骑3.语言表情命令/1 /2 /3 /4在不同的频道里面说话,1综合,2交易,3本地防务,4寻求组队/s /y /p /ra /bg在不同的范围说话,s说,y喊,p小队,ra团队,bg战场/e做出一串表情,同时也可以/+内置表情4.特殊命令#showtooltip显示技能描述，可以指定技能名或是缺省，让你的界面更有可读性/focus指定某个目标为焦点目标/clearfocus清除焦点目标/stopmacro停止宏，可加入条件判断/console /script控制命令，抓贼宏会用到1.2常用的条件判断1.目标条件判断help noharm目标为友方harm nohelp目标为敌方exists目标存在dead nodead目标死亡/存活2.自身条件判断stance:1/2/3/4/5/6 form:1/2/3/4/5/6处在某形态中，对应为野性:1熊,2水栖,3豹,4旅行,5飞行平衡:1熊,2水栖,3豹,4旅行,5枭兽,6飞行恢复:1熊,2水栖,3豹,4旅行,5树,6飞行combat nocombat战斗中/非战斗中stealth nostealth潜行中,非潜行中mod:alt/shift/ctrl按下功能键alt/shift/ctrl,可缺省swimming noswimming游泳中/非游泳中flyable noflyable可飞行/不可飞行indoors outdoors室内/室外3.其他条件判断@target=name/player/focus/targettarget/mouseover/raid#/party #/arena#选定目标指定名字/自己/焦点/目标的目标/鼠标指向/团队#号/小队#号/竞技场#号敌人reset=#/target/combat/shift/alt/ctrl用于/castsequence中，设定重置条件,可以是#秒/切换目标/进入战斗/按下shift/按下alt/按下ctrl1.3简单的宏知识1.宏内容宏可以取名和设置图标,如果设置为?图标的话就是自动选择宏技能的图标宏最长不超过255个字符,每个英文字母是一个字符,汉字是两个字符如果包含汉字且超过了255个字符但没超过255个字,在保存时是不会出现问题的,但是下线以后会丢失宏内容2.标点符号除去技能名之外所有的标点符号英文字母都是半角的技能名之间一般用";"间隔,而castsequence中队列里的技能名则用","间隔需要同时满足的条件由中括号"[]"包裹,","间隔3.技能名技能名必须正确,可以打开技能书shift+点击技能来获取技能名如果分辨率不够的话也许会导致技能书和宏菜单不能同时打开,可以尝试调节UI缩放2.实例2.1简单宏1.对特定目标释放技能#showtooltip/cast [@目标名,exists] []技能名此宏会对特定目标释放所定的技能,目标不存在的话就直接释放技能如果没有同名的那么系统会选择一个"某种程度上比较相近"的人同时也可以写player,raid#之类的,详见第一部分例:Code:#showtooltip/cast[@哀木涕,exists][]生命绽放2.喊话宏/频道喊话内容在指定频道喊话频道可以是：s(说)y(喊)1(综合)2(交易)3(本地防务)4(组队)p(小队)ra(团队)bg(战场)e(表情)例:Code:/1FL10人便当1-3缺1T,9=1来的带装等成就MMM3.变形宏#showtooltip/cast !变形技能可以在人形态释放来变形,也可以在变形状态下重新变形来解减速等等例:Code:#showtooltip/cast!熊形态简单的循环#showtooltip/castsequence reset=条件1/条件2 技能1,技能2,技能3依次释放技能,技能名之间用","间隔条件可以是#(秒数)target(切换目标)combat(进入战斗)shift/alt/ctrl(按下shifit/alt/ctrl)例Code:#showtooltip/castsequencereset=6/combat痛击,横扫,挫志咆哮,横扫4.双技能宏#showtooltip/cast [条件]技能1;技能2符合条件就释放技能1,否则就释放技能2技能名之间用";"间隔条件可以是自身条件也可以是目标条件可以用来节省空间,制作也极为简单例1:Code:#showtooltip/cast[stance:1]激怒;猛虎之怒例2:Code:#showtooltip/cast[harm]安抚;解除腐蚀5.使用物品宏#showtooltip/use 物品使用物品可以直接打物品名字也可以是物品位置编号编号对应:6(腰带)10(手套)13(饰品上)14(饰品下)15(披风)例:Code:showtooltip/use6/e绝尘而去6.取消buff宏/cancelaura 增益名取消buff用,例如取消保护,疾跑奔窜连放例:Code:#showtooltip/cancelaura急奔/cast[stance:3]狂奔怒吼(猎豹形态);狂奔怒吼(熊形态)2.2进阶以上是各种最基本的宏,那么我们能不能将这些宏拓展开来呢?条件更复杂,技能数量更多,多种不同的语句糅杂在一起,那就可以实现更多的功能1.分支选择宏"对特定目标释放技能宏"可以实现目标的选择,那么能不能加入判断,使得不同条件下对不同的目标施放呢?[@player,mod:alt]按住alt的话对自己释放用了宏的话系统内置的自我施法按键(alt)就不好用了,所以很多技能都会加上这一个条件来人工实现这个功能[@mouseover,harm/help,exists]对鼠标指向的目标释放这是很多治疗喜爱的宏,可以免去不断切换目标的麻烦其中,harm和help则根据技能需要改动[@focus,mod:shift]按住shift则对焦点目标释放PvP非常常用且有用,shift也可以换成alt或是ctrl[@targettarget,harm/help,exists]对目标的目标释放这里需要注意的是这个harm和help所指的不是目标的属性,而是目标的目标的属性例如如果目标是boss,则对目标的目标施放治疗那么这里应该写的是help而不是harm,很多人都会觉得是:目标是harm的,所以转向目标的目标;这是不对的以上列举了几个常见的,你也可以自己试着写一写,"在某个条件下则以某人为目标"条件和目标的词汇则在第1部分里面有详细的介绍下面便可以把所有你认为会出现的条件写到一起了条件判断是从左到右的,也就是把你觉得应该先进行判断的条件写到左边#showtooltip/cast [@目标1,条件1] [@目标2,条件2] [@目标3,条件3] []技能最后的结果就是如果满足条件1,则对目标1释放,否则如果满足条件2,则对目标2释放,否则如果满足条件3,则对目标3释放这里建议最后加上一个空的中括号,来避免条件限制太死,有时候放不出技能的情况还有如果不写目标的话则默认为@target对当前目标，所以一般"@target"都省略掉了例:Code:#showtooltip/cast[@player,mod:alt][@mouseover,help,exists][help,exists] [@targettarget,help,exists][]回春术2.复杂变形宏在"变形宏"上再加上各种条件判断,实现多种变形一键完成常用的条件有[swimming]水栖形态水里用水栖[flyable,nocombat]迅捷飞行形态飞行需要能飞且不战斗[outdoors,noflyable,nocombat]大型棕色科多兽不能飞那就只能坐骑了[outdoors,noflyable,combat]旅行形态要是还是战斗的话就旅行[indoors]猎豹形态室内就只能猎豹了然后我们直接把以上的全部加到一起,就得到了最终的宏Code:#showtooltip/cast[swimming]水栖形态;[flyable,nocombat]迅捷飞行形态;[outdoors,noflyable,nocombat]大型棕色科多兽;[outdoors,noflyable,combat]旅行形态;[indoors]猎豹形态事实上还有一个化简的问题例如说/cast [combat]猎豹形态;[nocombat]旅行形态后面那个nocombat需要吗？不需要因为判断从左至右进行,判断到第二个的时候就说明第一个没有通过了,那么combat没有通过必然是nocombat了但由于实际情况有很多条件并列,导致判断某个条件是否需要就比较复杂,有些人可能会绕不过来下面给出前面宏的化简结果Code:#showtooltip/cast[swimming]水栖形态;[flyable,nocombat]迅捷飞行形态;[outdoors,nocombat]大型棕色科多兽;[outdoors]旅行形态;猎豹形态当然,还可以加上"!"来防止连按又变回来,注意"!"放在技能名前面再给一个我自己用的变形宏,尝试下能不能看得懂Code:#showtooltip/cast[flyable,nocombat,nomod]!迅捷飞行形态;[form:4,nomod,outdoors][nomod.nocombat,outdoors][nofor m,outdoors]!旅行形态;[swimming,nomod]!水栖形态;[form:1,nomod]!巨熊形态;[form:3,nomod]!猎豹形态;[form:5,nomod][nomod,indoors]!生命之树/cancelform[form:6][mod]由于宏太长不得已把stance换成form了,效果一样3.简单循环中夹杂条件判断的宏下面我们再来给castsequence语句加点条件判断你也可以理解为把"简单循环宏"和"双技能宏"结合起来#showtooltip/castsequence [条件1] reset=重置条件A1/重置条件A2 循环A; reset=重置条件B1/重置条件B2 循环B循环之间用";"分隔而每个循环则写作技能1,技能2,技能3同一个循环里的不同技能用","分隔无脑宏什么的就不说了,这里举个野性冲锋的例子:Code:#showtooltip/castsequence[stance:3]reset=10野性冲锋(猎豹形态),毁灭;野性冲锋(熊形态)作用就是释放对应形态的冲锋,猫跳后再按就是接免费毁灭这里的reset=10是因为免费毁灭buff持续10秒4.其他的一些命令/focus这条命令有3个作用1.没有焦点目标的时候将目标设置为焦点目标2.有焦点目标的时候将焦点目标更改成当前目标3.当前目标为空时清空焦点目标同时这条命令也是可以加条件判断的,如果不加判断的话非常容易误改了焦点不过判断中的@仅针对判断语句的对象,会被设为焦点的永远是当前目标同时配套的还有清空焦点目标/clearfocus这是一个最常见的焦点宏:没焦点就设焦点,按住alt强制设焦点,焦点死亡就清除焦点Code:/focus[mod:alt][@focus,noexists]/clearfocus[@focus,dead]这些命令还可以加进针对焦点目标的技能宏里例：Code:#showtooltip/focus[mod:alt][@focus,noexists]/clearfocus[@focus,dead]/cast[@focus,mod:shift,harm,exists][@mouseover,harm,exist s][]旋风。
魔兽宏命令分享
11 判断形态 变熊+冲锋 需要按2次
/cast [nostance:1] 巨熊形态(变形);野性冲锋
12 #showtooltip [noform][mod]月火术;[stealth]毁灭;[form:1]裂伤（熊）;裂伤（豹）
#showtooltip
/cast [ stealth] 毁灭; [nostealt技能条的 所以我们把毁灭和撕碎绑一起 节约一个技能格
/targetlasttarget [noexists]
/施放 [noform][mod]月火术;[stealth]突袭;[form:1]裂伤（熊）;[form:3]裂伤（豹）
/施放 [form:1]野性冲锋 - 熊;野性冲锋 - 豹
/castsequence reset=1/mod ,,,,,,,,,,裂伤（豹）,猛虎之怒
#showtooltip
/cast [modifier:alt] 割碎;野性冲锋 - 豹
#showtooltip
/cast [mod:alt]生存本能; 狂暴
/cast [modifier:alt]星辰坠落; 台风
#showtooltip
/cast [combat]复生; 起死回生
#showtooltip [noform][mod]月火术;[stealth]毁灭(猎豹形态);[form:1]裂伤(熊形态);裂伤(猎豹形态)
/targetlasttarget [noexists]
/施放 [noform][mod]月火术;[stealth]突袭(猎豹形态);[form:1]裂伤(熊形态);[form:3]裂伤(猎豹形态)
257个常用Excel宏命令-工具-牧龙在野！
257个常用Excel宏命令-工具-牧龙在野！展开全文工作的时候用到的，感觉很实用，保存下来。
随时查询学习。
目录：1、打开全部隐藏工作表2、循环宏3、录制宏时调用“停止录制”工具栏4、高级筛选5列不重复数据至指定表5、双击单元执行宏(工作表代码)6、双击指定区域单元执行宏(工作表代码)7、进入单元执行宏(工作表代码)8、进入指定区域单元执行宏(工作表代码)9、在多个宏中依次循环执行一个（控件按钮代码）10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）12、根据A1单元文本隐藏/显示按钮（控件按钮代码）13、当前单元返回按钮名称（控件按钮代码）14、当前单元内容返回到按钮名称（控件按钮代码）15、奇偶页分别打印16、自动打印多工作表第一页17、查找A列文本循环插入分页符18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小19、返回光标所在行数20、在A1返回当前选中单元格数量21、返回当前工作簿中工作表数量22、返回光标选择区域的行数和列数23、工作表中包含数据的最大行数24、返回A列数据的最大行数25、将所选区域文本插入新建文本框26、批量插入地址批注27、批量插入统一批注28、以A1单元内容批量插入批注29、不连续区域插入当前文件名和表名及地址30、不连续区域录入当前单元地址31、连续区域录入当前单元地址32、返回当前单元地址33、不连续区域录入当前日期34、不连续区域录入当前数字日期35、不连续区域录入当前日期和时间36、不连续区域录入对勾37、不连续区域录入当前文件名38、不连续区域添加文本39、不连续区域插入文本40、从指定位置向下同时录入多单元指定内容41、按aa工作表A列的内容排列工作表标签顺序42、以A1单元文本作表名插入工作表43、删除全部未选定工作表44、工作表标签排序45、定义指定工作表标签颜色46、在目录表建立本工作簿中各表链接目录47、建立工作表文本目录48、查另一文件的全部表名49、当前单元录入计算机名50、当前单元录入计算机用户名51、解除全部工作表保护52、为指定工作表加指定密码保护表53、在有密码的工作表执行代码54、执行前需要验证密码的宏(控件按钮代码)55、执行前需要验证密码的宏()56、拷贝A1公式和格式到A257、复制单元数值58、插入数值条件格式59、插入透明批注60、添加文本61、光标定位到指定工作表A列最后数据行下一单元62、定位选定单元格式相同的全部单元格63、按当前单元文本定位64、按固定文本定位65、删除包含固定文本单元的行或列66、定位数据及区域以上的空值67、右侧单元自动加5(工作表代码)68、当前单元加269、A列等于A列减B列70、用于光标选定多区域跳转指定单元(工作表代码)71、将A1单元录入的数据累加到B1单元（工作表代码）72、在指定颜色区域选择单元时添加/取消'√'（工作表代码）73、在指定区域选择单元时添加/取消'√'（工作表代码）74、双击指定单元，循环录入文本（工作表代码）75、双击指定单元，循环录入文本（工作表代码）76、单元区域引用（工作表代码）77、在指定区域选择单元时数值加1（工作表代码）78、混合文本的编号79、指定区域单元双击数据累加（工作表代码）80、选择单元区域触发事件（工作表代码）81、当修改指定单元内容时自动执行宏（工作表代码）82、被指定单元内容限制执行宏83、双击单元隐藏该行（工作表代码）84、高亮显示行（工作表代码）85、高亮显示行和列（工作表代码）86、为指定工作表设置滚动范围（工作簿代码）87、在指定单元记录打印和预览次数（工作簿代码）88、自动数字金额转大写（工作表代码）89、将全部工作表的A1单元作为单击按钮（工作簿代码）90、闹钟——到指定时间执行宏（工作簿代码）91、改变Excel界面标题的宏（工作簿代码）92、在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）93、B列录入数据时在A列返回记录时间（工作表代码）94、当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）95、指定单元显示光标位置内容（工作表代码）96、每编辑一个单元保存文件97、指定允许编辑区域98、解除允许编辑区域限制99、删除指定行100、删除A列为指定内容的行101、删除A列非数字单元行102、有条件删除当前行103、选择下一行104、选择第5行开始所有数据行105、选择光标或选区所在行106、选择光标或选区所在列107、光标定位到名称指定位置108、选择名称定义的数据区109、选择到指定列的最后行110、将Sheet1的A列的非空值写到Sheet2的A列111、将名称1的数据写到名称2112、单元反选113、调整选中对象中的文字114、去除指定范围内的对象115、更新透视表数据项116、将全部工作表名称写到A列117、为当前选定的多单元插入指定名称118、删除全部名称119、以指定区域为表目录补充新表120、按A列数据批量修改表名称121、按A列数据批量创建新表(控件按钮代码) 122、清除剪贴板123、批量清除软回车124、判断指定文件是否已经打开125、当前文件另存到指定目录126、另存指定文件名127、以本工作表名称另存文件到当前目录128、将本工作表单独另存文件到Excel当前默认目录129、以活动工作表名称另存文件到Excel当前默认目录130、另存所有工作表为工作簿131、以指定单元内容为新文件名另存文件133、以当前日期和时间为新文件名另存文件134、另存本表为TXT文件135、引用指定位置单元内容为部分文件名另存文件136、将A列数据排序到D列137、将指定范围的数据排列到D列138、光标所在行上移一行139、加数据有效限制140、取消数据有效限制141、重排窗口143、回车光标向右144、回车光标向下146、保存并退出Excel147、隐藏/显示指定列空值行148、深度隐藏指定工作表149、隐藏指定工作表150、隐藏当前工作表151、返回当前工作表名称152、获取上一次所进入工作簿的工作表名称153、按光标选定颜色隐藏本列其他颜色行154、打开工作簿自动隐藏录入表以外的其他表155、除最左边工作表外深度隐藏所有表156、关闭文件时自动隐藏指定工作表(ThisWorkbook) 157、打开文件时提示指定工作表是保护状态(ThisWorkbook) 158、插入10行159、全选固定范围内小于0的单元160、全选选定范围内小于0的单元161、固定区域单元分类变色162、A列半角内容变红163、单元格录入数据时运行宏的代码164、根据B列最后数据快速合并A列单元格的控件代码165、在F1单元显示光标位置批注内容的代码166、显示光标所在单元的批注的代码167、使单元内容保持不变的工作表代码168、有条件执行宏169、有条件执行不同的宏170、提示确定或取消执行宏171、提示开始和结束172、拷贝指定表不相邻多列数据到新位置173、选择2至4行174、在当前选区有条件替换数值为文本175、自动筛选全部显示指定列176、自动筛选第2列值为A的行177、取消自动筛选()178、全部显示指定表的自动筛选179、强行合并单元180、设置单元区域格式181、在所有工作表的A1单元返回顺序号182、根据A1单元内容返回C1数值183、根据A1内容选择执行宏184、删除A列空行185、在A列产生不重复随机数186、将A列数据随机排列到F列187、取消选定区域的公式只保留值(假空转真空) 188、处理导入的显示为科学计数法样式的身份证号189、返回指定单元的行高和列宽190、指定行高和列宽191、指定单元的行高和列宽与A1单元相同191、填公式192、建立当前工作表的副本为001表193、在第一个表前插入多工作表194、清除A列再插入序号195、反方向文本(自定义函数)196、指定选择单元区域弹出消息197、将B列数据添加超链接到K列198、删除B列数据的超链接199、分离临时表A列数据的文本和超链接并整理到数据库表200、分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表201、返回A列最后一个非空单元行号202、返回表中第一个非空单元地址(行搜索)203、返回表中各非空单元区域地址(行搜索)204、返回第一个数值行号205、返回第1行最右边非空单元的列号206、返回连续数值单元的数量207、统计指定范围和内容的单元数量208、统计不同颜色的数字的和（自定义函数）209、返回非空单元数量210、返回A列非空单元数量211、返回圆周率π212、定义指定单元内容为页眉/页脚213、提示并全部清除当前选择区域214、全部清除当前选择区域215、清除指定区域数值216、对指定工作表执行取消隐藏》打印》隐藏工作表217、打开文件时执行指定宏(工作簿代码)218、关闭文件时执行指定宏(工作簿代码)219、弹出提示A1单元内容220、延时15秒执行重排窗口宏221、撤消工作表保护并取消密码222、重算指定表223、将第5行移到窗口的最上面224、对第一张工作表的指定区域进行排序225、显示指定工作表的打印预览226、用单元格A1的内容作为文件名另存当前工作簿227、[禁用/启用]保存和另存的代码228、在A和B列返回当前选区的名称和公式229、朗读朗读A列,按ESC键中止230、朗读固定语句，请按ESC键终止231、在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）232、添加自定义序列233、弹出打印对话框234、返回总页码235、合并各工作表内容236、合并指定目录中所有文件中相同格式工作表的数据237、隐藏指定工作表的指定列238、把a列不重复值取到e列239、当前选区的行列数240、单元格录入1位字符就跳转(工作表代码)241、当指定日期（每月10日）打开文件执行宏242、提示并清空单元区域243、返回光标所在行号244、按照当前行A列的图片名称插入图片到H列245、当前行下插入1行246、取消指定行或列的隐藏247、复制单元格所在行248、复制单元格所在列249、新建一个工作表250、新建一个工作簿251、选择多表为工作组252、在当前工作组各表中分别执行指定宏253、复制当前工作簿的报表到临时工作簿254、删除指定文件255、合并A1至C1的内容写到D15单元的批注中256、自动重算257、手动重算命令：1、打开全部隐藏工作表Sub 打开全部隐藏工作表()Dim i AsIntegerFor i = 1To Sheets.CountSheets(i).Visible = TrueNextiEnd Sub2、循环宏Sub 循环()AAA =Range('C2')Dim i AsLongDim timesAs Longtimes =AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1To timesCall 过滤一行If Range('完成标志') = '完成' ThenExit For'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出'If Sheets('传送参数').Range('A' & i).Text = '完成'Then ExitFor'如果某列出现'完成'内容则退出循环NextiEnd Sub3、录制宏时调用“停止录制”工具栏Sub 录制宏时调用停止录制工具栏()mandBars('Stop Recording').Visible = True End Sub4、高级筛选5列不重复数据至指定表Sub 高级筛选5列不重复数据至Sheet2()Sheets('Sheet2').Range('A1:E65536') = '' '清除Sheet2的A:D 列Range('A1:E65536').AdvancedFilterAction:=xlFilterCopy,CopyT oRange:=Sheet2.Range( _ 'A1'), Unique:=TrueSheet2.Columns('A:E').SortKey1:=Sheet2.Range('A2'),Order1:=xlAscending,Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,SortMethod _:=xlPinYinEnd Sub5、双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)IfRange('$A$1') = '关闭' ThenExit SubSelectCase Target.AddressCase '$A$4'Call 宏1Cancel = TrueCase '$B$4'Call 宏2Cancel = TrueCase '$C$4'Call 宏3Cancel = TrueCase '$E$4'Call 宏4Cancel = TrueEndSelectEnd Sub6、双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)IfRange('$A$1') = '关闭' Then Exit SubIf NotApplication.Intersect(Target, Range('A4:A9', 'C4:C9')) Is NothingThen Call 打开隐藏表End Sub7、进入单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)'以单元格进入代替按钮对象调用宏IfRange('$A$1') = '关闭' Then Exit SubSelectCase Target.AddressCase '$A$5' '单元地址(Target.Address),或命名单元名字()Call 宏1Case '$B$5'Call 宏2Case '$C$5'Call 宏3EndSelectEnd Sub8、进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)IfRange('$A$1') = '关闭' Then Exit SubIf NotApplication.Intersect(Target, Range('A4:A9','C4:C9')) IsNothingThen Call 打开隐藏表End Sub9、在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click()StaticRunMacro As IntegerSelectCase RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0EndSelectEnd Sub10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click()WithCommandButton1If .Caption = '保护工作表' ThenCall 保护工作表.Caption = '取消工作表保护'End IfIf .Caption = '取消工作表保护' ThenCall 取消工作表保护.Caption = '保护工作表'Exit SubEnd IfEndWithEnd Sub11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option ExplicitPrivate Sub CommandButton1_Click()WithCommandButton1If .Caption = '宏1' ThenCall 宏1.Caption = '宏2'Exit SubEnd IfIf .Caption = '宏2' ThenCall 宏2.Caption = '宏3'Exit SubEnd IfIf .Caption = '宏3' ThenCall 宏3.Caption = '宏1'End IfEndWithEnd Sub12、根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range('A1') > 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub13、当前单元返回按钮名称（控件按钮代码）Private Sub CommandButton1_Click()ActiveCell = CommandButton1.CaptionEnd Sub14、当前单元内容返回到按钮名称（控件按钮代码）Private Sub CommandButton1_Click() CommandButton1.Caption = ActiveCellEnd Sub15、奇偶页分别打印Sub 奇偶页分别打印()Dim i%, Ps%Ps = ExecuteExcel4Macro('GET.DOCUMENT(50)') '总页数MsgBox '现在打印奇数页,按确定开始.'For i = 1 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iMsgBox '现在打印偶数页,按确定开始.'For i = 2 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iEnd Sub16、自动打印多工作表第一页Sub 自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox('请输入起始工作表名字:')sy = InputBox('请输入结束工作表名字:')y = Sheets(x).Indexsyz = Sheets(sy).IndexFor sh = y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1, To:=1Next shEnd Sub17、查找A列文本循环插入分页符Sub 循环插入分页符()' Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容Dim i As LongDim times As Longtimes=Application.WorksheetFunction.CountIf(Sheet1.Range('a:a'),'分页')'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 插入分页符Next iEnd SubSub 插入分页符()Cells.Find(What:='分页',After:=ActiveCell, LookIn:=xlValues,LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False) _.ActivateActiveWindow.SelectedSheets.HPageBreaks.AddBefore:=ActiveCellEnd SubSub 取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()Dim PicAs Picture, i&i =[A65536].End(xlUp).RowFor EachPic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell, Range('B1:B'& i)) Is Nothing ThenPic.Top = Pic.T opLeftCell.TopPic.Left = Pic.TopLeftCell.LeftPic.Height = Pic.TopLeftCell.HeightPic.Width = Pic.TopLeftCell.WidthEnd IfNextEnd Sub19、返回光标所在行数Sub 返回光标所在行数()x =ActiveCell.RowRange('A1') = xEnd Sub20、在A1返回当前选中单元格数量Sub 在A1返回当前选中单元格数量() [A1] =Selection.CountEnd Sub21、返回当前工作簿中工作表数量Sub 返回当前工作簿中工作表数量() t =Application.Sheets.Count MsgBoxtEnd Sub22、返回光标选择区域的行数和列数Sub 返回光标选择区域的行数和列数() x =Selection.Rows.County =Selection.Columns.CountRange('A1') = xRange('A2') = yEnd Sub23、工作表中包含数据的最大行数Sub 包含数据的最大行数()n =Cells.Find('*', , , , 1, 2).RowMsgBoxnEnd Sub24、返回A列数据的最大行数Sub 返回A列数据的最大行数()n =Range('a65536').End(xlUp).RowRange('B1') = nEnd Sub25、将所选区域文本插入新建文本框Sub 将所选区域文本插入新建文本框()For Eachrag In Selectionn = n & rag.Value & Chr(10)NextActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizon tal,ActiveCell.Left + ActiveCell.Width, ActiveCell.Top+ActiveCell.Height, 250#, 100).SelectSelection.Characters.Text = '问题：' & nWithSelection.Characters(Start:=1, Length:=3).Font.Name = '黑体'.FontStyle = '常规'.Size = 12EndWithEnd Sub26、批量插入地址批注Sub 批量插入地址批注()On ErrorResume NextDim r AsRangeIfSelection.Cells.Count > 0 ThenFor Each r In Selectionment.Deleter.AddCommentment.Visible = Falsement.Text Text:='本单元格：' & r.Address& ' of ' & Selection.AddressNextEndIfEnd Sub27、批量插入统一批注Sub 批量插入统一批注()Dim r AsRange, msg As Stringmsg =InputBox('请输入欲批量插入的批注', '提示', '随便输点什么吧')IfSelection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=msgNextEndIfEnd Sub28、以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注()Dim r AsRangeIfSelection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=[a1].TextNextEndIfEnd Sub29、不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址()For Eachmycell In Selectionmycell.FormulaR1C1 = '[' + + ']' + + '!' + mycell.AddressNextEnd Sub30、不连续区域录入当前单元地址Sub 区域录入当前单元地址()For Eachmycell In Selectionmycell.FormulaR1C1 = mycell.AddressNextEnd Sub31、连续区域录入当前单元地址Sub 连续区域录入当前单元地址()Selection= '=ADDRESS(ROW(),COLUMN(),4,1)'Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _:=False, Transpose:=FalseEnd Sub32、返回当前单元地址Sub 返回当前单元地址()d =ActiveCell.Address[A1] =dEnd Sub33、不连续区域录入当前日期Sub 区域录入当前日期()Selection.FormulaR1C1 = Format(Now(), 'yyyy-m-d')End Sub34、不连续区域录入当前数字日期Sub 区域录入当前数字日期()Selection.FormulaR1C1 = Format(Now(), 'yyyymmdd')End Sub35、不连续区域录入当前日期和时间Sub 区域录入当前日期和时间()Selection.FormulaR1C1 = Format(Now(), 'yyyy-m-d h:mm:ss') End Sub36、不连续区域录入对勾Sub 批量录入对勾()Selection.FormulaR1C1 = '√'End Sub37、不连续区域录入当前文件名Sub 批量录入当前文件名()Selection.FormulaR1C1 = End Sub38、不连续区域添加文本Sub 批量添加文本()Dim s AsRangeFor Eachs In Selections = s & '文本内容'NextEnd Sub39、不连续区域插入文本Sub 批量插入文本()Dim s AsRangeFor Eachs In Selections = '文本内容' & sNextEnd Sub40、从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容()Dimarrarr =Array('1', '2', '13', '25', '46', '12', '0', '20')[B2].Resize(8, 1) =Application.WorksheetFunction.Transpose(arr)End Sub41、按aa工作表A列的内容排列工作表标签顺序Sub 按aa工作表A列的内容排列工作表标签顺序()Dim I%,str1$I = 1Sheets('aa').SelectDo WhileCells(I, 1).Value <> ''str1 = Trim(Cells(I, 1).Value)Sheets(str1).SelectSheets(str1).Move after:=Sheets(I)I = I + 1Sheets('aa').SelectLoopEnd Sub42、以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表()Dim nm AsStringnm =[a1]Sheets.Add = nmEnd Sub43、删除全部未选定工作表Sub 删除全部未选定工作表()Dim shtAs Worksheet, n As Integer, iFlag As Boolean DimShtName() As Stringn =ActiveWindow.SelectedSheets.Count ReDimShtName(1 To n)n = 1For Eachsht In ActiveWindow.SelectedSheets ShtName(n) = n = n + 1NextApplication.DisplayAlerts = FalseFor Eachsht In SheetsiFlag = FalseFor i = 1 To n - 1If ShtName(i) = TheniFlag = TrueExit ForEnd IfNextIf Not iFlag Then sht.DeleteNextApplication.DisplayAlerts = TrueEnd Sub44、工作表标签排序Sub 工作表标签排序()Dim i AsLong, j As Long, nums As Long, msg As Longmsg =MsgBox('工作表按升序排列请选'是[Y]'. ' & vbCrLf& vbCrLf & '工作表按降序排列请选 '否[N]'',vbYesNoCancel, '工作表排序')If msg =vbCancel Then Exit Subnums =Sheets.CountIf msg =vbYes Then 'Sort ascendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name)ThenSheets(j).Move Before:=Sheets(i)End IfNext jNextiElse'Sort descendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) > UCase(Sheets(i).Name)ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEndIfEnd Sub259个常用宏-excelhome(2)2009-08-15 14:11:4545、定义指定工作表标签颜色Sub 定义指定工作表标签颜色()Sheets('Sheet1').Tab.ColorIndex = 46 End Sub46、在目录表建立本工作簿中各表链接目录Sub 在目录表建立本工作簿中各表链接目录() Dim s%,Rng As RangeOn ErrorResume NextSheets('目录').ActivateIf Err =0 ThenSheets('目录').UsedRange.DeleteElseSheets.Add = '目录'EndIfFor i = 1To Sheets.CountIf Sheets(i).Name <> '目录' Thens = s + 1Set Rng = Sheets('目录').Cells(((s - 1) Mod 20) + 1, (s - 1) \ 20 + 1+ 1)Rng = Format(s, ' 0') & '. ' &Sheets(i).NameActiveSheet.Hyperlinks.Add Rng, '#' &Sheets(i).Name & '!A1',ScreenTip:=Sheets(i).NameEnd IfNextSheets('目录').Range('b:iv').EntireColumn.ColumnWidth = 20 End Sub47、建立工作表文本目录Sub 建立工作表文本目录()Sheets.Add before:=Sheets(1)Sheets(1).Name = '目录'For i = 2To Sheets.CountCells(i - 1, 1) = Sheets(i).Name'Sheets(1).Hyperlinks.Add Cells(i - 1, 1), '#' &Sheets(i).Name &'!A1' '添加超链接NextEnd Sub48、查另一文件的全部表名Sub 查另一文件的全部表名()On ErrorResume NextDimi%Dim sh AsWorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWorkbook.Path &'\2.xls' Windows('1.xls').Activate '当前文件名称Sheets('Sheet1').Select '当前表名称i =1 '将表名称返回到第1行For Eachsh In Workbooks('2.xls').WorksheetsCells(i, 1) = '将表名称返回到第1列i = i +1 '返回每个表名称向下移动1行NextshWindows('2.xls').Close '关闭对象文件Application.ScreenUpdating = TrueEnd Sub49、当前单元录入计算机名Sub 当前单元录入计算机名()Selection =Environ('COMPUTERNAME')'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub50、当前单元录入计算机用户名Sub 当前单元录入计算机用户名()Selection =Environ('Username')'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容End Sub51、解除全部工作表保护Sub 解除全部工作表保护()Dim n AsIntegerFor n = 1T o Sheets.CountSheets(n).UnprotectNextnEnd Sub52、为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表()Sheet10.Protect Password:='123'End Sub53、在有密码的工作表执行代码Sub 在有密码的工作表执行代码()Sheets('1').Unprotect Password:=123 '假定表名为“1”，密码为“123” 打开工作表Range('C:C').SpecialCells(xlCellTypeBlanks).EntireRow.Hidde n =True '隐藏C列空值行Sheets('1').ProtectPassword:=123 '重新用密码保护工作表54、执行前需要验证密码的宏(控件按钮代码)Private Sub CommandButton1_Click()IfInputBox('请输入密码：') <> '123' Then'密码是123 MsgBox '密码错误,按确定退出!', 64, '提示'Exit SubEndIfCells(1,1) = 10End Sub55、执行前需要验证密码的宏()Sub 执行前需要验证密码的宏()IfInputBox('请输入您的使用权限:', '系统提示') = 123 Then重排窗口 '要执行的宏代码或宏名称ElseMsgBox '对不起,您没有使用该宏的权限,按确定键后退出!' EndIfEnd Sub56、拷贝A1公式和格式到A2Sub 拷贝A1公式到A2()Workbooks('临时表').Sheets('表1').Range('A1').Copy Workbooks('临时表').Sheets('表2').Range('A2').PasteSpecial57、复制单元数值Sub 复制数值()s =Workbooks('book1').Sheets('Sheet1').Range('A1:A2')Workbooks('book2').Sheets('Sheet1').Range('A1:A2') = sEnd Sub58、插入数值条件格式Sub 插入数值条件格式()Selection.FormatConditions.DeleteSelection.FormatConditions.AddType:=xlCellValue,Operator:=xlGreater, _Formula1:='70'Selection.FormatConditions(1).Interior.ColorIndex = 45Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess,_Formula1:='55'Selection.FormatConditions(2).Interior.ColorIndex = 39Selection.FormatConditions.AddType:=xlCellValue,Operator:=xlGreater, _Formula1:='60'Selection.FormatConditions(3).Interior.ColorIndex = 34End Sub59、插入透明批注Sub 插入透明批注()Selection.AddCommentment.Visible = FalseDim XS AsWorksheetFor i = 1To ments.Countments(i).Text '透明批注'ments(i).Shape.Fill.Visible = msoFalseNextEnd Sub60、添加文本Sub 添加文本()Selection = Selection + '×''不可在数字后添加文本'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub61、光标定位到指定工作表A列最后数据行下一单元Sub 光标定位到指定工作表A列最后数据行下一单元()a =Sheets('数据库').[a65536].End(xlUp).RowSheets('数据库').SelectRange('A'& a + 1).SelectEnd Sub62、定位选定单元格式相同的全部单元格Sub 定位选定单元格式相同的全部单元格()DimFirstCell As Range, FoundCell As RangeDimAllCells As RangeWith Application.FindFormat.Clear.NumberFormatLocal = Selection.NumberFormatLocal.HorizontalAlignment = Selection.HorizontalAlignment.VerticalAlignment = Selection.VerticalAlignment.WrapText = Selection.WrapText.Orientation = Selection.Orientation.AddIndent = Selection.AddIndent.IndentLevel = Selection.IndentLevel.ShrinkT oFit = Selection.ShrinkT oFit.MergeCells = Selection.MergeCells = .Font.FontStyle = Selection.Font.FontStyle.Font.Size = Selection.Font.Size.Font.Strikethrough = Selection.Font.Strikethrough.Font.Subscript = Selection.Font.Subscript.Font.Underline = Selection.Font.Underline.Font.ColorIndex = Selection.Font.ColorIndex.Interior.ColorIndex = Selection.Interior.ColorIndex.Interior.Pattern = Selection.Interior.Pattern.Locked = Selection.Locked.FormulaHidden = Selection.FormulaHiddenEnd WithSetFirstCell =edRange.Find(what:='',searchformat:=True) If FirstCell Is Nothing ThenExit SubEnd IfSetAllCells = FirstCellSetFoundCell =FirstCellDoSet FoundCell = edRange.Find(After:=FoundCell,what:='', searchformat:=True)If FoundCell Is Nothing Then Exit DoSet AllCells = Union(FoundCell, AllCells)If FoundCell.Address = FirstCell.Address Then Exit DoLoopAllCells.SelectEnd Sub63、按当前单元文本定位Sub 按当前单元文本定位()ABC =SelectionDim aa AsRangeFor Eacha In edRangeIf a Like ABC ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub64、按固定文本定位Sub 文本定位()Dim aa AsRangeFor Eacha In edRange If a Like '*合计*' ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub65、删除包含固定文本单元的行或列Sub 删除包含固定文本单元的行或列() DoCells.Find(what:='哈哈').Activate Selection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列LoopUntil Cells.Find(what:='哈哈') Is NothingEnd Sub66、定位数据及区域以上的空值Sub 定位数据及区域以上的空值()Dim aa As RangeFor Each a In edRangeIf a Like 〈0 ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub67、右侧单元自动加5(工作表代码)Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = FalseTarget.Offset(0, 1) = Target + 5Application.EnableEvents = TrueEnd Sub68、当前单元加2Sub 当前单元加2()Selection = Selection +2'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub69、A列等于A列减B列Sub A列等于A列减B列()For i = 1 To 23Cells(i, 1) = Cells(i, 1) - Cells(i, 2)NextEnd Sub70、用于光标选定多区域跳转指定单元(工作表代码)Private Sub Worksheet_SelectionChange(ByVal T As Range)a = Array([b6:b7], [e6], [h6])For i = 0 To 2If Not Application.Intersect(T, a(i)) Is Nothing Then[a1].Select: Exit ForEnd IfNextEnd Sub71、将A1单元录入的数据累加到B1单元（工作表代码）Private Sub Worksheet_Change(ByVal Target As Range)Dim t As LongIf Target.Address = '$A$1' Thent = Sheet1.Range('$B$1').ValueSheet1.Range('$B$1').Value = t + Target.ValueEnd IfEnd Sub72、在指定颜色区域选择单元时添加/取消'√'（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myrgAs RangeFor Eachmyrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg<> '√', '√', '')NextEnd Sub73、在指定区域选择单元时添加/取消'√'（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim RngAs RangeIfTarget.Count <= 15 ThenIf Not Application.Intersect(Target, Range('D6:D20')) IsNothingThenFor Each Rng In SelectionWith RngIf .Value = '' Then.Value = '√'Else.Value = ''End IfEnd WithNextEndIfEndIfEnd Sub74、双击指定单元，循环录入文本（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, CancelAs Boolean)If T.Address <> '$A$1' Then ExitSubCancel = TrueT = IIf(T = '好', '中', IIf(T = '中', '差', '好'))End Sub75、双击指定单元，循环录入文本（工作表代码）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)If Target.Address = '$A$1' Thennums = nums Mod 3 + 1Target = Mid('上中下', nums, 1)Target.Offset(1, 0).SelectEnd IfEnd Sub76、单元区域引用（工作表代码）Private Sub Worksheet_Activate()Sheet1.Range('A1:B3').Value = Sheet2.Range('A1:B3').Value End Sub77、在指定区域选择单元时数值加1（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If NotApplication.Intersect([a1:e10], T arget) Is Nothing Then Target = Val(Target) + 1EndIfEnd Sub259个常用宏-excelhome(3)2009-08-15 14:12:5878、混合文本的编号Sub 混合文本的编号()Worksheets(1).Range('B2').Value = '北京' &(--(Mid(Worksheets(1).Range('B2'), 3, 100)) + 1)End Sub79、指定区域单元双击数据累加（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)If Not Application.Intersect([A1:Y100], Target) Is NothingThenoldvalue = Val(Target.Value)inputvalue = InputBox('请输入数量,按ENTER键确认!', '数值累加器')Target.Value = oldvalue + inputvalueEnd IfEnd Sub80、选择单元区域触发事件（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = '$A$1:$B$2' ThenMsgBox'你选择了$A$1:$B$2单元'End IfEnd Sub81、当修改指定单元内容时自动执行宏（工作表代码）Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [B3:B4]) Is NothingThen 重排窗口End IfEnd Sub82、被指定单元内容限制执行宏Sub 被指定单元限制执行宏()If Range('$A$1') = '关闭' Then Exit Sub窗口End Sub83、双击单元隐藏该行（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)Rows(Target.Row).Hidden = TrueEnd Sub84、高亮显示行（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target AsRange)Cells.Interior.ColorIndex = 2Rows('1:2').Interior.ColorIndex =40 '保持1至2行的颜色推荐39,22,40,Rows(Target.Row).Interior.ColorIndex =35 '高亮推荐颜色35,20,24,34,37,40,15End Sub85、高亮显示行和列（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlNoneRows(Target.Row).Interior.ColorIndex = 34Columns(Target.Column).Interior.ColorIndex = 34End Sub86、为指定工作表设置滚动范围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)Sheet1.ScrollArea = 'A1:M30'End Sub87、在指定单元记录打印和预览次数（工作簿代码）Private Sub Workbook_BeforePrint(Cancel As Boolean)Range('A1') = 1 + Range('A1')End Sub88、自动数字金额转大写（工作表代码）Private Sub Worksheet_Change(ByVal M As Range)On Error Resume Nexty = Int(Round(100 * Abs(M)) / 100)j =Round(100 * Abs(M) + 0.00001) - y * 100f = (j /10 - Int(j / 10)) * 10A = IIf(y< 1, '', Application.Text(y, '[DBNum2]')& '元')b = IIf(j> 9.5, Application.Text(Int(j / 10), '[DBNum2]')& '角', IIf(y < 1, '', IIf(f> 1, '零', '')))c = IIf(f< 1, '整', Application.Text(Round(f, 0), '[DBNum2]')& '分')M =IIf(Abs(M) < 0.005, '', IIf(M < 0,'负' & A & b & c, A& b & c))End Sub89、将全部工作表的A1单元作为单击按钮（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)If Target.Address = '$A$1' ThenCall宏名End IfEnd Sub。
魔兽世界宏命令解析
一些常用命令翻译：1.判断条件命令:help-判断目标是否为友善。
harm-判断目标是否为敌对。
combat-判断你是否在战斗中。
stance或stance:#-判断你是否在姿态中或是否在指定姿态中。
stealth-判断你是否在潜行。
modifier或modifier:x(x可为shift、ctrl、alt 或者是它们的组合)判断某个或某几个按键是否被按下。
equipped:<item>-判断某件物品是否在装备中。
<item>可以是装备栏编号、装备分类(武器、副手。
)、装备子类(双手剑、法仗等等。
)target=<unit>-可以把技能目标指定为任何有效的目标，并且可以另你不丢失当前目标！<unit>还可以为“none”，用来指定没有目标的时候。
“self”，用来指定只对自己施放。
比如“/use [target=self] 厚符文布绷带”，无论任何时候都只对自己使用绷带。
actionbar:<number>-判断当前动作条是否被列出。
<number>可为1、2、3、4、5、6~ pet:<pet type 或 pet name>-pet type为宠物类型；pet name为宠物名字。
如果不填写宠物类型或名字则判断宠物是否存在。
mounted-判断是否在坐骑上。
swimming-判断是否在游泳。
flying-判断是否在飞行中。
outdoors-判断你是否在室外。
indoors-判断你是否在室内。
button:<#> 判断某个特定按钮是否被用来触发技能。
<#>可为1(鼠标左键)、2(鼠标右键)、3(鼠标按键3，也就是鼠标滚轮向下按，不是向上滚也不是向下滚)、4(鼠标按键4，多键鼠标专用)、5(鼠标按键5，多键鼠标专用)。
默认为1。
channeling-判断你是否在引导法术。
channeling:法术名称-判断你是否在引导特定的法术。
宏命令全集
宏命令全集有些命令需要参数，而部分命令的参数则是可以省略的。
比如/join可以接受两个参数，一个是可选的，另一个则是必需的，我们用"/join <频道名称> [密码] "来表示。
也就是说“<>”中的是必需的，“[]”中的则是可选的。
一、基本命令/?, /h, /help显示帮助信息。
/a, /assist [player]协助[player]，也就是选择[player]的目标。
如果没有指定[player]，当前目标将作为参数。
/camp, /logout准备返回人物选择界面，出现等待返回的倒数提示。
如果在旅店或主城则直接返回。
/cast, /spell <spell>使用<spell>技能。
/combatlog开启/禁止战斗日志功能，以便把战斗记录保存到<魔兽世界安装目录>/Logs/WoWCombatlog.txt/dismount立即直接下马，无视自身状态。
/equip <item>装备背包中可装备物品。
战斗中只能装备武器/副手/远程并会触发1.5s GCD。
非战斗则无任何限制。
/exit, /quit准备退出游戏，出现等待退出的倒数提示。
如果在旅店或主城则直接退出。
/f, /fol, /follow [player]自动跟随[player]。
如果没有指定[player]，当前目标将作为参数。
/ins, /inspect [player]观察[player]。
如果没有指定[player]，当前目标将作为参数。
/played查看总游戏时间。
/rand, /random, /rnd, /roll [[min] max]获取一个[min,max]区间的随机数，min默认为1，max默认为100。
/tar, /target <target>将指定<target>设为当前目标。
参见《单位标识符》。