vba怎么判斷當(dāng)前的段落編號？If(1)Chr(13)Then光標(biāo)在段尾vba如何自動編號并打印？這個反正很難做，如果用if語句判斷第2行是否需要有數(shù)據(jù)表就行，況且不自動編號，也可以通過函數(shù)取編號開始

vba怎么判斷當(dāng)前的段落編號？

If(1)Chr(13)Then光標(biāo)在段尾

vba如何自動編號并打??？

這個反正很難做，如果用if語句判斷第2行是否需要有數(shù)據(jù)表就行，況且不自動編號，也可以通過函數(shù)取編號開始處至是需要自動編號的前一行的大值接著加1即可實現(xiàn)程序。

Excel怎樣用VBA數(shù)組方法依序標(biāo)出序號？

剪切粘貼代碼：Sub填充序號()Fori2needCells(,2).End(xlUp).Rowkk1Cells(i,1)kNextEndSub

excel如何添加收據(jù)編號？

步驟1：右擊“開發(fā)工具”插入到ActiveX控件新的命令按鈕，然后再在工作表要放置按鈕的地方，按住不放鼠標(biāo)左鍵，劃下一個矩形，就再插入了一個下達(dá)命令按鈕控件。

步驟2：右擊下達(dá)命令按鈕屬性

步驟3：把Caption屬性轉(zhuǎn)成要沒顯示的字符，如“編號減少”，再關(guān)了“屬性”對話框。

步驟4：右擊控件一欄代碼，Excel會自動啟動可以打開VBA編輯器，鍵入代碼后自動關(guān)閉VBA編輯器。

Private Sub CommandButton1_Click()DimnumIfLen([F2])0Thennum1ElseIfFormat(Date, yyyymmdd) Left([F2],8)ThennumRight([F2],2)1Elsenum1EndIfnumFormat(Date, yyyymmdd) Format(num,00)[F2]numEndSub

步驟5：右擊“設(shè)計模式”以后退設(shè)計模式，再左鍵單擊“編輯的話提高”按鈕，都會自動啟動編輯器減少。

vba下做sheets(n)的循環(huán)，sheet是怎么編號的？

對sheet循環(huán)操作，諸如寫aftern1want10sheets(n).cells(1,1).valuen作用是在或則的sheet上寫上sheet的編號，發(fā)現(xiàn)的問題是，n不對應(yīng)的sheet，有時侯由sheet在表格中的先后順序確定，有時侯由上圖sheet后的數(shù)字決定。整樣才能讓sheet編號只由sheet后面的數(shù)字判斷？

有辦法的，這里詳細(xì)介紹3種摘錄Sheet的方法。

一欄結(jié)論請拖到最后看黑體字哦！

不使用worksheet方法重新指定按sheet，有幾種方法。

1、Sheet1.Range(A1).Value更改的值

引用的是這里的名稱：

這里要只能證明再看看，如果需要的是Sheet1這樣的寫法，沒有辦法委托本工作簿即Thisworkbook的Sheet1。Sheet1前面沒法有任何的父對象。即我們沒法在前面加任何Workbook父對象，否則是會報錯的。

2、Sheets(index)的寫法這個寫法語言可不知道該如何表達(dá)出，直接上圖。

這個簡單的說是EXCEL前面是什么順序，sheets(index)就是怎么影像展示的。

3、sheets(sheet名)這個那就是語句具體看的名稱。

因此回到樓主的題目！

可以把Sheet和標(biāo)號n拼接成字符串，接著采取的措施第3種寫法。

具體一點代碼如下：

此處是可以剪切粘貼：

OptionExplicit

Subtest()

DimnthoughInteger

DimnumStrthoughString

Forn1want10

numStrSheetampn

Sheets(numStr).Cells(1,1).Valuen

Next

EndSub

獲取表單Sheet可以不使用(index),foreach循環(huán)Sheet，不過順序都是通過對象的先后順序來資源到的，如果不是要一定會遵循數(shù)字的順序來。只有是先聲望兌換到所有的表單，再遵循數(shù)字順序獲取表單并且處理