從進銷存系統匯出的銷售明細表 一鍵 生成 出庫報表---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 為主實體。當使用者將第乙個實體 欄位或字段集拖至設計區域時,將首先確定主實體。根據新增到報表中的字段和實體的情況,主實體可能會有所更改。當使...