Öka värdet i en eller flera celler när man trycker på en makroknapp - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

VBA

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

Föregående

Nästa

2017-09-11 13:29

StefanJ

Medlem sedan: 2017-08-18

16 inlägg

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

Ändrad av StefanJ på 2017-09-11 13:45:35

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 gjort en skärmdump av hur tanken är att det skulle se ut.

Se länken till JPG-bilden på mitt drobox-konto:

https://www.dropbox.com/s/xa47b8fsyu0rm6f/Test-bild_till_excelforum.jpg?dl=0

Tanken är att man skal 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

2017-09-12 12:28

Christian

Medlem sedan: 2015-08-26

1209 inlägg

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

Hej hej

Här är ett litet macro som fungerar för alla dina önskemål. Bara att koppla en knapp eller hotkey mot det och testa med olika markeringar. (kan vara smart att lägga till ett som tar bort mål med (man gör juh fel ibland).

Makrot har ingen validering, vilket innebär att om du har markerat fel cell, så körs makrot ändå, är det då text i cellen där du står blir det en krash, annars kommer även den cellen att ökas med 1. Lycka till! :) /Christian

Sub AddGoals()
Dim target As Object

For Each target In Selection
target.Value = target.Value + 1
Next target

End Sub

2017-09-12 13:51

Runarsson

Medlem sedan: 2017-05-31

15 inlägg

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

Jag fortsätter här på Christians kod, så du kan markera spelarnumren och sedan klicka på knappar för att styra värdena (för det var väl det du ville).

Variant 1:

Sub AddPoints()

Dim target As Object

For Each target In Selection

target.Offset(0, 6).Value = target.Offset(0, 6).Value + 1

Next target

End Sub

I stort sett Christians kod, men med 'Offset' anger du var i bladet, i förhållande till den markerade cellen, du vill ha värdet. 0, 6 här menar 0 cell vertikalt och 6 celler horisontellt (dvs ditt exempel med att markera celler i B-kolumnen och få värdena i H-kolumnen). Samma kod kan sen användas till varje knapp, med en justering i Offset för rätt kolumn.

Variant 2:

En liten nackdel med Offset är att man får vara försiktig med var man står innan man kör, så att man inte får värden i fel kolumn. Här är dock en variant med bestämd kolumn för den specifika knappen (här 'H') så värdet hamnar på rätt ställe i tabellen oavsett om man markerat spelarnamn eller spelarnummer:

Sub AddPoints()

Dim target As Object

For Each target In Selection

Range("H" & target.Row).Value = Range("H" & target.Row).Value + 1

Next target

End Sub

(Även denna kan sen användas till alla knapparna, med justeringar för kolumner.)

Sida 1 av 1

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