Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur dyker upp meddelanderutan när du klickar på en viss cell i Excel?

Den här artikeln syftar till att visa dig metoden för att poppa upp meddelanderutan när du klickar på en viss cell i Excel.

Pop up meddelanderuta när du klickar på en viss cell med VBA-kod

Fliken Office Aktiverar flikredigering och surfning i Office, och gör ditt arbete mycket enklare ...
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
  • Återanvänd allt: Lägg till de mest använda eller komplexa formlerna, diagrammen och allt annat till dina favoriter och återanvänd dem snabbt i framtiden.
  • Mer än 20 textfunktioner: Extrahera nummer från textsträng; Extrahera eller ta bort en del av texterna; Konvertera siffror och valutor till engelska ord.
  • Sammanfoga verktyg: Flera arbetsböcker och ark till en; Slå ihop flera celler / rader / kolumner utan att förlora data; Slå samman duplicerade rader och summa.
  • Dela verktyg: Dela data i flera ark baserat på värde; En arbetsbok för flera Excel-, PDF- eller CSV-filer; En kolumn till flera kolumner.
  • Klistra över Dolda / filtrerade rader; Räkna och summa av bakgrundsfärg; Skicka personliga e-postmeddelanden till flera mottagare i bulk.
  • Superfilter: Skapa avancerade filterscheman och tillämpas på alla ark; Svart per vecka, dag, frekvens och mer; Filter med fetstil, formler, kommentarer ...
  • Mer än 300 kraftfulla funktioner; Fungerar med Office 2007-2019 och 365; Stöder alla språk; Enkel distribution i ditt företag eller organisation.

pil blå höger bubbla Pop up meddelanderuta när du klickar på en viss cell med VBA-kod


Gör så här för att dyka upp en meddelanderuta när du klickar på en viss cell i kalkylbladet.

1. Skift för att öppna kalkylbladet med den specifika cell du behöver för att visa meddelandefältet när du klickar på det. Högerklicka på arkfliken och välj Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i kodfönstret.

VBA-kod: Öppna meddelanderuta när du klickar på en viss cell

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

Anmärkningar:

1). I koden betyder "A1: B10" att meddelandefältet dyker upp när du klickar på någon cell i detta intervall.

2). “Du har valt cell” och “Vänligen mata in data” är det visade innehållet i meddelandefältet.

Ändra dem efter behov.

3. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du klickar på någon cell i intervallet A1: B10, får du en meddelandefält som visas nedan.


pil blå höger bubblaRelaterade artiklar:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!
officetab botten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    fractalwavesprod@gmail.com · 1 years ago
    How can I enter more ranges? thank you very much
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      Please apply the below code. Hope I can help. thank you for your comment.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xStrRg As String
      xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
      If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
      MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
      End Sub
  • To post as a guest, your comment is unpublished.
    jdt · 2 years ago
    typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
  • To post as a guest, your comment is unpublished.
    Alison · 3 years ago
    I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?