1樓：20時13分14秒
sub rename
mydate = format(date, "[$-409]dd-mmm-yy;@") '得到美式的日期格式
mymonth = split(mydate, "-") 'split此日期格式，找到當前的月份的英語簡寫
myname = ucase(mymonth(1)) & ucase(mymonth(0)) & year(date) & "n" '你需要的格式
sheets(1).name = mynameend sub
2樓：
1為設定，2為恢復
sub macro1()
sheets("sheet1").selectsheets("sheet1").name = left(now(), 10) & "n"
end sub
sub macro2()
sheets(left(now(), 10) & "n").select
sheets(left(now(), 10) & "n").name = "sheet1"
end sub
3樓：匿名使用者
sub test()
sheets("sheet1").name = format(date, "mmmddyyyy")
end sub
vba公式中如何用變數表示工作表名稱和單元格名稱
4樓：表裡如一
你把excel**裡面的公式寫出來。
你這個用r1c1表示法裡面看不出來'3data'!r2c9:r579c9=rc3 裡面的rc3表示哪一個單元格。是沒法幫你改的。
而且這種表示法你用來攜程vba誰能一目瞭然的看明白？
用activecell.formula方法表示就好，又簡單，也能看明白。後續修改也簡單易行。
5樓：姓王的
主要問題是連線符 & 與變數間沒有空格。另外雙引號有的是中文引號。下面改好了
activecell.formular1c1 = "=sumproduct(('" & m & "data'!r2c1:
r" & drow & "c1=""02incoming"")*('" & m & "data'!r2c9:r" & drow & "c9=rc3)*('" & m & "data'!
r2c2:r" & drow & "c2))"
6樓：三井熊
&的前後各加一個空格試一下
如何批量修改vba excell物件的 sheet2，sheet3 ....為 sheet1 ,sheet2....
7樓：米寶麻麻
sheet1，sheet2……這些貌似不能改的，都是excel自動的。
請問樓主修改sheet編號的目的是什麼？也許還有其他途徑來達到相同的目的。
如果要針對某個sheet執行巨集，可以使用你自定義的sheet名稱，如「彙總」，「零首付」等。
**：thisworkbook.worksheets("彙總")
這樣不管sheet的標號怎麼變，都不會影響巨集的執行了。不知是否符合樓主的意思。
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
如何用vba在excel中自定義函式
我是來學習的，因為我不太清楚什麼是插值 什麼是直線 什麼是線性 我猜測直線插值，就是按比例插值 如果這裡猜測錯了，樓主就不用往下看了,但請指教 150焓值 266.36 132.43 200 100 150 100 132.43 199.395 自定義公式為 function forecastii ...
如何用VBA關閉EXCEL的列印預覽
這個問題只能用send key 來解決了 但是 在列印預覽視窗出現了之後，任何 都無法執行，這個問題不知道怎麼破，都不能執行了 只能手動退出了，誒，最簡單的做法就是使用 錄製巨集 功能，再去檢視巨集 具體就好了 這個問題我今天也遇到了 當然了現在已經是2020年了 我的解決辦法就是繞過這個列印預覽對...