寫一個另存新檔的巨集,但是需要.pdf file,那麼應怎改寫?
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
32#
發表於 2014-1-17 17:31
| 只看該作者
回復 Blade
是這樣嗎?
GBKEE 發表於 2014-1-17 06:52 
感謝版大的指教。
我想問問,(, 3)是甚麼意思?
範圍是A&B的選定,如果是A-F,那麼是否修改成(, 5....6),如此類推? |
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
33#
發表於 2014-1-17 18:33
| 只看該作者
Sheets("invoice").Range("L7")
另外想請教,以上的指令,是貼上 L7的,怎樣可設定無指向的指令? |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
34#
發表於 2014-1-17 19:37
| 只看該作者
回復 33# Blade
Selection.Resize(列數, 欄數).Copy Sheets("invoice").Range("L7")
省略 列數 =同Selection的列數
省略 欄數 =同Selection的欄數
你說:怎樣可設定無指向的指令
什麼是無指向說明一下 |
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
35#
發表於 2014-1-18 01:35
| 只看該作者
回復 Blade
Selection.Resize(列數, 欄數).Copy Sheets("invoice").Range("L7")
省略 列數 =同Selectio ...
GBKEE 發表於 2014-1-17 19:37 
感謝!
Selection.Resize 我完全明白了。:)
我見省略了是這様 Selection.Resize(, 3)
如果,我列和欄都省略,Selection.Resize(,)是否這様? |
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
36#
發表於 2014-1-18 01:47
| 只看該作者
本帖最後由 Blade 於 2014-1-18 01:50 編輯
先看看圖片。
我現在懂得用Selection.Resize。
我同様地在course那頁,都做了按鍵給每一個課程。
現我我懂了Selection.Resize,我會用相同指令去處理course那頁,但是copy到invoice,那裡我有5行資料。
如果我 Copy Sheets("invoice").Range("B13"),那麼每次我選course,都只能copy到 B13,另外那4行我應怎編寫指令呢?
Copy Sheets("invoice").Range("B13") 我應用甚麼指令呢? |
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
37#
發表於 2014-1-18 02:25
| 只看該作者
Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 13)
Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 1).Paste
Selection.Resize(, 13).Copy Sheets("invoice").Range("B13").Select |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
38#
發表於 2014-1-18 07:09
| 只看該作者
回復 35# Blade
我見省略了是這様 Selection.Resize(, 3)
如果,我列和欄都省略,Selection.Resize(,)是否這様?
那就不需用Resize,直接用Selection
36#的內容看不懂為何不直接上傳excel檔說明
37# Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 13)
2003會錯誤,要改成明確的位置如 [A5] , 另後面.Paste .Select 也會有錯誤,
你的版本可用嗎? |
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
39#
發表於 2014-1-18 11:13
| 只看該作者
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- OSX
- 軟體版本
- OSX
- 閱讀權限
- 10
- 註冊時間
- 2012-12-16
- 最後登錄
- 2014-2-7
|
40#
發表於 2014-1-21 19:14
| 只看該作者
本帖最後由 Blade 於 2014-1-21 19:16 編輯
當我選了,保護工作表,以下程式便會出錯誤。- Sub InvoiceNo()
- Dim xRNo As Range, i As Integer, y As Integer, R As Integer, RR As Integer
- Set xRNo = Range("Q2")
- 'Set xRNo = Range("D5")
- y = Len(xRNo) '[發票編號]的字串個數
- For i = 1 To y
- If R = 0 And Mid(xRNo, i, 1) Like "[0-9]" Then R = i '找[發票編號]中第一個數字
- If Mid(xRNo, i, 1) Like "[!0-9]" Then RR = i '找[發票編號]中最後的文字
- Next
- If RR > R Or R = 0 Or xRNo = 0 Then '數字在文字之前(或只有文字),只有數字
- MsgBox "【注意】收據編號出錯 !!!"
- Else
- xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))
- End If
-
- Range("Q2").Select
- 'Range("D5").Select
- Selection.Copy
- Range("D6").Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- With Selection.Font
- .ColorIndex = xlAutomatic
- .TintAndShade = 0
- End With
- Range("A4").Select
- '如 y - R + 1 = 5
- '如 :Format(568, String((y - R + 1), "0")) => Format(568, "00000") => 5位數: 00568
- End Sub
複製代碼 出錯誤的句子- xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))
複製代碼 |
|
|
|
|
|
|