Sådan oprettes Msg / Popup til underretninger i Excel VBA?

Problem

Jeg har brug for et Excel VB script til at underrette / popup en besked, når nummeret på bogstavet U i en kalender overstiger 6, 8, 12 osv. Det bliver nødt til at tjekke rækkevidden af kalenderen, der søger efter bogstavet U og tilføje dem og derefter giver en automatisk popup, når antallet af U'er er større end 6 og osv .

Opløsning

Du sagde, at du ønskede, at msgbox skal dukke op automatisk, så koden bliver nødt til at gå ind i regnearkskiftet og ikke kun en almindelig makro eller kommandoknap. Her er koden, men jeg har også et link til dig for at tjekke filen ud. Jeg lavede en kalender i februar 2009 og tilføjede tilfældigt ord med bogstavet "U" i dem. Det samlede antal er på seks ord. Indtast et ord eller ord, som du rent faktisk vil bruge, og se om det er, hvad du har brug for. Håber dette hjælper.

[URL = // www.4shared.com/file/87077596/56259f70/Calendar.html]Calendar.xls/URL

 Private Sub Worksheet_Change (ByVal Mål Som Range) Dim I Som Variant Dim Letter Letter = LCase ("u") letter2 = UCase ("U") Dim count Som Integer Dim FindU Som Range Set FindU = Range ("A4: G12") Dim temp For hver i I FindU Hvis InStr (i, bogstav)> 0 Eller InStr (i, bogstav2)> 0 Så tæller = tæller + 1 temp = tæller Slut Hvis næste jeg Vælg Case temp Case er> 12 MsgBox "Antallet af U er overskredet 12. " & "Total er" & temp-tilfælde er> 8 MsgBox "Antallet af U er overskredet 8." & "Total er" & temp-tilfælde er> 6 MsgBox "Antallet af U er overskredet 6." & "Total er" & temp End Select End Su