⑴ EXCEL用宏程序实现匹配
试试下面这个代码吧,在执行时,让数据表成为当前工作表。
代码会自动生成一个sh2工作表,并把最终结果显示在这个表中,第二次执行代码时,会删除已有sh2表,重新再生成。
Sub 匹配()
Dim a(1 To 20)
'注意:使原始数据所在表为当前表,再执行本代码
sh1 = ActiveSheet.Name
'如果找到sh2表,就删除
For i = 1 To Sheets.Count
If Sheets(i).Name = "sh2" Then Sheets(i).Delete: Exit For
Next
ActiveWorkbook.Worksheets.Add.Name = "sh2" '生成一个新表
x = 1
Sheets(sh1).Select
'在新表中排成一列
For i = 1 To 20
a(i) = Sheets(sh1).Cells(65536, i).End(xlUp).Row
Range(Cells(1, i), Cells(a(i), i)).Copy Sheets("sh2").Cells(x, 1)
x = x + a(i)
Next
'对新表使用高级筛选去掉重复项
Sheets("sh2").Select
Range("A1:A" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b1"), Unique:=True
'去掉第一行(只剩第一行重复)
Range("b2:b" & x).Cut Destination:=Range("b1")
'排序
Range("b1:b" & x).Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlNo
x = [b65536].End(xlUp).Row
For i = 1 To 20
For j = 1 To a(i)
For k = 1 To x
With Sheets(sh1)
If .Cells(j, i) = Cells(k, 2) Then Cells(k, i + 2) = .Cells(j, i)
End With
Next
Next
Next
'删除A与B列
Columns("A:B").Delete Shift:=xlToLeft
End Sub
已经调整过了
⑵ “宏程序”是什么意思
大家都在问宏程序~其实说起来宏就是用公式来加工零件的,比如说椭圆,如果没有宏的话,我们要逐点算出曲线上的点,然后慢慢来用直线逼近,如果是个光洁度要求很高的工件的话,那么需要计算很多的点,可是应用了宏后,我们把椭圆公式输入到系统中然后旦察段我们给出Z坐标并且每没蚂次加10um那么宏就会自动算出X坐标并且进行切削,实际上宏在程序中主要起到的是运算作用..宏一般分为A类宏和B类宏.A类宏是以G65 Hxx P#xx Q#xx R#xx的格式输入的,而B类宏程序则是 x0dx0a以直接的公式和语言输入的和C语言很相似在0i系统中应用比较广.由于现在B类宏程序的大量使 x0dx0a用很多书都进行了介绍这里我就不再重复了,但在一些老系统中,比如法兰克OTD系统中由于它的MDI键盘上没有公式符号,连最简单的等于号都没有,为此如果应用B类宏程序的话就只能在计算机上编好再通过RSN-32接口传输的数控系统中,可是如果我们没有PC机和RSN-32电缆的话怎么办呢,那么只有通过A类宏程序来进行宏程序编制了,下面我介绍一下A类宏的引用; x0dx0aA类宏是用G65 Hxx P#xx Q#xx R#xx或G65 Hxx P#xx Qxx Rxx格式输入的xx的意思就是数值,是以um级的量输入的,比如你输入100那就是0.1MM~~~~~.#xx就是变量号,关于变量号是什么意思再不知道的的话我也就没治了,不过还是教一下吧,变量号就是把数值代入到一个固定的模誉地址中,固定的地址就是变量,一般OTD系统中有#0~~~#100~#149~~~#500~#531关闭电源时变量#100~#149被初始化成“空”,而变量#500~#531保持数据.我们如果说#100=30那么现在#100地址内的数据就是30了,就是这么简单.好现在我来说一下H代码,大家可以看到A类宏的标准格式中#xx和xx都是数值,而G65表示使用A类宏,那么这个H就是要表示各个数值和变量号内的数值或者各个变量号内的数值与其他变量号内的数值之间要进行一个什么运算,可以说你了解了H代码A类宏程序你基本就可以应用了,好,现在说一下H代码的各个含义: x0dx0a以下都以#100和#101和#102,及数值10和20做为例子,应用的时候别把他们当格式就行, x0dx0a基本指令: x0dx0aH01赋值;格式:G65H01P#101Q#102:把#102内的数值赋予到#101中 x0dx0aG65H01P#101Q#10:把10赋予到#101中 x0dx0aH02加指令;格式G65 H02 P#101 Q#102 R#103,把#102的数值加上#103的数值赋予#101 x0dx0aG65 H02 P#101 Q#102 R10 x0dx0aG65 H02 P#101 Q10 R#103 x0dx0aG65 H02 P#101 Q10 R20 x0dx0a上面4个都是加指令的格式都是把Q后面的数值或变量号内的数值加上R后面的数 x0dx0a值或变量号内的数值然后等于到P后面的变量号中. x0dx0aH03减指令;格式G65 H03 P#101 Q#102 R#103,把#102的数值减去#103的数值赋予#101 x0dx0aG65 H03 P#101 Q#102 R10 x0dx0aG65 H03 P#101 Q10 R#103 x0dx0aG65 H03 P#101 Q20 R10 x0dx0a上面4个都是减指令的格式都是把Q后面的数值或变量号内的数值减去R后面的数 x0dx0a值或变量号内的数值然后等于到P后面的变量号中. x0dx0aH04乘指令;格式G65 H04 P#101 Q#102 R#103,把#102的数值乘上#103的数值赋予#101 x0dx0aG65 H04 P#101 Q#102 R10 x0dx0aG65 H04 P#101 Q10 R#103 x0dx0aG65 H04 P#101 Q20 R10 x0dx0a上面4个都是乘指令的格式都是把Q后面的数值或变量号内的数值乘上R后面的数 x0dx0a值或变量号内的数值然后等于到P后面的变量号中. x0dx0aH05除指令;格式G65 H05P#101 Q#102 R#103,把#102的数值除以#103的数值赋予#101 x0dx0aG65 H05 P#101 Q#102 R10 x0dx0aG65 H05 P#101 Q10 R#103 x0dx0aG65 H05 P#101 Q20 R10 x0dx0a上面4个都是除指令格式都是把Q后面的数值或变量号内的数值除以R后面的数 x0dx0a值或变量号内的数值然后等于到P后面的变量号中.(余数不存,除数如果为0的话会出现112报警) x0dx0a三角函数指令: x0dx0aH31 SIN正玄函数指令:格式G65 H31 P#101 Q#102 R#103;含义Q后面的#102是三角形的斜边R后面的#103内存的是角度.结果是#101=#102*SIN#103,也就是说可以直接用这个求出三角形的另 x0dx0a一条边长.和以前的指令一样Q和R后面也可以直接写数值. x0dx0aH32 COS余玄函数指令:格式G65 H32 #101 Q#102 R#103;含义Q后面的#102是三角形的斜边 x0dx0aR后面的#103内存的是角度.结果是#101=#102*COS#103,也就是说可以直接用这个求出三角形的 x0dx0a另一条边长.和以前的指令一样Q和R后面也可以直接写数值. x0dx0aH33和H34本来应该是TAN 和ATAN的可是经过我使用得数并不准确,希望有知道的人能够告诉我是为什么? x0dx0a开平方根指令: x0dx0aH21;格式G65 H21 P#101 Q#102 ;意思是把#102内的数值开了平方根然后存到#101中(这个指令是非常重要的如果在车椭圆的时候没有开平方跟的指令是没可能用宏做到的. x0dx0a无条件转移指令: x0dx0aH80;格式:G65 H80 P10 ;直接跳到第10程序段 x0dx0a有条件转移指令: x0dx0aH81 H82 H83 H84 H85 H86 ,分别是等于就转的H81;不等于就转的H82;小于就转的H83;大于就转的H84;小于等于就转的H85;大于等于就转的H86; x0dx0a格式:G65 H8x P10 Q#101 R#102;将#101内的数值和#102内的数值相比较,按上面的H8x的码带入H8x中去,如果条件符合就跳到第10程序段,如果不符合就继续执行下面的程序段. x0dx0a用 户 宏 程 序 x0dx0a能完成某一功能的一系列指令像子程序那样存入存储器,用一个总指令来它们,使用时只需给出这个总指令就能执行其功能。 x0dx0al 所存入的这一系列指令——用户宏程序 x0dx0al 调用宏程序的指令————宏指令 x0dx0al 特点:使用变量 x0dx0a一. 变量的表示和使用 x0dx0a(一) 变量表示x0dx0a#I(I=1,2,3,…)或#[<式子>] x0dx0a例:#5,#109,#501,#[#1+#2-12] x0dx0a(二) 变量的使用x0dx0a1. 地址字后面指定变量号或公式 x0dx0a格式:<地址字>#I x0dx0a<地址字>-#I x0dx0a<地址字>[<式子>] x0dx0a例:F#103,设#103=15则为F15 x0dx0aZ-#110,设#110=250则为Z-250 x0dx0aX[#24+#18*COS[#1]] x0dx0a2. 变量号可用变量代替 x0dx0a例:#[#30],设#30=3则为#3 x0dx0a3. 变量不能使用地址O,N,I x0dx0a例:下述方法下允许 x0dx0aO#1; x0dx0aI#26.00×100.0; x0dx0aN#3Z200.0; x0dx0a4. 变量号所对应的变量,对每个地址来说,都有具体数值范围 x0dx0a例:#30=1100时,则M#30是不允许的 x0dx0a5. #0为空变量,没有定义变量值的变量也是空变量 x0dx0a6. 变量值定义: x0dx0a程序定义时可省略小数点,例:#123=149 x0dx0aMDI键盘输一. 变量的种类 x0dx0a1. 局部变量#1~#33 x0dx0a一个在宏程序中局部使用的变量 x0dx0a例:A宏程序B宏程序 x0dx0a…… x0dx0a#10=20X#10不表示X20 x0dx0a…… x0dx0a断电后清空,调用宏程序时代入变量值 x0dx0a2. 公共变量#100~#149,#500~#531 x0dx0a各用户宏程序内公用的变量 x0dx0a例:上例中#10改用#100时,B宏程序中的 x0dx0aX#100表示X20 x0dx0a#100~#149断电后清空 x0dx0a#500~#531保持型变量(断电后不丢失) x0dx0a3. 系统变量 x0dx0a固定用途的变量,其值取决于系统的状态 x0dx0a例:#2001值为1号刀补X轴补偿值 x0dx0a#5221值为X轴G54工件原点偏置值 x0dx0a入时必须输入小数点,小数点省略时单位为μm x0dx0a一. 运算指令 x0dx0a运算式的右边可以是常数、变量、函数、式子 x0dx0a式中#j,#k也可为常量 x0dx0a式子右边为变量号、运算式 x0dx0a1. 定义 x0dx0a#I=#j x0dx0a2. 算术运算 x0dx0a#I=#j+#k x0dx0a#I=#j-#k x0dx0a#I=#j*#k x0dx0a#I=#j/#k x0dx0a3. 逻辑运算 x0dx0a#I=#JOK#k x0dx0a#I=#JXOK#k x0dx0a#I=#JAND#k x0dx0a4. 函数 x0dx0a#I=SIN[#j] 正弦 x0dx0a#I=COS[#j] 余弦 x0dx0a#I=TAN[#j] 正切 x0dx0a#I=ATAN[#j] 反正切 x0dx0a#I=SQRT[#j]平方根 x0dx0a#I=ABS[#j]绝对值 x0dx0a#I=ROUND[#j]四舍五入化整 x0dx0a#I=FIX[#j]上取整 x0dx0a#I=FUP[#j]下取整 x0dx0a#I=BIN[#j]BCD→BIN(二进制) x0dx0a#I=BCN[#j]BIN→BCD x0dx0a1. 说明 x0dx0a1) 角度单位为度 x0dx0a例:90度30分为90.5度 x0dx0a2) ATAN函数后的两个边长要用“1”隔开 x0dx0a例:#1=ATAN[1]/[-1]时,#1为了35.0 x0dx0a3) ROUND用于语句中的地址,按各地址的最小设定单位进行四舍五入 x0dx0a例:设#1=1.2345,#2=2.3456,设定单位1μm x0dx0aG91X-#1;X-1.235 x0dx0aX-#2F300;X-2.346 x0dx0aX[#1+#2];X3.580 x0dx0a未返回原处,应改为 x0dx0aX[ROUND[#1]+ROUND[#2]]; x0dx0a4) 取整后的绝对值比原值大为上取整,反之为下取整 x0dx0a例:设#1=1.2,#2=-1.2时 x0dx0a若#3=FUP[#1]时,则#3=2.0 x0dx0a若#3=FIX[#1]时,则#3=1.0 x0dx0a若#3=FUP[#2]时,则#3=-2.0 x0dx0a若#3=FIX[#2]时,则#3=-1.0 x0dx0a5) 指令函数时,可只写开头2个字母 x0dx0a例:ROUND→RO x0dx0aFIX→FI x0dx0a6) 优先级 x0dx0a函数→乘除(*,1,AND)→加减(+,-,OR,XOR) x0dx0a例:#1=#2+#3*SIN[#4]; x0dx0a7) 括号为中括号,最多5重,园括号用于注释语句 x0dx0a例:#1=SIN[[[#2+#3]*#4+#5]*#6];(3重) x0dx0a一. 转移与循环指令 x0dx0a1.无条件的转移 x0dx0a格式:GOTO1; x0dx0aGOTO#10; x0dx0a2.条件转移 x0dx0a格式:IF[<条件式>]GOTOn x0dx0a条件式: x0dx0a#jEQ#k 表示= x0dx0a#jNE#k 表示≠ x0dx0a#jGT#k 表示> x0dx0a#jLT#k 表示< x0dx0a#jGE#k 表示≥ x0dx0a#jLE#k 表示≤ x0dx0a例:IF[#1GT10]GOTO100; x0dx0a… x0dx0aN100G00691X10; x0dx0a例:求1到10之和 x0dx0aO9500; x0dx0a#1=0 x0dx0a#2=1 x0dx0aN1IF[#2GT10]GOTO2 x0dx0a#1=#1+#2; x0dx0a#2=#2+1; x0dx0aGOTO1 x0dx0aN2M301.循环 x0dx0a格式:WHILE[<条件式>]DOm;(m=1,2,3) x0dx0a… x0dx0a… x0dx0a… x0dx0aENDm x0dx0a说明:1.条件满足时,执行DOm到ENDm,则从DOm的程序段 x0dx0a不满足时,执行DOm到ENDm的程序段 x0dx0a2.省略WHILE语句只有DOm…ENDm,则从DOm到ENDm之间形成死循环 x0dx0a3.嵌套 x0dx0a4.EQNE时,空和“0”不同 x0dx0a其他条件下,空和“0”相同 x0dx0a例:求1到10之和 x0dx0aO0001; x0dx0a#1=0; x0dx0a#2=1; x0dx0aWHILE[#2LE10]DO1; x0dx0a#1=#1+#2; x0dx0a#2=#2+#1; x0dx0aEND1; x0dx0aM30;