表格编程
① 关于EXCEL表格编程
用公式:
=INDEX(Sheet1!C5:G10,MATCH("综合厂用电量",Sheet1!A5:A10,),MATCH("本月",C4:G4,))
② Excel表格函数编程怎么编
函数编程?应该是自定义函数吧?下面为操作步骤:
1.Alt+F11,右键左上角空白处,插入模块
③ Excel也能编程吗就是那个表格程序。应该如何编程
既然你的平台是.net,那么Excel本身的宏命令编程肯定不适合你,无法与你列出的这些开发工具结合。如果要与之结合,只能选择一些类Excel电子表格或者能够解析Excel电子表格的开发工具。
这里推荐两个,Spread .NET和SpreadJS这两个都是专业的类Excel电子表格控件,嵌入系统之后,可以直接导入Excel在页面中并在系统中进行展示,而且附带各种Excel操作API。
两者的区别:
Spread .NET本身就是.NET平台下的控件,按照你提供的技术栈应该可以很容易上手使用。
SpreadJS是纯前端的版本,也可以跟你目前的技术结合起来,并且对移动端的支持更好一些。
④ excel表格中,单元格是否可以编程
肯定是可以的,
office本来都是可用来编程的,但是随着技术的发展,编程开发工具越来越方便,所以office的编程功能便不在……
⑤ 在EXCEL中如何编写程序
1、打开excel软件,点击左上角“文件”;
⑥ 每天用同样的步骤处理excel表格,能不能用简单的编程来完成
可以,制作个宏,就相当于把你所有的操作录下来,需要的时候点一下自动重复你做的所有操作。非常适合重复同样的工作。参考一下教程
网页链接
⑦ 制作表格哪种编程语言最容易入手
VFP
⑧ excel表格编程怎么写了!
如果D1<0,(70-D1)乘以多少?
如果A1<B1,或者B1<C1,让它怎么办呢?
⑨ 用电子表格编程
以下将要录制的宏非常简单,只是改变单元格颜色。请完成如下步骤: 1)打开新工作簿,确认其他工作簿已经关闭。 2)选择A1单元格。调出“常用”工具栏。 3)选择“工具”—“宏”—“录制新宏”。 4)输入“改变颜色”作为宏名替换默认宏名,单击确定,注意,此时状态栏中显示“录制”,特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。 ★ 宏名最多可为255个字符,并且必须以字母开始。其中可用的字符包括:字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。 5)选择“格式”的“单元格”,选择“图案”选项中的红色,单击“确定”。 6)单击“停止录制”工具栏按钮,结束宏录制过程。 ※ 如果“停止录制”工具栏开始并未出现,请选择“工具”—“宏”—“停止录制”。 录制完一个宏后就可以执行它了。 1.4 执行宏 当执行一个宏时,EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便,还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且,一旦熟悉了EXCEL的“遥控”,你都会奇怪自己在没有这些“遥控”的情况下,到底是怎么熬过来的。要执行刚才录制的宏,可以按以下步骤进行: 1)选择任何一个单元格,比如A3。 2)选择“工具”—“宏”—“宏”,显示“宏”对话框。 3)选择“改变颜色”,选择“执行”,则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域,然后再执行宏,以便加深印象。 1.5 查看录制的代码 到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧. 1)选择“工具”—“宏”—“宏”,显示“宏”对话框。 2)单击列表中的“改变颜色”,选择“编辑”按钮。 此时,会打开VBA的编辑器窗口(VBE)。关于该编辑器,以后再详细说明,先将注意力集中到显示的代码上。代码如下:(日期和姓名会有不同) Sub 改变颜色() ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 将来会十分熟悉这种代码,虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。 Sub 改变颜色():这是宏的名称。 中间的以“ '”开头的五行称为“注释”,它在录制宏时自动产生。 以With 开头到End With 结束的结构是With结构语句,这段语句是宏的主要部分。注意单词“selection”,它代表“突出显示的区域”(即:选定区域)。With Selection.Interior :它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。 其中: .ColorIndex = 3: 将该内部设为红色。注意:有一小圆点,它的作用在于简化语句,小圆点代替出现在With后的词,它是With结构的一部分。另外:红色被数字化为3.(红色警戒是否可称作:3号警戒,嗯?)有兴趣的话,你将3改为其他数字试试看。 .Pattern = xlSolid:设置该区域的内部图案。由于是录制宏,所以,虽然你并未设置这一项,宏仍然将其记录下来(因为在“图案”选项中有此一项,只是你为曾设置而已)。xlSolid表示纯色。 .PatternColorIndex = xlAutomatic:表示内部图案底纹颜色为自动配色。 End With:结束With 语句。 End Sub:整个宏的结束语 1.6 编辑录制的代码 在上一节,我们录制了一个宏并查看了代码,代码中有两句实际上并不起作用。哪两句?现在,在宏中作一个修改,删除多余行,直到和下面代码相同: Sub 改变颜色() ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 End With End Sub 完成后,在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行: Range("A5").Select 试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红. 现在可以看到,编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一:在录制中出错而不得不修改。二:录制的宏中有多余的语句需要删除,提高宏的运行速度。三:希望增加宏的功能。比如:加入判断或循环等无法录制的语句。
⑩ excel用VBA编程做表格
Subusa()
DimBoR,WokeR
DimWorkLike,Area,Weight,AllArea,AllWeight,AllBo
DimLikeID(),LikeIDst(),LikeIDwi()
ReDimLikeID(9)
LikeIDst()=Array(1,3,5,9,13,17,19,20,21,24)
LikeIDwi()=Array(2,2,2,4,4,2,1,1,3,3)
Forj=1To2
AllBo=0:AllArea=0:AllWeight=0
BoR=Sheets("编码").Cells(65536,j).End(3).Row
WorkLike=Left(Sheets("编码").Cells(1,j),2)
IfSheets(WorkLike&"生产计划单").[B65536].End(3).Row>5Then
Sheets(WorkLike&"生产计划单").Rows("6:"&Sheets(WorkLike&"生产计划单").[B65536].End(3).Row).Delete
EndIf
Sheets(WorkLike&"生产计划单").Range("A6:E6")=""
Fork=2ToBoR
WokeR=Sheets(WorkLike&"生产计划单").[B65536].End(3).Row+1
WithSheets("编码")
Fori=0ToUBound(LikeID())
LikeID(i)=Mid(.Cells(k,j),LikeIDst(i),LikeIDwi(i))
Next
EndWith
WithSheets(WorkLike&"生产计划单")
.[C4]=Format(Now(),"日期:yyyy年mm月dd日hh时mm分aaaa")
.Rows(WokeR).InsertShift:=xlDown
.Cells(WokeR,2)=Application.WorksheetFunction.VLookup(LikeID(1),Sheets("颜色").Range("A:B"),2,0)&""&_
LikeID(2)*1&"-"&LikeID(3)*1&"*"&LikeID(4)*1&"/"&LikeID(8)*1&""&_
Application.WorksheetFunction.VLookup(LikeID(5),Sheets("等级").Range("A:B"),2,0)&""&_
Application.WorksheetFunction.VLookup(LikeID(6),Sheets("包装").Range("A:B"),2,0)&_
"/"&Application.WorksheetFunction.VLookup(LikeID(7),Sheets("隔离层").Range("A:B"),2,0)
.Cells(WokeR,3)=LikeID(9)*1
AllBo=AllBo+LikeID(9)*1
Area=LikeID(3)/1000*LikeID(4)/1000
AllArea=AllArea+Area*LikeID(8)*LikeID(9)
Weight=LikeID(2)/1000*LikeID(3)/1000*LikeID(4)/1000*2.5
AllWeight=AllWeight+Weight*LikeID(8)*LikeID(9)
.Cells(WokeR+1,1)="合计:"
.Cells(WokeR+1,3)=AllBo
.Cells(WokeR+1,4)="合计:"&AllArea&"㎡净重"&Format(AllWeight,"0.00")&"吨"
EndWith
Next
Next
EndSub
等了一天一楼没有回答。一楼搞好了没?手痒。我先交了。
还有,我改了表格格式,看可以不?
再说了,你的厚度的哪个是不是圈错了,还是打错了。600MM的厚度。有生产这么厚的玻璃吗?
对了,考虑一个工厂发展与客户的要求,不只会生产这几个等级和规格等,我把他们分开表了,只要增加上内容就可以自动填写。
还有,能加分不。写得挺辛苦的。