1樓：哲木子
你這個可以把你的a設定為輸入形式，你那個公司的編號列是多少，你那個a.value=後面的表達有問題，你可以寫成a.value=.cells(公司編號列) & now() & "編號"
2樓：
'注意：以下**必須放在「thisworkbook」的**視窗中
private sub workbook_beforeprint(cancel as boolean)
confirm = msgbox("自動更新單據編號？", vbyesnocancel)
if confirm = 2 then cancel = true: exit sub
if confirm= 6 then
with sheets("sheet1").range("g2")
.value = format(date, "暫定ayyyymmdd") & format(val(right(.value, 5)) + 1, "00000")
end with
end if
end sub
3樓：匿名使用者
首先在g2格輸入：【單據編號：a201200000】，為a+2012年+序號，注意不含【】且後面跟5個零。
接著在該thisworkbook 右邊視窗粘上下面的**：
把你的「單據編號：ry-20100000」單元格位置放在**
private sub workbook_beforeprint(cancel as boolean)
set a = sheets("sheet1").[g2]
confirm = msgbox("自動更新單據編號？", vbyesnocancel)
if confirm = 2 then cancel = true: exit sub
if confirm = 6 then
a.value = "單據編號：a2012" & worksheetfunction.text(right(a.value, 5) + 1, "00000")
end if
end sub
一切ok。
在excel中，單據編號怎樣自動更新？ 5
4樓：word辦公技能包
execl序號如何自動更新？
5樓：匿名使用者
private sub workbook_beforeprint(cancel as boolean)
[a1] = [a1] + 1
end sub
此vba的作用是每次列印前，a1的值加1 。缺點是所見非所得。
可自編乙個列印程式，列印後a1加1：
private sub my_print()print
[a1] = [a1] + 1
end sub
6樓：匿名使用者
複製出庫單到若干個工作表，並依次命名為1，2，3，。。。
出庫單編號的地方填
=mid(cell("filename"),find("]",cell("filename"))+1,len(cell("filename"))-find("]",cell("filename")))
列印所以工作表就可以了
怎樣在excel中自動生成單據編號 5
7樓：匿名使用者
for i = 1 to x 'x等於列印的單據的份數n=right(ry-20100000,len(ry-20100000)-3) '這裡取得單據編號的數字部分
n = n+1 '每迴圈一次就+1
no="ry-" & n 'no就是單據編號
next
當然了這個只是單據編號,應該還要寫入列印之類的**才能列印
8樓：
這個很簡單的。你只用打第乙個單據編號，然後用滑鼠左鍵單擊選定它，此時滑鼠箭頭為乙個空心的十字的，再指向所選框的右下角，滑鼠會變為乙個黑色的十字，此時按下左鍵不放，往下拖動（可能剛開始不習慣，建議多試幾次就可以了），拖動到你想要的行數，放開滑鼠，你會發現，下面所有的格仔都是第乙個格仔裡的編號，此時，用滑鼠指向你拖到的最後乙個格仔右下方，會有乙個小箭頭，你左鍵單擊它，會有幾個選項，選擇第二個--以序列方式填充，然後你會發現，剛才你拖的所有格仔的編號就不再是相同的了，變成了安順序的1、2、3、4、5、6。。。。。。 ：-）
9樓：
按alt+f11，左邊選 thisworkbook ,在右邊視窗粘上下面的**，
把你的「單據編號：ry-20100000」單元格位置放在**：
set a = sheets("sheet2").[a1]
在列印前就會詢問是否更新單據編號，回答"是"會更新編號，然後開啟列印對話方塊。回答"否"不會更新編號，可還會開啟列印對話方塊。回答"取消"會取消列印。
private sub workbook_beforeprint(cancel as boolean)
set a = sheets("sheet2").[a1]
confirm = msgbox("自動更新單據編號？", vbyesnocancel)
if confirm = 2 then cancel = true: exit sub
if confirm = 6 then
a.value = "單據編號：ry-201" & worksheetfunction.text(right(a.value, 5) + 1, "00000")
end if
end sub
excel 請教怎麼實現excel在列印時自動生成單據編號
在excel中列印的時候可以自動生成單據編號嗎
10樓：橙
我可以幫你實現在列印前增加。不過你的例子說的不明白，是從20100731變成20100801（即年月日）這樣的呢，還是7月份20100701、20100702、...20100756、20100757、....
到了8月份20100801、20100802、...20100835、20100836、（即年月加序號） 無論如何，操作如下： 同時按alt和f11進入巨集介面，在左上視窗找到本工作簿裡的thisworkbook，雙擊它，在右邊視窗貼上如下**：
private sub workbook_beforeprint(cancel as boolean) range(" f1 ") = format(cdate(format(range(" f1 "), "0000-00-00")) + 1, "yyyymmdd") end sub 這是第一種情況，假設單號在單元格f1，不是的話自己修改。另一種情況把中間那句話改為： if left(range("f1"), 6) = format(date, "yyyymm") then range("f1") = range("f1") + 1 else range("f1") = format(date, "yyyymm") * 100 + 1 end if
excel**想列印的時候，自動生成單據編號。
怎麼在excel中單元格中顯示出自動計算的標記背景顏色的單元格數值的和
在常規公式裡面沒有對單元格顏色的引用，對單元格顏色的操作只能用vba或者巨集表。建議你還是通過公式判斷，在資料上做區分。步驟如下 選中單元格,點選右鍵，選擇設定單元格格式。然後選擇 填充 選擇 圖案顏色 選擇顏色根據數值變化，並填寫顏色範圍 確定就行。請問你這些資料是在一列中嗎？你說你是先篩選的，篩...
EXCEL中怎樣設定在單元格中只能輸入規定的內容
選中你想的單元格 資料 有效性 序列 輸入男，女 注意逗號必需在英語輸入時的逗號！再點出錯提示，選 停止 輸入標題，比如，出錯了，輸入內容，比如出錯了，不可以輸入內容。就ok 了！如果輸入的不是男或女，出錯提示就會彈出來。假設你要a1單元格只能輸入 男或女。單擊該單元格 資料 資料有效性 自定義 輸...
怎樣在公式中相對引用單元格 絕對引用單元格？舉例說明
在excel中吧？在excel中引用單元格有3種型別 相對引用，絕對引用，混合引用 用來引用b1單元格的格式稱為相對位址。相對引用就是指在公式中引用乙個或多個相對位址的單元格。相對引用的形式是用字母表示列，用數字表示行，如在單元格e4中 c4 d4。當使用者想將公式不是建立在特定的單元格，而是建立在...
EXCEL中如何自動合併相同資料的單元格
1 首先開啟excel 選中除名稱列，點選資料 分類彙總。2 調出分類選框，點選名稱，確定。此刻資料已經被分類彙總。3 選中 按住f5或者ctrl g,點選定位條件，選擇空值。4 所有空值被選中，點選開始 合併後居中。5 再把分類彙總刪除掉，只保留合併專案。6 點選a列，格式刷，刷b列，直接自動合併...
excel中給單元格自動加批註的問題
sub test dim rng as range dim rng1 as range set rng1 range b2 f8 rng1.clearcomments for each rng in rng1 if rng then rng.addcomment rng.comment.visibl...