1

私はこれを高低で検索しましたが、範囲全体で機能させることはできません. そして初投稿なのでお手柔らかに。

特定の製品がある生産段階から次の生産段階に移動する時間を分析するアルゴリズムがあります。次に、生産の次の段階を完了するために必要な量のリソースを提供します。

私の問題は、リソースが利用可能なものを超えたときに、ポップアップ ボックスを表示してユーザーに警告することです。これは、範囲内のすべてのセルで発生するはずです。これは正常に機能しましたが、セル「S7」が値を超えた場合のみです。どんな助けでも大歓迎です。

コードは次のとおりです。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRng As Range

    Set myRng = ThisWorkbook.Sheets("SMT 2").Range("S7:S26")

    For Each mycell In myRng

        If mycell.Value >= 16 Then sVar = _
        MsgBox("Will Enough Pre-Wave Resources be Available?", 4, "Attention!")

        If sVar = 7 Then
            Application.Undo
        End If

        Exit For
    Next
End Sub
4

2 に答える 2