public
a
as
string
, b
as
string
, c
as
string
, d
as
string
, e
as
string
, f
as
string
, g
as
string
'定義公共變數
public
h
as
string
, i
as
string
, j
as
string
, k
as
string
, l
as
string
, m
as
string
, lastrow
as
integer
sub
按鈕1_click()
sheets(
"sheet1"
).
select
'選擇sheet1工作表
lastrow = cells(rows.count, 1).
end
(xlup).row
'求出**內容的最後一行行號
for
x = 2
to
lastrow
'從第二行的內容開始 到最後一行
a = cells(x, 1)
'合同編號客戶名稱 將對應行的內容讀入變數中
b = cells(x, 2)
'合同編號 cells(x,2)的意思是第x行第2列的單元格內容
c = cells(x, 3)
'客戶名稱 a~m是變數,存放x行中各單元格的資料
d = cells(x, 4)
'區域經理
e = cells(x, 5)
'**商
f = cells(x, 6)
'函件單號
g = cells(x, 7)
'是否回函
h = cells(x, 8)
'合同總價
i = cells(x, 9)
'到款金額
j = cells(x, 10)
'合同餘款
k = cells(x, 11)
'截止開票金額
l = cells(x, 12)
'開票金額
m = cells(x, 13)
'求和項
sheets(
"列印"
).
select
'
cells(1, 1).
select
'
[j6] = a
'合同編號客戶名稱 將變數內容填入對應單元格的中
[j2] = b
'方括號中內容就是單元格名稱,如[j2]就是j2單元格
[k2] = c 』這裡僅作示範,請你根據變數的內容要填入列印**中的什麼地方你自行修改
[e3] = d
[c5] = e
[e5] = f
[f5] = g
[h5] = h
[j5] = i
[d7] = j
[e7] = k
[f7] = l
[g7] = m
activewindow.selectedsheets.printout copies:=1, collate:=
true
, ignoreprintareas:=
false
'列印指定範圍內容,列印乙份
next
'處理下一行
end
sub
列印及批量列印
開發十年,就只剩下這套架構體系了!總述 引入列印的js檔案,把需要列印的內容window.print 列印出來即可。注 print 可設定引數,如不需要列印的內容。列印 一 單頁列印 引入js和新增列印js 頁面新增列印按鈕 二 批量列印 思路 獲取到每個選中的核取方塊的值 如下圖 用get同步請求...
C 設定Excel列印選項及列印excel文件
c 設定excel列印選項及列印excel文件 列印excel文件是乙個很常見的操作,但有時候我們會碰到各種不同的列印需求,例如只列印乙個excel工作表的其中一部分,或列印時每頁都有表頭,或把工作表中超出1頁所有內容列印到1頁上等等,這時我們需要對excel的列印選項進行設定。這篇文章主要是分享如...
批量匯出Excel
控制層 獲取 資料 list orglist statisticalmanageservice.findjxmons params 新建 物件 excelobject s new excelobject 設定檔案路徑 s.setefilepath path 設定檔名稱 string fname 專案...