Esperti in GASMacro

Hai un problema con Excel?

Nuova discussione

Esperti in GAS/Macro
di Fabio71 data: 21/03/2017 16:13:16
Su suggerimento di un utente (patel) ripropongo la domanda; ho girato su google e non ho trovato risposte: vorrei sapere come "trasformare" una macro di excel in uno script utilizzabile in google sheet.
Grazie
di alfrimpa data: 21/03/2017 16:19:33
Ciao Fabio

Esprimo solo un parere personale e mi auguro vivamente di sbagliarmi ma penso che difficilmente troverai su questo forum esperti di programmazione in GAS.

Alfredo
di patel data: 21/03/2017 17:51:51
si tratta soltanto di imparare javascript
h t t p://ramblings.mcpher.com/Home/excelquirks/gooscript/js

di scossa data: 21/03/2017 20:51:41
leggi questo thread:

VBA e Google Apps Script

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

di patel data: 22/03/2017 08:23:45
non avevo dubbi che tu fossi in grado di fare anche questo
da oggi sei stato nominato .... traduttore ufficiale da VBA a GAS

Esperti in GAS/Macro
di Fabio71 data: 22/03/2017 10:58:12
Anche dopo aver letto i post sono e resto davvero ignorante in materia.
Allego il codice e chiedo se Scossa (ho visitato il sito e ho trovato delle cosine utili) può fare qualcosa.

Sub Aggiorna()
'
' Aggiorna Macro
'

'
    Range("B5:K10").Select
    ActiveWorkbook.Worksheets("Classifica").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classifica").Sort.SortFields.Add Key:=Range( _
        "C5:C10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classifica").Sort.SortFields.Add Key:=Range( _
        "J5:J10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classifica").Sort.SortFields.Add Key:=Range( _
        "H5:H10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classifica").Sort.SortFields.Add Key:=Range( _
        "K5:K10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classifica").Sort
        .SetRange Range("B5:K10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Vuoi Approfondire?