Torna indietro   Hardware Upgrade Forum > Software > Programmazione

ASUS ROG Kithara: quando HIFIMAN incontra il gaming con driver planari da 100mm
ASUS ROG Kithara: quando HIFIMAN incontra il gaming con driver planari da 100mm
ASUS e HIFIMAN uniscono le forze per creare ROG Kithara, cuffie gaming con driver magnetici planari da 100mm, design open-back e microfono MEMS full-band. Una proposta che ambisce a coniugare fedeltà per audiofili e performance ludiche, disponibili a 319 euro
Roborock Qrevo Curv 2 Flow: ora lava con un rullo
Roborock Qrevo Curv 2 Flow: ora lava con un rullo
Qrevo Curv 2 Flow è l'ultima novità di casa Roborock per la pulizia di casa: un robot completo, forte di un sistema di lavaggio dei pavimenti basato su rullo che si estende a seguire il profilo delle pareti abbinato ad un potente motore di aspirazione con doppia spazzola laterale
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite
Abbiamo guidato per diversi giorni la Alpine A290, la prima elettrica del nuovo corso della marca. Non è solo una Renault 5 sotto steroidi, ha una sua identità e vuole farsi guidare
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 13-04-2014, 16:11   #1
Il castigatore
Senior Member
 
L'Avatar di Il castigatore
 
Iscritto dal: Oct 2005
Città: Messina - Catania
Messaggi: 783
[VBA] - assegnare a variabile valore da array

Ciao a tutti,
sto cercando di risolvere un progetto che mi è stato affidato.
Premesso che non sono iscritto in una facoltà di informatica e lo svolgimento dello stesso è facoltativo (è richiesto il semplice schema di risoluzione), ho provato a programmare lo stesso una macro di excel per risolvere una funzione, ma continuo ad avere un errore in questa riga di codice:
Codice:
        If Cells(3, r) >= massimo Then
il blocco da cui è tratta è questo:
Codice:
'controllo i p(k) dei d(i) salvati nell'array
    For k = 0 To id + 1
        r = idjob(k)
        If Cells(3, r) >= massimo Then
            massimo = Cells(3, r)
            idmax = r
            Else
        End If
        k = k + 1
    Next
ovvero, prima ho salvato in un array idjob(100) dei valori che rispondono ad una particolare condizione, quindi tramite il blocco sopra dovrei scegliere il massimo tra quelli prima selezionati.

Vi allego anche il codice che ho usato per selezionare prima i valori da inserire nell'array:

Codice:
 id = 0
 For i = 2 To njob + 1
        If Cells(4, i) >= Sum Then
            idjob(id) = i
            id = id + 1
            Else
        End If
        i = i + 1
    Next

grazie
__________________
Vuoi passare un paio di settimane in provincia di Messina, a 2 Km dal mare? Chiedimi come, o clicca qui
Si narra che una volta il regolamento (per mezzo di FREEMAN) passò da questa firma
Il castigatore è offline   Rispondi citando il messaggio o parte di esso
Old 15-04-2014, 22:02   #2
starfred
Senior Member
 
Iscritto dal: Jul 2011
Messaggi: 381
Ciao, se non ricordo male devi prendere il valore
Codice:
If Cells(3, r).Value >= massimo Then
__________________
Concluso positivamente con: Kamzata, Ducati82, Arus, TheLastRemnant, ghost driver, alexbull1, DanieleRC5, XatiX
starfred è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


ASUS ROG Kithara: quando HIFIMAN incontra il gaming con driver planari da 100mm ASUS ROG Kithara: quando HIFIMAN incontra il gam...
Roborock Qrevo Curv 2 Flow: ora lava con un rullo Roborock Qrevo Curv 2 Flow: ora lava con un rull...
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite Alpine A290 alla prova: un'auto bella che ti fa ...
Recensione HONOR Magic 8 Lite: lo smartphone indistruttibile e instancabile Recensione HONOR Magic 8 Lite: lo smartphone ind...
Sony WF-1000X M6: le cuffie in-ear di riferimento migliorano ancora Sony WF-1000X M6: le cuffie in-ear di riferiment...
Changan risponde presente: batterie allo...
Creatore di Telegram accusato di terrori...
Microsoft prepara molte novità le...
Alcolock obbligatorio da oggi: ecco chi ...
Intel Unified Core: un annuncio di lavor...
Nikon rinnova il suo telezoom profession...
Ci sarà una nuova serie di Evange...
ESA Space Rider: superato un test per lo...
Horse e Repsol hanno costruito il protot...
Beats Solo 4 a 111€: le iconiche cuffie ...
IBM crolla in Borsa (-13%) dopo l'annunc...
Hisense punta al secondo posto nei TV in...
TSMC e Huawei frenano sul packaging 3D p...
Meta sigla un accordo pluriennale con AM...
Canva acquisisce Cavalry e Mango AI, due...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 16:40.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v