- 帖子
- 38
- 主題
- 18
- 精華
- 0
- 積分
- 115
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office xp
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-5-11
- 最後登錄
- 2015-9-29
|
簡化程式碼
請教各位，下列程式碼該如何簡化？謝謝！
If [B80] = 1 Then
Application.Run ("InsertOrder")
End If
If [B80] = 2 Then
Application.Run ("InsertOrder")
End If
If [B80] = 3 Then
Application.Run ("InsertOrder")
End If
If [B80] = 4 Then
Application.Run ("InsertOrder")
End If
If [B80] = 5 Then
Application.Run ("InsertOrder")
End If
If [B80] = 6 Then
Application.Run ("InsertOrder")
End If
If [B80] = 7 Then
Application.Run ("InsertOrder")
End If
If [B80] = 8 Then
Application.Run ("InsertOrder")
End If |
|
發表於 2010-5-24 04:07
| 
發表於 2010-5-24 08:50
| 