伊莉討論區

標題: 關於同樣代碼修改數值的問題？！ [打印本頁]

---

作者: nick43092000    時間: 2018-3-29 12:01 PM     標題: 關於同樣代碼修改數值的問題？！

想請教一下如果在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 = "不及格"
Case 5
rCell.Value = "靠邀"
End Select
Next
End Sub



因為他的範圍屬於A1～A50的儲存格～如果我想要在B格C格之後都用同樣的代碼來帶出不同的值，這樣程式該怎麼接續下去？！

---

作者: sggleeee    時間: 2018-4-1 10:27 PM

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

我假設樓主大大是想:
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

複製代碼

底下為執行前與執行後的畫面:
[attach]122835677[/attach]
[attach]122835679[/attach]

---

歡迎光臨 伊莉討論區 (http://a401.file-static.com/)

Powered by Discuz!