編程出表格

⑴ 關於EXCEL表格編程

用公式：
=INDEX(Sheet1!C5:G10,MATCH("綜合廠用電量",Sheet1!A5:A10,),MATCH("本月",C4:G4,))

⑵ 怎麼將資料庫數據編程Excel表格

主要步驟為：

• 創建表格

• 生成表頭（將列名生成出來）

• 在表格中插入數據

• 編寫一個瀏覽器下載這個表格的方法

一下為源碼

• public void downloadExcel(List<Object> list) throws IOException { if (list == null) { return;


• } else if (list.size() == 1) { return;


• } // 得到結果，生成Excel文件


• HSSFWorkbook hssfWorkbook = new HSSFWorkbook();


• HSSFSheet sheet = hssfWorkbook.createSheet("表格數據"); // 生成表頭


• HSSFRow headRow = sheet.createRow(0);


• headRow.createCell(0).setCellValue("表格列1");


• headRow.createCell(1).setCellValue("表格列2");


• headRow.createCell(2).setCellValue("表格列3");


• headRow.createCell(3).setCellValue("表格列4");


• headRow.createCell(4).setCellValue("表格列5");


• headRow.createCell(5).setCellValue("表格列6");


• headRow.createCell(6).setCellValue("表格列7"); // 將數據插入表中


• for (Object obj : list) {


• HSSFRow dataRow = sheet.createRow(sheet.getLastRowNum() + 1);


• dataRow.createCell(0).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(1).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(2).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(3).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(4).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(5).setCellValue("obj對象的對應列名屬性");


• dataRow.createCell(6).setCellValue("obj對象的對應列名屬性");


• } // 通過瀏覽器下載導出


• // 設置表頭信息


• ServletActionContext.getResponse().setContentType("application/vnd.ms-excel");


• String filename = "表格數據.xls";


• String agent = ServletActionContext.getRequest().getHeader("user-agent");


• filename = FileUtils.encodeDownloadFilename(filename, agent);


• ServletActionContext.getResponse().setHeader("Content-Disposition", "attachment;filename=" + filename);



• ServletOutputStream outputStream = ServletActionContext.getResponse().getOutputStream();


• hssfWorkbook.write(outputStream); // 關閉


• hssfWorkbook.close();


• }//下載瀏覽器識別工具類一個package com.echo.maven.utils;import java.io.IOException;import java.net.URLEncoder;import sun.misc.BASE64Encoder;public class FileUtils {


• /**


• * 下載文件時，針對不同瀏覽器，進行附件名的編碼


• *


• * @param filename


• * 下載文件名


• * @param agent


• * 客戶端瀏覽器


• * @return 編碼後的下載附件名


• * @throws IOException


• */


• public static String encodeDownloadFilename(String filename, String agent) throws IOException { if (agent.contains("Firefox")) { // 火狐瀏覽器


• filename = "=?UTF-8?B?"


• + new BASE64Encoder().encode(filename.getBytes("utf-8"))


• + "?=";


• filename = filename.replaceAll(" ", "");


• } else { // IE及其他瀏覽器


• filename = URLEncoder.encode(filename, "utf-8");


• filename = filename.replace("+"," ");


• } return filename;


• }


• }5767778798081828384

⑶ 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的厚度。有生產這么厚的玻璃嗎？

對了，考慮一個工廠發展與客戶的要求，不只會生產這幾個等級和規格等，我把他們分開表了，只要增加上內容就可以自動填寫。

還有，能加分不。寫得挺辛苦的。