Ricordate il gioco pensa a un numero, moltiplicalo per 2, aggiungi Y (il numero chiave) dividi tutto per 2, sottrai il numero che hai pensato Il risultato è dato dal numero che abbiamo fatto aggiungere Y diviso 2. Per semplificare il calcolo il nostro numero lo scegliamo piccolo e pari in modo da essere divisibile…
Salve ragazzi, metto a disposizione il file di calcolo per stabilire la media ponderata (soprattutto per l’università). Funziona con tutti i sistemi operativi a patto che sia installato open-office o office.
Lo script di oggi permette di fare interagire l’editor Visual Basic Script di windows con Excel (foglio elettronico o foglio di calcolo) costruendo lo schema delle tabelline dall’1 al 10 e visualizzandole in un grafico ruotante in 3D. Codice:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Dim xlApp, xlBook, xlChart, xlWks, xlRange Dim iRows, iCols, iRotate Const xl3DColumn = -4100 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlWks = xlBook.Worksheets(1) 'numero del foglio di lavoro Set xlRange = xlWks.Range("A1:J10") 'intervallo di celle For iRows = 1 To 10 'numero delle righe For iCols = 1 To 10 'numero delle colonne xlRange.Cells(iRows,iCols).Value = iRows * iCols Next Next xlApp.Visible = True xlWks.Activate xlRange.Select set xlChart = xlBook.Charts.Add With xlChart .Activate .Type=xl3DColumn For iRotate = 0 to 360 Step 20 'stabilisce la rotazione completa e che si deve fermare a 20° xlChart.Rotation = iRotate Next xlChart.Rotation = 20 'rotazione a 20° End With xlBook.SaveAs "D:Grafico_Excel.xls" 'nome del file Set xlRange= Nothing Set xlChart= Nothing Set xlWks= Nothing Set xlBook= Nothing Set xlApp = Nothing |
N.B.: si possono cambiare i parametri in rosso per avere un grafico diverso, il testo…