- 最後登錄
- 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 = "不及格" ... |
|