Makro til at bevæge sig rundt i excelark efter bestemt mønster

Hvordan er tryknapperne genereret?

Hvad med de knapper, der ikke indeholder et tal?

Skal der registreres højere værdi end 9 i en celle?

Hej, umiddelbart lyder det som om, du ikke behøver bruge en makro. lås i stedet alle de celler, der ikke skal skrives i, og beskyt derefter arket (startside, formater). Nu kan du springe fra indtastningsfelt til indtastningsfelt. Brut <Tab> eller <Enter> efter behov.

---> supertekst 
1. øhhhhhh - må være dig svar skyldig på dette spørgsmål - jeg regner med at lave dem senere. Som en subrutine i makroen ?

2. Knapper uden tal er : X=10 - /=resten - -=ingen - det tager formlen hensyn til i indtastningen.

3. Øhhhh - ja - se svar ovenfor

---> Dick

Dit forslag er såmænd ok; men det betyder stadig en masse hoppen 1 frem ( tab ) - 1 frem  ( tab ) - 1 ned ( pil ned )- 1 til venstre ( <--- ) - makroen skulle gerne kunne bevæge sig kun ved at bruge (enter) eller (tab)

Slet ingen forslag ???

Jo - det kommer - p.g.a. travlhed

Udkast:
Dim slagNr As Byte, rundeNr As Byte, spillerNr As Byte
Dim antalSpillere As Byte, maxSlag As Byte, ræk As Byte, kol As Byte
Const startR = 5
Const startK = 3
Const Slag1 = 2
Const Slag10 = 3
Const antalRunder = 10
Public Sub startSpil()
    antalSpillere = Range("D2")
    rundeNr = 1
    spillerNr = 1
    slagNr = 1
    maxSlag = Slag1
   
    ræk = startR
    kol = startK
    Cells(ræk, kol).Select
End Sub
Private Sub CommandButton1_Click()
    flyt 1
End Sub
Private Sub CommandButton2_Click()
    flyt 2
End Sub
Private Sub flyt(points)
    Cells(ræk, kol).Select
    Selection.Value = points

    slagNr = slagNr + 1
    If slagNr > maxSlag Then
        nySpiller
    Else
        sammeSpiller
    End If
   
    If spillerNr > antalSpillere Then
        nyRunde
    End If
   
   
    If rundeNr > antalRunder Then
        MsgBox "Game over"
        Exit Sub
    End If
End Sub
Private Sub sammeSpiller()
    kol = kol + 1
End Sub
Private Sub nySpiller()
    kol = kol - (maxSlag - 1)
    ræk = ræk + 5
    slagNr = 1
    spillerNr = spillerNr + 1
End Sub
Private Sub nyRunde()
    kol = kol + 2
    ræk = startR
    spillerNr = 1
    rundeNr = rundeNr + 1
   
    If rundeNr = 10 Then
        maxSlag = Slag10
    End If
End Sub

Var det noget i den retning?

det går jeg så ud fra..

Jeg fandt en lidt anden løsning - knap så elegant som din.

Jeg tildelte hver knap en sub, der giver resultat og bevægelse til højre + en knap der bevæger 5 ned 0g 2 til venstre + en knap der bevæger sig 25 op og 1 til højre

uddrag af mine submakroer :

Sub Macro1()
    ActiveCell.Offset(5, -2).Select
End Sub

   
Sub Macro2()
'
' Macro2 Macro
'
'
'
    ActiveCell.Offset(-25, 0).Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'

'
   
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(0, 1).Select
   
    End Sub
Sub Macro4()
'
' Macro4 Macro
'

'
   
    ActiveCell.FormulaR1C1 = "2"
    ActiveCell.Offset(0, 1).Select
    End Sub
Sub Macro5()
'
' Macro5 Macro
'

'
   
    ActiveCell.FormulaR1C1 = "3"
    ActiveCell.Offset(0, 1).Select
    End Sub
Sub Macro6()
'
' Macro6 Macro
'

'
   
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(0, 1).Select
    End Sub

Du får point for dit forsøg - tak for hjælpen !

Ok - selv tak