View Full Version : Excel + VBA
:D
devo aggiungere un menu popup ad un foglio di Excel ma senza che rimanga necessariamente attivo un loop
come voci del menu popup mettete quello che volete; a me interessa l'implementazione ed eventualmente come si risponde all'evento quando si seleziona un suo Item
grazie 2000 :)
http://www.bygsoftware.com/examples/PopUpMenuDemo.htm
e dove lo vuoi il popup, su una CommandBar o delocalizzato a piacere sul foglio (tipo al clic destro del mouse).
però dopo passi a VBA ! :)
mi basta che cliccando su di una cella, non appaia quello di default: vedi esempio nel link
non sarebbe male se avesse:
Item e SubItem :)
bravo, chi fa da se fa per tre !
ma, se ti serve, mi puoi chiedere anche cose più difficili, sempre nel campo Visual... !
:)
Originally posted by "a2000"
bravo, chi fa da se fa per tre !
ma, se ti serve, mi puoi chiedere anche cose più difficili, sempre nel campo Visual... !
:)
infatti non l'ho fatto io :D
ne hai una versione più pulita??
Originally posted by "misterx"
mi basta che cliccando su di una cella, non appaia quello di default: vedi esempio nel link
non sarebbe male se avesse:
Item e SubItem :)
e dopo fai il bravo e passi a VBA ? :D
Originally posted by "a2000"
e dopo fai il bravo e passi a VBA ? :D
va che io saltuariamente già uso VBA
:o ma solo per cose spicciole: tanto c'è a2000 :D
;)
vai e stupiscimi :)
mamma mia, misterx ma t'è preso il ballo di San Ancelotti stasera (ti ride anche il C++ per la Coppa di ieri sera !) :D :D
ma fare da se vuol dire anche guardare prima quello che hanno fatto gli altri. :)
Originally posted by "a2000"
mamma mia, misterx ma t'è preso il ballo di San Ancelotti stasera (ti ride anche il C++ per la Coppa di ieri sera !) :D :D
ma fare da se vuol dire anche guardare prima quello che hanno fatto gli altri. :)
C++a@@arola, allora seguendo il tuo modo di dire: faccio sempre tutto da me :cool:
:sofico:
p.s.
non disdegno alcun linguaggio
no io ho detto "guardare" non copiare.
l'ho già detto in un altra discussione: per me la sequenza giusta d'apprendimento è:
1) definizione del problema
2) cimentarsi, incolti, per trovare una soluzione personale
3) studiare le soluzioni degli altri (lo "stato dell'arte")
4) cimentarsi, colti, per trovare una soluzione personale
e lo step 2 è fondamentale (è il gioco dei bambini http://forum.hwupgrade.it/faccine/16.gif)
poi c'è lo step 4: http://forum.hwupgrade.it/faccine/10.gif
:D
Ma sei milanista o no ? http://forum.hwupgrade.it/faccine/47.gif
Originally posted by "a2000"
Ma sei milanista o no ? http://forum.hwupgrade.it/faccine/47.gif
Che tristezza...non mi dire che sei milanista :muro: :muro: :cry: :cry: :cry:
:o "certo che sono milanista: che credevi"
frase storpiata e ripresa dall'omonimo film "codice d'onore" (Jack Nicholson) :D
up
che ne dite di un bell'esempio semplificato :D in quanto quello da me trovato non è l'ideale?
ho bisogno di creare dinamicamente un menu pupup in excel
questo deve venire creato quando si apre il file
le ITEM del menu popup devono essere prese da una colonna es:
A1 carciofi
A2 gelati
A3 pasticcini
A4 prosciutto
A5 spaghetti
A6 etc.......
etc........
mmmah, io preferirei piuttosto:
NERCHIA
MINCHIA
E
PUCCHIACCHIA
:D
bello,
ti mando un PopUp Menu delocalizzato a N livelli a piacere (nell'esempio sono 4).
Sono una ventina di righe di codice oltre a quelle necessarie per il popolamento del menù.
Se interessa, si può semplificare la modificabilità del numero dei livelli utilizzando variant array: vCtrl(i)(j)(k)(l)(m) .....
:)
P.S.
ti piace o' presepie ?
beh, la leggibilità lascia alquanto a desiderare
però funziona :D
(a2000) : ma mi dici dov'è sta cena http://forum.hwupgrade.it/faccine/22.gif ???
ma ti piace di più di quello di mister Bean ?
(comunque può essere molto semplificato, magari con una ricursiva)
per la cena aspettiamo il topic di matpez.
errata corrige:
1) togliere l'apice a On Error GoTo ErrorHandler
2) aggiungere Resume Next dopo ErrorHandler:
3) sostituire:
Application.Caption = "MA CI VIENI ALLA CENAAAAAAAAAAAAAAAAAAA ??????????????????????????"
con:
Application.Caption = "W LA PRUGNA"
:D :D
Originally posted by "a2000"
ma ti piace di più di quello di mister Bean ?
(comunque può essere molto semplificato, magari con una ricursiva)
per la cena aspettiamo il topic di matpez.
chi è mister Bean???
quello che imbianca casa facendo esplodere le latte di tempera??? :D
domani dò un occhio al tutto: ocio che critico eh??? ;)
tranquillo: a ogni critica dimezzo le righe ! :cool:
misterx schiusa nè, ma a un milanese dell'amata (e perduta, per ora ...) Milano lo posso dire ...
ma .... dico .... vedendo che balli con l'avatar tra mandrake e gatto silvestro ... ehm ...
forse non hai deciso ancora se sei un ganassa o un pirla ? :D :D
d'altra parte è quello che dice anche il nick: misterx ma ...
mister_ganassa o mister_pirla this is the PopUp ? :D :D
te l'ho detto ... sempre con simpatia :)
Originally posted by "a2000"
misterx schiusa nè, ma a un milanese dell'amata (e perduta, per ora ...) Milano lo posso dire ...
ma .... dico .... vedendo che balli con l'avatar tra mandrake e gatto silvestro ... ehm ...
forse non hai deciso ancora se sei un ganassa o un pirla ? :D :D
d'altra parte è quello che dice anche il nick: misterx ma ...
mister_ganassa o mister_pirla this is the PopUp ? :D :D
te l'ho detto ... sempre con simpatia :)
all'avatarro non dò molta importanza; era solo una prova tecnica per pigliare pesci come te :D :D :D
ma tu di dove sei????
Papuasia??? :D
no, della iasa :D :D
ti mando un'altra versione senza struttura di supporto, più semplice da usare soprattutto per la modificabilità del numero di livelli.
è solo più lenta la generazione iniziale una tantum del PopUpMenu (nell'esempio sono comunque 10*5*3*3*5 = 2250 voci di menù ! :eek: ).
Sbagli a non dare molta importanza all'avatar (e al nick (?)): sono l'anima del 3Dder :D
Non è che anche tu che stai a Milano sei interiormente in Papuasia ?
sospeso tra il cielo e il mare ....
http://www.lonelyplanet.com/photo_master/slideshow/pacific/cook_islands/4015-2.jpg
ottimi gli esempi ma.... :D
se volessi aggiungere delle Items ad un menu popup esistente come ad esempio quello che appare di default cliccando col tasto destro del mouse sul mio bel foglio di excel??
per intenderci il famoso: Copia/Incolla/Inserisci etc.....
supponi di voler inserire un Item + Subitem in testa al popup: come famo? :sofico:
famo, famo ...
ma però dimmi caro ... sono cose utili per mister_mandrake ...
o quesiti fatti a Ca++o cioè a dispetto da mister_gattosilvestro (alias mister_pirla) ??!
:D
mi è assolutamente utile ciò che ti chiedo
se così non fosse, temo che non mi verrebbero in mente determinati quesiti
p.s.
non amo far lavorare le persone per nulla ;)
e di grazia, non per farmi i C++ tuoi ....
ma potresti almeno dare un cenno, un sorriso, un apostrofo rosa del contesto ?
Grazie.
:)
http://www.add-ins.com/popupmenu.gif
allora lo hai già fatto ...
o non vuoi spendere 39.95 $ :D
http://www.add-ins.com/cellpopupmenu.htm
va beh, ti scalo 20 € dalla cena :pig:
PRONTI !!! :cool:
N.B.
misterx paga 20 € per a2000 alla cena della sezione :D
Naturalmente anche tutti gli altri menù di Excel sono modificabili (metti, togli e sostituisci) a piacere. :)
Naturalmente anche tutti gli altri menù di Excel sono modificabili (metti, togli e sostituisci) a piacere. :)
copia-incolla
copia-incolla
copia-incolla
:D
grazie a2000
ottimo lavoro
ottimo anche il suo inglese :D :D
domani gli dò un occhio, anzi, meglio due :sofico:
:o ed alla fine verrai informato sul che o sul per cosa o su quello che ti pare, sono stati usati :D
però mi devi anche dire come togliere dai piedi le nuove ITEMS, per ripristinare il mio popup di defaul come voleva Bill Gates :D
ahhhhhhh, ti rimane il topo morto ! :D :D
io mi occupo dell'introduzione e non dell'estrazione ! :pig: :D :D
ma visto che ci siamo rappacificati ti mando la versione con inlet&outlet
:)
perchè dici: rappacificati?
mica siamo marito e moglie :D :D :D
scolta un momento ne
se ne mettevi una banalissima versione con una banalissima chiamata alla tal funzione (xyz) e che creava un singolo Item con relativo subitem era sufficiente ;)
di la verità che hai fatto apposta ad incasinarmi il codice
azz...a me serve anche capire lu meccanismu :sofico:
purtroppo non ho molto tempo a disposizione per terminare il lavoro che ho promesso :( e poi, non essendo un puro VBista, e fammi sta versione più umana del tuo codice
vedrò di contraccambiare :)
ottimo Cionci ma....
se riesci a condensare ulteriormente ;)
dopo i sofismi li aggiungo da me :)
purtroppo questo è un periodo nel quale mi trasformo in un polipo; tutti hanno fretta e devo passare da un linguaggio all'altro e da una mansione all'altra quindi: ogni aiuto è ben accetto :)
e alla fine arrivano i Cplusplani ! :p
però cionci dovresti almeno dire che ti è piaciuto il presepie ! :cool:
te lo dico io: hai lavorato molto bene però.......
non esagerare con l'output :cool:
cionci ma ti è piaciuto il presepie = presepies().presepie ?
:cool:
Certo che mi è piaciuto ;)
Comuqnue secondo me stringando il codice ancora di più si perderebbe di significato... E' tutto messo lì...BuildControl aggiunge il controllo...
Originally posted by "misterx"
te lo dico io: hai lavorato molto bene però.......
non esagerare con l'output :cool:
e se ti facessi un wizard di composizione automatica del PopUp ?
:D
Originally posted by "cionci"
Certo che mi è piaciuto ;)
Comuqnue secondo me stringando il codice ancora di più si perderebbe di significato... E' tutto messo lì...BuildControl aggiunge il controllo...
cionci, devo dire che che cogli un punto: "stringando il codice ancora di più si perderebbe di significato"
e infatti la Dolce Prolissità della programmazione strutturata/ad oggetti semplifica e illumina la vita !
misterx ti mando una versione commentata e pronta per l'uso.
devi solo costruire i PopUp menu' che ti servono nella Sub ComponiPopUp.
Tutto il resto rimane invariato.
:)
ok a2000 :)
http://forum.hwupgrade.it/faccine/22.gif qual'è, nel tuo benamato VB, la funzione che ti torna il numero della settimana dando in pasto :D ad essa una data?
Funzione DatePart[b]
Restituisce un valore Variant (Integer) contenente la parte specificata di una data.
Sintassi
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
La sintassi della funzione DatePart è composta dai seguenti argomenti predefiniti:
....
[/size]
Funzione Weekday[b]
Restituisce un valore Variant (Integer) che contiene un numero intero corrispondente al giorno della settimana.
Sintassi
Weekday(date, [firstdayofweek])
La sintassi della funzione Weekday è composta dai seguenti
...
[/size]
Funzione WeekDayName[b]
Descrizione
Restituisce una stringa che indica il giorno della settimana specificato.
Sintassi
WeekdayName(giornosettimana, abbreviazione, primogiornosettimana)
La sintassi della funzione WeekDayName è composta dalle seguenti parti:
....
[/size]
:)
comunque
in generale
le date NON ESISTONO.
ESISTE il tempo
che va e non torna indietro
e passa per tutti
e per le ciliege rosse di quest'anno
rimaste sull'albero come certi amori,
incolte.
a parte le ciliege: :o prova questa ;)
MsgBox DatePart("ww", Now)
e non mi dici neanche grazie ?
:confused:
mi serve un'idea
si hanno due colonne nelle quali vengono digitate le date di inizio e fine lavori
durante la digitazione delle suddette date, può capitare che nel mezzo appaiano date che iniziano dall'anno precedente e finscono coi primi mesi di quest'anno
esempio:
10/01/03 ------ 17/01/03
18/01/03 ------ 25/01/03
10/11/02 ------ 08/01/03 ***** ;)
si devono rappresentare tali date su una riga orizzontale e scrivendo nelle celle che costityiscono tale riga, il numero della settimana dell'anno
il problema è decidere la partenza della riga sapendo che può essere trovata una data precedente
come fareste?
ma soprattutto: sono stato chiaro ???? :)
misterx fratello mio,
premetto che si fa subito.
ma mi dispiace non aver completato la storia delle ciliege: le date non esistono, esiste il tempo, si misura stabilendo una unità di misura (i secondi nel sistema SI) e un tempo zero di riferimento.
E anche in Excel-VBA si misura in giorni [d] e il tempo zero di riferimento è alla mezzanotte del 31 dicembre 1899.
Adesso siamo al tempo 37783.84838 d
:)
mi sa che non sono stato chiaro!!! :confused:
dopo, la rappresentazione numerica può essere col sistema decimale, con quello binario, in base 69, in base mista (la più diffusa per la rappresentazione di date), e/o a seconda del tempo zero di riferimento, della base mista adottata e dell'unità di misura hai diverse rappresentazioni in forma di data (calendari) del tempo che è e rimane un numero della retta reale orientata ... purtroppo (ed è qui l'origine di tutte le sfighe del mondo, database compresi).
P.S.
e non parlate/trattate più le date come stringhe che si fa solo brutta figura !
Originally posted by "misterx"
mi sa che non sono stato chiaro!!! :confused:
no, mi sa che non sei stato chiaro, ma non ti preoccupare ce n'è una fla !
:p
cosa devi fare lo |<------------- scheduling ------------>| per qualche pirla ?
:D
comunque don't worry misterx, consideralo fatto, passa alla prossima query, cioè question ! :D
però adesso vado a fare il bagnetto coi pupi. Ciao.
:)
mah, sto ca++o di database del forum :confused:
Originally posted by "a2000"
cosa devi fare lo |<------------- scheduling ------------>| per qualche pirla ?
:D
roba del genere :)
:o come faccio a farmi ritornare il numero di celle che ho selezionato (evidenziato :) )????? :confused:
farmi ritornare ? :confused:
stai tranquillo misterx, è tutto risolto, lavora pure sul resto. :)
scusami ma ho dovuto combattere co' sti' quattro buzzurri che mi sono toccati in sorte e che pensano solo a come rubare soldi al prossimo.
e che non vedo l'ora di poter mandare affanbip, per tornare nei posti civili
(da te: oh mia bela Madunina, :o :o :o che te brili de luntan :o :o :o ).
yes, farmi ritornare ;)
trovato!!!!
MsgBox Selection.Cells.Count :)
occhio che ti metto nel mucchio !
"farmi ritornare" = contare :eek:
ti piace il ={presepie()} ? :)
Originally posted by "a2000"
occhio che ti metto nel mucchio !
"farmi ritornare" = contare :eek:
dunque:
a) hai capito lo stesso :)
b) "farmi ritornare" = farmi ritornare da excel usando una sua funzione il numero di celle selezionate
la (b) se la analizzi nel contesto informatico, suona molto bene in quanto, Excel viene visto come fosse una persona alla quale chiedere un qualche cosa :D
cmq, grazie per l'esempio mò ci dò un occhio :)
Originally posted by "misterx"
dunque:
...
la (b) se la analizzi nel contesto informatico, suona molto bene in quanto, Excel viene visto come fosse una persona alla quale chiedere un qualche cosa :D
ma lo sai che cominci a piacermi ... :pig: :D
giusto !!!
Excel non è un foglio di calcolo,
non è nemmeno un super-controllo di VisualBasic,
ma è una [color=blue], un cyborg, un drone a cui chiedere qualcoa ! :D
bravo misterx, ti aspetto da lunedì nella baia di S'Archittu a pescare le palamite !
:sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico: :sofico:
Originally posted by "a2000"
ma lo sai che cominci a piacermi ... :pig: :D
devo iniziare a preoccuparmi??? :D
ocio che era nelle mire del buon Bill Gates far apparire i suoi software come entità umane, sempre pronte a venirti in aiuto
io sto solo assecondando le volontà del vecchio Bill :eek:
peccato che non mi viene in sacoccia nulla :)
V|RuS[X]
13-06-2003, 15:35
[pubblicità occulta mode on]
poco fa sono andato in edicola a comprare PcProfessionale e ho optato per
la versione da 5€ in più che aveva in 'bundle' la guida "EXCEL SOLUZIONI"
della Mondadori.. 300 e passa pagine di morbidezza, ancora non l'ho sfogliato
ma credo che sia quello di cui hai bisogno :D
[pubblicità occulta mode off]
misterx risparmia i soldi !
ti insegnano tutte stronz@te da informatici: travaso dati col filtro. :pig:
tu hai bisogno di Excel per gli Ingegneri ! :cool: :D
quelli che fanno una brutta copia di Excel con un pezzo di ... access e un controllo zoppo di vubiiiiiii ..... :o :o :o
mamma mia ragazzi .... che sfacelo la scuola in Italia ! :(
Originally posted by "misterx"
ocio che era nelle mire del buon Bill Gates far apparire i suoi software come entità umane, sempre pronte a venirti in aiuto
io sto solo assecondando le volontà del vecchio Bill :eek:
perchè avresti preferito i dell'Ibm, della Compaq, o di Appl !
almeno Bill c'ha una bella faccia di Nerd :D :D
Originally posted by "misterx"
devo iniziare a preoccuparmi??? :D
peccato che non mi viene in sacoccia nulla :)
appunto, stai attento che non ti venga all'altezza dove vola l'uccello Padulo ! :sofico:
ma ti è piaciuto il ={presepie()} ???? :confused:
ma l'hai scaricato o no ???? :confused:
ca++o misterx è 15 giorni che mi fai lavorare ! :mad:
ai primi di luglio vengo a Milan, attendo PVT di invito a cena ! :pig:
ma le hai mai usate le funzioni che restituiscono Variant array e quindi range di dati ? prrroooova ! :)
Originally posted by "V|RuS[X
"][pubblicità occulta mode on]
poco fa sono andato in edicola a comprare PcProfessionale e ho optato per
la versione da 5€ in più che aveva in 'bundle' la guida "EXCEL SOLUZIONI"
della Mondadori.. 300 e passa pagine di morbidezza, ancora non l'ho sfogliato
ma credo che sia quello di cui hai bisogno :D
[pubblicità occulta mode off]
grazie per l'info ma temo di essere un utente anche sin troppo smaliziato per accontentarmi di una simile soluzione :)
cmq, grazie ancora
Originally posted by "a2000"
tu hai bisogno di Excel per gli Ingegneri ! :cool: :D
:o come credi che mi sia avvicinato alla programmazione? :D
cmq, ne riparliamo lunedì: domani porto la famiglia al mare ;)
oh, bravo !
(comunque per curiosità PCprofessionale lo compro)
però ti stai comportando proprio come una bella fi@a ! :o
ma insomma ti piace sto' ca++o di ={presepie()} o no ????????????????[/siz] :mad:
e, "utente smaliziato"[/siz],
usi correntemente i Variant Array o no ?
usi correntemente this one: Shapes("misterx").OnAction = o no ?
usi correntemente Excel come interfaccia grafica, nel senso che vengono generati anche run-time oggetti grafici da Menu' Disegno (in particolare Connettori) interattivi (.OnAction) o no ?
Grazie
:)
Originally posted by "misterx"
cmq, ne riparliamo lunedì: domani porto la famiglia al mare ;)
allora vieni a Rimini !
Bagno 151 da Gustavo,
http://forum.hwupgrade.it/faccine/44.gif[/mg]
http://forum.hwupgrade.it/faccine/38.gif
sto' databasso del forum ha qualche problema ! :confused:
:mad:
ad essere sincero non moltissimo, anche se mooolto funzionale, in quanto parte del codice rimane visibile all'utente finale ;)
cmq, cosa usi per farti ritornare e scrivere in una cella il "caption" dell'item di un menu definito col tuo codice?
esempio:
se cliccando col tasto destro appare l'item "ziopaperino", quando selezioni tale item, questa/o deve venire copiato in una cella :)
ho provato differenti metodi ma nessuno funziona
mah, sto VB :D
Originally posted by "misterx"
ad essere sincero non moltissimo, anche se mooolto funzionale, in quanto parte del codice rimane visibile all'utente finale ;)
e pecche' nun te piasce ?
per il resto mi meraviglio di te, perchè è semplice !
Originally posted by "a2000"
e pecche' nun te piasce ?
per il resto mi meraviglio di te, perchè è semplice !
è perchè mi sto dedicando ad altro ;)
un aiuto non guasta mai :sofico:
è ovvio che: se non mi aiuti tu, ci arrivo da solo :D
scherzo ! :)
scherzo ?[/siz] :p
Originally posted by "a2000"
ne dubito :D :D
bene: allora non aiutarmi che ti posto io il codice ;)
così capirai la reale potenza dei "C++isti" ;)
ah ma te la prendi subito !
pronti !
Originally posted by "misterx"
così capirai la reale potenza dei "C++isti" ;)
se mi dicessi quella degli assemblearisti di una volta, sarei d' accordo ...
ma quella degli Cplusplani sta diventando poca cosa: il baco è filosofico.
a forza di abituarvi a
spezzettare i problemi
e a
utilizzare i pezzettini altrui
vi stanno / vi state trasformando in operai alla catena di montaggio ! :(
ti è piaciuto il presepie del campo di testo dell'oggetto grafico linkato alla cella ? :)
certo che sto' VB (for Sboration) è potente ! :cool:
figurati se me la prendo però: non hai capito cosa intendevo (testone :D )
Sub PopUpClic_Paperino()
Worksheets("Foglio1").Cells(1, 1) = qui va preso L'ITEM dal menu esistente e copiato nella cella; non deve essere ulteriormente ridefinito un ulteriore testo
...........
...........
End Sub[/code]
esempio errato:
Sub PopUpClic_Paperino()
Set ctrlx = PopUpMenu
Worksheets("Foglio1").Cells(1, 1) = PopupMenu.Caption
Beep
End Sub
per completezza:
supponi di voler copiare in una cella il testo "Incolla" di default di Excel :)
ho capito, adesso ti sei un pò introverso perchè ti ho detto quella cosa sui Cplusplani ! :D
ma sì è sempre semplice, don't worry il problema è risolto, passa pure al resto ! :cool:
misterx ma trombi ogni tanto ? :pig:
Originally posted by "a2000"
misterx ma trombi ogni tanto ? :pig:
tutti i giorni da molti hanni a questa parte :D
la routine è la morte dell'uccllo ! :D
dipende solo dalla fantasia ;)
dov'è l'esempio funzionante? :D
karino, lo sai che la fantasia dei Cplusplani è solo riciclaggio di idee e pezzi di codice altrui ... :p
ma, nonostante tutto, eccoti un'altro spunto:
Sub PopUpClic(iPopUp)
Foglio1.Cells(1, 1) = PopUpMenuColl(iPopUp).Caption
End Sub
misterx rassegnati, se non hai programmato per calcolo numerico ... la tua programmazione è oltre che fondamentalmente inutil ! :D :D
P.S.
il recovery sulla volatilità te lo lascio come esercizio.
hai 15 giorni per farlo.
intanto io vado a godermi il meritato riposo del Fortraniano nel mare della Sardegna. :cool:
tas e lavura lumbard ! :D
:o mi stai complicando la vita!!!!
se non ti scoccia, lavorami su questo esempio moolto più umano :D
Sub Tacasu_na_bela_scrita()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Selezionami!!!"
.OnAction = "Fam_Vede_Ul_Messacch"
.FaceId = 343
End With
End Sub
Sub EffaceItem()
Application.CommandBars("Cell").Reset
End Sub
Sub Fam_Vede_Ul_Messacch()
MsgBox "C++ for ever", vbInformation, "Complimenti!!!!"
End Sub
Sub Fam_Vede_Ul_Messacch()
titolo = CommandBars("Cell").Controls("Selezionami!!!").Caption
MsgBox "C++ for ever", vbInformation, titolo
End Sub
così mi sembra più leggibile: che ne pensi?
Sub CreaMenuPopup()
For colonna = 1 To 3
With Application.CommandBars("Cell").Controls.Add(msoControlPopup)
.Caption = Cells(1, colonna)
.BeginGroup = False
i = 1
For riga = 2 To 50
If Cells(riga, colonna) <> "" Then
' Sub-menu
.Controls.Add (msoControlButton)
.Controls(i).Caption = Cells(riga, colonna)
With .Controls(i)
.OnAction = "FaiQualcosa"
.FaceId = 351
End With
i = i + 1
End If
Next riga
End With
Next colonna
End Sub
Sub Falcia()
Application.CommandBars("Cell").Reset
End Sub
Sub FaiQualcosa()
MsgBox "hello"
End Sub
ehi a2000
sei andato in ferie????? :sofico:
:o ehi Cionci..........
non ti piace proprio il VB eh??? :D ;)
VB anche anche, ma VBA non lo consco proprio per niente...
peccato!!!
ad essere sincero lo sto usando solo per necessità e devo ammettere che non fa certo sbavare programmare in questo linguaggio ma, anche questa è programmazione e con buona pace di a2000 :D
cmq, non essendo un cultrore nè di VB e nè di VBA, ho notato che nella documentazione di VBA si parla di oggetti (C++???)
Originally posted by "a2000"
ti è piaciuto il presepie del campo di testo dell'oggetto grafico linkato alla cella ? :)
certo che sto' VB (for Sboration) è potente ! :cool:
azz.....certo che lavorare senza documentazione è dura; cmq, bastava semplicemente questo:
CommandBars.ActionControl.Caption ;)
C++isti = 1 :D
VBisti = 0
scherzo ovviamente ;)
Originally posted by "misterx"
CommandBars.ActionControl.Caption ;)
Certo che si programma con gli oggetti (non ad oggetti)... CommandBar è un oggetto ad esempio...
già, ma si parla anche di classi :)
Originally posted by "misterx"
ops, ho cannato
Nono...non hai cannato...era solo per dire che chiamare programmazione ad oggetti quella lì è molto riduttivo ;)
Il brutto è che molti utenti (di Java ad esempio) credono di programmare ad oggetti, invece non fanno altro che utilizzare gli oggetti del framework :)
cmq, ho letto su una guida di VBA di programmazione ad oggetti: mah, forse fa fico per vendere la guida :confused:
azz, mi sa che ho preso al malattia di (a.....) :D
nei menu popup, e definibili col codice presente in questo 3D, come si fa ad aggiungere una linea di separazione?
per intenderci:
in BCB basta settare il Caption dell'item interessato = - (un segno meno) e viene tracciata nel popup una line di separazione
in VBA ciò non funziona :(
help
ho trovato!!!
basta impostare .BeginGroup = True :D
però devo ammettere che non mi è molto chiaro come avviene la costruzione gerarchica di un menu popup in VBA
Item Principale
|---> item secondario
|---> item secondario
|---> item secondario
|---> item secondario
se avete delle info ;)
purtroppo non posseggo alcun manuale :(
ultimamente siete un pò sfaticati :rolleyes:
conoscete una funzione che permette di risalire ad una data passandogli come argomento il numero di una settimana? :)
sì ... e quella che permette di risalire al nome e numero civico della tipa passandogli un pelo di fi+a.
misterx, basta ca++ate da help-on-line,
prenditi un traghetto veloce (con passaggio auto a 1 €) e porta la famiglia in Sardegna.
http://www.mclink.it/com/lol/sardegna/g_tour/foto_t/a124.jpg
Originally posted by "a2000"
sì ... e quella che permette di risalire al nome e numero civico della tipa passandogli un pelo di fi+a.
misterx, basta ca++ate da help-on-line,
prenditi un traghetto veloce (con passaggio auto a 1 €) e porta la famiglia in Sardegna.
hai ragione ma sono talmente stanco che anche le cose semplici diventano macigni :muro:
DateAdd(............) ;)
appunto: pigliate na' vacanza ....
anche a Cologno Monzu' :D
comunque, te l'ho già detto, nei codici seri il tempo si misura in secondi (SI). (punto) :cool:
e se devi utilizzare anni, mesi, settimane butta tutto nel ce++o: sono ca++ate! :p
a2000: ben tornato :) Com'è andata la vacanza ?
tra un paio di settimane ci vado pure io in ferie........
e per un mese intero :sofico:
la vacanza è andata strabene e, soprattutto per voi a Pishha, la Sardegna con i traghetti veloci è a portata di mano (4 ore).
misterx dove vai per un mese intero ?
la mia vacanza è............
http://www.topsecretrecipes.com/logo_bf32.gif
in Abruzzo http://forum.hwupgrade.it/faccine/4.gif
non è che anche tu, per dispetto a Berlusconi, la fai ad Hannover come Shroeder ! :D :D
http://www.expo.hannover.de/english/tourist.htm
http://www.hannover.de/webcam/webcam1-fullsize.jpg
Originally posted by "misterx"
la mia vacanza è............
in Abruzzo http://forum.hwupgrade.it/faccine/4.gif
transumanza ?
http://forum.hwupgrade.it/faccine/44.gif
bando alle ciance :p
osserva
Sub MagnaCheTePiace()
With Worksheets("miofoglio").Range("C1:FB200")
Set c = .Find("(CUCU)")
If Not c Is Nothing Then
primoIndirizzo = c.Address
Do
c.Interior.ColorIndex = 0
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> primoIndirizzo
End If
End With
End Sub
la sub sopra, scolora le celle che contengono "(CUCU)" ma a me serve fare l'inverso e cioè togliere il colore alle celle che non contengono "(CUCU)" :D
ogni aiuto è ben accetto :)
secondo:
voglio tenere traccia di tutte le celle che "scoloro" in quanto devo avere la possibilità di ripristinarle com'erano in origine
occhio però, le celle possono essere parecchie migliaia ;)
:o stupiscimi :cool:
misterx ma toglimi una curiosità,
ma lo fai apposta o te l'ha ordinato il medico ?
Originally posted by "a2000"
misterx ma toglimi una curiosità,
ma lo fai apposta o te l'ha ordinato il medico ?
un pò l'una ed un pò l'altra :sofico:
ma hai già finito le vacanze???
Originally posted by "cionci"
Ricorolale di bianco ;)
non è quello il problema........
l'algoritmo esposto sopra è tratto dall'help in linea di excel; ho fatto solo alcune lievi modifiche per adattarlo al mio caso in specifico
ora, un pò per pigrizia e per stanchezza, non ho voglia di andare a fondo alla questione per capire come funziona il
"do Loop while bla bla bla"
in quanto a2000 ci viene in aiuto, almeno lo spero :)
la linea di codice sotto, fa diventare bianca una cella di excel: quindi non è questo il problema, il problema è capire come funziona il loop :)
c.Interior.ColorIndex = 0
tel chi' senza scorciatoie (.Find)
Sub ImparaDalFortran()
With Worksheets("Foglio1")
Set rng = .Range("C1:FB200")
r = rng.Row - 1: cc1 = rng.Column
vrng = rng
For i = 1 To UBound(vrng, 1)
r = r + 1: c1 = cc1
For j = 1 To UBound(vrng, 2)
If vrng(i, j) = "(CUCU)" Then
c2 = cc1 + j - 2
If c2 >= c1 Then .Range(.Cells(r, c1), .Cells(r, c2)).Interior.ColorIndex = 0
c1 = c2 + 2
End If
Next j
c2 = cc1 + j - 2
If c2 >= c1 Then .Range(.Cells(r, c1), .Cells(r, c2)).Interior.ColorIndex = 0
Next i
End With
End Sub
forse mi sono spiegato male
ho usato il metodo .Find per evitare di scrivere codice ridondante (reinventare l'acqua calda) in quanto dev trovare quelle celle che contengono il testo "(CUCU)", quindi la cella non contiene solo "(CUCU)" ma anche dell'altro
per non usare la Find avrrei potuto scrivere la seguente banalità:
sub LaPotenzaDeiCppiani()
for riga = 1 to bla bla bla
for colonna = 1 to bla bla bla
buf = cells(riga,colonna)
for c = 1 to len(buf)
if mid$(buf,c,6) = "(CUCU)" then colore cella = 0
next c
next colonna
next riga
end sub
if cells(riga,colonna) = "(CUCU)" **** errato ! *******
if cells(riga,colonna) contiene "(CUCU)" **** quello che mi serve! *******
ciao :)
sub LaPotenzaDeiCppiani()
Sub MagnaCheTePiace()
For riga = 4 To 200
For colonna = 2 To 200
buf = Cells(riga, colonna)
For c = 1 To Len(buf)
If Mid$(buf, c, 6) = "(CUCU)" Then
Cells(riga, colonna).Interior.ColorIndex = 0
End If
Next c
Next colonna
Next riga
End Sub
Sub ImparaDalFortran()
LaPotenzaDeiCppiani()
vrazz' arrubat' all'agricultur' !!!!
Iat' a fatigà !!!!
http://forum.hwupgrade.it/faccine/44.gif
Originally posted by "verloc"
vrazz' arrubat' all'agricultur' !!!!
Iat' a fatigà !!!!
http://forum.hwupgrade.it/faccine/44.gif
è l'eterna lotta per la sopravvivenza :sofico:
i cppiani (http://forum.hwupgrade.it/faccine/47.gif) sanno sempre quel qualcosa in più :p
misterx sei un cazzone.
ti straccio quando e come voglio.
Originally posted by "a2000"
misterx sei un cazzone.
ti straccio quando e come voglio.
perchè dici così ???? :confused:
perché il mio è più efficiente:
1) non si legge mai dal foglio una cella per volta
2) non si scrive mai su una cella per volta (anche se complica un po' il codice)
3) per determinare se una stringa contiene una sottostringa non la spazzoli con Mid ma usi Instr
per il resto dovresti dare qualche informazione in più sul contesto perchè può darsi che ci sia qualche scorciatoia vera.
:)
comunque se proprio vuoi usare .Find, spazzoli il range per righe o colonne (*) determini il segmento di range riga o colonna senza "(CUCU)" e lo scolori "at all", come nella sub che ti ho proposto.
(*) se poi vuoi fare lo sborone, trovate le celle cucu, puoi determinare il numero minimo di range rettangolari che devi scolorare.
Saludi.
altra soluzione:
tel chi' su tutto un foglio (per esempio) e senza una (1) riga di codice.[/siz]
utilizzando i metodi del controllo VB6 chiamato Excel ! :D :cool:
Originally posted by "a2000"
perché il mio è più efficiente:
1) non si legge mai dal foglio una cella per volta
2) non si scrive mai su una cella per volta (anche se complica un po' il codice)
3) per determinare se una stringa contiene una sottostringa non la spazzoli con Mid ma usi Instr
per il resto dovresti dare qualche informazione in più sul contesto perchè può darsi che ci sia qualche scorciatoia vera.
:)
Ehhhhhhhhhh misterix...
Denar'
Settant'
Settebbell'
Cart a' llung
e Scop'
ti devi stare. :D
[color=blue]uaglio' ma a Poli va' m'naut' a birra a' ? [color]
Originally posted by "a2000"
altra soluzione:
tel chi' su tutto un foglio (per esempio) e senza una (1) riga di codice.[/siz]
utilizzando i metodi del controllo VB6 chiamato Excel ! :D :cool:
Si però ripassiamo pure il naming dei file! (a questora senò sotto la cartella a2000 tenevo 450 temp.zip)
Silenzio! Nessun commento volgare per favore!
Originally posted by "a2000"
altra soluzione:
...
a piacere lo stesso metodo lo puoi utilizzare da codice VBA.
Originally posted by "verloc"
Silenzio! Nessun commento volgare per favore!
proprio a proposito di commenti volgari e, più spesso, mazzate,
di "Patrun e Sutt" che mi dici: un'antesignano dei giochi di ruolo da riscoprire: a Mort', u' Patrun, ecc. (ma non mi ricordo bene ... )
anni '70, interno bar:
quattro avventori intorno ad un tavolo giocano uno strano gioco di carte in modo sempre più concitato.
Alla fine di ogni mano bevono a turno, ma solo alcuni e a volte uno solo, facendo attenzione a strisciare il bordo del bicchiere di birra sul vassoio.
Usano strani termini: Patrun, Sutt, a' Morte, a' V'le' (a volere), ulm (quello che non beve)
Già dopo la terza mano alcuni sono scuri in faccia altri se la ridono, alla quinta cominciano ad insultarsi, a metà della settima sono passati alle mazzate.
Te lo ricordi questo gioco ?
Originally posted by "a2000"
perché il mio è più efficiente:
1) non si legge mai dal foglio una cella per volta
2) non si scrive mai su una cella per volta (anche se complica un po' il codice)
3) per determinare se una stringa contiene una sottostringa non la spazzoli con Mid ma usi Instr
per il resto dovresti dare qualche informazione in più sul contesto perchè può darsi che ci sia qualche scorciatoia vera.
:)
a) ti assicuro che non è il mio linguaggio di programmazione però, l'esempio da me postato quello col .Find è molto veloce
b) non ho capito cosa intendi quando dici che "non si legge mai una cella per volta"
c) il foglio da te postato e che non contiene alcun codice VB, non ho capito come funziona
visto che sei incuriosito ecco cosa sto combinando :)
b) l'accesso a tutti gli oggetti del foglio di calcolo è oneroso.
in particolare l'accesso in lettura/scrittura a range di celle contigue si esegue at all caricandone i valori in un variant array.
c) funziona che tutte le celle che non contengono "(CUCU)" vengono decolorate come richiesto.
Si chiama autoformattazione condizionale e serve per autoformattare le celle in funzione del loro contenuto o di quello di altre celle o del valore di una formula:
Formato > Formattazione condizionale
d) bravo. si vede che fai l'informatico dalla cura della forma.
però attenzione a quello che diceva un mio professore:
"gerundio, gerundio, punto"
nella fattispecie stai scrivendo un programma (gerundio) per fare lo scheduling di scrittura di un'altro programma (gerundio) che serve a fare che cosa ? (punto ... interrogativo)
- cosa intendi per "fare l'informatico?"
- scusa ma nel mio progettino non devo lasciare in giro inizializzazioni varie del tipo formattazione condizionale e/o similari :)
- in ogni caso hai delle ottime idee ;)
- non sarebbe ora di svelare ai 4 venti di cosa ti occupi?
- l'interfaccia da me postata per ragioni ovvie non è propriamente la mia anche se molto simile (diagramma di Gantt) :)
Ehhhhhhh ragazzi :
tutta questa roba (Gantt,scheduling etc) l'hanno inventata
gli INGEGNERI dei TRASPORTI :cool: inglesi durante la 2a guerra mondiale.
Quella che comunemente oggi si chiama RICERCA OPERATIVA.
MisterX perchè usi la 500 quando puoi andare in Ferrari?
(free for non commercial)
http://www.tmssoftware.com/gridpack.htm#whatsnew
verloc,
ma tu non sei un ingegnere edile?
nota la signorilità: la virgola e l'acapo dopo il tuo nick :D
Civile-Trasporti :cool: mi manca poco per finire(sperem)
Originally posted by "a2000"
Te lo ricordi questo gioco ?
Certo!
Mi ricordo un pomeriggio in cui alla fine portavo il mio amico in bicicletta(dietro)con un'andatura fortemente serpeggiante.
Cademmo in mezzo alla strada,la gente ci guardava(brutto) mentre stavamo per terra e ridevamo a sganasciare come due cojones.
:D
Originally posted by "verloc"
Civile-Trasporti :cool: mi manca poco per finire(sperem)
e quindi l'informatica cosa c'entra con te ???
forse qualche esame obbligatorio nel tuo corso ???
avrai mica sbagliato corso eh??? :D
Perchè gli ingegneri civili con conoscenze buone di programmazione sono pochissimi.
Spero che il programma che sto facendo come tesi mi valga come supercurriculum.
Se mi va bene faccio 13 altrimenti metto su una società e lo commercializzo.
Altra idea sarebbe portarlo ad una società e svilupparlo con loro (non per loro).
PS
C'è uno sfruttamento massiccio della Ferrari che ti ho detto,oltre a funzioni grafiche CAD,esportazione DXF etc.
Originally posted by "verloc"
Se mi va bene faccio 13 altrimenti metto su una società e lo commercializzo.
Attento al prof che ti ha dato la tesi ;)
verloc, a proposito di Ferrari, lunedì e martedì prossimi sono a Napoli (CNR - Istituto motori) ... vedi tu.
Originally posted by "a2000"
verloc, a proposito di Ferrari, lunedì e martedì prossimi sono a Napoli (CNR - Istituto motori) ... vedi tu.
non vuoi svelare cosa fai eh??? :)
Originally posted by "a2000"
R&D
bene: ricerca e sviluppo di cosa? :)
Originally posted by "cionci"
Attento al prof che ti ha dato la tesi ;)
C'è già un bello splash-screen con tanto di logo originale del programma,
copyright,diritti riservati.
Gli ho già detto che la versione rilasciata sarà limitata ,protetta e con spiramento.
Gli ho promesso che poi a lui darò la versione con licenza.
Quindi se non mi fa avere 10 punti se la scorda. :mad:
La tesi praticamente l'ho scelta io;quando ha sentito la proposta ha capito
che era una proposta che non poteva rifiutare. ;)
Originally posted by "verloc"
che era una proposta che non poteva rifiutare. ;)
Whuuu...quindi si tratta di qualcosa di rivoluzionario ?!?!?
Te l'ho detto perchè sulla maggior parte dei lavori di tesi ci finisce la firma del prof. e come collaborazione quella dell'alunno...
:o ehi verloc non fare troppo il prezioso!!!!
che diamine di programma avrai mai scritto??? :D
Originally posted by "a2000"
in particolare l'accesso in lettura/scrittura a range di celle contigue si esegue at all caricandone i valori in un variant array.
mi faresti un esempio di quanto da te esposto sopra ? :)
intendi cosice simile?
Dim varTable as variant
varTable = Range("A1:ZZ34000")
com'è misterx, è un periodo che ti senti un po' solo ...
al contrario, ho anche sin troppa gente intorno a rompermi le ba@@e: qui cerco di evadere ;)
prova a dirmi perchè non funziona il codice che ho imbastito sotto
grazie 1000
Sub EliminaSenzaColore()
Dim cel As Range
For Each cel In Range("C4:FB100")
If cel.Interior.ColorIndex = 0 Then cel.Delete
Next
End Sub
nel mio intento, avrebbe dovuto cancellare il contenuto delle celle prive di colore; cioè con sfondo bianco
però cazzo, si dovrebbe fare meno fatica a spostare il mouse e spingere F1 che postare !
Anzitutto .Delete elimina le celle/range.
Per eliminare solo il contenuto (e altro) usa ClearContents (e altri consimili).
Poi le celle che vedi bianche non hanno il fondo bianco ma "nessun colore" color index = -4142 = xlColorIndexNone
e poi non devi dire grazie 1000 ma sempre e ovunque grazie a2000 !
:o non ho installato alcun help in linea quindi se premo F1 appare un messaggio di errore :D
:o non posseggo alcuna forma di documentazione per VBA; sto andando a naso
:o mi hanno assegnato questo cavolo di compito che mi sta rompendo l'anima e non poco
sono un idraulico non un programmatore :cool:
Sub EliminaSenzaColore()
For Each cella In Worksheets("foglio zozzo").Range("A1:FB200")
If cella.Interior.ColorIndex <= 0 Then cella.ClearContents
Next cella
Originally posted by "misterx"
sono un idraulico non un programmatore :cool:
a chiamata ?
la risposta esatta è:[/siz]
"no, a chiavata."
Originally posted by "a2000"
a chiamata ?
anche!
Originally posted by "a2000"
R&D
inizio ad avere qualche dubbio!!!
dubitare sempre !
Originally posted by "misterx"
:o non ho installato alcun help in linea quindi se premo F1 appare un messaggio di errore :D
:o non posseggo alcuna forma di documentazione per VBA; sto andando a naso
beh c'è sempre il metodo for dummies o helpless di: "Registra macro" :eek:
Originally posted by "misterx"
:o mi hanno assegnato questo cavolo di compito che mi sta rompendo l'anima e non poco
chi ?
chi mi ha affibiato questo compito ???
il capo dei trumbè :mad:
ma l'è anca lu' un trumbè ?
tutti trumbè :)
alcuni diplomati, altri laureati, altri ancora frequentano l'uni etc.....
una grande e bella famiglia :cool:
vi scambiate anche le mogli ?
http://www.pulpweb.com/wbboard/images/smilies/amici.gif
Originally posted by "cionci"
Whuuu...quindi si tratta di qualcosa di rivoluzionario ?!?!?
Te l'ho detto perchè sulla maggior parte dei lavori di tesi ci finisce la firma del prof. e come collaborazione quella dell'alunno...
Lui non capisce una mazza di programmazione :D
E poi la legge parla chiaro: gli costerebbe un tale risarcimento da farci il mutuo della casa.
Quando il programma spira e non salva i disegni e relazione che fa? ;)
Dunque MisteriX:
I programmi attualmente in commercio atti a fare la verifica sismica di un edificio in muratura,si basano su procedure di calcolo moooolto lontane dal comportamento reale.Il metodo da me usato e sviluppato dall'università di Napoli è quanto di + attendibile ci possa essere.
Nessuno però ci ha mai fatto un programma perchè richiede un approccio
completamente diverso da quello che negli ultimi vent'anni hanno avuto i software esistenti.
Oltretutto sembrano fare finta di niente su alcune verifiche che la legge impone affichè le ipotesi(sbagliate) su cui si basano siano convalidate.
Se abitate in edificio verificato con quei programmi al posto vostro mi farei il segno della croce.
Originally posted by "misterx"
:o non ho installato alcun help in linea quindi se premo F1 appare un messaggio di errore :D
:o non posseggo alcuna forma di documentazione per VBA; sto andando a naso
:o mi hanno assegnato questo cavolo di compito che mi sta rompendo l'anima e non poco
sono un idraulico non un programmatore :cool:
Senza help: Io ti avrei licenziato in tronco!!! :D
A parte gli scherzi:
Nel senso di Ing Idraulico?
Adesso di tu, che fai?
Dimmi in pvt quanto pagano i laureati da te (ingegneri).
Pensi che avrei i requisiti per lavorare da voi?
Originally posted by "a2000"
vi scambiate anche le mogli ?
http://www.pulpweb.com/wbboard/images/smilies/amici.gif
siamo tutti single :D
maaaaaaa, R&D de cheeeeeèèè :confused:
robnet77
15-07-2003, 14:02
Originally posted by "a2000"
giusto:
@chi
------
@che
uhm... io preferisco
@ca:@co:@ca :sofico:
dai a2000, non essere timido: dicci cosa ricerchi e sviluppi :cool:
beh se me la alzi così ... :
ricerco la http://www.pulpweb.com/wbboard/images/smilies/figa.gif
sviluppo l' http://www.pulpweb.com/wbboard/images/smilies/smiles_018.gif
misterx mi sa' che abbiamo coniato uno slogan di successo !
:D :D :D
cosa dici, è più efficace con gli ideogrammi o papale papale:
Ricerco la fg@
Sviluppo l'uccello[/size]
????
e va bene, fai quel cavolo che vuoi :D
l'importante è che mi dici come mai il codice sotto va lento
Sub EliminaSenzaColore()
For Each cella In Worksheets("foglio zozzo").Range("A1:FB200")
If cella.Interior.ColorIndex <= 0 Then cella.ClearContents
Next cella
certo che sei "tuosto", allora tanto vale trasformare il forum in una chat ... :(
Spazzoli il range come una Collection (For each) e già te la prendi comoda, poi interroghi cella per cella con una chiamata al foglio, e poi (disastro) cancelli il contenuto una cella alla volta.
Te l'ho detto i range contigui di celle (e anche quelli non contigui) vanno letti/scritti d'un botto solo !
Ti richiedo: ma lo fai apposta per farmi inca++are o te l'ha ordinato il medico ?
:mad:
Originally posted by "a2000"
certo che sei "tuosto", allora tanto vale trasformare il forum in una chat ... :(
Spazzoli il range come una Collection (For each) e già te la prendi comoda, poi interroghi cella per cella con una chiamata al foglio, e poi (disastro) cancelli il contenuto una cella alla volta.
Te l'ho detto i range contigui di celle (e anche quelli non contigui) vanno letti/scritti d'un botto solo !
Ti richiedo: ma lo fai apposta per farmi inca++are o te l'ha ordinato il medico ?
:mad:
dopo le critiche arrivano i suggerimenti????
per quanto riguarda la chat:
non me ne vogliano i moderatori ma ho notato che è l'unico modo per cavarti informazioni utili :sofico:
ma allora ti piace lo slogan della nostra prossima start-up ?
comunque il tempo si è già ridotto ad 1/3 ...
vabbuo' misterx prova questo:
Sub EliminaSenzaColore1()
Set rng = Worksheets("Foglio1").Range("A1:FB200")
v = rng.Value
For i = 1 To UBound(v, 1): For j = 1 To UBound(v, 2)
If rng(i, j).Interior.ColorIndex <= 0 Then v(i, j) = ""
Next j, i
rng.Value = v
End Sub
c'è solo la scrittura at all (rng.Value = v), la lettura del colore è rimasta cella per cella (rng(i, j).Interior.ColorIndex) e bisogna vedere se si riesce a leggere il variant array dei ColorIndex tutto insieme ...
non male la prestazione del codice, ricorda vagamente il metodo dei puntatori
più veloce di così ??? ............. no eh ???
cmq, ottimo lavoro :)
può essere.
se il problema è critico per il codice, puoi risolvere con la solita regola aurea: "vuoi più velocità -> usa più memoria":
una soluzione potrebbe essere memorizzare i ColorIndex del range in una matrice di accesso immediato che aggiorni intercettando i cambiamenti di colore comandati dall'utente ... anzi potresti anche intercettare, di volta in volta, il cambiamento di colore e cancellare il contenuto della cella.
Probabilmente dovrai aggiungere un metodo-evento a Worksheet per il cambiamento di colore (non esiste un evento che intercetta il cambiamento di formattazione).
comunque direi che hanno pensato innanzitutto la formattazione della cella in funzione del valore e non il contrario, vedi Formattazione condizionale, funzione CELLA del foglio di calcolo, possibilità immediata di leggere/scrivere tutti i valori di un range in un variant array ma, sembra, non altre proprietà.
Se ti piace programmare con TUOI oggetti puoi cominciare ad usare i moduli di classe con Property Get/Let, metodi e compagnia bella.
ecco per esempio una soluzione così (da pulire) già riduce il tempo di esecuzione di 100 volte (dopo la prima inizializzazione di vColorIndex())
Public vColorIndex As Variant
Dim rng
Sub Inizio()
Static OK As Boolean
If Not OK Then
Application.Cursor = xlWait
Set rng = Worksheets("Foglio1").Range("A1:FB200")
vColorIndex = rng
For i = 1 To UBound(vColorIndex, 1): For j = 1 To UBound(vColorIndex, 2)
vColorIndex(i, j) = rng(i, j).Interior.ColorIndex
Next j, i
OK = True
Application.Cursor = xlDefault
End If
End Sub
Sub EliminaSenzaColore2()
Inizio
'Set rng = Worksheets("Foglio1").Range("A1:FB200")
v = rng
For i = 1 To UBound(v, 1): For j = 1 To UBound(v, 2)
If vColorIndex(i, j) <= 0 Then
v(i, j) = ""
End If
Next j, i
rng.Value = v
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Target0 As Variant, OK As Boolean
If OK Then
vColorIndex(Target0.Row, Target0.Column) = Target0.Interior.ColorIndex
Else
Inizio
OK = True
End If
Set Target0 = Target
End Sub
allora ti piace il presepie ?
magari ti puoi fare un'oggettino con proprietà, metodo ed evento, carte, denari e settebello ... scopa ! :D
misterx, non so se te l'ho già chiesto, ... ma scopi ? :confused:
Originally posted by "a2000"
magari ti puoi fare un'oggettino con proprietà, metodo ed evento, carte, denari e settebello ... scopa ! :D
misterx, non so se te l'ho già chiesto, ... ma scopi ? :confused:
non male i tuoi esempi ma preferisco il primo che hai postato, sol perchè ho meno codice in giro
:o oltre a scopare passo l'aspirapolvere......
Originally posted by "misterx"
...
sembri mia figlia :D
ma non eravate tutti single ?
comunque, per non rigirarsi nella tomba, di affetti ce ne vogliono almeno tre !
http://www.pulpweb.com/wbboard/images/smilies/tongue.gifhttp://www.pulpweb.com/wbboard/images/smilies/053.gifhttp://www.pulpweb.com/wbboard/images/smilies/tenero_cry.gif
Originally posted by "a2000"
ma non eravate tutti single ?
comunque, per non rigirarsi nella tomba, di affetti ce ne vogliono almeno tre !
caspita, complimenti !!!! :)
cmq, se ti torna in mente la funzione che:
dato il numero di una settimana (es: 5 , dell'anno 2003) ti ritorna la data del suo inizio grazie http://forum.hwupgrade.it/faccine/6.gif
GG = gigi della gelateria ?
mi sa che nell'urna c'hai già metà emisfero ! :D :D
no, è Guido Gozzano, quello del famoso detto:
"se misterx è single, GG è allegro"
cazzo ma stai a Milano o ad Ivrea ?
magari stai a Milano, tu e i tuoi compagni di merende single, TUMULATO in cima alla Torre Velasca con tutti i manuali della Borland e altri cimeli organici http://forum.hwupgrade.it/faccine/44.gif
Signorina Felicita, a quet'ora
scende la sera nel giardino antico
della tua casa. Nel mio cuore amico
scende il ricordo. E ti rivedo ancora
e Ivrea rivedo e la cerulea Dora
e quel dolce paese che non dico.
Signorina Felicita, è il tuo giorno!
A quest'ora che fai? Tosti il caffè:
e il buon aroma si diffonde intorno?
O cuci i lini e canti e pensi a me,
a l'avvocato che non fa ritorno?
E l'avvocato è qui: che pensa a te.
Pensa i bei giorni d'un autunno addietro,
Vill'Amarena a sommo dell'ascesa
coi suoi ciliegi e con la sua Marchesa
dannata, e l'orto dal profumo tetro
di busso, e i cocci innumeri di vetro
sulla cinta vetusta, alla difesa...
Vill'Amarena! Dolce la tua casa
in quella grande pace settembrina!
LA tua casa che veste una cortina
di granoturco fino alla cimasa:
come una dama secentista, invasa
dal Tempo, che vestì da contadina.
Bell'edificio triste inabitato!
Grate panciute, logore contorte!
Silenzio! Fuga dalla stanze morte!
Odore d'ombra! Odore di passato! [...]
Penso l'arredo - che malinconia! -
penso l'arredo squallido e severo,
antico e nuovo: la pirografia
sui divani corinzi dell'Impero,
la cartolina della Bella Otero
alle specchiere... che malinconia!
Antica suppellettile forbita!
Armadi immensi pieni di lenzuola
che tu rammendi paziente... Avita
semplicità che l'anima consola,
semplicità dove tu vivi sola
con tuo padre la tua semplice vita!
II
Quel tuo buon padre - in fama d'usuraio -
quasi bifolco m'accoglieva senza
inquietarsi della mia frequenza,
mi parlava dell'uve e del massaio,
mi confidava certo antico guaio
notarile, con somma deferenza.
"Senta avvocato..."
E mi traeva inquieto
nel salone, talvolta con un atto
che leggeva lentissimo, in segreto.
Io l'ascoltavo docile, distratto
da quell'odor d'inchiostro putrefatto,
da quel disegno strano del tappeto,
da quel salone buio e troppo vasto...
"La marchesa fuggì!...Le spese cieche..."
da quel parato a ghirlandette, a greche...
"dell'ottocento e dieci, ma il catasto..."
da quel tictac dell'orologio guasto...
"l'ipotecario è morto, e l'ipoteche..."
Capiva poi che non capivo niente
e sbigottiva:
"Ma l'ipotecario
è morto è morto!"
"E se l'ipotecario
è morto, allora..." fortunatamente
tu comparivi tutta sorridente.
[...]
III
Sei quasi brutta, priva di lusinga
nelle tue vesti quasi campagnole
ma la tua faccia buona e casalinga,
ma i bei capelli di color di sole,
attorti in minutissime trecciuole,
ti fanno un tipo di beltà fiamminga...
E rivedo la tua bocca vermiglia
così larga nel ridere e nel bere
e il volto quadro, senza sopracciglia,
tutto sparso d'efelidi leggiere
e gli occhi fermi, l'iridi sincere
azzurre d'un azzurro di stoviglia...
Tu m'hai amato. Nei begli occhi fermi
rideva una blandizie femminina.
Tu civettavi con sottili schermi,
tu volevi piacermi, Signorina:
e più d'ogni conquista cittadina
mi lusingò quel tuo voler piacermi!
Ogni giorno salivo alla tua volta
pel soleggiato ripido sentiero.
Il farmacista non pensò davvero
un'amicizia così bene accolta
quando ti presentò la prima volta
l'ignota villeggiante forestiero.
Talora - già la mensa era imbandita -
mi trattenevi a cena. Era una cena
d'altri tempi, col gatto e la falena
e la stoviglia semplice e fiorita
e il commento dei cibi e Maddalena
decrepita, e la siesta e la partita...
Per la partita, verso ventunore
giungeva tutto l'inclito collegio
politico locale: il molto Regio
Notaio, il signor Sindaco, il Dottore;
ma - poiché trasognato giocatore -
quei signori m'avevano in dispregio...
M'era più dolce starmene in cucina
tra le stoviglie a vividi colori:
tu tacevi, tacevo Signorina:
godevo quel silenzio e quegli odori
tanto tanto per me consolatori
di basilico, d'aglio, di cedrina...
Vedevo questa vita che m'avanza:
chiudevo gli occhi nei presagi grevi;
aprivo gli occhi: tu mi sorridevi;
ed ecco, rifioriva la speranza!
Giungevano le risa, i motti brevi
dei giocatori dal quell'altra stanza.
IV
Bellezza riposata dei solai
dove il rifiuto secolare dorme!
[...]
Tra i materassi logori e le ceste
v'erano stampe di persone egregie;
incoronato dalle frondi regie
v'era Torquato nei giardini d'Este.
"Avvocato, perché su quelle teste
buffe si vede un ramo di ciliege?"
Io risi tanto che fermammo il passo,
e ridendo pensai questo pensiero:
Oimè! la Gloria! un corridoio basso,
tre ceste, un canterano dell'Impero,
la brutta effigie incorniciata in nero
e sotto il nome di Torquato tasso!
Allora, quasi a voce che richiama,
esplorai la pianure autunnale
dall'abbaino secentista, ovale,
a telaietti fitti, ove la trama
del vetro deformava il panorama
come un antico smalto innaturale.
Non vero (e bello) come in uno smalto
a zone quadre, apparve il canavese:
Ivrea turrita, i colli di Montalto,
la Serra dritta, gli alberi, le chiese;
e il mio sogno di pace si protese
da quel rifugio luminoso ed alto
Ecco, pensavo, questa è l'Amarena,
ma laggiù, oltre i colli dilettosi,
c'è il mondo: quella cosa tutta piena
di lotte e di commerci turbinosi,
la cosa tutta piena di quei "cosi
con due gambe" che fanno tanta pena
L'Eguagliatrice numera le fosse,
ma quelli vanno, spinti da chimere
vane, divisi e suddivisi a schiere
opposte, intesi all'odio e alle percosse:
così come ci son formiche rosse,
così come ci son formiche nere...
Schierati al sole o all'ombra della Croce,
tutti travolge il turbine dell'oro;
o Musa - oimè - che può giovare loro
il ritmo della pia piccola voce?
Meglio fuggire dalla guerra atroce
del piacere, dell'oro, dell'alloro.
[...]
V
Ozi beati a mezzo la giornata
nel parco dei Marchesi ove la traccia
restava appena dell'età passata!
[...]
L'insalata, i legumi produttivi
deridevano il busso delle aiole;
volavano le pieridi nel sole
e le cetonie e i bombi fuggitivi...
Io ti parlavo, piano, e tu cucivi
innebriata dalla mie parole.
"Tutto mi spiace che piacque innanzi!
Ah rimanere qui, sempre, al suo fianco,
terminare la vita che m'avanzi
tra questo verde e questo lino bianco!
Se lei sapesse come sono stanco
delle donne rifatte sui romanzi!
Vennero donne con proteso il cuore:
ognuna dileguò, senza vestigio
[...]
mai non comparve sul mio cielo grigio
quell'aurora che dicono: l'Amore..."
Tu mi fissavi... Nei begli occhi fissi
leggevo uno sgomento indefinito
le mani di cercai, sopra il cucito,
e te le strinsi lungamente, e dissi:
"Mia cara signorina, se guarissi
ancora mi vorrebbe per marito?"
[...]
Tu ti piegasti sulla tua panchetta
facendo al viso coppa con le mani,
simulando singhiozzi acuti e strani
per celia come fa una scolaretta.
Ma nel chinarmi su di te, m'accorsi
che sussultavi come chi singhiozza
veramente, né sa più ricomporsi:
[...]
"Piange?" E tentai di sollevarti il viso
inutilmente. Poi colto un fuscello,
ti vellicai l'orecchio, il collo snello...
Già tutta luminosa nel sorriso
ti sollevasti vinta d'improvviso,
trillando un trillo gaio di fringuello.
donna: mistero senza fine bello!
VI
Tu m'hai amato. Nei begli occhi fermi
luceva una blandizie femminina;
tu civettavi con sottili schermi,
tu volevi piacermi, Signorina
e più d'ogni conquista cittadina
mi lusingò quel tuo voler piacermi.
Unire la mia sorte alla tua sorte
per sempre, nella casa centenaria!
Ah! Con te, forse, piccola consorte
vivace, trasparente come l'aria,
rinnegherei la fede letteraria
che fa la vita simile alla morte...
Oh! Questa vita sterile, di sogno!
Meglio la vita ruvida concreta
del buon mercante inteso alla moneta,
meglio andare sferzati dal bisogno,
ma vivere di vita! Io mi vergogno,
sì, mi vergogno d'essere un poeta!
Tu non fai versi. Tagli le camicie
per tuo padre. Hai fatto la seconda
classe, t'han detto che la terra è tonda,
ma non ci credi... E non mediti Nietzsche...
mi piaci. Mi faresti più felice
d'un intellettuale gemebonda...
Tu ignori questo male che s'apprende
in noi. Tu vivi i tuoi giorni modesti,
tutta beata nelle tue faccende.
Mi piaci. Penso che leggendo questi
miei versi tuoi, non mi comprenderesti,
ed a me piace chi non mi comprende.
Ed io non voglio più essere io!
Non più l'esteta gelido, il sofista,
ma vivere nel tuo borgo natio
ma vivere alla piccola conquista
mercanteggiando placido, in oblio
come tuo padre, come il farmacista...
Ed io non voglio più essere io!
VII
Il farmacista nella farmacia
m'elogiava un farmaco sagace:
"Vedrà che dorme le sue notti in pace:
un sonnifero d'oro, in fede mia"
Narrava intanto certa gelosia
con non so che loquacità mordace
"Ma c'è il notaio pazzo di quell'oca!
Ah, quel notaio, creda: un capo ameno!
La Signorina è brutta, senza seno,
volgaruccia, Lei sa, come una cuoca...
E la dote.. la dote è poca, poca:
diecimila, chi sa, forse nemmeno..."
"Ma dunque?"
"C'è il Notaio furibondo
con Lei, con me che volli presentarla
a Lei; non mi saluta, non mi parla.."
"E' geloso?"
"Geloso! Un finimondo"
"Pettegolezzi...!"
"Ma non Le nascondo
che temo, temo qualche brutta ciarla....."
"Non tema! Parto."
"Parte? E va lontana?"
"Molto lontano... Vede, cade a mezzo
ogni motivo di pettegolezzo..."
[...]
VIII
Nel mestissimo giorno degli addii
mi piacque rivedere la tua villa.
La morte dell'estate era tranquilla
in quel mattino che salii da te.
[...]
Giunse il distacco, amaro senza fine,
e fu il distacco d'altri tempi, quando
le amate in bande lisce e in crinoline
protese da un giardino venerando,
singhiozzavano forte, salutando
diligenze che andavano al confine...
M'apparisti così come in un cantico
del Prati, lacrimante l'abbandono
per l'isole perdute nell'Atlantico;
ed io fui l'uomo d''altri tempi, un buono
sentimentale giovine romantico...
Quello che fingo d'essere e non sono![/size]
sarai mica un chimico??? :confused:
Originally posted by "misterx"
sarai mica un chimico??? :D
Sei come quelle vecchie signore che degli altri vogliono sapere tutto
ma che di se cercano sempre di non far sapere niente.
Originally posted by "verloc"
Sei come quelle vecchie signore che degli altri vogliono sapere tutto
ma che di se cercano sempre di non far sapere niente.
forse perchè ho già detto una miriade di volte di cosa mi occupo ;)
Si mi rendo conto del fastidio,scusa se te l'ho chiesto .
Non succederà più.
Originally posted by "verloc"
Si mi rendo conto del fastidio,scusa se te l'ho chiesto .
Non succederà più.
figurati, nessunissimo fastidio :)
hai un PVT ;)
MisterX,
non so cosa abbiano combinato i gestori del forum
ma il tuo primo messaggio non è arrivato quindi mi hai mandato
il messaggio ...oops.
Il mio messaggio che ti confermava che il primo non era mai arrivato,probabilmente non ti è mai arrivato...
(probabilmente a quest'ora in guerra saremmo gia morti tutti e due)
in caso di problemi :
[email protected]
misterx, begli amici ca tieni nell' OltreTomba ! :P
verloc, ma che face stu cazzone ? :D
uehi chimico di un a2000
certo che programmare per righe e colonne non è certo una bellezza
scrivimi in VBA un generatore di diagrammi di Gantt : non è certo una passeggiata:cool:
blablabla 25/03/2003 - 03/04/2003
blablabla 04/04/2003 - 15/04/2003
etc...
finita la tracciatura implementa che col tasto dx del mouse sia possibile assegnare al blablabla una risorsa
tiei presente che se cambio una data, la risorsa allocata deve traslare
crea anche un foglio di anteprima che mostri le attività allocate in funzione delle risorse
il tutto ovviamente dev'essere dinamico, in pratica, un mond compatto che segue ogni minima variazione
buona fortuna
io questo ho fatto:mad:
sì, ma ho capito, il vostro sforzo è enorme perchè affrontate i problemi in modo prealgebrico. :D
Cose del genere (e tutte le altre) vanno impostate su un foglio di carta bianca con matrici e vettori, sapendo cosa è un grafo e una matrice di vicinanza e che, per esempio, il prodotto n-simo di una matrice di vicinanza da tutti i percorsi a n passi
Dopo, l'implementazione su codice la puoi lasciare ai sut'caldera di turno. :P
E' per questo che chi programma in Fortran (o suoi dialetti: Basic, Pascal) anche se cede al viziaccio di mettersi subito a scrivere codice senza scrivere quella famosa paginetta (a volte sono anche 50), non si allontana comunque molto da una formulazione algebrica del problema e molto spesso lo risolve in formula chiusa.
:cool:
Originariamente inviato da a2000
sì, ma ho capito, il vostro sforzo è enorme perchè affrontate i problemi in modo prealgebrico. :D
su questa battuta mi devi illuminare :confused:
devo ammettere che quando sviluppo non pianifico mai una mazza, scrivo diretto; ma ho notato che si impiega più tempo a raggiungere l'obiettivo finale :mad:
Originariamente inviato da misterx
su questa battuta mi devi illuminare :confused:
devo ammettere che quando sviluppo non pianifico mai una mazza, scrivo diretto; ma ho notato che si impiega più tempo a raggiungere l'obiettivo finale :mad:
Sempre PRIMA LA CARTA:
in un anno ho consumato 4 blocchi da 2 cm l'uno!!! :eek:
Quando l'algoritmo è lungo devi essere sicurissimo del codice che scrivi altrimenti ti trovi ad esaminare il codice scrollando il monitor(non quell'altra cosa...),fatto estremamente deleterio per la testa.
E ti ritrovi codice strapieno di bug logici o di procedura.
Statisticamente provato:
ogni volta che ho scritto di getto sono venuti fuori bachi insidiosissimi;e quando dal tuo codice dipende la sicurezza fisica delle persone,ti vengono i sudori freddi. :cry:
Lo scorrimento e il controllo del codice su carta è molto + efficiente,fidati. :)
soluzioni prealgebriche: non si formalizza il problema e la soluzione in forma algebrica.
tutti i problemi possono/devono essere formulati in linguaggio matematico (dallo studio del moto dei fluidi, al calcolo delle strutture, alla biologia molecolare, alla ricerca operativa, economia, psicologia).
La scrittura è molto più compatta, ci si riporta a problemi più semplici e di soluzione nota, si trovano soluzioni meno naive.
Poi l'implementazione è semplice, con attenzione alle problematiche legate alla rappresentazione numerica sui calcolatori.
eh,pure io sono scarso sulla teoria dei grafi.
Ne ho studiato un pò a "Tecnica ed economia dei trasporti".
Altra cosa è poi la sua implementazione nel codice.
Ma questo è senz'altro un validissimo aiuto:
http://www.boost.org/libs/graph/doc/table_of_contents.html
:D
Ach! Santissima boost benedetta, sia lode a te nell'alto dei cieli
aduemì,
secondo te è rrobba bbuon' ?
Originariamente inviato da a2000
...psicologia
Eh nooooo! Eh nun m' fà ncazzà!!!! :mad: :)
scienz ...scienz maaaaaaaaaaaccchìììììì!!!!
Desiderio: prendere a calci Crepet,Morelli,Bruno(criminologo dei miei cogl...) e tutti i cojones che invita Vespa :D
Originariamente inviato da a2000
soluzioni prealgebriche: non si formalizza il problema e la soluzione in forma algebrica.
tutti i problemi possono/devono essere formulati in linguaggio matematico (dallo studio del moto dei fluidi, al calcolo delle strutture, alla biologia molecolare, alla ricerca operativa, economia, psicologia).
La scrittura è molto più compatta, ci si riporta a problemi più semplici e di soluzione nota, si trovano soluzioni meno naive.
Poi l'implementazione è semplice, con attenzione alle problematiche legate alla rappresentazione numerica sui calcolatori.
ma stiamo parlando dell'ambiente Excel ?
Originariamente inviato da a2000
Cose del genere (e tutte le altre) vanno impostate su un foglio di carta bianca con matrici e vettori, sapendo cosa è un grafo e una matrice di vicinanza e che, per esempio, il prodotto n-simo di una matrice di vicinanza da tutti i percorsi a n passi
vuoi dirmi che con quello da te espresso sopra risolvo tutti i miei problemi in modo semplice ?
Immagina 4 fogli di excel dove sono presenti dati espressi in modo diverso ma che in ogni caso devono "parlarsi" tra loro; ogni modifica fatta sull'uno o sull'altro deve ripercuotersi sugli altri.
Purtroppo esistono problemi che sulla carta sembrano di facile soluzione, ma nella pratica risolverli è complesso.
ecco questo è un classico: visualizzazione di dati in formati diversi e con filtro.
senza scomodare la pappa pronta fornita dagli pseudo linguaggi di query di database, si risolve introducendo una struttura dati fondamentale (una matrice, se non ci sono grossi problemi di memoria) dalla quale i tuoi quattro fogli attingono i dati ognuno alla sua maniera.
In sostanza sono echi della struttura dati fondamentale.
Le finestre di input dati (anche se visualizzate internamente ai fogli eco) dialogano direttamente con la struttura dati di base.
comunque il tuo risultato mi sembra bello.
:)
purtroppo sono ancora lontano dalla soluzione (far parlare tra loro i 3 fogli e non 4 "pardon") in quanto non è affatto banale; e pensare che all'inizio mi sembrava una cavolata di progetto :(
A genera dati per B
B genera dati per C
ma B non parla con A
e C non parla nè con A e nè con B
C non può esistere senza B
A non avrebbe senso senza B
si, insomma, mi è andato in loop il cervello :mad:
ma c'è nei corsi di informatica una materia che si occupa di questo lato della programmazione ?
come si chiama ?
come sapreiiii :O
aiutarti io :O
che ho gettato il sangue :O
su excel :O
ogni cosa ti fareeiii :O
solo con un clic :O
su una shape :O
e una formattazione condizionaleeeee :O
come sapreiiii :O
Originariamente inviato da a2000
che ho gettato il sangue su excel
lo immagino
Originariamente inviato da a2000
e una formattazione condizionaleeeee
ti ho già detto che non devono rimanere formule o settaggi in giro
il tutto dev'essere svolto in VBA :)
vBulletin® v3.6.4, Copyright ©2000-2026, Jelsoft Enterprises Ltd.