1樓：匿名使用者
用工作薄open開啟事件,能實現你的要求,不過你所說的三個工作同時執行巨集那是不可能的.巨集在3個工作表執行時終有個先後順序吧.由於並不清楚你的工作薄中的工作表數目,如果只有3個,下面**能夠實現你的要求.
按alt+f11進入vbe視窗,在"工程資源管理器"視窗中雙擊"thisworkbook",在出現的**編輯區複製貼上以下**.
private sub workbook_open()
dim sht as worksheet, rng as range
for each sht in worksheets
for each rng in sht.range("a1", sht.[a65536].end(3))
rng(1, 2) = rng + 14
next
next
end sub
如果工作薄中工作表數目為4 用以下**:
private sub workbook_open()
dim sht as worksheet, rng as range
for each sht in worksheets
if sht.name <> "工作表1" then '此處工作表名稱"工作表1"自己更改
for each rng in sht.range("a1", sht.[a65536].end(3))
rng(1, 2) = rng + 14
next
end if
next
end sub
下面**無論你有多少個工作表都能實現你的要求:
private sub workbook_open()
dim sht as worksheet, rng as range, arr, i%
arr = array("日期一", "日期二", "日期三")
for i = 0 to ubound(arr)
for each sht in worksheets
if sht.name = arr(i) then
for each rng in sht.range("a1", sht.[a65536].end(3))
rng(1, 2) = rng + 14
next
end if
next
next i
end sub
2樓：匿名使用者
給你個簡單的：
private sub workbook_open()
for i =2 to 11
sheets(1).cells(i,2)=sheets(1).cells(i,1)+14
sheets(2).cells(i,2)=sheets(2).cells(i,1)+14
sheets(3).cells(i,2)=sheets(3).cells(i,1)+14
next
end sub
程式註解：
開啟工作簿執行**
定義變數i為1到10迴圈
集合工作表1的第2列i單元格（2到11單元格）等於第一列的2到11單元格加14天
集合工作表2的第2列i單元格（2到11單元格）等於第一列的2到11單元格加14天
集合工作表3的第2列i單元格（2到11單元格）等於第一列的2到11單元格加14天
退出迴圈
結束程式
注：2010-1-1加14即等於2010-1-15
二樓用了陣列。我感覺沒有必要，因為程式非常簡單不應複雜化，也沒有必要用if
直接了當解決完事，就三個表 直接集合工作表1、2、3就得了
3樓：匿名使用者
2樓的方法過複雜,不利於初學者,
觀筆者之問題,筆者應為中下級學者.可能不能盡用二樓的大做.
看我的簡單辦法.
新建表,名為"資料表",輸入你要用的資料.比如.2010-01-01在其它三表中.分別引用此表之資料,只要資料表中的日期一更新,其它三表中的日期也會更新.
此為在程式設計中自制函式或引用,用來節省**的妙法.
二樓以為如何.
如何將excel工作簿中所有工作表一次性執行同一個巨集？ 5
4樓：海天盛
1.在電腦裡找到要列印的**。
2. 開啟表單列印，您將在工作簿中發現幾個表單。
3.點開工作薄抄中的任意一個**。
4.右擊下方的單元格1，找到「選定全部工作表知」並點選。
5.在表的左上角找到office按鈕。
6.點選office按鈕，找到「列印」，選擇「列印」。
7.點選列印，將出現「列印內容」介面，選擇ok。
5樓：愚人談娛樂
1、在電腦裡面找到需要列印的**
2、開啟需要列印的**會發現工作簿裡面有好幾個**3、點開工作薄中的任意一個**
4、右擊下方的單元格1，找到「選定全部工作表」並點選5、找到**左上方的office按鈕
6、點選office按鈕，找到「列印」，選擇「列印」
7、點選列印，出現一個「列印內容」的介面，選擇確定就可以了
6樓：匿名使用者
一種辦法：選中所有**，再錄製巨集。
另一種辦法：最簡單的辦法是用vba修改巨集，列舉每一張表，執行相同的操作步驟。
7樓：匿名使用者
說明你寫的巨集不行，應該加個迴圈就自動把所有表執行一遍了。。。
8樓：創作者
選中所有的sheet，在其中一箇中進行操作，相當於同時在所有的sheet裡進行了同樣的操作。
excel 求使多個工作表自動執行的巨集
9樓：匿名使用者
你那是有很多個工作簿，將每個工作簿內都複製一個巨集就行了，每次開啟時就會自動執行巨集(巨集設定允許執行)
10樓：匿名使用者
所有的工作表自動執行？？？
不太明白你意思，與sheeta..sheetb.....有關嗎？
可以使同一個資料夾內的工作表開啟，是可行的，假如你的工作表全部放於d:\所有表\，用一個按鈕全部開啟，我寫給你，你拿去用：
private sub commandbutton1_click()adr = "d:\所有表\"
dim xlsfile as stringxlsfile = replace(dir(adr & "\*.xls"), ".xls", "")
doif instr(1, xlsfile, "a") = 0 then
workbooks.open filename:=adr & xlsfile
end if
xlsfile = replace(dir, ".xls", "")loop until len(xlsfile) = 0end sub
11樓：營闊稱映真
可以看一下sumif這個函式能不能實現你的要求
12樓：匿名使用者
不明白 自動執行的含義.. 是不是每個工作表都能使用的意思那?
那儲存巨集的時候儲存到個人巨集工作薄就行了
在excel中，一個工作薄預設開啟三個工作表。若增加工作表，其快捷鍵為？
13樓：匿名使用者
點選工作表標籤右側「+」新工作表按鈕，生成新工作表。
14樓：匿名使用者
這個的話你可以在excel選項裡面進行設定的，可以再多一點的，快捷鍵好像是ctrl+n的
15樓：匿名使用者
alt+shift+f1
excel 中，在一個工作薄中，怎麼同時對多個工作表進行操作。
16樓：匿名使用者
按住shift點開始的表名再點最後一個表名形成工作組就可以了
如何將excel工作簿中所有工作表一次性執行同一個巨集或模組？
17樓：鵬鵬
一種辦法：選中所有**，再錄製巨集。
另一種辦法：最簡單的辦法是用vba修改巨集，列舉每一張表，執行相同的操作步驟。
18樓：
兩個都是可以實現的。
第一個，如果每個表是順序建立的，從表一紅分析到三十紅分析可用worksheet(1) 到(30)代替。
利用for迴圈解決。
如果不是，則需要把i帶入表的名稱，如 i & "紅分析"，再利用for解決。
工作簿，則需將其放在一個資料夾，數字順序命名。迴圈開啟，再執行上述巨集。
另外建議簡化**。相同的字首加with 僅數字不同的用for
excel中 開啟工作薄的每個工作表都自動執行一個巨集的多個模式?
19樓：匿名使用者
我的思路是這樣的：
每個工作表都可以定義一個區域，把區域的名稱改成頁的名稱然後在巨集裡面設定列印區域為當前啟用頁的名稱即可列印設定該區域
在excel 中 一個工作薄預設開啟三個工作表 若需增加工作表 其快捷鍵為 什麼
20樓：匿名使用者
shift +f11
如何把excel中工作薄匯入到外excel檔案中
1.用滑鼠右鍵點你要移動的工作薄的標籤 一般在左下方，就是工作薄的名字，沒改過的話就是sheet1 sheet2那樣的，改過的話就是你要移動的工作表的名字 2.彈出選單中選擇 移動或複製工作表 3.在新出來的小對話方塊，上部 將選定工作表移至 那裡選擇你要移動的目的地excel檔案。那個檔案必須是開...
如何將excel裡同工作薄中多個工作表的資料彙總在工作表中
如圖a列為員工姓名，1行為工作表名稱 b2 iferror vlookup a2,evaluate b 1 a b 2,0 然後橫拉豎拉，可以把所以子表中a列於彙總表的姓名想匹配的對應b列資料引用 然後你再用sumif公式彙總到你的彙總表裡面就可以了 建議每天的工作表的姓名完全一樣，沒有銷售記錄的填...
雞蛋中這個白的是什麼，雞蛋開啟以後裡面有白色的 那是什麼東西
這個是雞蛋的臍帶，表明這個雞蛋已經受精，並且開始孕育，如果加以時間，是可以孵化出小雞的。可以食用，對人體無害。這解釋真是的，說中問題了嗎？籠養雞舍裡沒有公雞，母雞下的雞蛋裡也有這團白色絮狀物，又是怎麼回事？雞蛋黃和雞蛋白相比，雞蛋黃的營養價值更加豐富。蛋黃中含有大量的維生素a 維生素b 維生素c和維...