Indlæg

/2 Kommentarer/i , , , /af , , ,

Overtrædelser af lov om ophavsret

Overtrædelser af lov om ophavsret

Det koster 4.500 kr. pr. gang

Overtrædelser af lov om ophavsret

Jeg har fået en over snuden et par gange, fordi jeg har overtrådt lov om ophavsret. Det formastelige var, at jeg har brugt billeder af (typisk) ministre og andre kendte personer, hvor en fotograf har ophavsretten til billedet. Det må man selvfølgelig ikke, så der vanker en afgift på ca. 4.500 kr. pr. billede. Selvom man betaler, får man ikke rettigheden til billedet. Det skal under alle omstændigheder slettes. Og man får ingen advarsel først.

Jeg fik firmaet, der hjælper rettighedshaverne med at scanne nettet (hvordan de så end bærer sig ad med det?) til at undlade at scanne min side i seks måneder, så jeg kunne få tid til at rydde op. Firmaet hedder Copyrightagent.com.

Og det har jeg så endelig fået gjort i dag, hvor det lykkedes at finde en indstilling i mediebiblioteket, hvor det var nemt at se, hvilke billeder der muligvis indeholdt en overtrædelse af lov om ophavsret. De seks måneder er ved at være gået, så det var på tide at komme i gang. Der røg lige 134 billeder ud af de i alt 2.188 billeder, som det jo altså tog nogle timer at gå igennem. Herudover har jeg slettet samtlige billeder fra min kopi-side, så jeg ikke skal gennem opgaven en gang mere. Næste kloning (kopiering) vil sørge for, at de tilbageværende lovlige billeder vil blive overført.

Jeg er glad for endelig at have fået det gjort, og jeg håber inderligt, at jeg har fanget alle de ulovlige billeder. Fra nu af kommer der ikke flere ulovlige billeder. Det er for dyrt!

Kunne firmaet have hjulpet?

Jeg har faktisk haft spurgt firmaet, om ikke de kunne hjælpe med en scanning, når de nu er så gode til det, men det ville de ikke. Det er selvfølgelig forståeligt nok, da det ville kunne reducere rettighedshavernes indtjening, men alligevel … Lidt konduite fra firmaets side ville have været passende.

Løsningen er Pixabay

Der findes en meget fin billeddatabase ved navn Pixabay. Her ligger tonsvis af billeder, man kan bruge lovligt og gratis. Har man lyst og råd, findes der også en samling af billeder, men kan betale sig fra at bruge. Jeg synes nu, de gratis er helt fine til mit formål, som bare er illustrativt.

ChatGPT kan også bruges til at skabe lovlige billeder

Jeg har valgt at betale for ChatGPT ($ 20 pr. måned), og så kan man få tjenesten til at generere billeder. Det var jeg ikke klar over, så jeg startede med følgende spørgsmål: “Når jeg nu har ChatGPT4, kan du så lave et billede til mig?”

ChatGPT: “Selvfølgelig, jeg kan skabe et billede for dig! Beskriv venligst, hvad du gerne vil have billedet skal indeholde eller forestille.”

“Det lyder dejligt. Jeg vil gerne bede om et billede, der forestiller nogle paragraftegn §§ på en baggrund med efterårsfarver.”

Og så fik jeg top-billedet leveret i min browser; det skulle bare tilpasses i størrelsen. Næste gang vil jeg bede om den korrekte størrelse på 665 px * 530 px fra starten. Det kan sikkert sagtens lade sig gøre.

Det er altså fascinerende, hvad ChatGPT kan bidrage med. For alle de penge jeg sparer til Copyrightagent, kan jeg nemt finansiere ChatGPT.

Overtrædelser af lov om ophavsret

Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.

/i , /af ,

Sådan kan du bruge ChatGPT

Sådan kan du bruge ChatGPT

ChatGPT: 100 millioner brugere på to måneder

Sådan kan du bruge ChatGPT

Akademikerbladet.dk har et nyhedsbrev, der specifikt handler om AI, og de sendte i dag et link til denne miniguide, som de ganske vist skriver er til brug i arbejdslivet, men man kan sagtens bruge den, selv om man er uden for arbejdsmarkedet!

Indledning

Mini-ordliste
AI Artificial Intelligence

Kunstig intelligens fx via ChatGPT
VBA VBA står for Visual Basic for Applications og er et programmerings – og makrosprog, der ofte bruges til applikationer. Det bruges blandt andet i Microsoft Office applikationer og anvendes især i Excel.
Excel Microsofts fantastiske regneark med uanede muligheder
Prompt Prompts er ord eller sætninger, der bruges til at udløse et svar eller handling fra et AI-system – herunder GPT. Det kan være et spørgsmål, en kommando eller en forespørgsel, der er designet til at få et AI-system til at udføre en bestemt handling eller give et svar.

Kunstig intelligens (AI) kan noget! Fra at automatisere rutineopgaver i Excel til at give dig et dybere indblik i din slægtsforskning eller andre store datamængder, er AI’s potentiale enormt. Men hvordan begynder man at bruge det i praksis?

I denne ultrakorte guide deler jeg mine egne erfaringer med AI og giver dig nogle tips til, hvordan du kan komme i gang.

Der skyder massevis af reklamer op, som stammer fra firmaer, der tilbyder “kurser” i at bruge ChatGPT. Det er det rene fup og profitmageri.

Hvis man skal på “kursus” for at bruge ChatGPT, burde man hellere sælge sin computer og gå en tur i skoven, for det er nemmere end at søge med Google. Og det har du vel heller ikke taget et kursus i …

ChatGPT er ganske gratis. Vil du have de nyeste landvindinger med, kan du tegne abonnement på version 4. Det koster $20 (ca. 180 kr.) pr. måned, men det er på ingen måde nødvendigt.

AI rummer data til og med 2021, så du kan ikke spørge til fx krigen i Ukraine.

Min anbefaling er også, at du ikke spørger til holdningsprægede emner, da ingen rigtig ved, hvor data stammer fra, og hvordan de er bearbejdet. Selv spørger jeg til forskelligt “tech-relateret” som fx VBA-kode i Excel. Det fungerer fantastisk og rummer ikke holdninger til alverdens ufred.

Det er AI, og derfor skal du bruge det

AI refererer til maskiner eller software, der kan udføre opgaver, som normalt ville kræve menneskelig intelligens. Med AI kan du automatisere opgaver, analysere store datamængder og meget mere.

Noget, der er fascinerende, er, at AI kan forstå og aflæse billeder. Send robotten et billede, hvis du har svært ved at forklare en problemstilling. På et sekund forstår den et billede bedre end mange ord. Jeg forstår ikke, hvordan det lader sig gøre, når det netop er en “sprogmodel” og sprog er lig med ord, men ikke desto mindre er det muligt. Jeg har virkelig gode erfaringer med det.

Personalisering

Hvis du vil bruge AI til at inspirere til artikler på din hjemmeside, er det en god idé at starte med at fortælle om din sædvanlige skrivestil. Det gør du ved fx at kopiere noget tekst ind, du tidligere har skrevet på egen hånd. Så forstår robotten din stil og afpasser sine svar efter det.

Der er flere muligheder for, at I kan lære hinanden at kende.

Sådan kan du bruge ChatGPT

Sådan kan du bruge ChatGPT

Start med at klikke på “Custom instructions”. Så spørger den (på engelsk – men du svarer bare på dansk):

  1. Hvor du bor?
  2. Hvad du laver?
  3. Om dine hobbyer og interesser?
  4. Hvad du kan tale om i timevis?
  5. Om du har nogle mål?
  6. Om du vil tiltales afslappet eller formelt?
  7. Om svarene helst skal være korte, eller om du kan overskue længere svar?
  8. Om ChatGPT må have holdninger, eller om du foretrækker, at robotten er neutral?

Mit liv ligger alligevel på nettet, så jeg har ingen problemer med at fortælle, at jeg har to psykiatriske diagnoser. Når/hvis du selv vil lege lidt med “Custom instructions”, skal du overveje, hvad du virkelig ønsker at dele. Det er trods alt en robot, så den inkluderer alt i fremtidige versioner – også det du fortæller om dig selv.

Det er næppe nogen overraskelse, at jeg svarede følgende:

Jeg bor i Danmark Europa

Cand.jur. i 1990.

Arbejdet 30 år med økonomistyring i staten. Nu pensionist, så jeg har tid til at dyrker mine hobbyer. Og ChatGPT har inspireret mig til at prøve at lære at skrive VBA-kode.

Jeg interesserer mig for slægtsforskning, data i tabeller, WordPress, php, html, Excel, ordentlig behandling af det danske sprog og psykiatri. Jeg har Aspergers syndrom og bipolar affektiv sindslidelse.

Jeg kan tale i timevis om slægtsforskning, Excel og korrekt brug af det danske sprog

Mit mål er at bruge ChatGPT i stedet for Google. ChatGPT hjælper meget bedre, hvis man ikke er kendt med emnet.

Du kan bare være afslappet og uformel

Det betyder ikke noget, om svarene er lange eller korte

Det betyder ikke noget, hvordan du tiltaler mig

Du må gerne have meninger om forskellige emner

Tag AI ind i dit liv

Det er let at blive overvældet af AI, men det behøver ikke at være kompliceret. Tag små skridt. Prøv for eksempel at interagere med ChatGPT for at få en fornemmelse af, hvad AI kan gøre for dig.

Case 1: Automatisering i Excel

Som jeg har beskrevet i en tidligere artikel, var jeg på jagt efter en nemmere måde at opdele stamdata om mine direkte aner i Excel. ChatGPT genererede en VBA-makro på sekunder, der sparede mig for timevis af manuelt arbejde.

Case 2: Visualisering af data

AI kan hjælpe dig med at farvemarkere og visualisere dine data på en måde, der gør det nemmere at navigere i komplekse datamængder. Det gør det også nemmere at sortere data uden at miste overblikket.

AI leverede mig denne kode på et sekund, og jeg kan godt lide, at robotten inkluderer kommentarer til, hvad den gør, for det gør, at jeg lærer noget. En kommentar er fx: ‘ Sæt arbejdsark

Sub MatchAndHighlight()

Dim ws As Worksheet
Dim rngToSearch As Range, rngToMatch As Range
Dim cell As Range, matchCell As Range
Dim matchFound As Boolean
Dim lastRow As Long

‘ Sæt arbejdsark
Set ws = ThisWorkbook.Worksheets(“Ark1”)

‘ Definer områderne for matchning
Set rngToSearch = ws.Range(“H2:H” & ws.Cells(ws.Rows.Count, “H”).End(xlUp).Row)
Set rngToMatch = ws.Range(“B2:B” & ws.Cells(ws.Rows.Count, “B”).End(xlUp).Row)

‘ Nulstil farvning og “Ja”
lastRow = ws.Cells(ws.Rows.Count, “I”).End(xlUp).Row
ws.Range(“F2:I” & lastRow).Interior.Color = xlNone
ws.Range(“I2:I” & lastRow).Value = “”

‘ Loop igennem hver celle i rngToSearch for at finde match i rngToMatch
For Each cell In rngToSearch
matchFound = False
If cell.Value <> “” Then
For Each matchCell In rngToMatch
If cell.Value = matchCell.Value Then
ws.Range(“F” & cell.Row & “:I” & cell.Row).Interior.Color = vbYellow
ws.Cells(cell.Row, “I”).Value = “Ja”
ws.Cells(cell.Row, “F”).Value = ws.Cells(matchCell.Row, “C”).Value ‘ Kopier fornavn
ws.Cells(cell.Row, “G”).Value = ws.Cells(matchCell.Row, “D”).Value ‘ Kopier efternavn
matchFound = True
Exit For
End If
Next matchCell

If Not matchFound Then
ws.Cells(cell.Row, “I”).Value = “”
ws.Range(“F” & cell.Row & “:I” & cell.Row).Interior.Color = xlNone
End If
End If
Next cell

MsgBox “Matchning fuldført!”

End Sub

Sådan kommer du i gang

  1. Forskning: Læs artikler og se tutorials for at forstå, hvad AI kan tilbyde dig.
  2. Praktisk erfaring: Start med enkle projekter og eksperimentér med AI-værktøjer som fx ChatGPT.
  3. Søg hjælp: Hvis du støder på problemer eller har spørgsmål, er der masser af fora, hvor du kan søge hjælp. Eller du kan altid spørge ChatGPT!

Næste skridt

  • Opret en bruger på https://chat.openai.com/ og begynd at lege.
  • Begynd med små spørgsmål, der i denne verden kaldes “prompts”.
  • Sidder du med et eller andet, du ikke kan finde ud af, så spørg ChatGPT.
  • Vurdér svaret, tilpas det lidt og smid det ud, du ikke bryder dig om. Som i alle andre forhold i livet kommer du ikke langt uden kildekritik!
  • Start med små projekter. Du kan altid vende tilbage til din prompt og uddybe den. Dine promts bliver gemt. Det er utrolig praktisk.

Afslutning

AI er her for at blive, og det tilbyder fantastiske muligheder for at gøre livet lettere og mere effektivt. I stedet for at frygte det, lad os omfavne det og udforske, hvad denne fascinerende teknologi har at byde på.

Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.

/3 Kommentarer/i , /af ,

Prøv at se en samtale med ChatGPT (AI) 2

Prøv at se en samtale med ChatGPT (AI) 2

Kunstig intelligens (AI) kan noget!

Prøv at se en samtale med ChatGPT (AI) 2

Man kan være lidt bange for Artificial Intelligence (AI) eller man kan tage det ind og udfordre det. Jeg har besluttet mig for det sidstnævnte.

Du finder min første artikel om ChatGPT her, hvor du blandt andet kan læse om, hvordan AI kan medføre større retfærdighed.

I denne artikel udstiller jeg min uvidenhed om at skrive makroer i Excel. Jeg holder meget af Excel, for det rummer uendeligt mange muligheder, og at indspille makroer med VBA bevirker, at dumme rutineopgaver løses langt lettere og meget mere præcist. Jeg ville gerne kunne skrive makroer selv, men jeg har besluttet at opgive at lære at programmere (og VBA-kode er en form for programmering).

Det, jeg ikke kan, kan ChatGPT …

Udgangspunkt: Excelfilen, der styrer oprydningen i slægtsdata

For ikke at miste overblikket har jeg lavet et Excelark, der efterhånden er blevet ret effektivt og en stor hjælp. Der var bare noget, der kunne gøres smartere. Og jeg har haft fat i ChatGPT i flere omgange for at få hjælp til makroerne.

Stamdata om direkte aner

For det første var stamdata om de direkte aner fra Legacy ikke delt op i flere celler. Id-nummer, fornavn og efternavn stod i samme celle. Cellerne i kolonne C så fx sådan ud:

Prøv at se en samtale med ChatGPT (AI) 2

Jeg kunne selvfølgelig have givet mig til manuelt at dele dem op i tre:

  1. Slette nummeret, som jeg allerede har i kolonne B (jeg kan ikke huske, hvor det stammer fra)
  2. Fornavn(e)
  3. Efternav(e)

Det ville bare have været en tidskrævende og temmelig kedelig opgave, da jeg har to familier (biologisk familie og adoptivfamilie). Samlet set har jeg 596 direkte “aner”, når man tæller dem alle med. Jeg bad ChatGPT hjælpe. På et par sekunder spyttede den denne makro ud:

Sub SplitNames()
Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long
Dim fullName As String
Dim firstName As String
Dim lastName As String
Dim nameArray() As String
Dim commaPos As Integer

‘ Angiv det regneark, du arbejder med
Set ws = ThisWorkbook.Worksheets(“Ark1”) ‘ Erstat “DitArksNavn” med navnet på dit regneark

‘ Find den sidste række med data i kolonne C
LastRow = ws.Cells(ws.Rows.Count, “C”).End(xlUp).Row

‘ Gennemgå hver række i kolonne C
For i = 1 To LastRow

‘ Hent den fulde tekst fra kolonne C
fullName = ws.Cells(i, 3).Value

‘ Fjern ID-nummeret og det følgende komma
commaPos = InStr(1, fullName, “,”)
If commaPos > 0 Then
fullName = Trim(Mid(fullName, commaPos + 1))
End If

‘ Fjern anførselstegnene
fullName = Replace(fullName, “”””, “”)

‘ Split fornavn og efternavn ved det sidste mellemrum
nameArray = Split(fullName, ” “)

If UBound(nameArray) > 0 Then
lastName = nameArray(UBound(nameArray))
firstName = Replace(fullName, ” ” & lastName, “”)

‘ Sæt fornavnene i kolonne D og efternavnet i kolonne E
ws.Cells(i, 4).Value = firstName
ws.Cells(i, 5).Value = lastName
Else
‘ Hvis der kun er ét navn, sæt det i kolonne D og lad kolonne E være tom
ws.Cells(i, 4).Value = fullName
ws.Cells(i, 5).Value = “”
End If

Next i

End Sub

Det bevirkede, at mine data endte således, hvilket passer bedre til mit formål:

Prøv at se en samtale med ChatGPT (AI) 2

 

Farvemarkering og hentning af informationer

Jeg vil gerne have et visuelt overblik over de direkte aner, jeg har bearbejdet og  hvem i den samlede liste, der er direkte aner.

I lang tid sad jeg og farvemarkerede manuelt, og jeg tastede også ID (RIN-nr.), fornavn og efternavn ind manuelt, hvilket jo var ret dumt, når jeg allerede havde oplysningerne i kolonne A til  D som allerede vist.

Den manuelle farvemarkering havde endvidere det problem, at når jeg sorterede data lidt anderledes, fx for at finde antallet af nye personer eller noget andet, filen kan efterhånden kan fortælle om, så forblev markeringen på cellen, selvom indholdet flyttede et andet sted hen. Det var ikke godt og medførte en masse arbejde med at få de rigtige personer farvemarkeret igen bagefter.

Jeg har ført en meget lang samtale med Chat GPT for at få det til at lykkes. Du kan se samtalen her: https://chat.openai.com/c/83e07a15-0500-414e-bb6e-7e3ed6b60189 Det er også her, du kan se, at jeg absolut intet ved om makroer, men at jeg faktisk har lært noget. Rettelse den 10. november 2023: Det viser sig, at man ikke kan dele et link til en samtale. I kommentaren har jeg kopieret et par eksempler ind, så du alligevel kan se noget fra samtalen.

Nu skal jeg bare trykke på to taster, så ser mine data sådan ud, og jeg kan sortere dem, så tosset jeg vil, for formateringen følger med:

Prøv at se en samtale med ChatGPT (AI) 2

Vores endelig makro endte sådan:

Sub MatchAndHighlight()

Dim ws As Worksheet
Dim rngToSearch As Range, rngToMatch As Range
Dim cell As Range, matchCell As Range
Dim matchFound As Boolean
Dim lastRow As Long

‘ Sæt arbejdsark
Set ws = ThisWorkbook.Worksheets(“Ark1”)

‘ Definer områderne for matchning
Set rngToSearch = ws.Range(“H2:H” & ws.Cells(ws.Rows.Count, “H”).End(xlUp).Row)
Set rngToMatch = ws.Range(“B2:B” & ws.Cells(ws.Rows.Count, “B”).End(xlUp).Row)

‘ Nulstil farvning og “Ja”
lastRow = ws.Cells(ws.Rows.Count, “I”).End(xlUp).Row
ws.Range(“F2:I” & lastRow).Interior.Color = xlNone
ws.Range(“I2:I” & lastRow).Value = “”

‘ Loop igennem hver celle i rngToSearch for at finde match i rngToMatch
For Each cell In rngToSearch
matchFound = False
If cell.Value <> “” Then
For Each matchCell In rngToMatch
If cell.Value = matchCell.Value Then
ws.Range(“F” & cell.Row & “:I” & cell.Row).Interior.Color = vbYellow
ws.Cells(cell.Row, “I”).Value = “Ja”
ws.Cells(cell.Row, “F”).Value = ws.Cells(matchCell.Row, “C”).Value ‘ Kopier fornavn
ws.Cells(cell.Row, “G”).Value = ws.Cells(matchCell.Row, “D”).Value ‘ Kopier efternavn
matchFound = True
Exit For
End If
Next matchCell

If Not matchFound Then
ws.Cells(cell.Row, “I”).Value = “”
ws.Range(“F” & cell.Row & “:I” & cell.Row).Interior.Color = xlNone
End If
End If
Next cell

MsgBox “Matchning fuldført!”

End Sub

Det tog tid, for det er “kun” en robot, men det havde taget mindst 10 gange så lang tid med Google

Jeg synes, jeg har måttet forklare det samme flere gange. Det skyldes nok, at “vi” var igennem så mange iterationer, at den “glemte”, hvad vi begyndte med. Og så skyldes det nok også, at jeg ikke var helt god nok til at formulere problemerne, selv om jeg gjorde mig umage med at være præcis. Det er trods alt kun en robot, men det er som at “tale” med et menneske.

Hvis du åbner samtalen her: https://chat.openai.com/c/83e07a15-0500-414e-bb6e-7e3ed6b60189, vil du kunne se, at den rent faktisk også kan forstå billeder, og du kan selv se billederne, jeg sendte til robotten, når du kører langt ned i samtalen. Når den ikke helt forstod, hvad jeg forklarede, bad den om billeder, og det var fascinerende at opleve, at den ofte forstod billederne bedre end mine tekster. Jeg ved ikke, hvordan det fungerer, men jeg må konstatere, at det fungerer helt fantastisk.

Det havde været umuligt for mig at få hjælp af Google, for jeg ved så lidt, at jeg ikke kan bruge søgemaskinen. Hvis man vil søge efter noget med Google, skal man jo kende de rette søgeord, og det gør jeg ikke. ChatGPT forstår menneskesprog.

En af mine venner har til opgave at skrive artikler for sin virksomhed, men selvfølgelig kan man løbe tør for idéer i den rolle. Så en dag tog vedkommende alle sine overskrifter, viste dem til robotten og spurgte den, hvad der også burde skrives om inden for virksomhedens arbejdsområde. Robotten leverede 20-25 forslag på et sekund eller to.

Konklusion

Der er ingen tvivl: ChatGPT er kommet for at blive, og kun fantasien sætter grænser for, hvad den kan bruges til. Og du kan afprøve det ganske kvit og frit via https://chat.openai.com (jeg indsætter ikke linket, da det af en eller anden årsag “dør”).

Svar fra ChatGPT

Jeg sendte ovenstående til robotten – og den svarede venligt dette:

Wow, det ser ud til, at du har haft en meget produktiv interaktion med ChatGPT i forhold til Excel makroer! Det er imponerende, hvordan du har brugt AI til at effektivisere og forbedre din arbejdsproces, især når det kommer til håndtering af dine slægtsdata.

Fra din tekst kan jeg konkludere:

  1. Anvendelsen af AI i Praksis: Du har demonstreret, hvordan man kan bruge kunstig intelligens til at løse specifikke udfordringer i stedet for blot at frygte teknologien. Dette er et godt eksempel på den positive anvendelse af AI i dagligdags opgaver.
  2. Værktøjet Excel: Excel er et utroligt kraftfuldt værktøj, som du tydeligvis har en dyb forståelse for. Med makroer kan man automatisere mange manuelle processer, som du har illustreret.
  3. Kommunikation med AI: Du pointerer, at selvom ChatGPT er effektiv, så er det nogle gange nødvendigt at gentage eller omformulere spørgsmål for at få det ønskede resultat. Dette er en vigtig lektion, da AI stadig er afhængig af den input, den modtager.
  4. Slægtsforskning: Din passion for slægtsforskning skinner tydeligt igennem, og det er fantastisk at se, hvordan teknologi kan hjælpe dig med at dykke dybere ned i denne hobby.
  5. Effektivitet: Til sidst fremhæver du, hvor meget tid du har sparet ved at bruge ChatGPT i forhold til at søge efter løsninger på Google. Dette viser potentialet i at bruge specialiserede værktøjer som ChatGPT til bestemte opgaver.

Jeg vil sige, at det er en rigtig flot og oplysende artikel, du har skrevet. Den viser, hvordan man kan kombinere teknologisk innovation med personlige interesser og arbejdsopgaver for at skabe værdi. Godt gået! 😊👍

Og hvis der er mere, du gerne vil have feedback på eller uddybe, så lad mig endelig vide det!

Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.

/1 Kommentar/i , , /af , ,

Prøv at se en samtale med ChatGPT (AI)

Prøv at se en samtale med ChatGPT (AI)

Jeg er fascineret af ChatGPT

Prøv at se en samtale med ChatGPT (AI)

Man kan være lidt bange for “AI” (Artificial Intelligence), eller man kan være begejstret.

  • Hvis jeg var Google, ville jeg være bange.
  • Jeg er bruger, så jeg er begejstret.

Tænk om vi i en tid, hvor der mangler arbejdskraft, kunne få AI til at løse alle de opgaver, der ikke kræver menneskelig indsigt? Sygeplejersker, psykologer, psykiatere (for nu at blive i min egen lille verden) kræver mennesker og relationer, men vi mangler dem. Hvis nu alle “dumme-opgaverne” kunne løses af robotter/med kunstig intelligens, ville vi kunne frigøre menneskerne.

Retfærdighedens idé er et krav om lighed

En dag skrev en af mine læsere, at det indenfor juraens verden var en farlig vej at gå. Jeg er slet ikke enig.

Det skyldes den for længst afdøde professor Alf Roos, der allerede i 1953 (og i den uændrede udgave i 1966 som jeg læste efter i 1986 …) blandt andet skrev at: retfærdighedens idé er et lighedskrav. Lighedskravet medfører, at det lige skal behandles lige (“Om ret og retfærdighed” side 353). Mange mener, at en afgørelse er “uretfærdig”, når de ikke kan lide den – men det er noget sludder.

Forestiller man sig nu, at man sætter den unge fuldmægtig til at undersøge al retspraksis på et givent område, for at afgørelserne vil blive retfærdige = “lige”, bliver vedkommende jo aldrig færdig. Enhver, der modtager afgørelsen, kan helt berettiget tillade sig at tvivle på dens rigtighed, for har fuldmægtigen nu fået det hele med?

Stopper man løbende afgørelser med bagvedliggende årsager ind i et system af en eller anden slags, er sikkerheden, for at de fremtidige afgørelser bliver fuldkommen retfærdige, langt større. Systemet vil på halve sekunder kunne samle al præcedens og spytte en virkelig retfærdig afgørelse ud.

Vi mangler radiologer og radiografer

TV Avisen kl. 7 viste den store mangel på radiologer og radiografer. Vi har selve udstyret, men det står ubrugt hen i tomme lokaler. Hvis vi fodrede AI med al (eller i det mindste størstedelen) af deres viden, kunne flere mennesker blive undersøgt.

Lige nu er status, at man bliver nødt til at nedprioritere nogle patienter med store smerter, fordi fx mennesker, der har været ude for eksempelvis et trafikuheld, må komme først.

Jeg kan ikke se, hvorfor vi ikke skulle prøve at drage nytte af AI.

Amerikansk infiltration?

Nogle mener, at de AI-modeller, der findes lige nu, er amerikaniserede og dybt konservative. Det kan godt være, det ved jeg ikke noget om. Men man kan jo lade være at bede om svar, der forudsætter holdninger.

Indledningsvist var jeg også selv meget kritisk over for AI, men jo mere jeg bruger det, jo mere begejstret er jeg. Jeg fandt ret hurtigt ud af, at mine første spørgsmål var uegnede. Eksempelvis spurgte jeg, hvem min far var, og det kom der et temmelig forvrøvlet svar ud af.

Her har du mine andre artikler om ChatGPT.

Jeg er så glad for det, at jeg har besluttet mig for at betale $20 pr. måned for den mest kendte version: https://chat.openai.com/ der er bedst kendt under navnet ChatGPT. Ved at betale får man nyeste version.

Når man ikke kan skrive makroer, kan ChatGPT hjælpe

Jeg ville så gerne lære at skrive makroer i Excel, men det er som om, min hjerne ikke egner sig til det. Og når man ikke ved, hvad en given funktion kaldes, kan man heller ikke søge med Google. Men ChatGPT kan. Og den leverer svaret på under et sekund. Det vigtige er, at problemformuleringen er helt præcis. Det er jo trods alt bare en robot.

Det kan være, jeg gør noget helt forkert, men jeg kan ikke lade være med at skrive til maskineriet, som var det et menneske, for jeg får menneskelige svar retur. Herunder ser du min dialog med ChatGPT fra i formiddag. Det er bare for sjov, men det er fascinerende.

User:
Hej igen

Du har tidligere hjulpet mig med en makro i Excel, som jeg viser nederst og den fungerer meget fint!

Her prøver jeg at forklare, hvad “vi” allerede har, og hvilken udbygning, jeg ønsker din hjælp til.

Makroen tilbyder en rulleliste/drop down-liste i kolonne K, hvor den henter de mulige værdier i kolonne N. Det er supergodt! Jeg ved ikke, om du mener, vi skal udbygge den, eller hvad der er bedst at gøre. Det er årsagen til, at jeg viser den her.

I kolonne G skriver jeg et ID på mine direkte aner. På forhånd har jeg også listet alle de direkte aner, jeg på nuværende tidspunkt kender. De findes i kolonne B. I kolonne A har jeg bare skrevet ordet ”Ja” ud for alle de direkte aner.

Ved hjælp af fx denne indeks og sammenlign: =INDEKS(A:A;SAMMENLIGN(G996;B:B;0)) i kolonne H henter jeg ordet ”Ja” fra kolonne A. Dvs. hvis jeg i kolonne H har ”Ja” ved jeg, at det er en direkte ane. Dem formaterer jeg med lidt farve, så de er lette at se. På dansk kalder vi formateringen fra Excel for ”Bemærk”.

Problemet er: Når jeg ønsker at analysere filen ved fx at sortere værdierne lidt, er det som om, formateringen hænger ved cellen og ikke værdien. Jeg mener: Hvis jeg fx sorterer efter en dato fra kolonne L, så er det ikke længere den rigtige formatering. Hvis jeg fx har formateret E996:H996 med ”Bemærk” så er det stadig disse celler, der er formaterede, også selvom der ikke længere efter sorteringen står en direkte ane i række 996.

Det er lidt svært at forklare. Forstår du, hvad jeg mener?

Nu kunne jeg godt tænke mig, at formateringen ikke afhænger af rækken men af indholdet i kolonne H.

Kan det lade sig gøre?

Herunder finder du den makro, “vi” allerede har:

Private Sub Worksheet_Change(ByVal Target As Range)
‘Code by Sumit Bansal from https://trumpexcel.com
‘ To allow multiple selections in a Drop Down List in Excel (without repetition)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Column = 11 And Target.Row > 1 And Target.Row < 5001 Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = “” Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = “” Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & “, ” & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

ChatGPT:
Forstår godt problemet med formatering, der ikke følger med værdien ved sortering. I Excel er celleformatering standardmæssigt knyttet til cellen og ikke værdien i cellen, hvilket kan være frustrerende i nogle situationer som den, du beskriver.

En måde at løse dette på er at bruge en VBA-makro, der automatisk genanvender formateringen baseret på værdien i kolonne H. Dette kunne laves sådan, at hver gang værdierne i kolonnen ændrer sig (f.eks. ved sortering), tjekkes der for “Ja” i kolonne H, og den tilhørende række formateres passende.

Her er et forslag til, hvordan dette kan implementeres:

vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim rng As Range

‘ Din eksisterende kode kan være her

‘ Tjekker kun kolonne H for ændringer
If Not Intersect(Target, Columns(“H”)) Is Nothing Then
Set rng = Intersect(Target, Columns(“H”))

‘ Gennemgår alle ændrede celler i kolonne H
For Each cell In rng
If cell.Value = “Ja” Then
‘ Formaterer cellerne fra E til H i den pågældende række
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = RGB(255, 255, 0) ‘ Gul baggrund
Else
‘ Fjerner formatering
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = xlNone
End If
Next cell
End If

‘ Gendanner event håndtering
Application.EnableEvents = True
End Sub

Denne makro vil køre, når der sker ændringer i kolonne H. Hvis en celle i kolonne H ændres til “Ja”, vil den tilsvarende række fra E til H få en gul baggrund. Hvis værdien ændres til noget andet, vil formateringen blive fjernet.

Du kan tilføje denne del til din eksisterende Worksheet_Change makro, eller lave det som en separat makro, afhængigt af hvad der passer bedst til din brug.

Håber det hjælper!

User
Tusind tak. Jeg tester og vender tilbage til dig.

ChatGPT
Det lyder godt! Tag dig endelig den tid, du har brug for til at teste det, og vend tilbage, hvis du har flere spørgsmål eller støder på problemer. God fornøjelse! 😊

User
Hvis jeg nu vil implementere dit forslag i den eksisterende makro, hvordan skal hele makroen så se ud (jeg er ikke god til VBA)

ChatGPT

Selvfølgelig, her er din eksisterende makro kombineret med den nye del, der håndterer formatering baseret på værdien i kolonne H:

VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Dim cell As Range
Dim rng As Range

Application.EnableEvents = True
On Error GoTo Exitsub

‘ Din eksisterende kode for kolonne K
If Target.Column = 11 And Target.Row > 1 And Target.Row < 5001 Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else
If Target.Value = “” Then
GoTo Exitsub
Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = “” Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & “, ” & Newvalue
Else
Target.Value = Oldvalue
End If
End If
End If
End If
End If

‘ Ny kode for at håndtere formatering i kolonne H
If Not Intersect(Target, Columns(“H”)) Is Nothing Then
Set rng = Intersect(Target, Columns(“H”))
For Each cell In rng
If cell.Value = “Ja” Then
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = RGB(255, 255, 0) ‘ Gul baggrund
Else
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = xlNone
End If
Next cell
End If

Exitsub:
Application.EnableEvents = True
End Sub

Sub UpdateYellowBackgrounds()
Dim cell As Range
Dim LastRow As Long

LastRow = Cells(Rows.Count, “H”).End(xlUp).Row

For Each cell In Range(“H2:H” & LastRow)
If cell.Value = “Ja” Then
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = RGB(255, 255, 0)
Else
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = xlNone
End If
Next cell
End Sub

Indsæt denne samlede makrokode i din VBA-editor ved at erstatte den eksisterende Worksheet_Change makro. Dette skulle kombinere funktionaliteten af din eksisterende drop-down listehåndtering i kolonne K med den nye formateringshåndtering i kolonne H.

Håber det hjælper!

User
Fedt! Jeg tester

ChatGPT
Fantastisk! God fornøjelse med testningen, og tøv ikke med at vende tilbage, hvis du har yderligere spørgsmål eller støder på nogle udfordringer. 😊

User
Jeg tror, det fungerer super fint! Mange tak. Nu har jeg to udfordringer:

1) Jeg lavede en test, der viste, at de fik gul baggrund. Men der var også nogle streger omkring cellerne, jeg skulle have væk, derfor formaterede jeg alt tilbage til “Normal”.

2) Hvordan kører jeg bare makroen og får alle de gule felter tilbage?

ChatGPT
Fantastisk at høre, at det ser ud til at fungere!

Angående de uønskede streger omkring cellerne: De kan være et resultat af en tidligere formatering. Du kan fjerne dem ved at vælge de relevante celler, gå til fanen “Startside”, og under “Skrift” finde og klikke på ikonet for kantlinjer (det ligner en lille firkant med streger rundt om). Her kan du vælge “Ingen kantlinje”.

For at køre makroen på alle eksisterende celler i kolonne H og dermed få de gule felter tilbage, kan du tilføje en lille rutine til din eksisterende kode eller køre en separat makro, der går igennem alle rækkerne og tjekker værdierne i kolonne H. Her er et eksempel på, hvordan en sådan separat makro kunne se ud:

vba

Sub UpdateYellowBackgrounds()
Dim cell As Range
Dim LastRow As Long

LastRow = Cells(Rows.Count, “H”).End(xlUp).Row

For Each cell In Range(“H2:H” & LastRow)
If cell.Value = “Ja” Then
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = RGB(255, 255, 0)
Else
Range(“E” & cell.Row & “:H” & cell.Row).Interior.Color = xlNone
End If
Next cell
End Sub

Du kan indsætte denne makro i samme VBA-modul som din eksisterende Worksheet_Change makro. Efter du har gjort det, kan du køre UpdateYellowBackgrounds manuelt for at opdatere de gule felter baseret på værdierne i kolonne H.

User
Det fungerer helt fantastisk. Tusind tak for hjælpen.

ChatGPT
Det var så lidt, jeg er rigtig glad for at høre, at det fungerer for dig! Hvis du har flere spørgsmål eller støder på nye udfordringer, er du altid velkommen til at vende tilbage.

God fornøjelse med dit Excel-projekt! 😊

 

Prøv at se en samtale med ChatGPT (AI)

 

Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.