返回列表 上一主題 發帖

合併程式問題

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-4 09:24 | 顯示全部帖子

合併程式問題

各位前輩  如下程式應如何合併才可執行  謝謝!
    Sub Worksheet_change(ByVal T As Range)
  A程式  
  If T.Address <> "$Q$5" Then Exit Sub
       If ActiveSheet.Range("$q$5").Cells = "kk" Then
          Run "NewB"
       ElseIf ActiveSheet.Range("$q$5").Cells = "ka" Then
          Run "NewB"
     Else
     End If

  B程式
    If T.Address <> "$F$15" Then Exit Sub
       If ActiveSheet.Range("$F$15").Cells <> ActiveSheet.Range("$F$14").Cells Then
          Run "PP1"
     End If
收藏 分享

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
2#
發表於 2014-9-4 12:42 | 顯示全部帖子
回復 2# stillfish00
stillfish00對不起
應該是
     If ActiveSheet.Range("$q$5").Cells = "kk" Then
          Run "NewA"
       ElseIf ActiveSheet.Range("$q$5").Cells = "ka" Then
          Run "NewB"
程式是否可以這樣寫  請指正
  If Target.Value="kk" then
     Run "NewA
ElseIf Target.Value="ka" then
  run "NewB"
else

End if

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
3#
發表於 2014-9-5 05:44 | 顯示全部帖子
回復 4# luhpro
luhpro thanks

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題