Wepor Novice
02. marts 2021 - 07:27 Der er 7 kommentarer og
2 løsninger

Skjult formel i en celle

Hej

Jeg har A1 celle og den vil jeg gerne have at når man skriver fx 7 skal den lægge fx 4 til og vise 11 i feltet. Den skal ikke slette formel. Håber det giver mening.

Kan de overhoved lade sig gøre.
Jan K Ekspert
02. marts 2021 - 09:50 #1
Du kan ikke skrive i en celle med en formel uden at slette formlen, men det kan løses med VBA, hvis du er interesseret i det.
store-morten Ekspert
02. marts 2021 - 10:12 #2
F.eks.:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1").Value = Range("A1").Value + 4
    End If
End Sub

Eller:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1").Value = "=" & Range("A1").Value & "+4"
    End If
End Sub
jens48 Ekspert
02. marts 2021 - 12:07 #3
store-morten, din makro lægger 4 til A1 hver gang der skiftes celle.

Prøv i stedet med

Dim oldCellAddress As Long
Dim oldCellValue As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    oldCellValue = 0
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        oldCellValue = Target.Value
        Target.Value = 4 + oldCellValue
        Application.EnableEvents = True
    End If
End Sub
store-morten Ekspert
02. marts 2021 - 14:26 #4
Ups...
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1") = Range("A1") + 4
        Application.EnableEvents = True
    End If
End Sub

Eller:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1").Value = "=" & Range("A1").Value & "+4"
        Application.EnableEvents = True
    End If
End Sub
Wepor Novice
02. marts 2021 - 15:11 #5
Mange tak begge løsning er kan bruges takker
store-morten Ekspert
02. marts 2021 - 15:20 #6
Velbekomme 😃
store-morten Ekspert
02. marts 2021 - 15:20 #7
Velbekomme 😃
Wepor Novice
03. marts 2021 - 10:57 #8
Hvis jeg nu vil have 3 cell mere der skal ligge 4 til det tal man skriver hvordan vil det så se ud?
jens48 Ekspert
03. marts 2021 - 11:31 #9
Nu skriver du ikke hvor du vlil lægge 4 til eller hvor du vil lægge 3 til, men noget i stil med dette vil kunne bruges. For A1 bliver der lagt 4 til og for B1:B3 bliver der lagt 3 til.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1,B1:B3")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Column = 1 Then
        Target = Target + 4
        Else
        Target = Target + 3
        End If
        Application.EnableEvents = True
    End If
End Sub
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Sådan kommer den nye coronapas-app til at se ud
Nu er der ikke længe til, at danskerne får mulighed for at downloade et coronapas, der er mindre afslørende i forhold til brugernes personlie sundhedsoplysninger. Se hvordan det nye pas kommer til at se ud.
Computerworld
Endnu en tragisk ulykke med førerløs Tesla: Musk har store forventninger til ny software
En tragisk dødsulykke i USA i weekenden har sat forøget fokus på Teslas eksisterende semiautomatiske system og det kommende fuldautomatiske, der skal gøre bilerne helt selvkørende.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
White paper
Gratis whitepaper: Hvad er EDI, og hvordan kan det styrke min forretning?
Overvejer du EDI, og ønsker du at undersøge, om EDI er den rette investering for din virksomhed?