Lave regneark med + og - knap for antal

Prøv at kikke på:
Udvikler --> Indsæt --> Kontrolelementer for formular
Vælg: Skalafelt

Kontrolelementer, som Morten er inde på ovenfor, er ikke i en bestemt celle, men hvor du synes de skal ligge i arket.

Hvis du ønsker knapper i stedet for Skalafelt, vælger du "Knap" som ovenfor bekrevet.

Tilknyttet makro for plus kan så være (værdi i celle C1 i Ark1):

Sub add1()
Ark1.[C1] = Ark1.[C1].Value + 1
End Sub

Med skalafeltet kan du slippe for makro. Indstil det ønskede under Højreklik - Formater kontrolelement - Kontrolelement

#1 laves uden vba.
Kan kædes til en celle.

Tegn skalafeltet i nærheden af din celle.
Højre-klik på skalafeltet --> I "Feltet navn" (Hvor der normalt står: A1) står der: Skala 1
Klik på "Formellinje" og tast: =$C$4

Nu kan celle C4 køres op/ned med knapperne.
Standard
fra 0 til 30000
ændring i tilvækst 1

Eller:
Højre-klik på skalafeltet --> Formater kontrolelement

Okay, havde ikke læst det skulle bruges i formler og ikke i en celle værdi.

Falster..
Vil du lave en ark til mig med denne markro med + og - i hver sin knap ??

Er der en nem måde at lave det på hvis fx den skal ske i 200 rækker ??

sÅ DEN SÆSTE + OG - ER FOR  RÆKKE 2 OG DEN NÆSTE FOR RÆKKE 3

Sub add1()
Ark1.[C1] = Ark1.[C1].Value + 1
End Sub
allanurup@gmail.com

Sæster = næste

Du mener vel ikke, at hvert klik skal lægge til i én celle og næste klik i næste celle osv.?

Denne lægger 1 til i felterne A1 til A200 med et klik:

Sub Knap1_Klik()
Dim r As Range, cell As Range

Set r = Range("A1:A200")

For Each cell In r
        cell.Value = cell.Value + 1
Next
End Sub

For minus i samme felter oprettes endnu en knap og tredjesidste linje ændres til:
cell.Value = cell.Value - 1

Prøv denne i et tomt Ark.
For at se om det evt. kan bruges.:

Der er også løsninger på DRF-FORUM

Falster

knappe a1 og b1 skal vises i c1

knap a2 og b2 skal vises i c2

Bliver jeg ignoreret?

Store morten

Nej nej.....skal jeg putte det ind i en tom macro  ?

Prøv makroen i et nyt tomt ark.
Se om det er noget i den stil du skal bruge.
Oprette knapper i 20 rækker.

Store morten

Hold da op....det er lige sådan det skal være    TAK

Er det mulig at lave sp hele a kolonnen er -  og hele b kolonnen er +

Ikke forstået!!
Knappen er som den er, fra excel.
Vi kan gøre den bredere, men så kommer der en "skyder" frem.

Jeg mener kan du lave så celle a1 er en  minus knap som laver værdien i c1 en mindre.

b1 er en plus knap som laver værdien i c1 en større

Ja, men der kommer en skyder i midten.
Den kan man så hive frem og tilbage.
Det giver en ny mulighed, skyderen kan indstilles til f.eks. at springe +/- 10 ved klik ved skyder.

Er der Minimum/Maxsimum?

Det er næsten i hus nu.....
Vil gerne have så hele a cellen er minus og hele b cellen er plus.

Kan nem lave fejl ved den sidste ark

Jeg kan desværre ikke lave om på designet af den type indbygget rullepanel.

Flaster

Det du har lavet virker rigtig godt
Jeg har lavet en knap i a1  ( plus knap)
Sub add1()
Ark1.[D1] = Ark1.[D1].Value + 1
End Sub

Samt en minus knap i c1
Sub add1()
Ark1.[D1] = Ark1.[D1].Value + 1
End Sub

Tallet står i d1 og det virker fint med plus og minus.
Hvordan kan jeg lave så den selv laver knapper og macroer i 100 rækker

Allan

Mange vil synes, at 200 kontrolelementer i en Excel-projektmappe er (alt) for mange.

Denne makro opretter 100 knapper med teksten "Plus" i kolonne A i Ark1:

Sub CreateButtonsCodePlus()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Copy
End Sub
Sub CreateTheButtons()
Dim sShape As Shape
Dim lLoop As Long

    For lLoop = 1 To 100
      With Cells(lLoop, "A")
            Set sShape = Ark1.Shapes.AddFormControl _
                (xlButtonControl, .Left, .Top, .Width, .Height)
      End With
                With sShape
                    .OnAction = "CreateButtonsCodePlus"
                    .TextFrame.Characters.Caption = "Plus"
                End With
   
    Next lLoop
End Sub

Tilsvarende opretter denne 100 knapper med "Minus" i kolonne C:

Sub CreateButtonsCodeMinus()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Copy
End Sub
Sub CreateTheButtons()
Dim sShape As Shape
Dim lLoop As Long

    For lLoop = 1 To 100
      With Cells(lLoop, "C")
            Set sShape = Ark1.Shapes.AddFormControl _
                (xlButtonControl, .Left, .Top, .Width, .Height)
      End With
                With sShape
                    .OnAction = "CreateButtonsCodeMinus"
                    .TextFrame.Characters.Caption = "Minus"
                End With
   
    Next lLoop
End Sub

Knapperne passer til cellerne.

Mht. til beregningsmakroerne tror jeg at du må indsætte dem manuelt, knap for knap. Kopier og rediger dem, du har lavet for celle D1.

Prøver igen

#24 falster
"Knapperne passer til cellerne."
Prøv denne kode i et Modul:


Jeg har kæmpet med at få knapperne til at ligge oven på rækkerne ;-)

#26 giver hos mig et resultat, der ser ud som #24.

Med #25 giver Private Sub definitionsfejl om "r". Sub'en opretter knapper, der dog ikke passer helt til cellerne. Jeg tror, at det skyldes, at der angives en konkret størrelse. Det gør koden i #24 ikke. Den anvender celledimensioner (og -placering), så vidt jeg kan se.

Hvis jeg oprette knapper med dine makroer
#24
Sub CreateButtonsCodePlus() og
Sub CreateButtonsCodeMinus()

Og tester med
#26
Private Sub CreateButtonsCodePlus() i et Modul.

Tryk på knappen i A1 Giver: $A$1
Tryk på knappen i A2 Giver: $A$1
Tryk på knappen i A3 Giver: $A$3

Min ambition i #24 var kun at automatisere oprettelsen af kontrolelementerne (knapperne).

Om regnemakroerne forslog jeg (sidst i #24), at de oprettes manuelt. F.eks. ved at fremstille en "flad fil" med 100 x kode fra f.eks. #23 (ret den lille minusfejl) og så indsætte referencer til de 200 knapper og de 100 D-celler.

Den flade fil kan så pastes i et modul.

Jeg tør ikke givet mig i kast med at danne regnemakroerne automatisk :-)

Tak til alle......Mortenn fik point