- 帖子
- 169
- 主題
- 41
- 精華
- 0
- 積分
- 219
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-31
- 最後登錄
- 2023-9-15
|
回復 3# bhsm
幫您修改了一下，請試試看這個版本：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
If Range("E4").Value = "B4" Then
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F9").Value
Case "C5"
Range("F5").Value = Range("F10").Value
Case "C6"
Range("F5").Value = Range("F11").Value
End Select
ElseIf Range("E4").Value = "B5" Then
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F12").Value
Case "C5"
Range("F5").Value = Range("F13").Value
Case "C6"
Range("F5").Value = Range("F14").Value
End Select
End If
End If
End Sub
主要的改動是將第一個 Select Case 改成 If...ElseIf...End If，因為您要根據 E4 的值來分別處理不同的情況。另外，您也可以考慮使用資料驗證功能來建立下拉式清單，這樣可能會更簡單一些。 |
|
發表於 2023-4-8 21:28
| 