返回列表 上一主題 發帖

[發問] 簡化重複的 for each ... in

[發問] 簡化重複的 for each ... in

請問要怎樣簡化下面這段程式嗎????
  1. For Each Abar In Application.CommandBars
  2.         If Not Abar.BuiltIn Then Abar.Delete
  3.     Next

  4.     For Each Bbar In Application.CommandBars
  5.         If Not Bbar.BuiltIn Then Bbar.Delete
  6.     Next

  7.     For Each Cbar In Application.CommandBars
  8.         If Not Cbar.BuiltIn Then Cbar.Delete
  9.     Next

  10.     For Each Dbar In Application.CommandBars
  11.         If Not Dbar.BuiltIn Then Dbar.Delete
  12.     Next

  13.     For Each Ebar In Application.CommandBars
  14.         If Not Ebar.BuiltIn Then Ebar.Delete
  15.     Next

  16.     For Each Fbar In Application.CommandBars
  17.         If Not Fbar.BuiltIn Then Fbar.Delete
  18.     Next
複製代碼

回復 1# s13030029
用陣列的方式,已解決~~~
    bbar = Array(bar1, bar2, bar3, bar4, bar5, bar6)
    For Each bbar In Application.CommandBars
        If Not bbar.BuiltIn Then bbar.Delete
    Next

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題