Formater STORE BOGSTAVER til fed
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3048
Udskrevet den: 21.Nov.2024 kl. 17:50
Emne: Formater STORE BOGSTAVER til fed
Besked fra: 2KJN
Emne: Formater STORE BOGSTAVER til fed
Posteringsdato: 18.Maj.2017 kl. 12:33
|
Hej,
Jeg har et regnskab i excel bestående af tre kolonner hvor alle sum konti er med store bogstaver. Er der nogen der kan hjælpe med at lave en makro der kan formaterer alle celler med KUN store bogstaver til "fed"? Kolonne A = konto nr. 1010, Kolonne B = Tekst, Kolonne C = 1.000,00 (Beløb).
Dvs. både kolonne A, B og C skal formateres til fed hvis ALLE bogstaver i kolonne C står med store bogstaver
1010 Omsætning 1.000,00 1099 OMSÆTNING I ALT 1.000,00 (denne række skal være fed)
Dette skal gøres på alle rækker indtil der ikke er flere rækker med data.
På forhånd tak for hjælpen
Kim
|
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 18.Maj.2017 kl. 14:19
Jeg går ud fra, at du mener kolonne B, med store bogstaver, og ikke C, som du skriver:
Sub FedeStoreBogstaver()
Dim Række As Excel.Range
For Each Række In ActiveSheet.UsedRange.Rows
If Range("B" & Række.Row).Value = UCase$(Range("B" & Række.Row).Value) Then
Range("A" & Række.Row & ":C" & Række.Row).Font.Bold = True
End If
Next
Set Række = Nothing
End Sub |
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: 2KJN
Posteringsdato: 20.Maj.2017 kl. 16:17
|
Ja, det er korrekt og koden virker perfekt.
Jeg har dog lige et ekstra spørgsmål:
Er det muligt at lave en autosum i kolonne C på de rækker hvor tallene nu står med fed?
1010 Omsætning 1.000,00 1020 Omsætning 2 200,00 1099 OMSÆTNING I ALT 1.200,00 (=Autosum)
Dette skal gøres på alle rækker til slut, der er ikke nogen tomme linjer ind i mellem.
|
Besked fra: EXCELGAARD
Posteringsdato: 20.Maj.2017 kl. 16:46
Det kan man godt, men det er lidt risikabelt, at satse på, at alle SUM konti altid står alene med store bogstaver, og satse på, at alle drift og status konti altid står med ikke store bogstaver.
Hvad nu, hvis man har navngivet ATP-kontoen for, ja, ATP?
Dermed får denne drift konto alene store bogstaver, og vil blive opfattet som en SUM konto.
Eller, hvis man har kaldt konto for Arbejdsmarkedspension for 'AMP'?
Eller kaldt konto for omsætning i EU for 'OMS, EU'?
Eller kaldt konto for en bils drift efter bilens nummerplade, 'PP 12345'?
Eller, hvis man har en af de banker med ene af store bogstaver som navn: 'SEB 1234 - 123456789''?
Find selv på flere...
Et langt bedre alternativ vil være også, at udtrække konto type i kolonne D, og 'Sum Fra...' i kolonne E, og så benytte disse som angiver for, hvad der skal ske ud fra de enkelte konti.
Hvis man ikke ønsker, at se disse informationer, kan man blot skjule kolonnerne D og E, men makroerne vil alligevel kunne læse dem, og gøre tingene rigtigt.
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: 2KJN
Posteringsdato: 22.Maj.2017 kl. 19:19
|
Hej Excelgaard,
Det er desværre ikke muligt at udtrække hvorfra Sumkontoen skal tælle fra.
Der er taget højde for ATP (Atp) osv.
Er det muligt at lave en autosum i kolonne C på de rækker hvor tallene nu står med fed?
1010 Omsætning 1.000,00 1020 Omsætning 2 200,00 1099 OMSÆTNING I ALT 1.200,00 (=Autosum)
Dette skal gøres på alle rækker til slut, der er ikke nogen tomme linjer ind i mellem.
Mvh
Kim
|
Besked fra: EXCELGAARD
Posteringsdato: 24.Maj.2017 kl. 10:49
Undskyld, at jeg først vender tilbage nu - lidt travlhed igen, igen...
Jo, det kan let lade sig gøre - men, hvordan styrer du to SUM konti lige efter hinanden???
1000 Omsætning
1995 OMSÆTNING I ALT
2000 Vareforbrug
2995 VAREFORBRUG I ALT
2999 DÆKNINGSBIDRAG |
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: 2KJN
Posteringsdato: 25.Maj.2017 kl. 17:23
Helt ok,
Medmindre at det er muligt at lave en kode hvor jeg selv kan indsætte konti hvorfra dækningsbidrager skal beregnes f.eks. IF 2999 = FED Then 1099 + 2099. Denne kode skal nok gentages på andre konti.
Resten af rækkerne med fed skal der bare beregnes en Sum.
Jeg håber at det er til at forstå.
Mvh Kim
|
|