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.
Is het nou eigenlijk mogelijk om met Excel gegevens van een niet lokale database (SQL) te plukken?
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]
| 1 2 3 4 5 6 7 8 9 | Dim a, b, c As Long a = Sheet2.Range("J32").Value b = Sheet2.Range("K32").Value c = Sheet2.Range("L32").Value 'MsgBox a & b & c Range("Invulcellen").Interior.Color = RGB(a, b, c) 'MsgBox Range("E13").Interior.Color End Sub |
Ik heb dus drie cellen waar waardes tussen 0 en 255 ingevuld kunnen worden, om op die manier een kleur te mengen. Ik hoopte op die manier 256^3 kleuren te kunnen maken, maar helaas zoekt Excel een standaardkleur die het dichtst bij de ingegeven waardes ligt. Is het mogelijk om toch uit alle kleuren te kiezen? Uiteindelijk wil ik een soort user profiles maken (tijd over en zinloos natuurlijk, maar gewoon leuk). Gebruikers van mijn workbook kunnen dan bijvoorbeeld hun eigen kleuren instellen :P
Tevens ben ik op zoek naar een functie die bij het aanroepen van een userform Excel zelf verkleint, zodat deze niet meer te zien is achter het userform.
Overigens is het programma al bijna 1 MB groot ;(
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.quote:Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
FF een quote uit de help van Excel, met name het voorbeeld werkt verduidelijkend:
quote:SQLExecQuery, functie
Zie ookSpecificatiesGebruik SQLExecQuery en de andere ODBC-functies niet in de invoegmacro Xlodbc.xla, maar gebruik in plaats daarvan de objecten, methoden en eigenschappen in de ADO-bibliotheek (ActiveX Data Objects) van Microsoft.
Met SQLExecQuery wordt een query uitgevoerd op een gegevensbron met een koppeling die tot stand is gebracht met SQLOpen.
Met SQLExecQuery wordt de query alleen maar uitgevoerd. Het resultaat kan worden opgehaald met SQLRetrieve of SQLRetrieveToFile.
Deze functie maakt deel uit van de invoegmacro Xlodbc.xla. Voordat u de functie kunt gebruiken, moet u een verwijzing naar de invoegmacro instellen met de opdracht Verwijzingen in het menu Extra.
SQLExecQuery(ConnectionNum, QueryText)
ConnectionNum Vereist. De unieke koppelings-id van de gegevensbron (als resultaat gegeven door SQLOpen) waarop u de query wilt uitvoeren.
QueryText Vereist. De query die op de gegevensbron moet worden uitgevoerd. De query moet voldoen aan de SQL-syntaxis voor het betreffende stuurprogramma.
Resultaatwaarde
De waarde die door SQLExecQuery als resultaat wordt gegeven, is afhankelijk van de SQL-instructie, zoals wordt weergegeven in de volgende tabel.
SQL-instructie Resultaatwaarde
SELECT Het aantal kolommen in de resultaatset.
UPDATE, INSERT of DELETE Het aantal rijen dat door de instructie wordt beïnvloed.
Elke andere geldige SQL-instructie 0 (nul)
Als de functie SQLExecQuery de query niet kan uitvoeren op de opgegeven gegevensbron, wordt fout 2042 als resultaat gegeven.
Als ConnectionNum ongeldig is, geeft SQLExecQuery fout 2015 als resultaat.
Aanvullende informatie
Voordat SQLExecQuery kan worden aangeroepen, moet een koppeling met de gegevensbron tot stand worden gebracht met de functie SQLOpen. De unieke koppelings-id die door SQLOpen als resultaat wordt gegeven, wordt door SQLExecQuery gebruikt om query's door te geven aan de gegevensbron.
Als u SQLExecQuery aanroept met een eerder gebruikte koppelings-id, worden alle wachtende resultaten voor die koppeling vervangen door de nieuwe resultaten.
Voorbeeld
In het volgende voorbeeld wordt een query uitgevoerd op de voorbeelddatabase Northwind. Het resultaat van de query wordt weergegeven in Sheet1 en bestaat uit een lijst van alle producten die in bestelling zijn.
databaseName = "Northwind"
queryString = _
"SELECT * FROM product.dbf WHERE (product.ON_ORDER<>0)"
chan = SQLOpen("DSN=" & databaseName)
SQLExecQuery chan, queryString
Set output = Worksheets("Sheet1").Range("A1")
SQLRetrieve chan, output, , , True
SQLClose chan
Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..quote:Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
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]
Dat lijkt meer op een benadering van een lokale niet beveiligde SQl-database..quote:
[..]
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.
FF een quote uit de help van Excel:
[..]
Ik zoek nog even verder
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]
Sorry, bedoelde het natuurlijk niet zo, maar via 'excel sql' vond ik al een redelijke uitleg.quote:Op vrijdag 20 maart 2009 12:18 schreef qu63 het volgende:
[..]
Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..
Hoi, ik ben op dit moment bezig met het creëren van een urenregistratie voor mijn werk maar kom er niet helemaal uit.
De tijdregistratie en verdiensten gaan goed, ik wil het alleen iets meer met formules gaan proberen.
Het is namelijk zo dat ik van ma-za 5,84 euro krijg, maar als ik dan op zondag werk, er 0,50 euro bij komt.
Nu heb ik al heel wat lopen klooien met de ALS functie maar ik kom er niet helemaal uit....
Mijn indeling is als volgt (waarbij X onzichtbaar is en enkel dient als tussenstap om de uren als cijfer weer te geven):
C5 = loon voor ma - za (¤ 5,84)
C6= loon voor zondag (¤ 6,24)
B8 is [DAG] en kan dus maandag dinsdag woensdag donderdag vrijdag zaterdag zijn of Zondag
Nu is mijn vraag, is het mogelijk dat als er bij [DAG] bijv. zondag staat, dat dan bij [loon per dag] automatisch met C6 gerekend word?
En dat als er bijvoorbeeld dus bij [DAG] Woensdag staat, dat er dan bij [loon per dag] dus met C5 gerekend word..?
De tijdregistratie en verdiensten gaan goed, ik wil het alleen iets meer met formules gaan proberen.
Het is namelijk zo dat ik van ma-za 5,84 euro krijg, maar als ik dan op zondag werk, er 0,50 euro bij komt.
Nu heb ik al heel wat lopen klooien met de ALS functie maar ik kom er niet helemaal uit....
Mijn indeling is als volgt (waarbij X onzichtbaar is en enkel dient als tussenstap om de uren als cijfer weer te geven):
C5 = loon voor ma - za (¤ 5,84)
C6= loon voor zondag (¤ 6,24)
B8 is [DAG] en kan dus maandag dinsdag woensdag donderdag vrijdag zaterdag zijn of Zondag
| 1 2 | [Vrijdag] [20-03-2009] [14:30] [21:00] [6:30] [6,5] [waarde van X * C5] [¤14,50] [loonperdag+fooi] |
Nu is mijn vraag, is het mogelijk dat als er bij [DAG] bijv. zondag staat, dat dan bij [loon per dag] automatisch met C6 gerekend word?
En dat als er bijvoorbeeld dus bij [DAG] Woensdag staat, dat er dan bij [loon per dag] dus met C5 gerekend word..?
Niet echt duidelijk. Kan je me toemailen? s punt spraakman at gmail com. Of als iemand anders m weet, kan aan mn telefoon liggen dat het niet te lezen is :p
Vul je je dag handmatig in?
Zo ja, maak er dan een datum van en laat het opmaken door excel. Dan kan je bijvoorbeeld weekdag(CEL) doen en daar mee rekenen.. =ALS(WEEKDAG(A1)=6;wat te doen als het zondag is;wat te doen als het niet zondag is)
Zo ja, maak er dan een datum van en laat het opmaken door excel. Dan kan je bijvoorbeeld weekdag(CEL) doen en daar mee rekenen.. =ALS(WEEKDAG(A1)=6;wat te doen als het zondag is;wat te doen als het niet zondag is)
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]
Bedankt! Zo moet het lukken, ben nu even aan het experimenteren, als het niet lukt laat ik het wel weer even weten
Of maak op een ander tabblad een tabel met dagen en tarieven. Dan met verticaal zoeken de juiste dag zoeken en zo het tarief daarbij vinden. Ook handig als je met andere tarieven gaat werken op dagen enzo.
heitieh
Feestdagen bv..quote:Op maandag 23 maart 2009 18:55 schreef Joooo-pi het volgende:
Ook handig als je met andere tarieven gaat werken op dagen enzo.
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
Ik zit met het volgende probleem.
Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.
Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.
Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.
Het gaat om de volgende formule:
=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")
De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?
Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.
Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.
Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.
Het gaat om de volgende formule:
=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")
De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?
Dan gebruik je ipv weekdag() werkdag()quote:
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]
Hallo,
Ik heb weer eens een vraagje. Is het mogelijk om een kolom op kleur van de cel te ordenen? Ik heb over een hele lange lijst een aantal verschillende kleuren en die zou ik graag onde elkaar zien.
Dank voor de hulp.
Ik heb weer eens een vraagje. Is het mogelijk om een kolom op kleur van de cel te ordenen? Ik heb over een hele lange lijst een aantal verschillende kleuren en die zou ik graag onde elkaar zien.
Dank voor de hulp.
Meer kleuren kan toch niet, heb ik hier pas geleerd?quote:
BOEM!
Toffe macro vraag, Hoek.
Je gebruikt alleen de 'basis' 56 kleuren uit Excel neem ik aan?
@McGilles, dit is veel makkelijker met een macro'tje op te lossen, als ik straks op mijn werk ben zal ik een stukje code plaatsen, want een vergelijkbaar probleem heb ik laatst ook gehad en opgelost.
| 1 2 3 4 5 6 7 8 9 10 | Range("B" & i).Value = Range("B" & i).Interior.ColorIndex Next i Columns("B:B").Select Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Columns("B:B").ClearContents |
Bij mij staat in B1:B30 een lijst met kleuren, random aangemaakt. Hiermee sorteer je ze van Colorindex 1 t/m 56.
Te lang argument voor de functie HYPERLINK wellicht??quote:Op maandag 23 maart 2009 22:06 schreef McGilles het volgende:
Ik zit met het volgende probleem.
Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.
Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.
Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.
Het gaat om de volgende formule:
=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")
De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?
Wat gebeurt er als je dit doet:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | "mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: " _ &TEKST(C6,"d/m/yyyy")&TEKEN(11) _ &"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: " _ &TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9& _ TEKEN(11)&"Reden: "&C10&TEKEN(11)& _ "Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy") _ &TEKEN(11)&"Tijd nieuwe _ afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)& _ "Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke _ groet"&TEKEN(11)&"Afsprakenbalie","@" HYPERLINK(RANGE("A1").VALUE) 'eventueel 'RANGE("A1").VALUE = "" |
Zo kun je in ieder geval controleren wat je genereert aan hyperlink...
Ik zou in excel de hele subject al samenvoegen en vervolgens afronden op het aantal characters dat nog wel goed gaat.
Je zou evt. de hoeveelheid tekst in overig kunnen beperken tot een beperkt aantal characters met de "validate" optie.
Kan de "overig" ook niet in de body van de mail?
Je zou evt. de hoeveelheid tekst in overig kunnen beperken tot een beperkt aantal characters met de "validate" optie.
Kan de "overig" ook niet in de body van de mail?
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
Ik heb een vraag .
Ik heb 2 Exel documenten
1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.
Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.
Ik heb 2 Exel documenten
1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.
Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.
dat doe je het makkelijkste met Microsoft Excel, een onderdeel van de Microsoft Office Suite.quote:Op dinsdag 24 maart 2009 14:44 schreef roelmaster18 het volgende:
Ik heb een vraag .
Ik heb 2 Exel documenten
1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.
Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.
quote:Op dinsdag 24 maart 2009 15:26 schreef ralfie het volgende:
[..]
dat doe je het makkelijkste met Microsoft Excel, een onderdeel van de Microsoft Office Suite.
!
Het is mij nog niet duidelijk wat je precies wilt. Wat wil je precies als eindresultaat.
Wil je in de eerste lijst (totaallijst) bij de werknemers een aantekening ofzo dat ze ook BHV'er zijn?
verder zou ik dat idd ook in excel doen
Wil je in de eerste lijst (totaallijst) bij de werknemers een aantekening ofzo dat ze ook BHV'er zijn?
verder zou ik dat idd ook in excel doen
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
Plaats gewoon een button en laat die verwijzen naar onderstaande sub. (Niet helemaal van mezelf). De body moet je dan zelf even aanpassen, maar dat zal wel lukken.quote:Op maandag 23 maart 2009 22:06 schreef McGilles het volgende:
Ik zit met het volgende probleem.
Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.
Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.
Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.
Het gaat om de volgende formule:
=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")
De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?
In plaats van .send kan je ook .Display gebruiken, dan kan je het mailtje nog een keer controleren voordat je 'em handmatig verstuurt.
| 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 35 | Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim FilenameStr As String Dim address As String Dim name As String name = Range("D5") address = Range("D5") 'MsgBox address Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi technician," & vbNewLine & vbNewLine & _ "Can you do an Aster run as described in " & location & vbNewLine & _ vbNewLine & "Regards " & name On Error Resume Next With OutMail .to = address .CC = "iemand1@uu.nl" .BCC = "iemand2@uu.nl" .Subject = "Wijziging afspraak" .Body = strbody .Send End With On Error GoTo 0 MsgBox "Email sent to iemand1, iemand2 and " & name & "!" Set OutMail = Nothing Set OutApp = Nothing End Sub |
