返回列表 上一主題 發帖

關於任何巨集如何加入迴圈呢

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-30 13:06 | 只看該作者

關於任何巨集如何加入迴圈呢

本帖最後由 starry1314 於 2015-4-30 13:14 編輯

想請問關於迴圈的插入
  1. Sub 巨集6()
  2. '
  3. ' 巨集6 巨集
  4. '

  6. '
  7.     Application.Run "'S-.xlsx'!巨集5"
  8.     Range("G72").Select
  9.     Application.Run "'S-.xlsx'!巨集5"
  10.     Range("G73").Select
  11.     Application.Run "'S-.xlsx'!巨集5"
  12. End Sub
複製代碼
目前需重複執行這動作答一千多次，請問要怎麼加入迴圈呢？

巨集５內容　作用：由目前點選位置至最左方定義名稱（以最左端當名稱）
  1. Sub 巨集5()
  2. '
  3. ' 巨集5 巨集
  4. '

  6. '
  7.     Range(Selection, Cells(ActiveCell.Row, 1)).Select
  8.     Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
  9.         False
  10. End Sub
複製代碼
收藏 分享

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
2#
發表於 2015-4-30 13:27 | 只看該作者
回復 1# starry1314
  1. Sub 巨集6()
  2. '
  3. ' 巨集6 巨集
  4. '

  6.    For i = 65 To 1500
  7.    While Sheets(1).Cells(i, 1) <> ""
  8.     Application.Run "'S-小餐單.xlsm'!巨集5"
  9.     Range("G72").Select
  10.     Application.Run "'S-小餐單.xlsm'!巨集5"
  11.     Range("G73").Select
  12.     Application.Run "'S-小餐單.xlsm'!巨集5"
  13.     i = i + 1
  14. Wend
  15. Next
  16. End Sub
複製代碼
目前變成會無限循環再Ｇ７２∼７３

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 2015-5-1 17:08 | 只看該作者
巨集5=依目前欄位一起選取至欄位最左方後自動定義明稱(依最左欄)
請問需要如何修改才能讓巨集6單純依序往下一欄在執行巨集5至我所要的欄位或次數呢

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
4#
發表於 2015-5-2 00:12 | 只看該作者
已解決
  1. Sub 自動定義名稱()
  2. For i = 8 To 40
  3.   Range(Selection, Cells(ActiveCell.Row, 1)).Select
  4.     Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
  5.         False
  6.                  ActiveCell.Offset(1, 0).Select  '從目前的儲存格往下移一格
  7.                    Range(Selection, Selection.End(xlToRight)).Select
  8.          Next
  9. End Sub
複製代碼

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題