不好意思，每次遇到for each in ....Next 這函數我就腦子花了..
起因：
我想利用該函數來找出目前工作簿中的特定名稱工作表，然後將其移至最左方
因對這函數的理解能力不足，以致怎麼寫都出錯，要嗎是什麼物件不支援..或什麼錯誤等..
所以想請教要怎麼才是正確的寫法？
明明感覺很簡單...就是搞不出來..哎
以上謝謝不吝指教的熱心大大.祝褔您
個人積分：309分
文章編號：87002758
個人積分：247分
文章編號：87004996
MaverickRay wrote:
不好意思，每次遇到for...(恕刪)
For each可以簡單理解為把一個集合物件或是陣列的元素(參數)放到我們指定的變數。
For each 變數 in 集合物件或是陣列
... '程式碼
Next
舉例：
Option Explicit
Public Sub Sheet_Move()
On Error GoTo Oops
Dim Excel_WrokSheet As Worksheet ’宣告變數
For Each Excel_WrokSheet In Application.ActiveWorkbook.Worksheets ’將執行中活頁簿的工作表陣列放入變數Excel_WrokSheet
MsgBox Excel_WrokSheet.Name ’顯示工作表的名稱
Next
Exit Sub
Oops:
MsgBox ("Error")
End Sub
有錯在請大大指正。
謝謝您^^ 祝您好運連連
