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

頁: [1]

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格之後都用同樣的代碼來帶出不同的值，這樣程式該怎麼接續下去？！

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

sggleeee 發表於 2018-4-1 10:27 PM

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

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

底下為針對假設的代碼:
Private Sub CommandButton1_Click()

  Set Range1 = Union(Range("A1:B10"), Range("D1:D15"))
  Set Range2 = Range("B1:D10")

  Set isect = Application.Intersect(Range1, Range2)

  Me.Cells(2, 10) = isect.Count

  Dim cel As Range

  For Each cel In isect.Cells
Select Case cel.Value
Case 1
      cel.Value = "Excellent"
Case 2
      cel.Value = "Great"
Case 3
      cel.Value = "Good"
Case 4
      cel.Value = "Bad"
Case 5
      cel.Value = "Worse"
End Select
  Next

  isect.Select

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

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

頁: [1]

伊莉討論區's Archiver

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