三九宝宝网宝宝百科宝宝知识

Excel 2007 VBA代码编辑求教

02月06日 编辑 39baobao.com

[求教数控宏程序]#1=工件尺寸(解的初始值,相当于下刀点) #2=刀具半径(加数的初始值,相当于设置刀具半径补偿) N1 IF [#2 GT 10] GOTO 2(加工到尺寸超过10时,就转移到N2) #1=#1+#2 (计算解,相当于完成刀...+阅读

Sub 可儿()

Dim lngR As Long

'以下这一条适用于2007版,请根据需要启用其中一条

lngR = Range("B1048576").End(xlUp).Row

'以下这一条适用于2003版,请根据需要启用其中一条

'lngR = Range("B65536").End(xlUp).Row

Range("K:K").Font.ColorIndex = 13

Range("L:M").Font.ColorIndex = 5

Range("A3") = Range("A2")

Range("A2") = Range("A1")

Range("A1") = ""

Range("K7") = "=IF(VLOOKUP(B7,单价!A:E,5,FALSE)=0,"""",VLOOKUP(B7,单价!A:E,5,FALSE))"

Range(Cells(7, 11), Cells(lngR, 11)).FillDown

Range("L7") = "=VLOOKUP(B7,单价!A:D,4,FALSE)"

Range("M7") = "=H7*L7"

Range(Cells(7, 12), Cells(lngR, 13)).FillDown

Cells(lngR + 1, 13) = "=round(sum(M7:M" & lngR & "),2)"

End Sub

'不好意思,改了一下

以下为关联文档:

Excel关于VBA中IF多条件语句的用法虚心求教1、if语句的含义:if语句字面意思就是如果的意思,如果条件为真,那么就执行if语句里面的程序,这个程序,一般指then后面的,一个if语句可以没有end if,但绝对不能没有then,这一点是要注...

求教:PETS5高手请进全国英语等级考试第五级该考试的流程是2006 PETS5作文:该不该养宠物豿(20060624) Some argue that keeping dogs as pets can disturb the neighbors and dog shits make unsightly scenes. While others argue that...

怎么样使得excel表格打印出来是横版的就是我想横着编辑怎么弄啊在打印界面可以设置excel表格打印出来是横版的,首先在EXCEL中横向编辑好内容,填充好页面。具体操作请参照以下步骤。 1、首先在电脑上打开目标Excel表格文件,然后输入内容。 2...

求教无功功率自动补偿装置的工作原理安装方法及电脑无功功率自无功补偿的基本原理 一般在系统中所说的无功负载大部是感性无功负载,把具有容性功率负荷的装置与感性功率负荷并联接在同一电路,当感性无功负载吸收能量时,容性负载释放能量,而...

求教10道选择题二外法语一楼的回答完全正确,我来提供一下解释:1 être d'accord de faire quelque chose être d'accord avec quelqu'un2 dont=de+la Tour Eiffel.后面的照片从属于前面的铁塔,我们用...

考研英语真题翻译句子不懂谢谢求教doing almost anything else instead of XXX的意思是别的什么都干,就是不干XXX 这里的inevitable(不可避免的事)是指sit, stand up, or lie down to write,而不是sharpening pen...

求教新约圣经中的书信各章表达的中心意思各是什么在《新约》圣经中的书信主要是保罗写的,他写了很多。而腓利门书,歌罗西书,以弗所书和腓利比书被称为监狱书信。 1,《哥林多前书》是一本『问题专著』,因为保罗在书信中处理(『论到...

新人真心求教如何才能押韵合辙,押韵,不是一天就会达到的功力,需要慢慢积累。 大体上讲,辙韵有十三道,也就是十三大块板块的字词。每一个板块就是这一辙韵领域的专用字。一般的四句,八句诗词,中途不应该换辙...

新手开车求教并线怎么看后视镜问题第一,并线前要明确自己与后车之间有足够安全的距离;第二,并线时不应减速,起码是维持原有的速度。 判断自己与后车之间的距离有多远,必须依靠2个后视镜才能做出。有人压根儿就不知...

推荐阅读
图文推荐