寫入原位

myleoyes

各位前輩你們好!
      前輩!範例
          練習!$N$5=8
          練習!$O$5=2
          練習!$P$5=7
      Sub 練習()
          ZZ = Application.InputBox("請不吝賜教!", "     請教前輩們!!", Type:=0)
          If ZZ = False Then Exit Sub  
          [$M$1] = ZZ
      End Sub   
          得到[$M$1]=[LeoV-67.xlsm]練習!$N$5+[LeoV-67.xlsm]練習!$O$5+[LeoV-67.xlsm]練習!$P$5
          需求[$M$1]=8+2+7這樣的型態
          不知程式為何?
          請不吝再賜教謝謝再三!!

myleoyes

回復 2# GBKEE
良師!謝謝!!Type:=8 只能單取無法複選之前有試過
           請麻煩再修改一下辛苦囉!謝謝再三!!

myleoyes

回復 4# GBKEE
良師!謝謝!!你可能誤解小弟所謂的複選      
           如附動畫檔所示!!
           請麻煩再修改一下辛苦囉!謝謝再三!!

myleoyes

回復 6# GBKEE
良師!謝謝!試過N次動畫檔就是按下Ctrl鍵複選的結果
        問題是Type:=8 只能接受單取無法複選才頭大
      其他的Type也試過[$M$1]沒有數字出現謝謝再三!!

myleoyes

回復 8# GBKEE
良師!小弟知錯..對不起我錯了!
     原本程式
     Sub 練習()
          If Sheet2.[I1] = 1 Then 練習1
          If Sheet2.[I1] = 2 Then 練習2
     End Sub
     Sub 練習1()'數字相加
         Dim ZZ
         ZZ = Application.InputBox("請不吝賜教!", "     請教前輩們!!", Type:=8 + 1)
         If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
         [$M$1] = ZZ
     End Sub
     Sub 練習2()'數字相減
         Dim ZZ
         ZZ = Application.InputBox("請不吝賜教!", "     請教前輩們!!", Type:=8)
         If ZZ <= 0 Then Sheet2.[I1] = 1: Exit Sub
         [$M$1] = ZZ
     End Sub
     而良師的程式為練習3
     但使終沒有被用到所以才會讓我覺得納悶
     附上檔案又習慣性的用+符號來解釋問題所在!!
     實在抱歉!!辛苦囉!謝謝再三!!

myleoyes

各位前輩你們好!!
         前輩!請同時開啟資料檔與甲檔再按鈕
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!
LeoV-68.rar (18.39 KB)

下載次數: 9

2013-4-25 22:12

myleoyes

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