楠楠宏共享
魔兽世界TBC怀旧服法师血脉一键爆发宏fs常用宏合集
魔兽世界TBC怀旧服法师⾎脉⼀键爆发宏fs常⽤宏合集今天⼩编给⼤家分享魔兽世界TBC怀旧服法师⾎脉⼀键爆发宏，包含fs常⽤宏合集，希望对⼤家有所帮助。
fs常⽤宏合集：冰箱宏#showtooltip/stopcasting/cancelAura 寒冰屏障/cast 寒冰屏障⾎脉宏#showtooltip 冰冷⾎脉/施放冰冷⾎脉/use 古尔丹之颅/use 变幻的纳鲁薄⽚/use 妖术之颅/use 银⾊新⽉徽记⿏标指向反制#showtooltip/stopcasting/cast [target=mouseover,harm,exists,nodead] 法术反制; 法术反制焦点反制#showtooltip 法术反制/stopcasting/Cast [target=focus,exists] 法术反制⿏标指向偷取#showtooltip/cast [target=mouseover,harm,exists,nodead] 法术偷取; 法术偷取⿏标指向1级冰箭#showtooltip 寒冰箭(等级 1)/cast [target=mouseover,harm,exists,nodead] 寒冰箭(等级 1); 寒冰箭(等级 1)焦点1级冰箭#showtooltip 寒冰箭(等级 1)/cast [target=focus,exists] 寒冰箭(等级 1)⿏标指向1级⽺#showtooltip 变形术(等级 1)/cast [target=mouseover,harm,exists,nodead] 变形术(等级 1); 变形术(等级 1)焦点1级⽺#showtooltip 变形术(等级 1)/cast [target=focus,exists] 变形术(等级 1)⿏标指向冰枪#showtooltip 冰枪术/cast [target=mouseover,harm,exists,nodead] 冰枪术; 冰枪术⿏标指向奥术飞弹#showtooltip 奥术飞弹(等级 10)/cast [target=mouseover,harm,exists,nodead] 奥术飞弹(等级 10); 奥术飞弹(等级 10)⿏标指向⽕焰冲击#showtooltip ⽕焰冲击(等级 9)/cast [target=mouseover,harm,exists,nodead] ⽕焰冲击(等级 9); ⽕焰冲击(等级 9)⿏标指向奥术冲击#showtooltip 奥术冲击(等级 1)/cast [target=mouseover,harm,exists,nodead] 奥术冲击(等级 1); 奥术冲击(等级 1)闪现宏#showtooltip/stopcasting/cast 闪现术设置焦点/Focus/Focus [target=mouseover,exists]⽔元素宏#showtooltip [nopet] [target=pet,dead] 召唤⽔元素; [pet] 冰冻术/cast [nopet] 召唤⽔元素/petpassive/click [pet] PetActionButton5抓贼宏#showtooltip 冰霜新星(等级 1) /use 部落勋章/cast 冰霜新星(等级 1)武器宏韧性法穿武器/equip 野蛮⾓⽃⼠的穿刺之触/equip 野蛮⾓⽃⼠的魔典韧性智⼒武器/equip 野蛮⾓⽃⼠的挫败之触/equip 野蛮⾓⽃⼠的决战急速武器#showtooltip 魔魂⼿杖/equip 魔魂⼿杖/equip 深渊之⼼框体宏框体⽺#showtooltip 变形术(等级 1) /click GladdyButton1/cast [harm] 变形术(等级 1)/targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 变形术(等级 1) /click GladdyButton2/cast [harm] 变形术(等级 1)/targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 变形术(等级 1) /click GladdyButton3/cast [harm] 变形术(等级 1)/targetlasttarget [harm]/run UIErrorsFrame;Clear();框体反制#showtooltip 法术反制/click GladdyButton1/cast [harm] 法术反制/targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 法术反制/click GladdyButton2/cast [harm] 法术反制/targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 法术反制/click GladdyButton3/cast [harm] 法术反制/targetlasttarget [harm]/run UIErrorsFrame;Clear();框体1级冰箭#showtooltip 寒冰箭(等级 1) /click GladdyButton1/cast [harm] 寒冰箭(等级 1) /targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 寒冰箭(等级 1) /click GladdyButton2/cast [harm] 寒冰箭(等级 1) /targetlasttarget [harm]/run UIErrorsFrame;Clear(); #showtooltip 寒冰箭(等级 1) /click GladdyButton3/cast [harm] 寒冰箭(等级 1) /targetlasttarget [harm]/run UIErrorsFrame;Clear();。
“第三只眼”的远程控制效果
圈口固囝盈
蕾先下藏全擀版 本的 ” 第
●窟 文柯 ／ 囊
接 着设置 服务 程序 用于 启动 的腓
Ｉ］
■ ’ ｃ ’ ＂ ｌ Ｉ Ｉ 】 ｒｉ Ｉ … ｍ 禁 ’ Ｉ＿ ＿
ｊ ＃ ■—■—■■ ● ｔ ・ ＿
●● ■● 雠 蛆 ■ ∞
１
兰只眼 近控木 马．懈压后 运行文件央 中 务信息 ．包括显示名 称和服务描述等 柑共 的客户端程序 即可。现在 点击Ｉ其栏中 的 信息 然后溲 置 务蛐文件 的 Ｄ Ｌ名称． 服 Ｌ 配置 客户 命 令，就可 以在弹 出的窗 口 由 此可 以看 出服 务端 是 一个 Ｄ Ｌ 件。 Ｌ 文 外如粜 需要 绕过 ３ ０ 服务 提示 和云 ６ 的 来进行配 置操作 呢。 第 三Ｒ眼 ”进控 木
ｌ稿 曼
ｔ ● ： ●
■ － ｍ
‘
鞠嗣 日 ■ ■ 日鞴
晶
ｉ
ｏ ： Ｌ 哑 二－ 蚺峨Ｉ ± Ｌ ７ 卫 鞠 槲 ●： 塑 睡 ］ Ｈ 触盹 － 帮 ±－ ∞ ： — ］ 『 —
服务端控制握作
现 在我 就在 本地 的系 缝 里面运行 服务辅 程序 第三只 晦 远 控 、 序 ｃ 图 ２ 通过 上线列 衰可 以了解 到 如 ｋ 点击 鼠标右键中的传 输命令．或者直 接通 过 喂标 在眄十 窗 口之间进 行拖 拽，就 可 文件恃鞠 采用了 自 断点传输１ 式 ，从窗 动 羹 屏幕连续不 断的捕获对方屏 幕并且速度 非 常的快 ． 通过 标题栏可 以了解到捕捉的进 度 但是 由于木 马肤认 的效果是 ８ 色． 位
首先从 同上 下载 最新 版本 昀 ‘ 宇 敬 签名源 加横加强 版 解 压后直 接远行 文 ． 件夹中的可执 行文件即可 。从弹 的 窗口 即 。 手动 漾加 和 自动添加 我们 先 选择 。 自动添 加 这个标整 ．点击 。 要 需 滞加签名的文 件’ 项后的 。 开“ 选 打 按钮 ， 在弹出的窗 １ 里面选择需耍 添 啾 宇签 名 ３
魔兽世界宏命令集(小白教程)
exists和dead -检测是否目标已经死亡，或是否真的存在
UnitMana(“player”)>400-魔法值大于400
UnitHealth("target")>20生命值大于20
GetComboPoints("target")>=5这个函数的作用是取出当前人物的连击点数量。
猎人远程和近战切换宏：
/swapactionbar 1 2
/cast [actionbar:1]雄鹰守护;灵猴守护
这样就可以切换1号技能条和2号技能条，换到1页时施放雄鹰守护，2页时则施放灵猴守护。
术士宏：
治疗石宏
# show极效治疗石
/use极效治疗石
/use特效治疗石
#showtooltip灵魂仪式
/targetparty和/targetraid按距离循环选择你附近的小队或团队队友，与/targetenemy类似，也可以用1作为参数改变选择的循环方向。
/startattack开始攻击
/stopattack停止攻击
/focus设置焦点目标
/clearfocus清除焦点目标
/cleartarget清除目标
channeling:<法术名称>玩家正在引导某法术
indoors玩家在室内
outdoors玩家在户外
party目标在玩家的小队中
raid目标在玩家的小队或团队中
group:party/raid玩家在某集体中（小队/团队）
2.0宏命令
/Assist这是个援助进攻的命令
/stopcasting和/stopmacro停止释放和停止宏，用来辅助设置
宏代码齐全
宏文件集▲打开全部隐藏工作表返回Sub 打开全部隐藏工作表()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).Visible = TrueNext iEnd Sub▲循环宏返回Sub 循环()AAA = Range("C2")Dim i As LongDim times As Longtimes = AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 过滤一行If Range("完成标志") = "完成" Then Exit For '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则 'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '如果某列出现"完成"内容则退出循环Next iEnd Sub▲高级筛选5列不重复数据至指定表返回Sub 高级筛选5列不重复数据至Sheet2()Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _"A1"), Unique:=TrueSheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinEnd Sub▲在多个宏中依次循环执行一个（控件按钮代码）返回Private Sub CommandButton1_Click()Static RunMacro As IntegerSelect Case RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0End SelectEnd Sub▲在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()With CommandButton1If .Caption = "保护工作表" ThenCall 保护工作表.Caption = "取消工作表保护"Exit SubEnd IfIf .Caption = "取消工作表保护" ThenCall 取消工作表保护.Caption = "保护工作表"Exit SubEnd IfEnd WithEnd Sub▲在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Option ExplicitPrivate Sub CommandButton1_Click()With CommandButton1If .Caption = "宏1" ThenCall 宏1.Caption = "宏2"Exit SubEnd IfIf .Caption = "宏2" ThenCall 宏2.Caption = "宏3"Exit SubEnd IfIf .Caption = "宏3" ThenCall 宏3.Caption = "宏1"Exit SubEnd IfEnd WithEnd Sub▲根据A1单元文本隐藏/显示按钮（控件按钮代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("A1") > 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub▲奇偶页分别打印返回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 Sub▲自动打印多工作表第一页返回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 Sub▲查找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.Add Before:=ActiveCellEnd SubSub 取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub▲将A列最后数据行以上的所有B列图片大小调整为所在单元大小返回Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()Dim Pic As Picture, i&i = [A65536].End(xlUp).RowFor Each Pic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then Pic.Top = Pic.TopLeftCell.TopPic.Left = Pic.TopLeftCell.LeftPic.Height = Pic.TopLeftCell.HeightPic.Width = Pic.TopLeftCell.WidthEnd IfNextEnd Sub▲返回光标所在行数返回Sub 返回光标所在行数()x = ActiveCell.RowRange("A1") = xEnd Sub▲工作表中包含数据的最大行数返回Sub 包含数据的最大行数()n = Cells.Find("*", , , , 1, 2).RowMsgBox nEnd Sub▲返回A列数据的最大行数返回Sub 返回A列数据的最大行数()n = Range("a65536").End(xlUp).RowRange("B1") = nEnd Sub▲将所选区域文本插入新建文本框返回Sub 将所选区域文本插入新建文本框()For Each rag In Selectionn = n & rag.Value & Chr(10)NextActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, ActiveCell.Left + ActiveCell.Width, ActiveCell.Top + ActiveCell.Selection.Characters.Text = "问题：" & nWith Selection.Characters(Start:=1, Length:=3).Font.Name = "黑体".FontStyle = "常规".Size = 12End WithEnd Sub▲批量插入地址批注返回Sub 批量插入地址批注()On Error Resume NextDim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionment.Deleter.AddCommentment.Visible = Falsement.Text Text:="本单元格：" & r.Address & " of " & Selection.AddressNextEnd IfEnd Sub▲批量插入统一批注返回Sub 批量插入统一批注()Dim r As Range, msg As Stringmsg = InputBox("请输入欲批量插入的批注", "提示", "随便输点什么吧")If Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=msgNextEnd IfEnd Sub▲以A1单元内容批量插入批注返回Sub 以A1单元内容批量插入批注()Dim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=[a1].TextNextEnd IfEnd Sub▲以A1单元文本作表名插入工作表返回Sub 以A1单元文本作表名插入工作表()Dim nm As Stringnm = [a1]Sheets.Add = nmEnd Sub▲批量插入当前文件名和表名及地址返回Sub 批量插入当前文件名和表名及地址()For Each mycell In Selectionmycell.FormulaR1C1 = "[" + + "]" + + "!" + mycell.Address NextEnd Sub▲区域录入当前单元地址返回Sub 区域录入当前单元地址()Selection = "=ADDRESS(ROW(),COLUMN(),4,1)"Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseEnd Sub▲区域录入当前日期返回Sub 区域录入当前日期()With Application.Calculation = xlManual.MaxChange = 0.001End WithActiveWorkbook.PrecisionAsDisplayed = FalseSelection = "=TEXT(NOW(),""yyyy-m-d"")"Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseWindows.Arrange ArrangeStyle:=xlCascadeApplication.CutCopyMode = FalseWith Application.Calculation = xlAutomatic.MaxChange = 0.001End WithActiveWorkbook.PrecisionAsDisplayed = FalseEnd Sub▲区域录入当前数字日期返回Sub 区域录入当前数字日期()Selection = "=VALUE(YEAR(TODAY())&RIGHT(MONTH(TODAY())+100,2)&RIGHT(DAY(TODAY())+100,2))"Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseEnd Sub▲区域录入当前日期和时间返回Sub 区域录入当前日期和时间()With Application.Calculation = xlManual.MaxChange = 0.001End WithActiveWorkbook.PrecisionAsDisplayed = FalseSelection = "=TEXT(NOW(),""yyyy-m-d h:mm:ss"")"Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseWindows.Arrange ArrangeStyle:=xlCascadeApplication.CutCopyMode = FalseWith Application.Calculation = xlAutomatic.MaxChange = 0.001End WithActiveWorkbook.PrecisionAsDisplayed = FalseEnd Sub▲不连续区域录入对勾返回Sub 批量录入对勾()Selection.FormulaR1C1 = "√"End Sub▲不连续区域录入当前文件名返回Sub 批量录入当前文件名()Selection.FormulaR1C1 = End Sub▲不连续区域添加文本返回Sub 批量添加文本()Dim s As RangeFor Each s In Selections = s & "文本内容"NextEnd Sub▲不连续区域插入文本返回Sub 批量插入文本()Dim s As RangeFor Each s In Selections = "文本内容" & sNextEnd Sub▲从指定位置向下同时录入多单元指定内容返回Sub 从指定位置向下同时录入多单元指定内容()Dim arrarr = Array("1", "2", "13", "25", "46", "12", "0", "20")[B2].Resize(8, 1) = Application.WorksheetFunction.Transpose(arr)End Sub▲按aa工作表A列的内容排列工作表标签顺序返回Sub 按aa工作表A列的内容排列工作表标签顺序()Dim I%, str1$I = 1Sheets("aa").SelectDo While Cells(I, 1).Value <> ""str1 = Trim(Cells(I, 1).Value)Sheets(str1).SelectSheets(str1).Move after:=Sheets(I)I = I + 1Sheets("aa").SelectLoopEnd Sub▲删除全部未选定工作表返回Sub 删除全部未选定工作表()Dim sht As Worksheet, n As Integer, iFlag As BooleanDim ShtName() As Stringn = ActiveWindow.SelectedSheets.CountReDim ShtName(1 To n)n = 1For Each sht In ActiveWindow.SelectedSheetsShtName(n) = n = n + 1NextApplication.DisplayAlerts = FalseFor Each sht In SheetsiFlag = FalseFor i = 1 To n - 1If ShtName(i) = TheniFlag = TrueExit ForEnd IfNextIf Not iFlag Then sht.DeleteNextApplication.DisplayAlerts = TrueEnd Sub▲工作表标签排序返回Sub 工作表标签排序()Dim i As Long, 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 jNext iElse '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 iEnd IfEnd Sub▲在目录表建立本工作簿中各表链接目录返回Sub 在目录表建立本工作簿中各表链接目录()Dim s%, Rng As RangeOn Error Resume NextSheets("目录").ActivateIf Err = 0 ThenSheets("目录").UsedRange.DeleteElseSheets.Add = "目录"End IfFor i = 1 To 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).Name End IfNextSheets("目录").Range("b:iv").EntireColumn.ColumnWidth = 20End Sub▲建立工作表文本目录返回Sub 建立工作表文本目录()Sheets.Add before:=Sheets(1)Sheets(1).Name = "目录"For i = 2 To Sheets.CountCells(i - 1, 1) = Sheets(i).Name'Sheets(1).Hyperlinks.Add Cells(i - 1, 1), "#" & Sheets(i).Name & "!A1" '添加超链接NextEnd Sub▲查另一文件的全部表名返回Sub 查另一文件的全部表名()On Error Resume NextDim i%Dim sh As WorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWorkbook.Path & "\2.xls"Windows("1.xls").Activate '当前文件名称Sheets("Sheet1").Select '当前表名称i = 1 '将表名称返回到第1行For Each sh In Workbooks("2.xls").WorksheetsCells(i, 1) = '将表名称返回到第1列i = i + 1 '返回每个表名称向下移动1行Next shWindows("2.xls").Close '关闭对象文件Application.ScreenUpdating = TrueEnd Sub▲当前单元录入计算机名返回Sub 当前单元录入计算机名()Selection = Environ("COMPUTERNAME")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲当前单元录入计算机用户名返回 Sub 当前单元录入计算机用户名()Selection = Environ("Username")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲为指定工作表加指定密码保护表返回Sub 为指定工作表加指定密码保护表()Sheet10.Protect Password:="123"End Sub▲在有密码的工作表执行代码返回Sub 在有密码的工作表执行代码()Sheets("1").Unprotect Password:=123 '假定表名为“1”，密码为“123” 打开工作表Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True '隐藏C列空值行Sheets("1").Protect Password:=123 '重新用密码保护工作表End Sub▲拷贝A1公式和格式到A2返回Sub 拷贝A1公式到A2()Workbooks("临时表").Sheets("表1").Range("A1").CopyWorkbooks("临时表").Sheets("表2").Range("A2").PasteSpecialEnd Sub▲复制单元数值返回Sub 复制数值()s = Workbooks("book1").Sheets("Sheet1").Range("A1:A2")Workbooks("book2").Sheets("Sheet1").Range("A1:A2") = sEnd Sub▲插入数值条件格式返回Sub 插入数值条件格式()Selection.FormatConditions.DeleteSelection.FormatConditions.Add Type:=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.Add Type:=xlCellValue, Operator:=xlGreater, _Formula1:="60"Selection.FormatConditions(3).Interior.ColorIndex = 34End Sub▲插入透明批注返回Sub 插入透明批注()Selection.AddCommentment.Visible = FalseDim XS As WorksheetFor i = 1 To ments.Countments(i).Text "透明批注"ments(i).Shape.Fill.Visible = msoFalseNextEnd Sub▲添加文本返回Sub 添加文本()Selection = Selection + "×" '不可在数字后添加文本'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲光标定位到指定工作表A列最后数据行下一单元返回Sub 光标定位到指定工作表A列最后数据行下一单元()a = Sheets("数据库").[a65536].End(xlUp).RowSheets("数据库").SelectRange("A" & a + 1).SelectEnd Sub▲定位选定单元格式相同的全部单元格返回Sub 定位选定单元格式相同的全部单元格()Dim FirstCell As Range, FoundCell As RangeDim AllCells 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.ShrinkToFit = Selection.ShrinkToFit.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 WithSet FirstCell = edRange.Find(what:="", searchformat:=True)If FirstCell Is Nothing ThenExit SubEnd IfSet AllCells = FirstCellSet FoundCell = 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 Sub▲按当前单元文本定位返回Sub 按当前单元文本定位()ABC = SelectionDim aa As RangeFor Each a In edRangeIf a Like ABC ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub▲按固定文本定位返回Sub 文本定位()Dim aa As RangeFor Each a In edRangeIf a Like "*合计*" ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub▲删除包含固定文本单元的行或列返回Sub 删除包含固定文本单元的行或列()DoCells.Find(what:="哈哈").ActivateSelection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列Loop Until Cells.Find(what:="哈哈") Is NothingEnd Sub▲定位数据及区域以上的空值返回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 Sub▲右侧单元自动加5(工作表代码)返回Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseTarget.Offset(0, 1) = Target + 5Application.EnableEvents = TrueEnd Sub▲当前单元加2返回Sub 当前单元加2()Selection = Selection + 2'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲A列等于A列减B列返回Sub A列等于A列减B列()For i = 1 To 23Cells(i, 1) = Cells(i, 1) - Cells(i, 2)NextEnd Sub▲用于光标选定多区域跳转指定单元(工作表代码)返回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 Sub▲将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 Sub▲在指定颜色区域选择单元时添加/取消"√"（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myrg As RangeFor Each myrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg <> "√", "√", "")NextEnd Sub▲在指定区域选择单元时添加/取消"√"（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeIf Target.Count <= 15 ThenIf Not Application.Intersect(Target, Range("D6:D20")) Is Nothing ThenFor Each Rng In SelectionWith RngIf .Value = "" Then.Value = "√"Else.Value = ""End IfEnd WithNextEnd IfEnd IfEnd Sub▲双击指定单元，循环录入文本（工作表代码）返回Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)If T.Address <> "$A$1" Then Exit SubCancel = TrueT = IIf(T = "好", "中", IIf(T = "中", "差", "好"))End Sub双击指定单元，循环录入文本（工作表代码）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 Sub▲单元区域引用（工作表代码）返回Private Sub Worksheet_Activate()Sheet1.Range("A1:B3").Value = Sheet2.Range("A1:B3").ValueEnd Sub▲在指定区域选择单元时数值加1（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Application.Intersect([a1:e10], Target) Is Nothing ThenTarget = Val(Target) + 1End IfEnd Sub▲选择单元区域触发事件（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$A$1:$B$2" ThenMsgBox "你选择了$A$1:$B$2单元"End IfEnd Sub▲当修改指定单元内容时自动执行宏（工作表代码）返回Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [B3:B4]) Is Nothing Then重排窗口End IfEnd Sub▲双击单元隐藏该行（工作表代码）返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Rows(Target.Row).Hidden = TrueEnd Sub▲高亮显示行（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)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 Sub▲为指定工作表设置滚动范围（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheet1.ScrollArea = "A1:M30"End Sub▲将全部工作表的A1单元作为单击按钮（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" ThenCall 宏名End IfEnd Sub▲闹钟——到指定时间执行宏（工作簿代码）返回Private Sub Workbook_Open()Application.OnTime ("11:45:00"), "提示1"Application.OnTime ("12:00:00"), "提示2"End Sub▲改变Excel界面标题的宏（工作簿代码）返回Private Sub Workbook_Open()Application.Caption = "春节快乐"End Sub▲在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Worksheets("表2").Range("A1") = Target.Address(0, 0)End Sub▲B列录入数据时在A列返回记录时间（工作表代码）返回Public Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2 ThenTarget.Offset(, -1) = NowEnd IfEnd Sub▲每编辑一个单元保存文件返回Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.SaveEnd Sub▲指定允许编辑区域返回Sub 指定允许编辑区域()ActiveSheet.ScrollArea = "B8:G15"End Sub▲解除允许编辑区域限制返回Sub 解除允许编辑区域限制()ActiveSheet.ScrollArea = ""End Sub▲删除A列为指定内容的行返回Sub 删除A列为指定内容的行()Dim a, b As Integera = Sheet1.[a65536].End(xlUp).RowFor b = a To 2 Step -1If Cells(b, 1).Value = "删除" ThenRows(b).DeleteEnd IfNextEnd Sub▲删除A列非数字单元行返回Sub 删除A列非数字单元行()i = [a65536].End(xlUp).RowRange("A1:A" & i).SpecialCells(xlCellTypeConstants, 2).EntireRow.DeleteEnd Sub▲有条件删除当前行返回Sub 有条件删除当前行()If [A1] = 2 Or [B1] = "删除" ThenSelection.Delete Shift:=xlUpEnd IfEnd Sub▲选择下一行返回Sub 选择下一行()ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.SelectEnd Sub▲选择光标或选区所在行返回Sub 选择光标或选区所在行()Selection.EntireRow.SelectEnd Sub▲选择光标或选区所在列返回Sub 选择光标或选区所在列()Selection.EntireColumn.SelectEnd Sub▲光标定位到名称指定位置返回Sub 定位()Application.Goto Range(Evaluate("名称"))End Sub▲选择名称定义的数据区返回Sub 选择名称定义的数据区()[数据区].Select '插入名称要使用INDIRECT函数'Range("数据区").Select 或者'Sheet1.Range("数据区").Select 或者End Sub▲将Sheet1的A列的非空值写到Sheet2的A列返回Sub 将Sheet1的A列的非空值写到Sheet2的A列()Sheet1.Columns("A:A").SpecialCells(2, 23).SpecialCells(12).Copy Sheet2.[A1]End Sub▲将名称1的数据写到名称2返回Sub Macro2()Range("位置2") = Range("位置1").ValueEnd Sub▲单元反选返回Sub 单元反选()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim raddress As String, taddress As Stringraddress = Selection.Addresstaddress = edRange.AddressWith Sheets.Add.Range(taddress) = 0.Range(raddress) = "=0"raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address.DeleteEnd WithActiveSheet.Range(raddress).SelectApplication.ScreenUpdating = TrueEnd Sub▲调整选中对象中的文字返回Sub 调整选中对象中的文字()'文字居中、自动调整大小With Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.ReadingOrder = xlContext.Orientation = xlHorizontal.AutoSize = True.AddIndent = FalseEnd WithEnd Sub▲去除指定范围内的对象返回Sub 去除指定范围内的对象()Dim p As ShapeSet My = Worksheets("工作表名")For Each p In My.ShapesIf Not Application.Intersect(p.TopLeftCell, Range("范围")) Is Nothing Then p.Delete NextEnd Sub▲更新透视表数据项返回Sub DeleteMissingItems2002All()'防止数据透视表中显示无用的数据项'在 Excel 2002 或更高版本中'如果无用的数据项已经存在,'运行这个宏可以更新Dim pt As PivotTableDim ws As WorksheetFor Each ws In ActiveWorkbook.WorksheetsFor Each pt In ws.PivotTablespt.PivotCache.MissingItemsLimit = xlMissingItemsNoneNext ptNext wsEnd Sub▲将全部工作表名称写到A列返回Sub 将全部表名称写到A列()k = 1For Each Sht In SheetsCells(k + 1, 1) = '指定写入的行和列k = k + 1NextEnd Sub▲为当前选定的多单元插入指定名称返回Sub 为当前选定的多单元插入指定名称() = "临时"s.Add Name:="临时", RefersTo:=Selection '或者换用这行代码也可以End Sub▲以指定区域为表目录补充新表返回Sub 以指定区域为表目录补充新表()Dim dic As Object, sh As WorksheetDim arr, itemarr = Range("B1:BB1")Set dic = CreateObject("scripting.dictionary")For Each sh In ThisWorkbook.Worksheetsdic.Add , ""NextFor Each item In arrIf item <> "" And Not dic.exists(Trim(item)) ThenWith ThisWorkbook.Worksheets.Add.Name = itemEnd WithEnd IfNextSet dic = NothingEnd Sub▲按A列数据批量修改表名称返回Sub 按A列数据批量修改表名称()Dim i%For i = 1 To Sheets.Count - 1Sheets(i).Name = Cells(i + 1, 1).TextNextEnd Sub▲清除剪贴板返回Sub 清除剪贴板()Application.CutCopyMode = FalsemandBars("Task Pane").Visible = FalseEnd Sub▲批量清除软回车返回Sub 批量清除软回车()'也可直接使用Alt+10或13替换Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder:= _xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Sub▲当前文件另存到指定目录返回Sub 当前激活文件另存到指定目录()ActiveWorkbook.SaveAs Filename:="E:\信件\" & End Sub▲另存指定文件名返回Sub 另存指定文件名()ActiveWorkbook.SaveAs ThisWorkbook.Path & "\别名.xls"End Sub▲以本工作表名称另存文件到当前目录返回Sub 以本工作表名称另存文件到当前目录()ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & & ".xls"End Sub▲将本工作表单独另存文件到Excel当前默认目录返回Sub 将本工作表单独另存文件到Excel当前默认目录()ActiveSheet.CopyActiveWorkbook.SaveAs Filename:= & ".xls"End Sub▲以活动工作表名称另存文件到Excel当前默认目录返回Sub 以活动工作表名称另存文件到Excel当前默认目录()ActiveWorkbook.SaveAs Filename:= & ".xls", FileFormat:= _xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=FalseEnd Sub▲另存所有工作表为工作簿返回Sub 另存所有工作表为工作簿()Dim sht As WorksheetApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path & "\"For Each sht In Sheetssht.CopyActiveWorkbook.SaveAs ipath & & ".xls" '(工作表名称为文件名）'ActiveWorkbook.SaveAs ipath & & Trim(sht.[d15]) & ".xls" '（文件名称 & D15单元内容）'ActiveWorkbook.SaveAs ipath & Trim(sht.[d15]) & ".xls" '（文件名称为D15单元内容）ActiveWorkbook.CloseNextApplication.ScreenUpdating = TrueEnd Sub▲以指定单元内容为新文件名另存文件返回Sub 以指定单元内容为新文件名另存文件()ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet1.[A1]End Sub▲以当前日期为新文件名另存文件返回Sub 以当前日期为新文件名另存文件()ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyymmdd") & ".xls"End SubSub 以当前日期为名称另存文件()ActiveWorkbook.SaveAs Filename:=Date & ".xls"End Sub▲以当前日期和时间为新文件名另存文件返回Sub 以当前日期和时间为新文件名另存文件()ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分"End Sub▲另存本表为TXT文件返回Sub 另存本表为TXT文件()Dim s As StringDim FullName As String, rng As RangeApplication.ScreenUpdating = FalseFullName = ( & ".txt") '以当前表名为TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt") '以当前文件名为TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", & ".txt") '以文件名&表名为TXT文件名 Open FullName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容 '参考帮助，fullname为文件全名For Each rng In Range("a1").CurrentRegions = s & IIf(s = "", "", "|") & rng.ValueIf rng.Column = Range("a1").CurrentRegion.Columns.Count ThenPrint #1, s & "|" '把数据写到文本文件里s = ""End IfNextClose #1 '关闭文件Application.ScreenUpdating = TrueMsgBox "数据已导入文本"End Sub▲引用指定位置单元内容为部分文件名另存文件返回Sub 引用指定位置单元内容为部分文件名另存文件()ActiveWorkbook.SaveAs Filename:="E:\信件\" & "解答" & Range("sheet1!a1") & "郎雀.xls"End Sub▲将A列数据排序到D列返回Sub 将A列数据排序到D列()[d:d] = [a:a].Value[d:d].Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYesEnd Sub▲将指定范围的数据排列到D列返回Sub 将指定范围的数据排列到D列()。
WOW中常用的宏汇总 --- 术士(SS)部分
一键3DOT宏点一下放一个，缺啥补啥，一直按吧注意，这是solo宏，团队中如果有其他术士的话就不好用了，因为无法判断DOT是不是你放的，比如其他术士放了痛苦诅咒，这个宏就不会再放痛苦诅咒，直到那个术士的痛苦诅咒消失通用版/script local n,s,k,j,d,f={"Abomi","Sarge","Immol"},{"腐蚀术","痛苦诅咒","献祭"};for k=1,3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;痛苦术士风筝版/script local n,s,k,j,d,f={"Abomi","Requi","Sarge"},{"腐蚀术","生命虹吸","痛苦诅咒"};for k=1,3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;献祭 + 宠物攻击在使用前面一键3DOT宏之前我通常会使用这个宏作为起手，因为献祭有施法时间，这就跟猎人瞄准起手一样/施放献祭/script PetAttack();如果是痛苦术士，带小鬼而且作mana罐子的话用这个/施放献祭/script if UnitCreatureFamily("pet")~="小鬼" then PetAttack();end;RAID DOT宏循环上DOT，如果使用间隔超过18秒则重新从第一个DOT开始放，以防止DOT序列没放完怪就死了普通版/script local x,t={"痛苦诅咒","腐蚀术","献祭"},GetTime();DOTI=DOTI or 3;DOTT=DOTT or t;DOTI=DOTI+1;if DOTI>3 or t-DOTT>18 then DOTI=1;DOTT=t;end;CastSpellByName(x[DOTI]);痛苦术士版/script local x,t={"生命虹吸","痛苦诅咒","腐蚀术","献祭"},GetTime();DOTI=DOTI or 4;DOTT=DOTT or t;DOTI=DOTI+1;if DOTI>4 or t-DOTT>18 then DOTI=1;DOTT=t;end;CastSpellByName(x[DOTI]);这是模拟2.0中/castsequence的方式写的，但没有进入/脱离战斗重置序列和改变目标重置序列功能，因为这需要做成插件了到了2.0用这个就行了：普通版/castsequence reset=18/target/combat "生命虹吸","痛苦诅咒","腐蚀术","献祭"痛苦术士版/castsequence reset=18/target/combat "痛苦诅咒","腐蚀术","献祭"RAID诅咒宏如果目标没有元素诅咒就上元素，有元素没有暗影诅咒就上暗影诅咒，都有就上痛苦诅咒raid中的术士们，为了名额，诅咒吧！/script local n,s,k,j,d={"lTouc","fAchi"},{"元素","暗影","痛苦"},1;while k<3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if f then k=k+1;else break;end;end;CastSpellByName(s[k].."诅咒");增幅疲劳 / 增幅痛苦把诅咒增幅放到动作条上，并查出编号，查编号看上边基础知识部分增幅疲劳/script local c,s,d=CastSpellByName,GetActionCooldown(增幅编号);if d<2 then c("诅咒增幅");SpellStopCasting();end;c("疲劳诅咒");法术书版/script local c,s,d=CastSpellByName,GetSpellCooldown(增幅编号,"spell");if d<2 then c("诅咒增幅");SpellStopCasting();end;c("疲劳诅咒");增幅痛苦/script local c,s,d=CastSpellByName,GetActionCooldown(增幅编号);if d<2 then c("诅咒增幅");SpellStopCasting();end;c("痛苦诅咒");法术书版/script local c,s,d=CastSpellByName,GetSpellCooldown(增幅编号,"spell");if d<2 then c("诅咒增幅");SpellStopCasting();end;c("痛苦诅咒");其实这个宏也可以简写成/施放诅咒增幅/script SpellStopCasting();/施放疲劳诅咒/施放诅咒增幅/script SpellStopCasting();/施放痛苦诅咒但写成上面/script的形势可以避免看到讨厌的“技能还没有准备好”的提示智能契约分流宏 - 痛苦术士必备=================为什么要分流=================可能有人觉得只要契约就好，何必还要分流，我们有魔甲术，每5秒恢复15点hp，还有生命虹吸，吸血，各位瘾君子每3秒吸个五六十应该不在话下吧，生命长满就不会再长了。
157个常用宏(有代码可直接复制)
奇偶页分别打印点击自动打印多工作表第一页点击查找A列文本循环插入分页符(模块）点击将A列最后数据行以上的所有B列图片大小调整为所在点击单元大小返回光标所在行数点击在A1返回当前选中单元格数量点击返回当前工作簿中工作表数量点击返回光标选择区域的行数和列数点击工作表中包含数据的最大行数点击返回A列数据的最大行数点击将所选区域文本插入新建文本框点击批量插入地址批注点击批量插入统一批注点击以A1单元内容批量插入批注点击不连续区域插入当前文件名和表名及地址点击不连续区域录入当前单元地址点击连续区域录入当前单元地址点击返回当前单元地址点击不连续区域录入当前日期点击不连续区域录入当前数字日期点击不连续区域录入当前日期和时间点击不连续区域录入对勾点击不连续区域录入当前文件名点击不连续区域添加文本点击点击当前单元录入计算机用户名点击为指定工作表加指定密码保护表点击在有密码的工作表执行代码点击执行前需要验证密码的宏(控件按钮代码)点击拷贝A1公式和格式到A2点击插入数值条件格式点击点击当前单元加2点击A列等于A列减B列点击点击每编辑一个单元保存文件点击指定允许编辑区域点击解除允许编辑区域限制点击删除A列为指定内容的行点击删除A列非数字单元行点击有条件删除当前行点击选择第5行开始所有数据行点击选择光标或选区所在行点击选择到指定列的最后行点击将Sheet1的A列的非空值写到Sheet2的A列点击将全部工作表名称写到A列点击按A列数据批量创建新表(控件按钮代码)点击判断指定文件是否已经打开点击点击将指定范围的数据排列到D列点击光标移动点击光标所在行上移一行点击点击打开文件时提示指定工作表是保护状态点击(ThisWorkbook)全选固定范围内小于0的单元点击全选选定范围内小于0的单元点击固定区域单元分类变色点击点击显示光标所在单元的批注的代码点击提示确定或取消执行宏点击拷贝指定表不相邻多列数据到新位置点击在当前选区有条件替换数值为文本点击自动筛选第2列值为A的行点击取消自动筛选()点击全部显示指定表的自动筛选点击点击在A列产生不重复随机数点击将A列数据随机排列到F列点击取消选定区域的公式只保留值(假空转真空)点击填公式点击在第一个表前插入多工作表点击点击返回表中第一个非空单元地址(行搜索)点击返回表中各非空单元区域地址(行搜索)点击返回第一个数值行号点击返回第1行最右边非空单元的列号点击返回连续数值单元的数量点击统计指定范围和内容的单元数量点击统计不同颜色的数字的和（自定义函数）点击返回圆周率π点击定义指定单元内容为页眉/页脚点击提示并全部清除当前选择区域点击对指定工作表执行取消隐藏》打印》隐藏工作表点击弹出提示A1单元内容点击撤消工作表保护并取消密码点击将第5行移到窗口的最上面点击对第一张工作表的指定区域进行排序点击显示指定工作表的打印预览点击用单元格A1的内容作为文件名另存当前工作簿点击添加自定义序列点击弹出打印对话框点击点击把a列不重复值取到e列点击当前选区的行列数点击返回光标所在行号点击VBA返回公式结果点击合并A1至C1的内容写到D15单元的批注中点击重算模式点击分离字符串到每个单元格点击条件格式点击自动录入一个符号点击保护所有工作表点击判断正负数点击判断奇偶数点击选中变色点击自动输入当前日期点击高亮显示当前行点击按A列数据批量修改表名称点击光标指定到名称指定位置（模块）点击删除指定列含空格的所有行点击删除指定列所有重复行点击。
LISTADO REF MOD 145_def5
QTY
1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1
INJECTION STAMPING MACHINING WELDING MOULDING COMERCIAL OTHERS
CUBRE PISTA INFERIOR CUBRE PISTA SUPERIOR CONJUNTO SOLDADO PISTA PISTA INTERIOR PISTA EXTERIOR FRONTAL GUIA CINTA EMPUJADOR VARILLA EMPUJADOR MUELLE EMPUJADOR ARANDELA DE SEGURIDAD DIN 6799 1,9 CONJUNTO ARMAZON BASE ARMAZON BASE FIJACUCHILLA CUCHILLA LENGÜETA RESORTE TUERCA REMACHABLE PULSADOR BLOQUEO BULON REGLAJE POSICIONADOR DE BOLA ARANDELA DE RESORTE CONJUNTO CABEZAL SOPORTE CABEZAL TAPA CABEZAL YUNQUE MECANIZADO YUNQUE ESTAMPADO ESCUADRA FIJACION CINTA PULSADOR CONJUNTO UÑA EJE GUIA RESORTE EJE GUIA ELEVACION UÑA SEPARADOR UÑA-PULSADOR UÑA RESORTE UÑA MUELLE PULSADOR SEPARADOR PULSADOR ARCO PALANCA MANGO PORTACINTA CARCASA TAPA EJE ROLDANAS EJE PALANCA EJE ARMAZON BASE EJE CABEZAL CASQUILLO ARCO CASQUILLO ARCO-PALANCA CASQUILLO EJE ROLDANAS ROLDANAS RESORTE DE RECUPERACION SEPARADOR PALANCA SEPARADOR EJE TORNILLO ISO 7045 M3X20 TUERCA AUTOBLOCANTE M3 ARANDELA DE SEGURIDAD DIN 6799 2,3 ARANDELA DE SEGURIDAD DIN 6799 3,2 TORNILLO DIN EN ISO 10642 M4X10 ROLLER AXIS LEVER AXIS MAIN FRAME AXIS HEAD AXIS ARC SPILE LEVER-ARC SPILE ROLLER AXIS SPILE ROLLERS RECOVERING SPRING LEVER SPACER AXIS SPACER BOLT ISO 7045 M3X20 SELFBLOCKATING NUT M3 CIRCLIP DIN 6799 2,3 CIRCLIP DIN 6799 3,2 BOLT DIN EN ISO 10642 M4X10 ARC LEVER HANDLE TAPE HOLDER HOUSING COVER CLAW SPRING PUSHER SPRING PUSHER SPACER TAPE HOLDER BRACKET PUSHER CLAW ASSEMBLY HEAD ASSEMBLY HEAD HOLDER HEAD COVER MACHINED ANVIL MAIN FRAME ASSEMBLY MAIN FRAME CUTTER HOLDER CUTTER DRIVER SHEET SPRING RIVETING NUT POSITIONING BUTTON SETTING ROD SPRING-BALL PLUNGER SPRING RETAINER PUSHER PUSHER ROD PUSHER SPRING CIRCLIP DIN 6799 1,9 MAGAZINE WELDED ASSEMBLY
怎样在插件中设置和使用宏功能
怎样在插件中设置和使用宏功能在我们日常使用各种软件的时候，你可能会发现有些重复性的操作特别烦人，比如频繁地复制粘贴相同格式的内容，或者每次都要进行一系列固定的设置调整。
这时候，如果能有个神奇的工具来帮我们自动完成这些操作，那可就太棒啦！没错，这就是宏功能的用武之地。
我记得有一次，我在处理一份特别长的文档，里面有大量的图片需要统一调整大小和格式。
如果一张一张地去弄，那真不知道要弄到猴年马月。
就在我快要崩溃的时候，突然想到了宏功能。
咱们先说设置宏功能吧。
第一步，您得先找到插件里宏功能的入口。
这就好像是找宝藏的入口一样，有时候可能藏得有点深。
不同的软件，这个入口的位置还不太一样。
有的可能在菜单栏的“工具”选项里，有的可能在“视图”或者“编辑”里面。
您可得瞪大了眼睛仔细找找。
找到入口之后，一般会有一个“新建宏”或者“录制宏”的按钮。
这就好比是打开了录制节目的开关。
接下来，您就开始进行您想要自动化的操作。
比如说，在文档里设置特定的字体、字号、颜色，调整段落格式等等。
您就像一个熟练的工匠，一步一步精心地完成这些操作。
重点来啦！在操作的过程中，每一个细节都要做到位。
就像我调整那些图片的时候，得精确地选择图片的大小、分辨率，还有对齐方式等等。
一点都不能马虎，不然宏执行起来可就达不到您想要的效果了。
等您把所有的操作都完成了，别忘了点击“停止录制”或者“保存宏”。
这就像是给您的精心表演画上了一个完美的句号。
设置好了宏，接下来就是使用它啦。
使用宏也很简单，找到您刚刚设置好的宏，点击运行，然后就等着它像一个勤劳的小蜜蜂一样为您干活吧。
比如说，我处理那份文档的时候，设置好了调整图片的宏，之后每次遇到新的图片，我只需要轻轻一点，宏就会迅速帮我把图片调整好，那速度，简直比闪电还快！不过要提醒您哦，使用宏的时候也要注意一些小细节。
比如说，如果您的文档内容有一些特殊的情况，可能宏就没办法完全适用了。
这时候，您就得稍微手动调整一下。
伊莱亚斯公共使用使用指南内容
伊莱亚斯公共使用使用指南内容
1. 嘿，你知道伊莱亚斯公共怎么用最爽吗？就好比你拿着最棒的玩具，得知道怎么玩才能玩出花样呀！比如说，你可以在伊莱亚斯公共找那些超有趣的活动，就像在宝藏堆里找宝贝一样刺激！
2. 哎呀呀，伊莱亚斯公共的这个功能你可千万别错过！就像挖掘到了金子一样惊喜！比如那个共享资源区，你能在那找到好多意想不到的好东西呢！
3. 哇塞，在伊莱亚斯公共里探索不就像一次奇妙的冒险吗？举个例子，你可以去和不同的人交流，哇，那感觉就像打开了一个个神秘的盒子！
4. 嘿，伊莱亚斯公共还有好多隐藏的小窍门呢！就好像游戏里的隐藏关卡一样。
比如怎么快速找到自己感兴趣的区域，这可得好好琢磨琢磨呀！
5. 你难道不想知道怎么在伊莱亚斯公共里玩得更嗨吗？这就好像有了一张神奇的地图！像利用它的社区功能，和大家一起热闹起来，多有意思！
6. 哇哦，伊莱亚斯公共的便利你一旦掌握就停不下来呀！好比掌握了魔法。
你看，通过它获取信息，不就像拥有了千里眼顺风耳嘛！
7. 伊莱亚斯公共的乐趣可多了去了，你还不快来体验体验？就像进入了一个欢乐的海洋！比如它的活动组织，能让你结交好多新朋友呢！
8. 总之，伊莱亚斯公共就是一个超级有趣又实用的地方，你还在等什么呢？快来加入吧！
我的观点结论：伊莱亚斯公共是充满无限可能和乐趣的地方，大家一定要去好好利用呀！。
2021年EXCEL VBA 完全教程
Excel VBA欧阳光明（2021.03.07）目录一、VBA语言基础................................................................................................................. ..1第一节标识符................................................................................................................. . (1)第二节运算符................................................................................................................. . (1)第三节数据类型................................................................................................................. (1)第四节变量与常量................................................................................................................. .. (1)第五节数组................................................................................................................. .. (2)第六节注释和赋值语句................................................................................................................. (2)第七节书写规范................................................................................................................. (2)第八节判断语句................................................................................................................. (2)第九节循环语句................................................................................................................. (3)第十节其他类语句和错误语句处理 (4)第十一节过程和函数................................................................................................................. . (4)一．Sub过程 (4)二．Function函数 (5)三．Property属性过程和Event事件过程.........................................5第十二节内部函数................................................................................................................. (5)一．测试函数 (5)二．数学函数 (5)三．字符串函数 (5)四．转换函数 (6)五．时间函数 (6)第十三节文件操作................................................................................................................. .. (6)文件 (6)删除 (6)打开 (6)读入 (7)写入 (7)关闭 (7)其他文件函数 (7)二、VISUAL BASIC程序设计网络教学 (1)第一课 VBA是什么 ................................................................................................................ .11.1 VBA是什么................................................................................................................. . (1)1.2 EXCEL环境中基于应用程序自动化的优点 (1)1.3 录制简单的宏................................................................................................................. . (1)1.4 执行宏................................................................................................................. . (2)1.5 查看录制的代码................................................................................................................. (2)1.6 编辑录制的代码................................................................................................................. (3)1.7 录制宏的局限性................................................................................................................. (3)1.8 小结................................................................................................................. .. (3)第二课处理录制的宏 (3)2.1 为宏指定快捷 (3)2.2 决定宏保存的位置................................................................................................................. .. (4)2.3 个人宏工作簿................................................................................................................. . (4)2.3.1 保存宏到个人宏工作簿 (4)2.3.2 使用并编辑个人宏工作簿中的宏 (4)2.4 将宏指定给按钮................................................................................................................. (4)2.5 将宏指定给图片或其他对象 (5)2.6 小结................................................................................................................. .. (5)第三课学习控件................................................................................................................. ..5----------------------- 页面 2-----------------------3.1 EXCEL开发过程简...53.2 认识不同的控件................................................................................................................. (5)3.3 向工作表添加控件................................................................................................................. .. (6)3.4 设置控件的特性................................................................................................................. (6)3.5 给控件命名................................................................................................................. .. (6)3.6 使用用户窗体................................................................................................................. . (6)3.7 疑难解答................................................................................................................. (7)第四课理解变量和变量的作用 (7)4.1 代码存在的位置：模4.2 对模块的概览................................................................................................................. . (7)4.2.1 创建过程 (8)4.2.2 运行宏 (9)4.3 保存对模块所做的改变 (9)4.4 变量................................................................................................................. .. (9)4.4.1 变量的数据类型 (9)4.4.2 用Dim语句创建变量(声明变量) (10)4.4.3 变量命名的惯例 (10)4.4.4 使用数组 (10)4.4.5 变量赋值 (11)第五课利用VBA设置工作表使用权限 (11)1．使用WITH语句。
魔兽世界宏设置
宏其实真的是很简单很简单，大家不会的原因一定是嫌学起来繁复枯燥，流离在这里尽可能用最简单的话把一些简单的宏教给大家，以后大家想做宏就可以自己动手丰衣足食了~一、最最最基本的第一步调出宏编辑界面：在对话框打/m回车或按ESC找宏选项点【新建】，然后选择一个图标，·注意那个红色问号的图标，这个图标会自动变成它下一个会施放的法术的样子哦。
二、最最最常用的宏指令很简单，记住就可以了，就当背单词啦1、施放：/cast+空格+技能2、使用：/use+空格+物品3、选择目标：/target+空格+名称·注意：target是英文目标的意思，宏中也可以作为名词来使用，比如target是目标，targettarget就是目标的目标……o(╯□╰)otarget后面加“=”就是“以什么什么为目标”的意思，后面可以跟targettarget,player(施法者自己),focus(焦点),mouseover(鼠标指向的目标),pet(宠物)等）4、设目标为焦点：/focus5、顺序施放：/castsequence（说明：sequence是连串、顺序、连续的意思，所以这个指令就是大家常说的“按第一下放A，按第二下放B”啦）这个指令的语法是: /castsequence+空格（+reset=n/target/combat/shift ）技能A,技能B,技能C……其中n是指秒数，意为n秒后重置此循环；target意为切换目标宏重置；combat是战役的意思，意为战斗结束后重置；shift也可以是ctrl或alt，就是你一按这个功能键宏就重置了。
括号内的内容可以不加或选择用哪个6、随机施放：/castrandom （说明：random即随机的意思）7、/userandom 聪明的你一定知道这是什么……8、/equip 装备，就是穿衣服滴“穿”~三、最最最重要的判断条件英文中的条件句大家都有学过吧？就是if then啦，宏中那些中括号括起来的东西其实就是一堆If和then而已……1、help：判断目标为友方阵营;nohelp：非友方阵营harm:敌对阵营;noharm:非敌对阵营2、dead：目标挂了；nodead：目标没挂3、exists:目标存在；noexists：目标不存在4、"modifier:alt"：判断当功能键alt按下时（alt也可以改为shift或ctrl）5、"button:1”：判断宏是被鼠标左键按下时（1也可以改为2，右键）6、flyable: fly是飞，-able是“可...的”，所以flyable就是可以飞的情况下的意思咯~7、channeling：引导中；nochanneling：没在引导中四、加起来~加起来的语法很简单，常用的是/cast [条件1,条件2,条件3,] 技能A;[条件4,条件5] 技能B我们的宏主要有以下模板，仔细看看，看懂后你在宏基础知识方面就合格了：/cast [help] 快速治疗; [target=targettarget] 快速治疗目标为友善则施放快速治疗，否则对目标的目标施放快速治疗。
相同名称合并单元格的快速方法
相同名称合并单元格的快速方法以下是 7 条关于相同名称合并单元格的快速方法：1. 嘿，你知道吗？直接选中要合并的相同名称单元格，然后找到那个合并单元格的按钮，“啪嗒”一下点下去就搞定啦！好比整理房间，把相同的杂物堆到一块儿去。
比如说你整理一堆文件，把名字一样的都放一起直接合并。
2. 哇塞，还有一个妙招！利用数据排序功能，让相同名称的排在一起，这时候再进行合并，那可就太轻松啦！就像把一群人按照名字排好队，然后把同名的人归拢到一起。
比如班级里把同姓的同学先排好，再合并处理。
3. 哈哈，告诉你呀，先使用筛选功能，筛出相同名称的那些，再进行合并，真的超级简单！这就像从一堆玩具中快速找出同一个类型的玩具一样。
比如说在一堆水果中把相同的水果挑出来，然后合并它们的区域。
4. 咦，还可以借助函数来实现呀！通过设置一些巧妙的函数，让相同名称自动合并。
这好比给小机器人设定指令，让它帮你做合并的工作。
就像让电脑自动把相同商品名称的单元格合并起来。
5. 嘿哟，别忘了利用插件哦！有些插件可是有专门的合并相同名称单元格的功能呢，超级好用！这就像给你的工作加上了翅膀，助力快速合并。
比如在处理大量数据时，插件一下子就能完成相同名称的合并。
6. 哇，想象一下，先做个标记，标记那些相同名称的单元格，然后统一进行合并，怎么样，简单吧？就如同在人群中给同名的人贴上标签，最后一起处理。
像是在一个大名单中标记出相同名字的人，再一起合并相关部分。
7. 哈哈，最后一个方法啦！制作一个简单的宏代码，让它来帮你自动完成相同名称合并单元格的操作呀，太省力啦！这就像有个小精灵在为你默默地工作。
比如说在处理复杂的表格时，宏代码悄悄地把相同名称的都合并好了。
我的观点结论就是：这些方法都能帮助你快速合并相同名称单元格，根据实际情况选择合适的方法就行啦，真的超方便！。
WOW中常用的宏汇总 --- 团队及战场部分
既然是团队部分，那就说明只有在团队下才能使用，不在团里的别跑来问我为什么不能用！RL专用，给目标上团队标记现在团长可以给目标上星星，三角等标记，但每次点右键很不方便，试试这个/script SetRaidTarget("target",图标编号);上边红色数字取值 0-80 = 取消图标1 = 黄色四角星2 = 桔黄色圆3 = 紫色钻石4 = 绿色三角形5 = 白色月亮6 = 蓝色方块7 = 红色X8 = 骷髅这样可以做8个宏，快捷键分别设成Ctrl-F1 ... Ctrl-F8，这个随意，这样给团员分配目标比如放逐，变羊，休眠等的时候能够事半功倍而且后面有些宏需要标记作为依据，可以和这个宏搭配使用所以，先给你的队员分配好每个人专管的数字吧！自动锁定RL给自己分配的怪，放逐/变羊/休眠并报告，怎么处理随你便这个宏配合上面的RL分配标记宏一起使用，首先你需要RL给你分配你专门照顾的目标的图标具体对应关系看上边那个宏，假如是黄色四角星，就是1把下边红色的数字换成RL给你分配的数字术士版/script local i,t;for i=1,GetNumRaidMembers() dot="raid"..i.."target";if GetRaidTargetIndex(t)==RL分给你的编号 then TargetUnit(t);CastSpellByName("放逐");SendChatMessage("%t放逐中","yell");break;end;end;法师版/script local i,t;for i=1,GetNumRaidMembers() dot="raid"..i.."target";if GetRaidTargetIndex(t)==RL分给你的编号 then TargetUnit(t);CastSpellByName("变形术");SendChatMessage("%t变羊中","yell");break;end;end;德鲁伊版/script local i,t;for i=1,GetNumRaidMembers() dot="raid"..i.."target";if GetRaidTargetIndex(t)==RL分给你的编号 then TargetUnit(t);CastSpellByName("休眠");SendChatMessage("%t催眠中","yell");break;end;end;注意，这个宏不是每次都能奏效，因为它实际上是通过检查你队友目标是不是制定目标来实现的，当包括团长的团队中没有任何人选中你的目标时你只能手动去选择了密语团内所有指定职业 RL用比较好一次M团队中所有指定职业，打Nef这种BOSS时应该很有用，注意别狂点，会刷屏……指定职业，说话内容自己改/script local i,p;for i=1,40 do p="raid"..i;if UnitClass(p)=="牧师" then SendChatMessage("停止治疗！！","whisper",nil,UnitName(p));end;end;根据目标职业要buff如果目标是法师就M他要智力，牧师要韧，小D要爪子/script local x,c,i,s={["法师"]="智力",["牧师"]="韧",["德鲁伊"]="爪子"},UnitClass("target");for i,s in x do if i==c then SendChatMessage("给个"..s.."，谢谢~","whisper",nil,UnitName("target"));end;end;这个是加强版，增加了自报组号功能根据目标职业要buff，并报自己组号，太大了，需要SuperMacro支持左边窗口/script RequestBuff();右边窗口Code:function RequestBuff()local x,c,i,s,n,g,_={["法师"]="智力",["牧师"]="韧",["德鲁伊"]="爪子"},UnitClass("target");for i=1,40 don,_,g=GetRaidRosterInfo(i);if n==UnitName("player") then break;end;end;for i,s in x doif i==c thenSendChatMessage("给个"..s.."，我在"..g.."组，谢谢~","whisper",nil,UnitName("target"));end;end;end;报告当前团队活着、死亡、掉线人数，还有boss血量宏/script local c,o,d,i,n,a,b,_=0,0,0;for i=1,40 do n,_,_,_,_,_,_,a,b=GetRaidRosterInfo(i);if n then c=c+1;if a then o=o+1;end;if b then d=d+1;end;end;end;SendChatMessage("%t 还剩"..UnitHealth("target").."%,共"..c.."人,死亡"..d..",掉线"..c-o,"raid")给目标所在小队加群体Buff，并报告，团队/小队均可法师版/script local t,n,g,i,_;CastSpellByName("奥术光辉");if UnitInRaid("player") then t=UnitName("target");for i=1,40 do n,_,g=GetRaidRosterInfo(i);if t==n then SendChatMessage(g.." 队智力已加过","yell");break;end;end;end牧师版/script local t,n,g,i,_;CastSpellByName("坚韧祷言");if UnitInRaid("player") then t=UnitName("target");for i=1,40 do n,_,g=GetRaidRosterInfo(i);if t==n then SendChatMessage(g.." 队韧已加过","yell");break;end;end;end德鲁伊版/script local t,n,g,i,_;CastSpellByName("野性赐福");if UnitInRaid("player") then t=UnitName("target");for i=1,40 do n,_,g=GetRaidRosterInfo(i);if t==n then SendChatMessage(g.." 队爪子已加过","yell");break;end;end;end团队中自动给血最少的人刷血宏/script local p,h,i,j="raid",UnitHealth,1;for j=2,GetNumRaidMembers() do if h(p..i)>h(p..j) and h(p..j)>0 then i=j;end;end;p=p..i;if(not UnitIsDead(p))and UnitIsVisible(p) then TargetUnit(p);CastSpellByName("快速治疗");end快速治疗可以换成别的法术，看你什么职业了团队复活宏本宏对所有复活职业通用，但首先你要知道你的复活技能所在按钮的序号，看上边基础知识图用你查到的复活所在的序号替换红色数字/script local p,i,t="raid";for i=1,40 do t=p..i;if UnitIsDead(t) then TargetUnit(t);if IsActionInRange(你复活按钮编号) then UseAction(你复活按钮编号);SendChatMessage("我开始复活 %t",p);break;end;end;end;一键驱散宏 - 256字节取代Decursive注意：如果这个宏因为你和队友中间隔着柱子等障碍物而停止的话，请你走几步宏只能帮你简化操作，不能帮你破坏游戏规则牧师，德鲁伊，萨满祭司的提供了单独的小队版和团队版，请注意版本，solo 无效法师和圣骑士的是团队/小队自适应版，solo无效原因是法师，圣骑士只有一种解除魔法，而牧师，德鲁伊，萨满祭司有两种，限于256字节写不下了===========================牧，德，萨小队版=========================== 牧师版/script local s,p,i,d,t,_={["Magic"]="驱散魔法",["Disease"]="驱除疾病"};for i=1,4 do p="party"..i;if CheckInteractDistance(p,4) then d,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end德鲁伊版/script local s,p,i,d,t,_={["Poison"]="驱毒术",["Curse"]="解除诅咒"};for i=1,4 do p="party"..i;if CheckInteractDistance(p,4) then d,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end萨满祭司版/script local s,p,i,d,t,_={["Poison"]="消毒术",["Disease"]="袪病术"};for i=1,4 do p="party"..i;if CheckInteractDistance(p,4) then d,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end===========================牧，德，萨团队版=========================== 牧师版/script local s,p,i,d,t,_={["Magic"]="驱散魔法",["Disease"]="驱除疾病"};for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) then d,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end德鲁伊版/script local s,p,i,d,t,_={["Poison"]="驱毒术",["Curse"]="解除诅咒"};for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) thend,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end萨满祭司版/script local s,p,i,d,t,_={["Poison"]="消毒术",["Disease"]="袪病术"};for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) then d,_,t=UnitDebuff(p,1,1);if d then TargetUnit(p);CastSpellByName(s[t]);TargetLastTarget();break;end;end; end===========================法，骑团队，小队自适应版===========================法师版/script local n,p,t,i,d=4,"party";if UnitInRaid("player") then n=40;p="raid";end;for i=1,n do t=p..i;if UnitDebuff(t,1,1) and CheckInteractDistance(t,4) then TargetUnit(t);CastSpellByName("解除次级诅咒");TargetLastTarget();break;end;end;圣骑士版/script local n,p,t,i,d=4,"party";if UnitInRaid("player") then n=40;p="raid";end;for i=1,n do t=p..i;if UnitDebuff(t,1,1) and CheckInteractDistance(t,4) then TargetUnit(t);CastSpellByName("清洁术");TargetLastTarget();break;end;end;团队自动补单体buff宏说明：自动搜索团队内没有相应单体buff（真言术：韧，奥术智慧，野性印记）的团队成员，为其补上，掉线的，死亡的，不在射程的都会忽略掉。
魔兽世界宏命令全表
魔兽世界宏命令全表宏命令全表本⽂WOWWiki共享维护Subelf译有些命令需要参数，⽽部分命令的参数则是可以省略的。
⽐如/join可以接受两个参数，⼀个是可选的，另⼀个则是必需的，我们⽤/join <频道名称> [密码]来表⽰。
也就是说“<>”中的是必需的，“[]”中的则是可选的。
⼀、基本命令协助[单位]，也就是选择[单位]的⽬标。
如果没有指定[单位]，当前⽬标将作为为⾃⼰装备<物品>。
⾃动跟随[玩家]。
如果没有指定[玩家]，当前⽬标将作为参数。
掷骰⼦，获得⼀个[下限]到[上限]之间的随机数。
如果只指定了⼀个参数值，那么范围就是从1到这个指定的值。
如果没有给出任何参数，那么范围就是从1到100。
如果你在⼩队或团队中，附近的队员可以看到你得到的随机数，范围和/say显⽰服务器时间。
向[玩家]发起交易。
如果没有指定[玩家]，当前⽬标将作为参数。
定[搜索内容]，那么会进⾏⼀个默认的搜索，并打开搜索对话框显⽰结果。
⼆、聊天命令下⾯这些是⽤于玩家交流的命令，如果没有特别设定，聊天内容都是⽤当前的表情的作⽤是向周围发送⼀个“玩家名<表情>”的信息，和/say类似。
不过当敌对阵营玩家收到信息后只会显⽰“玩家名做了⼀些奇怪的动作”。
向战场团队频道发送[信息]。
说话，向周围发送<信息>，附近的玩家都可以收到。
仅向<玩家>发送<信息>。
三、在线状态你“处在暂离状态”的⾃动回复。
该回复也可以通过设置[信息]修改。
切换勿扰状态。
玩家向你发送悄悄话时将在你名字左侧显⽰“勿扰”，并得到你“请勿打扰”的⾃动回复。
该回复也可以通过设置[信息]修改。
四、好友列表将[玩家]添加到忽略名单，如果没有指定[玩家]，则将你的当前⽬标作为参数。
为参数。
为参数。
五、⼩队、团队命令邀请[玩家]加⼊队伍，如果没有指定[玩家]，则将你的当前⽬标作为参数。
⾄将[玩家]开除队伍，如果没有指定[玩家]，则将你的当前⽬标作为参数。
消除Win2k的危险共享
消除Win2k的危险共享
牟晓东
【期刊名称】《网络与信息》
【年(卷),期】2004(18)2
【摘要】@@ 各位网管请注意:这里的共享是Win2k默认的隐藏共享,即表面上看不到那个小手图标.不管是Server版还是Professor版的Win2k都有这样的共享:C$、D$、F$等盘符共享,还有Admis$(C:Winnt目录的共享)及IPC$()共享.【总页数】1页(P80)
【作者】牟晓东
【作者单位】无
【正文语种】中文
【中图分类】TP316.86
【相关文献】
1.犯罪既遂抑或犯罪中止——危险犯自动消除危险状态之行为定性 [J], 刘建军;曲振涛
2.浅议如何配置WIN2K网络使多网段共享双宽带上网 [J], 傅晓梅
3.让Win2K与Win98共享IE资源 [J], 吴亚群
4.数据共享合法化推动消除国际贸易新壁垒 [J], 刘晓春
5.消除医保城乡差别共享发展成果 [J], 《经济参考报》
因版权原因，仅展示原文概要，查看原文内容请购买。
ss宏讲解
» [SS最需要爱] 3.0SS实用宏整理，每周六更新狗沉默焦点/cast [target=focus] 法术封锁狗吃魔法宏/cast [target=你的名字] 吞噬魔法恐惧焦点宏目标/clearfocus [target=focus,dead]/focus target [harm, target=focus,noexists]/cast [target=focus] 恐惧缠绕焦点目标/clearfocus [target=focus,dead]/focus target [harm, target=focus,noexists]/cast [target=focus] 死亡缠绕(等级4)坐骑宏/use [flyable,nomounted] 野蛮角斗士的虚空幼龙; [nomounted] 阿曼尼战熊/dismount狗吞噬魔法。
目标队友时吞噬盟友身上魔法，没有目标或目标对方时吞噬自身魔法，按住alt键吞噬对方魔法/cast [help] 吞噬魔法/cast [target=player,nomodifier] 吞噬魔法/cast [harm,modifier:alt] 吞噬魔法痛苦术的3DOT宏，开火车利器。
唯一缺点：抵抗后施放顺序刷新。
/castsequence [nomodifier] reset=combat/target 腐蚀术, 生命虹吸,痛苦诅咒MM不改变目标魅惑。
魅惑第一个目标，继续按下时如果第一个目标没有死亡，继续魅惑第一个目标，期间可以随意切换目标攻击，按住alt键或第一个目标死亡，将转而魅惑当前目标。
（已测试）/clearfocus [modifier:alt]/focus [target=focus,noexists];[target=focus,dead]/clearfocus [target=focus,help]/petfollow/cast [pet:魅魔,target=focus,exists,harm] 诱惑自己身上有DEBUFF,就吃自己的自己没有，狗身上有，就吃狗自己的按ALT+组合键，吃敌方或者队友的#showtooltip 吞噬魔法/cast [target=player]吞噬魔法/cast [target=pet]吞噬魔法/cast [pet:地狱猎犬,modifier:alt,harm][pet:地狱猎犬,modifier:alt,help]吞噬魔法END狗咬战栗的宏/target 战栗图腾/petATTACK/targetLASTtarget这是个地狱犬封锁宏鼠标指向优先如果鼠标没指向就沉默当前目/cast [target=mouseover,exists][harm] 法术封锁吸岁片销毁/stopattack/stopcasting/cast 吸取靈魂/script PU = PickupContainerItem; D= DeleteCursorItem; PU(4,20); D();3.0的左键抹法术石，右键做法术石，按alt/ctrl/shift左键抹火焰石，按alt/ctrl/shift右键做火焰石：#showtooltip/施放[mod,btn:2]制造火焰石;[mod]特效火焰石;[btn:2]制造法术石;特效法术石/施放16只使用法术石的左键抹法术石，右键做法术石/施放[btn:2]制造法术石;特效法术石/施放16只使用火焰石的左键抹火焰石，右键做火焰石/施放[btn:2]制造火焰石;特效火焰石/施放16抓贼宏/script SetCVar("targetNearestDistance",10)/targetenemy/script SetCVar("targetNearestDistance",50)/cast xx法术整合宏1，支持狗焦点吃魔法和鼠标指向吃魔法/cast [help] 吞噬魔法/cast [modifier:alt,target=focus,exists] 吞噬魔法; [target=mouseover,exists]吞噬魔法; 吞噬魔法/cast [target=target,harm]安抚之吻/cast [target=target,harm]顺劈斩整合宏2，狗的沉默，卫士的拦截，MM的诱惑ALT支持焦点，鼠标指向释法，/cast [modifier:alt,target=focus][target=mouseover,harm][target=target,harm]法术封锁/cast [modifier:alt,target=focus][target=mouseover,harm][target=target]拦截/cast [modifier:alt,target=focus][target=mouseover,harm][target=target]诱惑暗影灼烧和火雨宏，有目标用暗影灼烧，没目标施放火雨/cast [noharm] 火焰之雨;暗影灼烧治疗石宏# show 极效治疗石/use 极效治疗石/use 特效治疗石瞬招牺牲宏#showtooltip 召唤虚空行者/cast 恶魔支配/stopcasting/castsequence [nomodifier] reset=combat/target 召唤虚空行者,牺牲另外部分重要控制技能可这样写宏例：/cast [target=mouseover,harm][target=target]恐惧#showtooltip 灵魂仪式/cast [button:2]灵魂仪式;召唤仪式左右建分别是拉人和招糖/castsequence reset=18/combat/target 痛苦诅咒,腐蚀术，生命虹吸一建DOT#showtooltip/cast [modifier:alt] 召唤小鬼;[modifier:shift] 召唤地狱猎犬;[modifier:ctrl] 召唤虚空行者;召唤魅魔CTRL SHIFT ALT 一建宝宝宏#showtooltip/stopcasting/use 精金手雷手雷宏~#showtooltip/cast [modifier,button:1]极效灵魂石;[modifier,button:2]制造灵魂石;[button:1]极效治疗石;[button:2]制造治疗石鼠标左右建+CTRL 制作糖灵魂石使用糖灵魂石/castsequence reset=18/combat/target 献祭,烧尽,燃烧,混乱之箭,献祭,烧尽,烧尽,烧尽,烧尽,燃烧,烧尽,烧尽,烧尽强烈推荐。
LinuxMintCinnamon下使用vino-server配置桌
LinuxMintCinnamon下使用vino-server配置桌Linux Mint Cinnamon下使用vino-server配置桌面共享的方法Linux mint是基于Debian和Ubuntu的Linux发行版，目前已经出到了Linux mint17版本。
近来有网友反映在Linux Mint 17 Cinnamon上时桌面共享菜单丢失了，下面店铺就给大家介绍下如何在Linux Mint 17 Cinnamon桌面上使用vino-server配置桌面共享。
问题：我试着在Linux Mint 17 Cinnamon桌面上通过Vino VNC 服务器（vino-server）启用桌面共享。
但是，我发现用来配置vino-server（如，共享选项，安全，通知开/关）的vino首选项工具已经不复存在了。
同时，我也的Cinnamon桌面上也找不到共享菜单。
我怎样才能在最新的Linux Mint 17 Cinnamon桌面上通过vino-server配置桌面共享？最新的'Linux Mint 17 Cinnamon桌面附带了预安装用于VNC桌面共享的vino-server，但是它报告说桌面共享菜单丢失了。
一个配置vino-server并启用桌面共享的可选方式，是使用dconf-editor的图形界面。
首先安装dconf-editor：$ sudo apt-get install dconf-editor启动dconf-editor。
$ dconf-editor在dconf-editor的左边面板中导航到“org-》gnome-》desktop-》remote-access”，然后你将会看到各种各样的桌面共享选项。
最重要的是，点击“enabled”来激活桌面远程访问。
除此之外，你还可以自定义其它选项。
例如，你可以通过修改以下字段来启用VNC密码验证：authentication-methods：设置为［‘vnc’］vnc-password：将你喜欢的密码修改为Base64编码的字符串。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
/skill 三环套月
/skill [mana<0.6,qidian>9]抱元守缺
/skill [bu<0.4,qidian>9;tlife>0.4,qidian<9]八荒归元
/skill [qidian>6,mbuff:叠刃<4,tlife>0.4]无我无剑
/skill [mbufftime:叠刃<4]无我无剑
/skill [tlife<0.4,qidian>9]八荒归元
/skill [qidian>6,mbufftime:叠刃<9]无我无剑
/skill [mbufftime:叠刃<4]无我无剑
/skill [tlife>0.4,qidian<8]八荒归元
/skill [distance>6]八荒归元
/skill [distance>6]八荒归元
/skill [qidian>7]无我无剑
/skill [distance<6,tnobuff:万剑归宗]万剑归宗
/skill [qidian<8,tbuff:无相]天地无极
/skill 三环套月
只管输出，手动部分较多。
/skill [buff:韬光养晦]紫气东来
/skill [distance<6,tnobuff:万剑归宗]万剑归宗
/skill 三环套月
天地输出
/skill [nobuff:九襄地玄五阵|金刚伏魔五阵]凭虚御风
/skill [prepare:天音化物|雨钓江秋|无懈可击|龙甩尾]剑飞惊天
/skill [qidian<2,target:boss]韬光养晦
/skill [mana<0.6,qidian>9]抱元守缺
/skill [tlife<0.4,qidian>9;tlife>0.4,qidian<8;distance>6]八荒归元
/skill [qidian>7;qidian>6,mbuff:叠刃<4,tlife>0.4;mbufftime:叠刃<4]无我无剑
奇穴 1：心固（我想这里选这个是没人异议的）
奇穴 2：深埋（也可选同根，自己当阵眼就完全可以选同根了。但是最好还是选这个回豆的！）
奇穴 3：碎星辰（有人下碎星辰你可以选昆吾，碎星辰目前有BUF会闪断几秒。所以再次强调手动放碎星辰）
奇穴 4：元剑（现在选它比较好，后期会心上来了选天地进入输出循环也不错.或者需要打断的时候选剑飞惊天）
奇穴10：物我两忘（身法属性高的选这个应该还是不错的，5%的身法提升还有10%的被治疗效果）
发现问题还请及时告诉我
天地打断
/skill [nobuff:九襄地玄五阵|金刚伏魔五阵]凭虚御风
/skill [prepare]天地无极
/skill [buff:韬光养晦]紫气东来
/skill [qidian<2,target:boss]韬光养晦
奇穴 5：抱元守缺（有人说可以选狂歌回蓝，可是你们不觉得这太难为宏了吗？或者改手动你们不觉得麻烦吗？）
奇穴 6：叠刃（这里除了它好像也没别的可选了）
奇穴 7：和光（这里好像也没别的好选）
奇穴 8：无欲（这里也一样没什么好说的，剑纯下化三清是浪费）
奇穴 9：切玉（这里也没有什么争议）
奇穴10：期声（在碎星辰下攻击要高点，但是装备上来了这个高出来的攻击和物我两忘的收益现在不好说）