GBKEE

回復 10# myleoyes

1. Sub 練習1() '加
   
2.     位移AZ
   
3. ag:
   
4.     Dim ZZ As Range, E As Range, M
   
5.     On Error Resume Next
   
6.     Set ZZ = Application.InputBox("請不吝賜教!", "     請教前輩們!!", "＄ 請點選AZ欄 ＄", Type:=8)
   
7.            If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
   
8.         For Each E In ZZ.Cells
   
9.               M = IIf(M = "", "=", M & "+") & IIf(E = "", "0", E)
   
10.        Next
    
11.        ThisWorkbook.Sheets("資料").[$M$1] = M
    
12. End Sub

複製代碼

甲檔如果換成乙檔就無法使用 -> 要如何決定使用 甲檔或乙檔

1. Sub 位移AZ()
   
2.     With Windows("甲檔.xls")
   
3.         .Activate
   
4.         .ScrollColumn = 52
   
5.         .ScrollRow = ActiveSheet.Range("AO" & Rows.Count).End(xlUp).Row
   
6.     End With
   
7. End Sub

複製代碼

myleoyes

回復 11# GBKEE
良師!謝謝!!
     要如何決定使用 甲檔或乙檔
     甲檔或乙檔是用手動方式開啟
     如開甲檔按鈕時位移AZ程式適用
     開乙檔按鈕時位移AZ程式也可以使用
     也就是說位移AZ程式適用任何被選取數據的檔案
     所以位移AZ程式不能用 With Windows("甲檔.xls")
     小弟想是否用如 OpenWork.Sheets("練習")
     這樣的想法良師是否明白?請再指導辛苦囉!謝謝再三!!