返回列表 上一主題 發帖

合併程式問題

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 
5#
發表於 2014-9-5 05:44 | 只看該作者
回復 4# luhpro
luhpro thanks

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2014-9-4 22:34 | 只看該作者
回復  stillfish00
stillfish00對不起
應該是
     If ActiveSheet.Range("$q$5").Cells = "kk" Then
...
jim 發表於 2014-9-4 12:42

可以改成底下這樣 : (善用 With 可以少打很多字, 當條件超過兩個時, 可以考慮用 Select Case 函數, Run 是用在須傳回 Range 時, 必要時可以省略)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   
  3.   With Target
  4.     Select Case .Address(False, False)
  5.       Case "Q5"
  6.          Select Case .Value
  7.            
  8.            Case "kk"
  9.              NewA

  11.            Case "ka"
  12.              NewB
  13.          
  14.          End Select
  15.          
  16.       Case "F15"
  17.         If .Value <> [F14] Then PP1
  18.         
  19.     End Select
  20.   End With
  21. End Sub
複製代碼

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
3#
發表於 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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-9-4 11:32 | 只看該作者
回復 1# jim
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   Select Case Target.Address(False, False)
  3.   Case "Q5"
  4.     If Target.Value = "kk" Or Target.Value = "ka" Then Run "NewB"
  5.   Case "F15"
  6.     If Target.Value <> Range("F14").Value Then Run "PP1"
  7.   End Select
  8. End Sub
複製代碼

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題