Just nu i M3-nätverket
Jump to content
pinge33

ANSWERED Öka värdet i en eller flera celler när man trycker på en makroknapp

Recommended Posts

Hej

 

Jag skulle vilja se om det fanns någon vänlig själ

som kan bidra med en makrokod som skall användas till ett statistikark i vår förening.

 

Jag har bifogat en skärmdump av hur tanken är att det skulle se ut.

 

Tanken är att man skall markera ett nummer genom att ställa sig på

ett spelarnummer genom att markera den specifika cellen

och sedan skall man trycka på en makroknapp och beroende

på vilken knapp man trycker på så skall den öka på värdet i aktuell cell som det berör.

 

I exemplet så har jag markerat spelarnummer "4" i cell B6 och när jag trycker på knappen "Mål"

så vill jag att cell E6 ökas med 1. och så sedan så kanske jag markerar nr "7" i cell B8 och om jag då trycker på "Ass" så vill jag att cell F8 ökas med 1.

Sedan så tänker jag att jag skall kunna t ex markera Cell B5,B6,B7,B8 och när

jag då trycker på "Plus" så vill jag att cell H5,H6,H7,H8 ökas med 1,

vilket betyder att dessa spelare var inne på planen när det blev mål.

 

Hänger ni med. Vore tacksam om någon har något bra förslag

som jag skulle kunnan laborera med då jag är en nybörjare på makron.

 

Tackar så mycket på förhand!

 

Med vänlig hälsning

Stefan 

post-63398-0-83860700-1505195433_thumb.jpg

Share this post


Link to post
Share on other sites

Istället för att skapa en massa makron för alla knappar så skulle jag personligen välja en annan lösning;

Du sätter helt enkelt in markören i den cell som ska öka med ett och kopplar ett kortkommando till följande korta kodsnutt:

Sub IncreaseValue()

' IncreaseValue Makro
' Makrot ökar värdet med en enhet i markerad cell.

    If Selection.Rows.Count > 1 Or Selection.Columns.Count > 1 Or Selection.Areas.Count > 1 Then
        MsgBox ("Se till att bara markera en enstaka cell!")
        Exit Sub
    End If
    
    Selection.Value = Selection.Value + 1
    
End Sub

Starta VBA-editorn genom kortkommandot ALT+F11.

Kopiera ovanstående kod och klistra in i This Wordbook.

Koppla ett kortkommando, t.ex. CTRL + i till makrot, för infå se sektionen "Köra ett makro genom att trycka på ett kortkommando" på webbsidan: Köra ett makro / support.office.com. 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×