Excel列印sheet問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Excel列印sheet問題

返回列表下一主題上一主題發帖

Excel列印sheet問題

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2013-5-10 15:39 | 顯示全部帖子

請教先進，在列印excel欄位中，我目前要固定列印範圍分別為：(1)A欄 (2)A1:N7 (3)在sheet第10與11列則 ...
Mindyj 發表於 2013-5-10 11:27

Sub owge()
Dim kss As Integer
kss = 工作表1.Range("A10").CurrentRegion.Columns.Count
工作表2.Range("A1:N7").Value = 工作表1.Range("A1:N7").Value
工作表2.Range("A10:A11").Value = 工作表1.Range("A10:A11").Value
nn = 2
For bb = kss - 13 To kss
工作表2.Cells(10, nn) = 工作表1.Cells(10, bb)
工作表2.Cells(10, nn).NumberFormatLocal = "dd/mm/yy;@"
'=======
工作表2.Cells(11, nn) = 工作表1.Cells(11, bb)
nn = nn + 1
Next
工作表2.Select
Range("A1:O11").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$11"
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 對父母要知恩，感恩、報恩。

返回列表下一主題上一主題