寫一個另存新檔的巨集，但是需要.pdf file，那麼應怎改寫？

帖子: 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"))

複製代碼

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: OSX
軟體版本: OSX
閱讀權限: 10
註冊時間: 2012-12-16
最後登錄: 2014-2-7

39^#

發表於 2014-1-18 11:13 | 只看該作者

我的是2010

vba3.jpg (59.36 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

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 也會有錯誤,
你的版本可用嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 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