Hur skapar du Msg / Popup till meddelanden i Excel VBA?

Problem

Jag behöver ett Excel VB-skript för att meddela / popup ett meddelande när numret på bokstaven U i en kalender överstiger 6, 8, 12 etc. Det måste kontrollera kalenderns intervall som söker efter bokstaven U och lägger till dem och sedan ger en automatisk popup när antalet U är större än 6 och liknande .

Lösning

Du uppgav att du ville att msgbox ska dyka upp automatiskt, så koden måste gå in i händelseändringsbladet och inte bara en vanlig makro eller kommandoknapp. Här är koden men jag har också en länk för dig att kolla filen. Jag gjorde en kalender i februari 2009 och lade bara till slumpmässiga ord med bokstaven "U" i dem. Totalen är sex ord. Skriv in ett ord eller ord som du faktiskt skulle använda, och se om det är vad du behöver. Hoppas det här hjälper.

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

 Private Sub Worksheet_Change (ByVal Target As Range) Dim I Som Variant Dim Letter Letter = LCase ("u") letter2 = UCase ("U") Dim count Som helhet Dim FindU Som Range Set FindU = Range ("A4: G12") Mått temp För varje I I FindU Om InStr (i, bokstav)> 0 Eller InStr (jag, bokstav2)> 0 Räkna sedan = räkna + 1 temp = räkna Sluta om Nästa jag Välj Case temp Är fallet> 12 MsgBox "Antalet U har överskridit 12. " & "Totalt är" & tempfallet är> 8 MsgBox "Antalet U har överskridit 8." & "Totalt är" & tempfallet är> 6 MsgBox "Antalet U har överskridit 6." & "Totalt är" & temp Slut Välj Slut Su