option explicit
sub cmdgroup2()
' 判斷當前資料表是否為進銷存的銷售明細表
if range("a1") <> "進貨明細表" then
msgbox "當前資料表不是 《進貨明細表》 或者已經被修改，請確認！"
end '結束程式的執行
end if
' 新建乙個資料表,位於sheet1後面
if sheets(sheets.count).name = "料場入庫明細" then
msgbox "料場入庫明細 資料表已經存在，刪除後可重新建立"
endend if
sheets.add after:=sheets(1)
activeworkbook.activesheet.name = "料場入庫明細"
'合併後居中單元格
range("a1:n1").select
with selection
.horizontalalignment = xlcenter
.verticalalignment = xlbottom
end with
selection.merge
range("a1") = "材料入庫明細表"
'填寫表頭
range("a2") = "序號"
range("b2") = "入庫日期"
range("c2") = "紙質出庫單編號"
range("d2") = "採購網出庫單編號"
range("e2") = "物資編碼"
range("f2") = "物資名稱"
range("g2") = "單位"
range("h2") = "入庫數量"
range("i2") = "含稅單價"
range("j2") = "含稅金額"
range("k2") = "其它費用"
range("l2") = "**商"
range("m2") = "庫房名稱"
range("n2") = "備註"
'設定表頭格式
rows("1:1").rowheight = 22.5
range("a1:n1").font.size = 18
range("a2:n2").font.size = 14
range("a2:n2").font.bold = true
with range("a2:n2").interior
.pattern = xlsolid
.patterncolorindex = xlautomatic
.themecolor = xlthemecolorlight1
.tintandshade = 0.499984740745262
.patterntintandshade = 0
end with
with range("a2:n2").font
.themecolor = xlthemecolordark1
.tintandshade = 0
end with
'根據單元格的內容自動調整單元格大小
cells.entirecolumn.autofit
cells.entirerow.autofit
'檢視銷售明細表一共記錄了多少行
dim mitemcount as integer
mitemcount = activeworkbook.sheets(1).usedrange.rows.count
'需要的資料為第13行~mitemcount-1行，複製到對應的表中
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 2), activeworkbook.sheets(1).cells(mitemcount - 1, 2)).copy (activesheet.range("c3")) '單據編號
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 23), activeworkbook.sheets(1).cells(mitemcount - 1, 23)).copy (activesheet.range("b3")) '單據日期
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 6), activeworkbook.sheets(1).cells(mitemcount - 1, 6)).copy (activesheet.range("e3")) '物資編碼
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 4), activeworkbook.sheets(1).cells(mitemcount - 1, 4)).copy (activesheet.range("f3")) '名稱
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 10), activeworkbook.sheets(1).cells(mitemcount - 1, 10)).copy (activesheet.range("g3")) '單位
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 12), activeworkbook.sheets(1).cells(mitemcount - 1, 12)).copy (activesheet.range("h3")) '數量
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 14), activeworkbook.sheets(1).cells(mitemcount - 1, 14)).copy (activesheet.range("i3")) '單價
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 15), activeworkbook.sheets(1).cells(mitemcount - 1, 15)).copy (activesheet.range("j3")) '金額
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 20), activeworkbook.sheets(1).cells(mitemcount - 1, 20)).copy (activesheet.range("l3")) '來往單位
activeworkbook.sheets(1).range(activeworkbook.sheets(1).cells(13, 17), activeworkbook.sheets(1).cells(mitemcount - 1, 17)).copy (activesheet.range("m3")) '庫房名稱
'填寫序號
dim i as integer
for i = 3 to mitemcount - 11 step 1
cells(i, 1) = i - 2
next i
end sub
中燃料場報表生成器 出庫報表
從進銷存系統匯出的銷售明細表 一鍵 生成 出庫報表 v1.0版本 sub cmdgroup1 cmdgroup1 巨集 從進銷存到處的銷售明細表生成料場出庫報表 判斷當前資料表是否為進銷存的銷售明細表 if range a1 銷售明細表 then msgbox 當前資料表不是 銷售明細表 或者已經被...
SQL Server 2005中的報表生成器
報表生成器客戶端 報表生成器是一種由瀏覽器來部署的clickonce應用程式。使用者可以通過選擇報表布局模板來開始建立報表，這些模板包含預定義的資料區，如 矩陣表和圖表。接著使用者可以從模型中拖放報表項到設計介面，並可設定約束來過濾資料。報表生成器自動生成源查詢，檢索請求資料所需要的所有資訊都包含在...
自定義報表生成器點選鏈結型報表
點選鏈結型報表的外觀取決於所單擊的資料是標量值還是聚合值。baseentity 物件必須具有以下子型別 entityid 在報表生成器中，baseentity 為主實體。當使用者將第乙個實體 欄位或字段集拖至設計區域時，將首先確定主實體。根據新增到報表中的字段和實體的情況，主實體可能會有所更改。當使...