關於同樣代碼修改數值的問題？！

nick43092000

想請教一下如果在Excel裡面想要新增一個VBA，目前代碼如下：
Set rRng = Application.Intersect(Target, Range(" A1:A50"))
If rRng Is Nothing Then End
Dim rCell As Range
For Each rCell In rRng
Select Case rCell.Value
Case 1
rCell.Value = "優秀"
Case 2
rCell.Value = "良好"
Case 3
rCell.Value = "及格"
Case 4
rCell.Value = "不及格"
...

瀏覽完整內容，請先 註冊 或 登入會員

sggleeee

從樓主大大的問題描述.......很難理解樓主大大想問的問題是什麼.......

我假設樓主大大是想:
1. 從先兩個Range中找出重疊的儲存格
2. 檢查重疊的儲存格的值，然後填入檢查的結果

底下為針對假設的代碼:

1. Private Sub CommandButton1_Click()
   
2. 
   
3.   Set Range1 = Union(Range("A1:B10"), Range("D1:D15"))
   
4.   Set Range2 = Range("B1:D10")
   
5. 
   
6.   Set isect = Application.Intersect(Range1, Range2)
   
7. 
   
8.   Me.Cells(2, 10) = isect.Count
   
9. 
   
10.   Dim cel As Range
    
11. 
    
12.   For Each cel In isect.Cells
    
13.     Select Case cel.Value
    
14.     Case 1
    
15.          cel.Value = "Excellent"
    
16.     Case 2
    
17.         cel.Value = "Great"
    
18.     Case 3
    
19.         cel.Value = "Good"
    
20.     Case 4
    
21.         cel.Value = "Bad"
    
22.     Case 5
    
23.         cel.Value = "Worse"
    
24.     End Select
    
25.   Next
    
26. 
    
27.   isect.Select
    
28. 
    
29. End Sub

複製代碼

底下為執行前與執行後的畫面:

...

瀏覽完整內容，請先 註冊 或 登入會員