返回列表 上一主題 發帖

[發問] worksheet_change 填滿問題

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-5-31 11:33 | 只看該作者

[發問] worksheet_change 填滿問題

我程式是在E欄到F欄的儲存格中輸入"0"顯示OK，輸入"1"為NG，但是如果我想要向下或向右拉填滿就會出錯，有人知道是哪裡出問題了嗎?
  1. Private Sub Worksheet_Change(ByVal Target As Excel.Range)

  3.     If Target.Column = 5 Then
  4.         ThisRow = Target.Row
  5.         If Target.Value = "0" Then
  6.             Range("E" & ThisRow).Value = "OK"
  7.         ElseIf Target.Value = "1" Then
  8.             Range("E" & ThisRow).Value = "NG"
  9.         Else
  10.         End If
  11.     End If
  12. '----------------------------------------------------
  13.     If Target.Column = 6 Then
  14.         ThisRow = Target.Row
  15.         If Target.Value = "0" Then
  16.             Range("F" & ThisRow).Value = "OK"
  17.         ElseIf Target.Value = "1" Then
  18.             Range("F" & ThisRow).Value = "NG"
  19.         Else
  20.         End If
  21.     End If
  22. '----------------------------------------------------
  23.     If Target.Column = 7 Then
  24.         ThisRow = Target.Row
  25.         If Target.Value = "0" Then
  26.             Range("G" & ThisRow).Value = "OK"
  27.         ElseIf Target.Value = "1" Then
  28.             Range("G" & ThisRow).Value = "NG"
  29.         Else
  30.         End If
  31.     End If
  32. '----------------------------------------------------
  33.     If Target.Column = 8 Then
  34.         ThisRow = Target.Row
  35.         If Target.Value = "0" Then
  36.             Range("H" & ThisRow).Value = "OK"
  37.         ElseIf Target.Value = "1" Then
  38.             Range("H" & ThisRow).Value = "NG"
  39.         Else
  40.         End If
  41.     End If
  42. '----------------------------------------------------
  43.     If Target.Column = 9 Then
  44.         ThisRow = Target.Row
  45.         If Target.Value = "0" Then
  46.             Range("I" & ThisRow).Value = "OK"
  47.         ElseIf Target.Value = "1" Then
  48.             Range("I" & ThisRow).Value = "NG"
  49.         Else
  50.         End If
  51.     End If
  52.    
  53. End Sub
複製代碼

製程檢查記錄表(路徑檔).rar (19.39 KB)
收藏 分享

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
3#
發表於 2019-6-3 14:35 | 只看該作者
回復 3# 准提部林
感謝版主解答~還幫忙簡化程式~謝謝

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
2#
發表於 2019-6-2 10:35 | 只看該作者
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim SelRng As Range
Set SelRng = Application.Intersect([E11:I36,E50:I74], Target)
If SelRng Is Nothing Then Exit Sub
If SelRng.Count > 1 Then Exit Sub
If SelRng & "" = "0" Then
   SelRng = "OK"
ElseIf SelRng & "" = "1" Then
   SelRng = "NG"
End If
End Sub


======================

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題