VBA合併縮減內容 - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

0

VBA合併縮減內容

excel vba

longtimetalk 2021-05-04 23:52:29 ‧ 788 瀏覽

分享至

分兩段是因為不曉得如何讓 1 To 10 執行完成，才跳出訊息視窗，請求縮減內容謝謝

Sub Test()
For aq = 1 To 10
        If Cells(aq, 1) > 1 Then
            Cells(aq, 1).Interior.Color = RGB(255, 255, 0)
        End If
Next

For aq = 1 To 10
        If Cells(aq, 1).Interior.Color = RGB(255, 255, 0) Then
            MsgBox "超過數量"
            End
        End If
Next
End Sub

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

2 個回答

1

rogeryao

iT邦超人 7 級 ‧ 2021-05-05 06:51:43

最佳解答

Sub Test()
Dim u As Integer
u = 0
For aq = 1 To 10
  If Cells(aq, 1) > 1 Then
      Cells(aq, 1).Interior.Color = RGB(255, 255, 0)
      u = 1
  End If
Next

If u > 0 Then
    MsgBox "超過數量"
End If
End Sub

回應 1
分享
檢舉

longtimetalk iT邦新手 5 級 ‧ 2021-05-05 23:07:02 檢舉

非常感謝，你的回答對我很有幫助

登入發表回應

0

blanksoul12

iT邦研究生 5 級 ‧ 2021-05-05 11:09:06

For aq = 1 To 10
If Cells(aq, 1) > 1 Then
Cells(aq, 1).Interior.Color = RGB(255, 255, 0)
End If
Next
MsgBox "超過數量"

回應 3
分享
檢舉

小魚 iT邦大師 1 級 ‧ 2021-05-05 12:38:19 檢舉

你沒有判斷啊..

blanksoul12 iT邦研究生 5 級 ‧ 2021-05-05 14:53:42 檢舉

行完 for next 跳出後 aq 已經大過10

longtimetalk iT邦新手 5 級 ‧ 2021-05-05 23:04:44 檢舉

沒有判斷是指，即使數值沒有大於1，還是會跳出超過數量的訊息視窗
還是很感謝你的回答

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙