Chat GPT - La rivoluzione dell'intelligenza artificiale

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.

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

        
Davide Moroni

Business Advisor | CFO | Associate partner at yourCFO - a division of YOURgroup

11 mesi

Confermo 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.

Per visualizzare o aggiungere un commento, accedi

Altri articoli di Luca Gelmini

Altre pagine consultate