DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
| 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 31 32 33 34 | 'msg Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim FilenameStr As String Dim ccaddress As String Dim name As String MakeFileForEmail name = Range("D5") ccaddress = Range("N8") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi xxx," & vbNewLine & vbNewLine & _ runbody On Error Resume Next With OutMail .to = "xxx@xx.nl" .CC = ccaddress .BCC = "xxx@xx.nl" .Subject = "bladiebla request from " & name .Body = strbody .Display 'or use .Send End With On Error GoTo 0 MsgBox "Email sent to xxx, xxx and " & name & "!" Set OutMail = Nothing Set OutApp = Nothing End Sub |
De body van de e-mail maak ik in een subje. Het is dus vrij eenvoudig. Een nadeel is dat je besturingssysteem een waarschuwing geeft als je .send in plaats van .display doet. Anders zou je eenvoudig een macro kunnen schrijven waarmee je een mailserver aardig kan belasten/platleggen.
Overigens kan je als je wilt wel 'onetische zaken' uitvoeren met excel. Ik kan bijv (doe ik niet) mailtjes van collega's lezen mbv Excel of hun persoonlijke agenda inkijken, of hun 'my documents' leegtrekken.
Die sub gebruik ik ook bijna letterlijk voor een koppeling met CRM.
Ik heb wel een leuk progsel voor je overigens om de .display wel te laten werken met .send
Verder nog een ander leuk ding: automatisch tabs bij stukjes "vieze" code inbrengen met 1 rechtermuisknop in vba. Per procedure, module, project, etc.
auto indent
outlook advanced security (mapilab)
Ik heb wel een leuk progsel voor je overigens om de .display wel te laten werken met .send
Verder nog een ander leuk ding: automatisch tabs bij stukjes "vieze" code inbrengen met 1 rechtermuisknop in vba. Per procedure, module, project, etc.
auto indent
outlook advanced security (mapilab)
onethische zaken kun je met alle programmeertalen. Maarja, daar doe je het (meestal) niet voor hequote:Op maandag 1 maart 2010 16:43 schreef Hi_flyer het volgende:
[ code verwijderd ]
De body van de e-mail maak ik in een subje. Het is dus vrij eenvoudig. Een nadeel is dat je besturingssysteem een waarschuwing geeft als je .send in plaats van .display doet. Anders zou je eenvoudig een macro kunnen schrijven waarmee je een mailserver aardig kan belasten/platleggen.
Overigens kan je als je wilt wel 'onetische zaken' uitvoeren met excel. Ik kan bijv (doe ik niet) mailtjes van collega's lezen mbv Excel of hun persoonlijke agenda inkijken, of hun 'my documents' leegtrekken.
in VBA is het ook leuk om autimagisch een random scheldwoord neer te gooien in je document 
Maar dat werkt natuurlijk alleen als je op een gedeelde pc werkt..
Maar dat werkt natuurlijk alleen als je op een gedeelde pc werkt..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
quote:
in VBA is het ook leuk om autimagisch een random scheldwoord neer te gooien in je document
of als je behorlijk schyzo bent Maar serieus... vba kan behoorlijk schadelijk zijn als je niet weet wat het doet (als je het krijgt van iemand).
Op middelbare eens een excel bestand rondgestuurd. Als macro opende sloopte die alles wat niet beveiligd was uit de program files
maarja, laten we zeggen dat het onschuldig vermaak was. Achteraf had ik ook niet gedacht dat iemand ook echt op de knop 'kill my program files' zou drukken.nee. ben er niet trots op... en doe dit soort apenkool niet meer
Ik probeer het volgende:
"= + selectie van een rij ENTER'
Dan dus die melding....
Gaat in de rest van het werkblad ok, sommige vakken geven deze melding...
Alvast bedankt voor de hulp!
@Hi_flyer
besef je wel dat dit
dim a, b, c as String
hetzelfde is als
dim a as variant, b as variant, c as string?
en je dus eigenlijk
dim a as string, b as string, c as string
bedoelt?
Verder nutteloze opmerking, maar wel een beetje snelheidswinst.
besef je wel dat dit
dim a, b, c as String
hetzelfde is als
dim a as variant, b as variant, c as string?
en je dus eigenlijk
dim a as string, b as string, c as string
bedoelt?
Verder nutteloze opmerking, maar wel een beetje snelheidswinst.
Volgens de VBA help niet: http://msdn.microsoft.com/en-us/library/7ee5a7s1(VS.80).aspxquote:Op dinsdag 2 maart 2010 10:22 schreef ralfie het volgende:
@Hi_flyer
besef je wel dat dit
dim a, b, c as String
hetzelfde is als
dim a as variant, b as variant, c as string?
en je dus eigenlijk
dim a as string, b as string, c as string
bedoelt?
Verder nutteloze opmerking, maar wel een beetje snelheidswinst.
halverwege de pagina staat de volgende code namelijk
| 1 2 | ' a, b, and c are all Single; x and y are both Double |
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Ralfie, ben ik niet met je eens.
Kijk ook even hier
Kijk ook even hier
quote:Different Types.
You can specify different data types for different variables by using a separate As clause for each variable you declare. Alternatively, you can declare several variables to be of the same type by using a common As clause. Each variable takes the data type specified in the first As clause encountered after its variablename part.
Dim a, b, c As Single, x, y As Double, i As Integer
' a, b, and c are all Single; x and y are both Double;
Grappig
geeft string
terwijl
geeft integer
probeer maar!
| 1 2 3 | a = 12 MsgBox TypeName(a) |
geeft string
terwijl
| 1 2 3 | a = 12 MsgBox TypeName(a) |
geeft integer
probeer maar!
Hmm ralfie, das inderdaad waar :s
Naja, gelukkig dim ik alles stuk voor stuk altijd, met
dim a as string
dim b as string
dim c as string
maar het is wel erg raar dat dit zo werkt!
Naja, gelukkig dim ik alles stuk voor stuk altijd, met
dim a as string
dim b as string
dim c as string
maar het is wel erg raar dat dit zo werkt!
Heel bizar:
Geeft integer integer string
Geeft string integer string
Blijkbaar wordt alleen de laatste variabele echt gedimd. Is dus niet Zoals het door microsoft wordt uitgelegd.
| 1 2 3 4 5 6 7 8 9 10 11 | Dim a, b, c As String a = 12 b = 12 c = 12 MsgBox TypeName(a) & TypeName(b) & TypeName(c) End Sub |
Geeft integer integer string
| 1 2 3 4 5 6 7 8 9 10 11 12 | Dim a As String Dim b, c As String a = 12 b = 12 c = 12 MsgBox TypeName(a) & TypeName(b) & TypeName(c) End Sub |
Geeft string integer string
Blijkbaar wordt alleen de laatste variabele echt gedimd. Is dus niet Zoals het door microsoft wordt uitgelegd.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Wat vaag! Ik was ook altijd in de veronderstelling dat ze allemaal als String gedimd werden!
Dat verklaart wel wat, maar meestal Dim ik ze ook stuk voor stuk zoals Holy.
Dat verklaart wel wat, maar meestal Dim ik ze ook stuk voor stuk zoals Holy.
De uitleg die ik en holy-goat vonden blijkt dus voor de "echte" visual basic en dot-net visual basic te zijn. Daar werkt dat wel zoals wij zeiden maar bij visual basic for applications (VBA) werkt het dus blijkbaar toch weer anders.
Het is dus zaak om in excel al je variabelen apart te DIMmen of in ieder geval in de gaten houden dat alleen de laatste variabele in een DIM rijtje echt geDIMt wordt en de rest variant blijft totdat er gegevens in de variabele worden gedouwd.
Het is dus zaak om in excel al je variabelen apart te DIMmen of in ieder geval in de gaten houden dat alleen de laatste variabele in een DIM rijtje echt geDIMt wordt en de rest variant blijft totdat er gegevens in de variabele worden gedouwd.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Wow dit is nieuw voor me en wellicht ook belangrijk. Ik dim vaak een rijtje variabelen en op deze manier vreet dat wel wat geheugen (netwerk is hier meer de bottleneck though).
Even tussen haakjes: aangezien ik mezelf alles aangeleerd heb wat vba betreft:
zijn er wat stukken tekst die ik echt gelezen móet hebben? Ik heb vaak het idee dat ik nog best "ranzig" programmeer namelijk.
En momenteel doe ik alles nog in vba behorende bij office 2003. Zou ik stiekem wel eens een keer .net moeten gaan leren?
Verder nog een subvraagje:
Kan ik sub of subsubclasses maken in vba?
Voorbeeld: variabele diersoorten.kat.poot.lengte
zijn er wat stukken tekst die ik echt gelezen móet hebben? Ik heb vaak het idee dat ik nog best "ranzig" programmeer namelijk.
En momenteel doe ik alles nog in vba behorende bij office 2003. Zou ik stiekem wel eens een keer .net moeten gaan leren?
Verder nog een subvraagje:
Kan ik sub of subsubclasses maken in vba?
Voorbeeld: variabele diersoorten.kat.poot.lengte
Holy, wat ikzelf wel belangrijk vind mbt 'netjes' programmeren zijn
- Inspringen voor bv loops en Ifs
- Leszynski naming convention voor controls en variables: http://en.wikipedia.org/wiki/Leszynski_naming_convention
- Inspringen voor bv loops en Ifs
- Leszynski naming convention voor controls en variables: http://en.wikipedia.org/wiki/Leszynski_naming_convention
Leer arrays te gebruiken, dat heeft mij ontzettend veel ruimte en snelheid opgeleverd. Zeker als je bepaalde handelingen door een hele sheet wilt uitvoeren.quote:Op dinsdag 2 maart 2010 12:26 schreef Holy_Goat het volgende:
Even tussen haakjes: aangezien ik mezelf alles aangeleerd heb wat vba betreft:
zijn er wat stukken tekst die ik echt gelezen móet hebben? Ik heb vaak het idee dat ik nog best "ranzig" programmeer namelijk.
En momenteel doe ik alles nog in vba behorende bij office 2003. Zou ik stiekem wel eens een keer .net moeten gaan leren?
Verder nog een subvraagje:
Kan ik sub of subsubclasses maken in vba?
Voorbeeld: variabele diersoorten.kat.poot.lengte
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
De allerbelangrijkste eye-opener voor mij was dat een range in een keer omgezet kan worden naar een variant (als array)quote:Op dinsdag 2 maart 2010 12:26 schreef Holy_Goat het volgende:
Even tussen haakjes: aangezien ik mezelf alles aangeleerd heb wat vba betreft:
zijn er wat stukken tekst die ik echt gelezen móet hebben? Ik heb vaak het idee dat ik nog best "ranzig" programmeer namelijk.
Dim w as variant
w = range(a1:b2);
MsgBox w(1,1)
en dit is vele malen sneller als met for en/of foreach door je cellen te gaan
andersom kan ook
range(a1:b2) = w
als je dus een berekening gaat doen op een zooi cellen, stop de waarden dan in een variant, doe je berekening, en zet je waarden terug.
Vergelijk
| 1 2 3 4 5 6 7 8 | w = Range("A1:Z1502") For x = 1 To UBound(w) For y = 1 To UBound(w, 2) w(x, y) = w(x, y) * 26 + 45 / 7 + w(x, y) Next y Next x Range("AA1:AZ1502") = w |
versus
| 1 2 3 4 | q = cell.Value cell.Offset(0, 26).Value = q * 26 + 45 / 7 + q Next cell |
De eerste code is bij deze range vol random getallen 100 x sneller, bij application.screenupdating =false en applicaiton.calculation=xlmanual nog zeker 10x sneller. Geen overbodige luxe bij een taaltje waarvan snelheid toch wel het grootste probleem is (mijns inziens)
Arrays gebruik ik té vaak
Maar vraag me soms wel af of dingen niet sneller kunnen, dat is in mijn geval vaak ook een bottleneck.
Ik heb soms arrays met 100.000+ waarden, en dan wil ik snel wat opzoeken in die array, maar dan wel 1000x achter elkaar iets opzoeken. Dan is een for loop gewoon te traag. (gebruik een binary search methode).
Waar ik me nu nog aan stoor soms is langzaam inladen van data.
Een sheet met 8 kolommen en een x aantal rijen (niet van te voren bekend) wil ik dan naar 8 aparte arrays schrijven. (niet naar een X * 8 2dim array). Ik doe dat nu nog door een while loop te gebruikend die data inleest (steeds redimensionen ook) tot de arrays gevuld zijn. Dit kan dus veel sneller ralph?
Voorbeeld van bestand: hier
Ook zou ik dus graag die subclasses willen gebruiken als mogelijk.
Verder gebruik ik gelukkig wel tabs, en gebruik veel comments
Alleen zijn mijn debug technieken volgens mij niet zo best.
Error handlers inbouwen ook niet. daar zou ik wel wat beter in willen worden.
[ Bericht 8% gewijzigd door Holy_Goat op 02-03-2010 14:23:43 ]
Maar vraag me soms wel af of dingen niet sneller kunnen, dat is in mijn geval vaak ook een bottleneck.
Ik heb soms arrays met 100.000+ waarden, en dan wil ik snel wat opzoeken in die array, maar dan wel 1000x achter elkaar iets opzoeken. Dan is een for loop gewoon te traag. (gebruik een binary search methode).
Waar ik me nu nog aan stoor soms is langzaam inladen van data.
Een sheet met 8 kolommen en een x aantal rijen (niet van te voren bekend) wil ik dan naar 8 aparte arrays schrijven. (niet naar een X * 8 2dim array). Ik doe dat nu nog door een while loop te gebruikend die data inleest (steeds redimensionen ook) tot de arrays gevuld zijn. Dit kan dus veel sneller ralph?
Voorbeeld van bestand: hier
Ook zou ik dus graag die subclasses willen gebruiken als mogelijk.
Verder gebruik ik gelukkig wel tabs, en gebruik veel comments
Alleen zijn mijn debug technieken volgens mij niet zo best.
Error handlers inbouwen ook niet. daar zou ik wel wat beter in willen worden.
[ Bericht 8% gewijzigd door Holy_Goat op 02-03-2010 14:23:43 ]
quote:Op dinsdag 2 maart 2010 14:07 schreef ralfie het volgende:
[..]
De allerbelangrijkste eye-opener voor mij was dat een range in een keer omgezet kan worden naar een variant (als array)
Dim w as variant
w = range(a1:b2);
MsgBox w(1,1)
Wist ik niet.
