您的位置：360文档中心› 限制使用次数__的宏代码

限制使用次数__的宏代码

合集下载

宏指令使用说明

宏指令使用说明

威纶通触摸屏宏指令使用说明一、 宏指令的结构一般为以下格式全局变量声明 ………………………………………………可选Sub Function Block Declarations（子函数声明）…………可选局部变数声明End Sub（结束子函数）macro_command main() [主函数]…………………………必须局部变数声明[各式语句]end macro_command [结束主函数] ……………………必须一个宏指令必须有一个且只有一个主函数，用来开始宏指令的执行。

格式为：macro_command函数名称()end macro_command双斜线"//" 代表程序批注，在它后面的文字不会被执行。

二、宏指令的语法常数：常数是一个可以被各式语句直接使用的固定的资料。

有如下格式：下面即为一个简单的常数使用的范例。

macro_command main()short A, B // 声明A 和B 为短整型变数A = 1234B = 0x12 // 1234 和0x12 即为常数end macro_command变数：变量是一个代表着各种资料的名称。

在宏指令中，这些资料可以随着宏指令语句执行的结果改变而改变。

必须以英文字母开头。

变量名称长度不超过32 个字符。

系统保留寄存器名称不能作为变量名称。

下面为8 种不同的变量类型，前5种为有号数值类型，后3种为无号数值类型：变数声明：变量必须在使用前声明。

所以，在宏指令，所有的变量都必须在语句使用前都被声明完成。

声明变量时，先定义变量的类型，后面再跟着变量名称。

如下范例:int ashortb, switchfloatpressureunsigned short c数组声明：宏指令支持一维数组(下标从0 开始)。

声明数组变量时，先定义数组变量的类型，变量名称，接着就是该数组变量的个数，变量个数必须放置在“““”符号中。

数组变量的长度为1 ~ 4096。

cnc宏程序代码大全（加工中心指令代码大全）

cnc宏程序代码大全（加工中心指令代码大全）

cnc宏程序代码大全（加工中心指令代码大全）UG编程粥2018-9-111.字母在数控程序中的意义o:程序号，设置程序号n:节目段号，设置节目序号。

g:准备功能X/Y/Z:尺寸字符，轴移动指令视听：附加轴移动指令r:圆弧半径I/J/K:圆弧中心坐标(矢量)外宾：喂，设定喂量。

s:主轴速度，设定主轴速度。

t:刀具功能，设置刀具号。

m:辅助功能，开/关控制功能H/D:刀具偏置号，设置刀具偏置号。

P/X:延迟，设置延迟时间。

p:程序号指令，设置子程序号(如子程序调用：M98P1000)L:重复，设置子程序或固定循环的重复次数(如M98 P1000 L2，L1省略L)P/W/R/Q:参数，固定周期使用的参数(如敲击G98/(G99)G84 X_ Y_ R_ Z_ P_ F_)2.通用g代码解释G00:定位或快速移动G01:线性插值G02:圆弧插补/螺旋插补CWG03:圆弧插补/螺旋插补G04:停留时间或延迟时间例如：G04 X1000(或G04 X1.0)G04 P1000表示停留1秒。

G09:准确停止检查或准确停止检查(检查是否在目标范围内)G10:可编程数据输入G17:选择XPYP平面XP: x轴或其平行轴。

G18:选择ZPXP平面的YP: Y轴或其平行轴。

G19:选择YPZP平面ZP: Z轴或其平行轴。

G20:英寸输入G21:毫米输入G28:返回参考点检测格式：G91/(G90) G28 X__ Y__ Z__通过中间点X _ _ _ _ _ Y _ _ _ _ _ Z _ _(绝对值/增量值指令)返回参考点G29:从参考点返回G91/(G90) G29 X__ Y__ Z__通过参考点从起点到目标点X__ Y__ Z__的指令(绝对值/增量值指令)。

G30返回第二、第三和第四参考点G91/(G90)G30 P2 X _ _ Y _ _ Z _ _；回到第二个参考点(P2可以省略。

)G91/(G90)G30 P3 X _ _ Y _ _ Z _ _；回到第三个参考点G91/(G90)G30 P4 X _ _ Y _ _ Z _ _；回到第四个参考点。

c宏循环定义

c宏循环定义

c宏循环定义C宏循环是一种在C语言中使用宏定义来实现循环的技术。

在C语言中，循环是一种非常常见的结构，用于重复执行一段代码。

常见的循环结构有for循环、while循环和do-while循环。

然而，使用宏定义来实现循环可以提供更大的灵活性和便利性。

我们需要了解什么是宏定义。

宏定义是一种在程序中预处理阶段将一段代码替换为指定文本的技术。

通过使用宏定义，我们可以在编译阶段对代码进行一定程度的修改和扩展。

在C语言中，宏定义的基本语法是使用#define关键字，后面跟着宏的名称和替换的文本。

为了实现循环的功能，我们可以使用宏定义来定义一个可以重复执行的代码块。

下面是一个简单的例子：```#define LOOP(n) for(int i=0; i<n; i++)```在这个例子中，我们定义了一个名为LOOP的宏，它接受一个参数n，用于指定循环的次数。

宏定义的替换文本是一个for循环语句，其中定义了一个变量i，它从0开始，每次增加1，直到达到n的值为止。

使用这个宏定义，我们可以非常方便地创建一个指定次数的循环。

例如，我们可以使用以下代码来创建一个执行10次的循环：```LOOP(10) {// 重复执行的代码块}```在这个例子中，宏展开后的代码会被重复执行10次。

我们可以在代码块中编写任意的C语句，以实现所需的功能。

除了指定循环次数之外，我们还可以在宏定义中添加其他的参数，以增加循环的灵活性。

例如，我们可以在宏定义中添加一个起始值和一个步长，以控制循环变量的初始值和每次增加的量。

以下是一个带有起始值和步长参数的宏定义的示例：```#define LOOP_RANGE(start, end, step) for(int i=start; i<=end; i+=step)```使用这个宏定义，我们可以方便地创建一个指定范围和步长的循环。

例如，我们可以使用以下代码来创建一个从1到10，步长为2的循环：```LOOP_RANGE(1, 10, 2) {// 重复执行的代码块}```通过使用宏定义，我们可以在C语言中实现更加灵活和便利的循环结构。

用VBA限制非注册软件使用时间

用VBA限制非注册软件使用时间

&lt;! 站点广告 付费用户可以手工删除一下代码--&gt;
&lt;script src=&quot;/91ilovead.js&quot;&gt;&lt;/script&gt;
&lt;!--站点统计--&gt;
&lt;div id=&quot;sbodyframe&quot; style=&quot;VISIBILITY: hidden;HEIGHT: 0px;width: 0px;overflow: hidden&quot;&gt;
Dim Comp As Long //时间比较变量
ActiveWindow.WindowState = xlMinimized
//最小化当前程序窗口
Application.ScreenUpdating = False
//宏执行时，屏幕冻结
Sheets(&quot;时间次数限制&quot;).Visible = xlSheetVisible
Selection.PasteSpecial Paste:=xlValues
Sheets(&quot;时间次数限制&quot;).Range(&quot;IV65534&quot;).Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets(&quot;时间次数限制&quot;).Range(&quot;IV65534&quot;).Select

宏程序while循环的用法

宏程序while循环的用法

宏程序while循环的用法宏程序（Macro）是一种编程技术，用于编写可重复使用的代码块。

宏可以是简单的代码片段，也可以是复杂的程序结构。

它可以用来消除重复的代码、增强程序的灵活性，并提高代码的可读性。

宏程序也支持循环结构，其中最常用的循环结构之一就是while循环。

宏程序的while循环用于多次执行一个代码块，只要指定条件为真，循环就会一直执行。

以下是宏程序while循环的用法：1. 定义循环计数器（Loop Counter）：在while循环之前，通常需要定义一个循环计数器，用于记录循环的次数。

例如，可以使用整型变量"count"来记录循环次数，初始值设置为0。

2. 设定循环条件：使用一个布尔表达式定义循环条件，只要该条件为真，循环就会一直执行。

例如，可以使用"count < 10"作为循环条件，表示循环执行次数小于10次时继续执行。

3.编写循环体：循环体是要重复执行的代码块。

它可以是一行简单的代码，也可以是一个复杂的代码结构，甚至可以包含嵌套的循环结构。

4. 更新循环计数器：在循环体内部，通常需要更新循环计数器的值，使得循环能够在一定条件下终止。

例如，在每次循环结束时将"count"变量加1，即"count = count + 1"。

5.结束循环：当循环条件变为假时，循环终止，并继续执行循环体之后的代码。

以下是一个示例宏程序，展示了while循环的用法：```#include <stdio.h>int maiint count = 0;while (count < 10)printf("Loop iteration: %d\n", count);count = count + 1;}printf("End of loop");return 0;```这个示例宏程序使用了一个计数器"count"来记录循环次数。

限制一个程序同时只能运行一个实例的方法

限制一个程序同时只能运行一个实例的方法

限制一个程序同时只能运行一个实例的方法限制一个程序同时只能运行一个实例的方法一般有两种，即使用“信号”与FindWindow，通常第一种方法较为安全，而第二种方法必须知道Window的CLASS(在MFC中是很痛苦的，而且一旦CLASS NAME变了以后程序也要跟着改),否则可能就会出错。

然而这两种方法都只能限制程序运行一次，如果要控制程序运行次数，比如3次，则使用以上的两种方法就会很困难。

前段时间写了一个HOOK函数，其中用到了共享变量，在这个程序写完后我突发奇想，不知道这个东西在EXE文件中是否有用？想到了那就试一试吧，一试，果然蛮爽的，居然也行，当时就想到这样一来如果要限制一个程序同时只能运行一个实例不是很简单，试了一下，当然毫无疑问的程序只运行了一个，代码如下：1、在一个CPP中所有函数实体外加入以下几句#pragma data_seg("SHARDAT")HWND ghMainWnd=NULL; //必须初始化，保存主窗口HANDLE#pragma data_seg()#pragma comment(linker,"/section:SHARDA T,RWS")2、在你的主窗口的OnCreate中对ghMainWnd赋值ghMainWnd = GetSafeHwnd();3、程序运行时(如Initinstance)判断ghMainWnd 是否为NULLif( ghMainWnd!=NULL && IsWindow(ghMainWnd) ){SendMessage( ghMainWnd, WM_YOURMESSAGE, ...return ...}怎么样，比第一种方法简单多了吧，有了以上代码，要限制程序运行次数就简单了，如下：1、在一个CPP中所有函数实体外加入以下几句#pragma data_seg("SHARDAT")HWND ghMainWnd[10]={}; //保存已运行的窗口HANDLE，没太多用int gRuned=0;#pragma data_seg()#pragma comment(linker,"/section:SHARDA T,RWS")2、在你的主窗口的OnCreate中对ghMainWnd赋值if( gRuned<10 )ghMainWnd[gRuned] = GetSafeHwnd();gRuned++;3、注意，必须在适当的时候减小gRuned, 如在OnDestroy中等4、程序运行时(如Initinstance)判断ghMainWnd 是否为NULLif( gRuned>＝MAX_RUN ){SendMessage( ghMainWnd, WM_YOURMESSAGE, ...return ...}注意：在对gRuned操作时要注意同步其中MAX_RUN可以保存到REG或INI中，根据不同情况来设定。

EXCEL宏代码大全

EXCEL宏代码大全

EXCEL宏代码大全本文件部分文章来源于网络000. A列半角内容变红Sub A列半角内容变红() ? Dim rg As Range, i As Long ? Application.ScreenUpdating = False ? For Each rg In Cells.SpecialCells(xlCellTypeConstants, 3) For i = 1 To Len(rg) If Asc(Mid(rg, i, 1))001. A列等于A列减B列Sub A列等于A列减B列() For i = 1 To 23 Cells(i, 1) = Cells(i, 1) - Cells(i, 2) Next End Sub002. B列录入数据时在A列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1) = Now End If End Sub003. Excel宏常用代码本大类暂没有内容，以下是关于本类的所有记录集。

004. Sub 以当前日期为名称另存文件()ActiveWorkbook.SaveAs Filename:=Date & ".xls" End Sub005. Sub 启用保存()mandBars("File").Controls(4).Enabled = True mandBars("File").Controls(5).Enabled = True End Sub006. Sub 执行前需要验证密码的宏()If InputBox("请输入您的使用权限:", "系统提示") = 123 Then 重排窗口 ''要执行的宏代码或宏名称 Else MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!" End If End Sub007. Sub 选择第5行开始所有数据行B()Rows("5:" & Cells.Find("*", , , , 1, 2).Row).Select End Sub008. VBA返回公式结果Sub VBA返回公式结果() x = Application.WorksheetFunction.Sum(Range("a2:a100"))Range("B1") = x End Sub009. 不连续区域录入对勾Sub 批量录入对勾() Selection.FormulaR1C1 = "√" End Sub010. 不连续区域录入当前单元地址Sub 区域录入当前单元地址() For Each mycell In Selection mycell.FormulaR1C1 = mycell.Address Next End Sub011. 不连续区域录入当前数字日期Sub 区域录入当前数字日期() Selection.FormulaR1C1 = Format(Now(), "yyyymmdd") End Sub012. 不连续区域录入当前文件名Sub 批量录入当前文件名() Selection.FormulaR1C1 = End Sub013. 不连续区域录入当前日期Sub 区域录入当前日期() Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d") End Sub014. 不连续区域录入当前日期和时间Sub 区域录入当前日期和时间() Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d h:mm:ss") End Sub015. 不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址() For Each mycell In Selection mycell.FormulaR1C1 = "[" + + "]" + + "!" + mycell.Address Next End Sub016. 不连续区域插入文本Sub 批量插入文本() Dim s As Range For Each s In Selection s = "文本内容" & s Next End Sub017. 不连续区域添加文本Sub 批量添加文本() Dim s As Range For Each s In Selection s = s & "文本内容" Next End Sub018. 为当前选定的多单元插入指定名称Sub 为当前选定的多单元插入指定名称() = "临时" s.Add Name:="临时", RefersT o:=Selection ''或者换用这行代码也可以 End Sub019. 为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表() Sheet10.Protect Password:="123" End Sub020. 为指定工作表设置滚动范围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheet1.ScrollArea = "A1:M30" EndSub021. 从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容() Dim arr arr = Array("1", "2", "13", "25", "46", "12", "0", "20") [B2].Resize(8, 1) = Application.WorksheetFunction.Transpose(arr) End Sub022. 以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注() Dim r As Range If Selection.Cells.Count > 0 Then For Each r In Selection r.AddComment ment.Visible = False ment.Text Text:=[a1].T ext Next End If End Sub023. 以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表() Dim nm As String nm = [a1] Sheets.Add = nm End Sub024. 以当前日期为新文件名另存文件Sub 以当前日期为新文件名另存文件() ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyymmdd") & ".xls" End Sub025. 以当前日期和时间为新文件名另存文件Sub 以当前日期和时间为新文件名另存文件() ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & ".xls" End Sub026. 以指定区域为表目录补充新表Sub 以指定区域为表目录补充新表() Dim dic As Object, sh AsWorksheet Dim arr, item arr = Range("B1:BB1") Set dic = CreateObject("scripting.dictionary") For Each sh In ThisWorkbook.Worksheets dic.Add ,027. 以指定单元内容为新文件名另存文件Sub 以指定单元内容为新文件名另存文件() ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet1.[A1] End Sub028. 以本工作表名称另存文件到当前目录Sub 以本工作表名称另存文件到当前目录() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & & ".xls" End Sub029. 以活动工作表名称另存文件到Excel当前默认目录Sub 以活动工作表名称另存文件到Excel当前默认目录() ActiveWorkbook.SaveAs Filename:= & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=030. 使单元内容保持不变的工作表代码Private Sub Worksheet_Change(ByVal Target As Range) [B2] = "不可更改的数据" End Sub031. 保存并退出ExcelSub 保存并退出Excel() Application.SendKeys ("{ENTER}{ENTER}%fx") ActiveWorkbook.Save End Sub032. 保护工作表时取消选定锁定单元Sub 取消选定锁定单元() ActiveSheet.EnableSelection =xlUnlockedCells ''用于2000版 End Sub033. 光标定位到名称指定位置Sub 定位() Application.Goto Range(Evaluate("名称")) End Sub034. 光标定位到指定工作表A列最后数据行下一单元Sub 光标定位到指定工作表A列最后数据行下一单元() a = Sheets("数据库").[a65536].End(xlUp).Row Sheets("数据库").Select Range("A" & a + 1).Select End Sub035. 光标所在行上移一行Sub 光标所在行上移一行() Dim i% i = Split(ActiveCell.Address, "$")(2) If i > 1 Then Rows(i).Cut Rows(i - 1).Insert Shift:=xlDown End If End Sub036. 光标移动Sub 光标移动() ActiveCell.Offset(1, 2).Select ''向下移动1行，向右移动2列 End Sub037. 全选固定范围内小于0的单元Sub 全选固定范围内小于0的单元() Dim rng As Range Dim yvhf For Each rng In Range("d6: i18") If rng < 0 Then yvhf = yvhf & rng.Address & "," End If Next Range(Left(yvhf, Len(yvhf) - 1)).Select End Sub038. 全选选定范围内小于0的单元Sub 全选选定范围内小于0的单元() Dim rng As Range Dim yvhf For Each rng In Selection If rng < 0 Then yvhf = yvhf & rng.Address & "," End If Next Range(Left(yvhf, Len(yvhf) - 1)).Select End Sub039. 全部显示指定表的自动筛选Sub 全部显示指定表的自动筛选() If Sheet1.FilterMode = True Then Sheet1.ShowAllData End If End Sub040. 全部清除当前选择区域Sub 全部清除当前选择区域() Selection.Clear '' Range("A1:B10").Clear ''全部清除指定区域 End Sub041. 关闭文件时执行指定宏(工作簿代码)Private Sub Workbook_BeforeClose(Cancel As Boolean) 重排窗口 ''要执行的宏名称 End Sub042. 关闭文件时自动隐藏指定工作表(ThisWorkbook)Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Unprotect Sheets("Sheet2").Visible = False Sheets("Sheet3").Visible = False ActiveWorkbook.Protect Structure:=True, Windows:=Fal043. 分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表Sub 分离A列数据的文本和超链接并会同其他数据整理到指定表() ier = Worksheets("数据库").Range("b60000").End(xlUp).Row For ee = 5 To Range("a60000").End(xlUp).Row For Each hh In Worksheets("临时").Hyperlinks If hh.T extToDisplay =044. 分离临时表A列数据的文本和超链接并整理到数据库表Sub 分离A列中的超链接到指定表的B和C列() i = Worksheets("数据库").Range("b60000").End(xlUp).Row For Each h In Worksheets("临时").Hyperlinks Worksheets("数据库").Cells(i + 1, 2)= h.TextT oDisplay Worksheets("数据库").Cells(045. 删除A列为指定内容的行Sub 删除A列为指定内容的行() Dim a, b As Integer a = Sheet1.[a65536].End(xlUp).Row For b = a To 2 Step -1 If Cells(b, 1).Value = "删除" Then Rows(b).Delete End If Next End Sub046. 删除A列空行Sub 删除A列空行() Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub047. 删除A列非数字单元行Sub 删除A列非数字单元行() i = [a65536].End(xlUp).Row Range("A1:A" & i).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub048. 删除B列数据的超链接Sub 删除超链接() For Each Rng In Range("B3:B" & [B65536].End(xlUp).Row)Sheet1.Range(Rng.Address).Hyperlinks.Delete Next End Sub049. 删除全部名称Sub 删除全部名称() On Error Resume Next Dim l As Integer l = s.Count For i = l T o 1 Step -1 s(i).Delete Next End Sub050. 删除全部未选定工作表Sub 删除全部未选定工作表() Dim sht As Worksheet, n As Integer, iFlag As Boolean Dim ShtName() As String n =ActiveWindow.SelectedSheets.Count ReDim ShtName(1 To n) n = 1 For Each sht In ActiveWindow.Selec051. 删除包含固定文本单元的行或列Sub 删除包含固定文本单元的行或列() Do Cells.Find(what:="哈哈").Activate Selection.EntireRow.Delete ''删除行 '' Selection.EntireColumn.Delete ''删除列 Loop Until Cells.Find(what:="哈哈") Is Nothing End Sub052. 删除指定文件Sub 删除指定文件() Kill "E:\信件\1.xls" End Sub053. 删除指定行Sub 删除指定行() Workbooks("临时表").Sheets("表2").Range("5:5").Delete End Sub054. 判断指定文件是否已经打开Sub 判断指定文件是否已经打开() Dim x As Integer For x = 1 To Workbooks.Count If Workbooks(x).Name = "函数.xls" Then ''文件名称 MsgBox "文件已打开" Exit Sub End If Next MsgBox "文件未打开" End Sub055. 加数据有效限制Sub 加数据有效限制() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="******************".IgnoreBlank = False .InCellDropd056. 单元区域引用（工作表代码）Private Sub Worksheet_Activate()Sheet1.Range("A1:B3").Value = Sheet2.Range("A1:B3").Value End Sub057. 单元反选Sub 单元反选() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim raddress As String, taddress As String raddress = Selection.Address taddress = edRange.Address058. 单元格录入1位字符就跳转(工作表代码)Private Sub TextBox1_Change() If Len(Me.TextBox1.Text) <> 1 Then Exit Sub Me.TextBox1.Activate ActiveCell = Me.TextBox1.Text Me.TextBox1.Text = "" ActiveCell.Activate Application.SendKeys "~"059. 单元格录入数据时运行宏的代码Private Sub Worksheet_Change(ByVal Target As Range) 重排窗口 End Sub060. 去除指定范围内的对象Sub 去除指定范围内的对象() ??Dim p As Shape Set My = Worksheets("工作表名") For Each p In My.Shapes If Not Application.Intersect(p.T opLeftCell, Range("范围")) Is Nothing Then p.Delete Next061. 双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range("$A$1") = "关闭" Then Exit Sub Select Case T arget.Address Case "$A$4" Call 宏1 Cancel = True Case "$B$4"062. 双击单元隐藏该行（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Rows(Target.Row).Hidden = True End Sub063. 双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range("$A$1") = "关闭" Then Exit Sub If Not Application.Intersect(Target, Range("A4:A9", "C4:C9")) Is Nothing Then064. 双击指定单元，循环录入文本（工作表代码）Dim nums As Byte Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$1" Then nums = nums Mod 3 + 1 Target = Mid("上中下", nums, 1) T arget.Offse065. 反方向文本(自定义函数)Function zhyz(zhyz1 As Range) zhyz = StrReverse(zhyz1) End Function 将代码复制到模块后单元公式：=zhyz(单元格)066. 取消指定行或列的隐藏Sub 取消隐藏行() Rows("3:5").Select Selection.EntireRow.Hidden = False End Sub Sub 取消隐藏列() Columns("C:F").Select Selection.EntireColumn.Hidden = False End Sub067. 取消数据有效限制Sub 取消数据有效限制() WithSelection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = False .InCellDropdown = False .InputTitle =068. 取消自动筛选()Sub 取消自动筛选() ActiveSheet.AutoFilterMode = False End Sub069. 取消选定区域的公式只保留值(假空转真空)Sub 取消选定区域的公式只保留值() ?''?? Sheets("数据归并集中").Select ''指定工作表 ?''?? Columns("Q:R").Select ''指定范围 Selection.Value = Selection.Value End Sub070. 另存所有工作表为工作簿Sub 另存所有工作表为工作簿() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & "\" For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs ipath & & ".xls" ''(工作表名071. 另存指定文件名Sub 另存指定文件名() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\别名.xls" End Sub072. 另存本表为TXT文件Sub 另存本表为TXT文件() Dim s As String Dim FullName As String, rng As Range Application.ScreenUpdating = False FullName = ( & ".txt") ''以当前表名为TXT文件名 '' FullName = Replace(ThisWorkboo073. 右侧单元自动加5(工作表代码)Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Offset(0, 1) = T arget + 5 Application.EnableEvents = True End Sub074. 合并A1至C1的内容写到D15单元的批注中‘/dispbbs.asp?boardid=2&id=251887 northwolves版主 Sub 将A1至C1的内容写到D15单元的批注中() [iv1:iv12] = "=rc1 & "" ""& rc2 &"" ""& rc3" [d15].AddComment Join(Application.Transpose([iv1:i075. 合并各工作表内容Sub 合并各工作表内容() sp = InputBox("各表内容之间，间隔几行？不输则默认为0") If sp = "" Then sp = 0 End If st = InputBox("各表从第几行开始合并？不输则默认为2") If st = "" Then st = 2 End If Sheets(1).Select Sheets.Add If st076. 合并指定目录中所有文件中相同格式工作表的数据Sub 合并数据() ''合并指定目录中所有文件中相同格式工作表的数据 ''见/dispbbs.asp?boardid=1&replyid=900613&id=249319&page=1 &skin=0&Star=2帖11楼eq800的代码 Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i077. 回车光标向下Sub 录入光标向下() Application.MoveAfterReturnDirection = xlDown End Sub078. 回车光标向右Sub 录入光标向右() Application.MoveAfterReturnDirection =xlToRight End Sub079. 固定区域单元分类变色Sub 单元分类变色() Dim rng As Range For Each rng In Range("d6: i18") If rng < 0 Then rng.Interior.ColorIndex = 4 ''小于0的单元变绿底色 End If Next For Each rng In Range("d6: i18") If rng > 0 Then rng.080. 在A1返回当前选中单元格数量Sub 在A1返回当前选中单元格数量() [A1] = Selection.Count End Sub081. 在A列产生不重复随机数Sub 在A列产生不重复随机数() Randomize Timer Dim c(100) As Byte For i = 1 To 100 ''产生100个随机数 c(i) = i Next k = 100 Do While l < 100 r = Int(Rnd() * k) + 1 ''随机数的范围 aa = c(r) c(r) = c(k) c(k) = aa k =082. 在A和B列返回当前选区的名称和公式Sub 在A和B列返回当前选区的名称和公式() [a1].ListNames End Sub083. 在F1单元显示光标位置批注内容的代码Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = Selection.Address b = Range(a).NoteText Cells(1, 6) = b End Sub084. 在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）Private Sub Calendar1_Click() With Calendar1 ActiveCell= .Value .Visible = False End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 13 And Target085. 在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option Explicit Private Sub CommandButton1_Click() With CommandButton1 If .Caption = "宏1" Then Call 宏1 .Caption = "宏2" Exit Sub End If If .Caption = "宏2" Then Call 宏2 .Caption = "宏3" Exit S086. 在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click() With CommandButton1 If .Caption = "保护工作表" Then Call 保护工作表 .Caption = "取消工作表保护" Exit Sub End If If .Caption = "取消工作表保护" Then Call 取消工作表保护 .Caption = "保护工作表"087. 在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click() Static RunMacro As Integer Select Case RunMacro Case 0 宏1 RunMacro = 1 Case 1 宏2 RunMacro = 2 Case 2 宏3 RunMacro = 0 End Select End Sub088. 在当前工作组各表中分别执行指定宏''northwolves版主解答 /dispbbs.asp?boardid=2&id=251426&star=2#914934 Sub 在当前工作组各表中分别执行指定宏() Dim SH As Worksheet For Each SH In ActiveWindow.SelectedSheets SH.Activate 临时 N089. 在当前选区有条件替换数值为文本Sub 在当前选区有条件替换数值为文本() For Each r In Selection If r.Value > 18 And r.Value < 29.5 Then r.Value = "Y" Next End Sub090. 在所有工作表的A1单元返回顺序号Sub 在所有工作表的A1单元返回顺序号() For i = 1 T o Sheets.Count Sheets(i).Cells(1, 1) = "''" & Application.WorksheetFunction.Text(0 + i, "000") Next End Sub091. 在指定区域选择单元时数值加1（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect([a1:e10], Target) Is Nothing Then Target = Val(Target) + 1 End If End Sub092. 在指定单元记录打印和预览次数（工作簿代码）Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("A1") = 1 + Range("A1") End Sub093. 在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Worksheets("表2").Range("A1") = Target.Address(0, 0) End Sub094. 在有密码的工作表执行代码Sub 在有密码的工作表执行代码() Sheets("1").Unprotect Password:=123 ''假定表名为“1”，密码为“123”打开工作表 Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ''隐藏C列空值行 Sheets("1").Protect Password:=123095. 在目录表建立本工作簿中各表链接目录Sub 在目录表建立本工作簿中各表链接目录() Dim s%, Rng As Range On Error Resume Next Sheets("目录").Activate If Err = 0 Then Sheets("目录").UsedRange.Delete Else Sheets.Add = "目录" End If For i =096. 在第一个表前插入多工作表Sub 在第一个表前插入多工作表() Sheets(1).Select For I = 1 To 50 = "新表" & I Next End Sub097. 填公式Sub 填公式() Range("C2:C12").Value = "=SUM(A2:B2)" End Sub098. 处理导入的显示为科学计数法样式的身份证号Sub 处理导入的显示为科学计数法样式的身份证号() Selection.Value = Selection.Formula End Sub099. 复制单元数值Sub 复制数值() s = Workbooks("book1").Sheets("Sheet1").Range("A1:A2") Workbooks("book2").Sheets("Sheet1").Range("A1:A2") = s End Sub100. 复制单元格所在列Sub 复制单元格所在列() Selection.EntireColumn.Copy End Sub101. 复制单元格所在行Sub 复制单元格所在行() Selection.EntireRow.Copy End Sub102. 复制当前工作簿的报表到临时工作簿Sub 复制当前工作簿的报表到临时工作簿() ''作者：yuanzhuping 版主 Dim x As Integer Dim sht As Worksheet On Error Resume Next For x = 1 To Workbooks.Count If Workbooks(x).Name = "临时.xls" Then For Each sht In Workbook103. 奇偶页分别打印Sub 奇偶页分别打印() Dim i%, Ps% Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") ''总页数 MsgBox "现在打印奇数页,按确定开始." For i = 1 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i Next i MsgBox "现在打印偶数页,按确定开始." For104. 定义指定工作表标签颜色Sub 定义指定工作表标签颜色() Sheets("Sheet1").T ab.ColorIndex = 46 End Sub105. 定位数据及区域以上的空值Sub 定位数据及区域以上的空值() Dim aa As Range For Each a In edRange If a Like〈0 Then If aa Is Nothing Then Set aa = a.Cells Else Set aa = Union(aa, a.Cells) End If End If Next aa.Select106. 定位选定单元格式相同的全部单元格Sub 定位选定单元格式相同的全部单元格() Dim FirstCell As Range, FoundCell As Range Dim AllCells As Range With Application.FindFormat .Clear .NumberFormatLocal = Selection.NumberFormatLocal .HorizontalAlignment =107. 实现删去特定的行Sub test() For Each i In ThisWorkbook.Worksheets(1).range("E:E") If i.Value = "32766" Then Rows(i.Row).Delete End If Next i End Sub ''用的是第一张工作表，可以按需要改Worksheets(1)为指定的工作表。

c语言 宏嵌套的展开规则

c语言 宏嵌套的展开规则

c语言宏嵌套的展开规则宏是C语言中的一种机制，用于简化代码编写和重复使用。

宏嵌套是指在宏定义中使用其他宏。

宏嵌套的展开规则是指在预处理阶段，编译器对嵌套的宏进行展开的规则。

宏嵌套的展开规则可以分为两种情况：一种是宏嵌套的展开是有限的，另一种是宏嵌套的展开是无限的。

在有限的情况下，宏嵌套的展开是有限次数的。

当宏定义中没有嵌套其他宏或者宏的嵌套次数已经达到了一定限制时，宏嵌套的展开就会停止。

这个限制的次数是由编译器或者预处理器定义的，通常是几十次或者几百次。

在展开过程中，编译器会按照宏定义的顺序，逐一替换宏名为宏定义的内容，直到没有宏名需要替换为止。

而在无限的情况下，宏嵌套的展开是无限次数的。

这种情况下，宏定义中嵌套的宏会无限展开下去，直到编译器的展开次数达到限制或者编译器因为栈溢出而崩溃。

这种情况下，宏定义中的嵌套应该避免，否则会导致编译错误或者无法预测的结果。

在宏嵌套的展开过程中，还有一些特殊的规则需要注意。

首先，宏展开是按照宏定义的顺序进行的，所以如果宏定义中嵌套了其他宏，被嵌套的宏会先展开。

其次，宏展开不会考虑宏定义中的空格和换行符，所以在宏定义中可以使用空格和换行符来提高代码的可读性。

最后，宏展开是在预处理阶段进行的，所以宏展开的结果会作为编译器的输入，而不是宏定义。

在实际编程中，宏嵌套的展开规则需要注意一些问题。

首先，宏嵌套的展开可能会导致代码可读性降低，因为宏展开后的代码会变得冗长和复杂。

所以，在编写宏定义时需要尽量避免过多的嵌套，以提高代码的可读性和可维护性。

其次，宏嵌套的展开可能会导致代码的执行效率降低，因为宏展开后的代码会增加代码的长度和复杂度。

所以，在使用宏定义时需要权衡代码的可读性和执行效率，选择合适的宏定义方式。

最后，宏嵌套的展开可能会导致编译错误或者无法预测的结果，特别是在宏定义中嵌套了其他宏。

所以，在使用宏定义时需要仔细检查宏定义中是否存在嵌套，以避免潜在的问题。

宏嵌套的展开规则是编译器对嵌套的宏进行展开的规则。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

Excel的宏代码（可以使用5次，后自动销毁的代码***，设置完成后必须启用workboo以及open）
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 3 '限制使用3次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub
Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。

★提示：使用该方法也可以限制工作簿的使用时间。

相关文档
最新文档