表格編程
① 關於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的厚度。有生產這么厚的玻璃嗎?
對了,考慮一個工廠發展與客戶的要求,不只會生產這幾個等級和規格等,我把他們分開表了,只要增加上內容就可以自動填寫。
還有,能加分不。寫得挺辛苦的。