Chat GPT - La rivoluzione dell'intelligenza artificiale
Chat GPT.
Uno strumento che di cui spesso si parla e che stimola reazioni molto diverse.
Alcuni, che simpaticamente definirò "negazionisti" si scagliano contro questo strumento dicendo che è inutile, che toglierà posti di lavoro, che danneggerà il mondo.
Altri semplicemente non sanno cosa sia..
Alcuni invece, io mi inserisco in questo gruppo, sono semplicemente affascinati dalle potenzialità di questo strumento anche nella sua semplice versione gratuita.
Personalmente lo trovo uno strumento e come ogni strumento l'utilizzo che se ne fa lo trasforma in un qualcosa di utile o meno.
Le potenzialità sono davvero notevoli: si possono scrivere righe di codice (VBA, C, Python etc), si possono generare testi, creare presentazioni.
E' uno strumento che può aiutare ad aumentare la produttività oltre i limiti dell'attuale immaginazione.
Consigliati da LinkedIn
Il suo funzionamento si basa sul linguaggio parlato, colloquiale.
Basta descrivere quello che vogliamo e l'AI ce lo fornirà in pochi istanti.
Oggi ho fatto un test. Ho chiesto all'AI di creare, generando un codice in VBA, una tabella in excel che mi elencasse le regioni, il relativo capoluogo di provincia e l'estensione della regione in Km2, il risultato è stato immediato.
Grazie all'utilizzo delle AI possiamo semplificare l'ottenimento di dati, informazioni ed il loro utilizzo nelle tabelle.
Ad esempio alla tabella appena creata potremmo aggiungere il valore di fatturato mensile per regione ed ottenere così una base di dati sulla quale lavorare...
Ecco il codice che è stato generato.
Sub ElencaRegioniProvinceItaliane()
Dim regioni() As String
Dim capoluogi() As String
Dim estensioneRegioni() As Double
Dim i As Integer
Dim lastRow As Long
Dim currentRow As Long
' Definisci le regioni italiane
regioni = Split("Abruzzo,Basilicata,Calabria,Campania,Emilia-Romagna,Friuli-Venezia Giulia,Lazio,Liguria,Lombardia,Marche,Molise,Piemonte,Puglia,Sardegna,Sicilia,Toscana,Trentino-Alto Adige,Umbria,Valle d'Aosta,Veneto", ",")
' Definisci i capoluoghi corrispondenti
capoluogi = Split("L'Aquila,Potenza,Reggio Calabria,Napoli,Bologna,Trieste,Roma,Genova,Milano,Ancona,Campobasso,Torino,Bari,Cagliari,Palerme,Firenze,Trento,Perugia,Aosta,Venezia", ",")
' Definisci l'estensione delle regioni in chilometri quadrati
Dim estensioneRaw() As String
estensioneRaw = Split("1085.00,10073.00,15596.00,13671.00,22452.00,7940.00,17232.00,5417.00,23844.00,9732.00,4460.00,30135.00,19540.00,24104.00,9250.00,22989.00,10476.00,9640.00,8399.00,3260.00", ",")
ReDim estensioneRegioni(UBound(estensioneRaw))
' Converti i valori in numeri decimali
For i = LBound(estensioneRaw) To UBound(estensioneRaw)
estensioneRegioni(i) = CDbl(estensioneRaw(i))
Next i
' Trova l'ultima riga utilizzata nella colonna A
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Inserisci i titoli delle colonne
Cells(1, 1).Value = "Provincia"
Cells(1, 2).Value = "Capoluogo"
Cells(1, 3).Value = "Estensione (km²)"
' Inserisci le regioni, capoluogi e l'estensione delle regioni
For i = 0 To UBound(regioni)
' Inserisci il nome della regione
currentRow = lastRow + i
Cells(currentRow, 1).Value = regioni(i)
' Inserisci il capoluogo
Cells(currentRow, 2).Value = capoluogi(i)
' Inserisci l'estensione della regione
Cells(currentRow, 3).Value = estensioneRegioni(i)
Next i
' Formatta come tabella
Dim tableRange As Range
Set tableRange = Range("A1:C" & currentRow)
ActiveSheet.ListObjects.Add(xlSrcRange, tableRange, , xlYes).Name = "TabellaRegioniProvince"
ActiveSheet.ListObjects("TabellaRegioniProvince").TableStyle = "TableStyleMedium9"
End Sub
Business Advisor | CFO | Associate partner at yourCFO - a division of YOURgroup
11 mesiConfermo e condivido. In pochi minuti ho inserito, con pochi adattamenti, un codice complesso per Power BI che altrimenti mi avrebbe richiesto metà giornata. Produttività e efficacia.