中燃料場報表生成器 出庫報表

2021-08-29 03:57:43 字數 3020 閱讀 7503

從進銷存系統匯出的銷售明細表 一鍵 生成 出庫報表---v1.0版本

sub cmdgroup1()

'' cmdgroup1 巨集

' 從進銷存到處的銷售明細表生成料場出庫報表

'' 判斷當前資料表是否為進銷存的銷售明細表

if range("a1") <> "銷售明細表" then

msgbox "當前資料表不是 《銷售明細表》 或者已經被修改,請確認!"

end '結束程式的執行

end if

' 新建乙個資料表,位於sheet1後面

sheets.add after:=sheets(1)

thisworkbook.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 = sheet1.usedrange.rows.count

'需要的資料為第10行~mitemcount-1行,複製到對應的表中

sheet1.range(sheet1.cells(10, 2), sheet1.cells(mitemcount - 1, 2)).copy (activesheet.range("c3")) '單據編號

sheet1.range(sheet1.cells(10, 3), sheet1.cells(mitemcount - 1, 3)).copy (activesheet.range("b3")) '單據日期

sheet1.range(sheet1.cells(10, 8), sheet1.cells(mitemcount - 1, 8)).copy (activesheet.range("e3")) '物資編碼

sheet1.range(sheet1.cells(10, 9), sheet1.cells(mitemcount - 1, 9)).copy (activesheet.range("f3")) '名稱

sheet1.range(sheet1.cells(10, 16), sheet1.cells(mitemcount - 1, 16)).copy (activesheet.range("g3")) '單位

sheet1.range(sheet1.cells(10, 17), sheet1.cells(mitemcount - 1, 17)).copy (activesheet.range("h3")) '數量

sheet1.range(sheet1.cells(10, 19), sheet1.cells(mitemcount - 1, 19)).copy (activesheet.range("i3")) '單價

sheet1.range(sheet1.cells(10, 20), sheet1.cells(mitemcount - 1, 20)).copy (activesheet.range("j3")) '金額

sheet1.range(sheet1.cells(10, 5), sheet1.cells(mitemcount - 1, 5)).copy (activesheet.range("l3")) '來往單位

sheet1.range(sheet1.cells(10, 7), sheet1.cells(mitemcount - 1, 7)).copy (activesheet.range("m3")) '庫房名稱

'填寫序號

dim i as integer

for i = 3 to mitemcount - 8 step 1

cells(i, 1) = i - 2

next i

end sub

中燃料場報表生成器 入庫報表

option explicit sub cmdgroup2 判斷當前資料表是否為進銷存的銷售明細表 if range a1 進貨明細表 then msgbox 當前資料表不是 進貨明細表 或者已經被修改,請確認!end 結束程式的執行 end if 新建乙個資料表,位於sheet1後面 if she...

SQL Server 2005中的報表生成器

報表生成器客戶端 報表生成器是一種由瀏覽器來部署的clickonce應用程式。使用者可以通過選擇報表布局模板來開始建立報表,這些模板包含預定義的資料區,如 矩陣表和圖表。接著使用者可以從模型中拖放報表項到設計介面,並可設定約束來過濾資料。報表生成器自動生成源查詢,檢索請求資料所需要的所有資訊都包含在...

自定義報表生成器點選鏈結型報表

點選鏈結型報表的外觀取決於所單擊的資料是標量值還是聚合值。baseentity 物件必須具有以下子型別 entityid 在報表生成器中,baseentity 為主實體。當使用者將第乙個實體 欄位或字段集拖至設計區域時,將首先確定主實體。根據新增到報表中的字段和實體的情況,主實體可能會有所更改。當使...