- 最後登錄
- 2024-4-21
- 在線時間
- 0 小時
- 註冊時間
- 2008-12-13
- 閱讀權限
- 20
- 精華
- 0
- UID
- 5463780
- 帖子
- 99
- 積分
- 92 點
- 潛水值
- 8918 米
| 成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。 想請教一下如果在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 = "不及格" ... |
|