ehm...quote:
Ja dat is dus lastig, omdat je, zodra je de value eruithaalt, hem opslaat als een getal.quote:Op woensdag 18 maart 2009 13:04 schreef qu63 het volgende:
[..]
Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..
1 2 3 4 5 6 7 | If IsDate(Waarde) Then MsgBox "Ja" Else MsgBox "Nee" End If |
Eerst een tabel maken, bijvoorbeeld in een ander tabblad, met alle nummers onder elkaar met de afdeling naam erbij (sheet2). Zeg in A1:B10 (10 nummers, 10 afdelingen).quote:Op woensdag 18 maart 2009 21:10 schreef hoek21 het volgende:
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.
Wie kan mij helpen?
je moest ons even inwrijven dat je in mexico zat? You bastard!quote:Op woensdag 18 maart 2009 22:23 schreef hoek21 het volgende:
TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City
1 |
1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _ :=xlPivotTableVersion10 Sheets("Data").Select Cells(19, 6).Select ActiveWorkbook.ShowPivotTableFieldList = True With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Ernst") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit"). _ Orientation = xlHidden With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Product") .Orientation = xlRowField .Position = 1 End With Range("F19").Select ActiveWorkbook.ShowPivotTableFieldList = False |
Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?quote:Op donderdag 19 maart 2009 07:54 schreef DaFan het volgende:
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.
Dit heb je niet in zijn geheel 'opgenomen' toch? (gezien de Cells(.., ..) regel)quote:Op donderdag 19 maart 2009 11:28 schreef Jaheur het volgende:
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:
[ code verwijderd ]
Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).quote:Op donderdag 19 maart 2009 12:40 schreef Metal_Jag het volgende:
[..]
Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?
(of bedoel je mijn eigen probeersel?)
1 2 3 4 5 6 7 8 9 | If IsDate(Waarde) Then If Mid(Waarde, 3, 1) = ":" And IsNumeric(Mid(Waarde, 1, 2)) Then MsgBox "Is Tijd" End If End If |
Thanx. Ziet er goed uit.quote:Op donderdag 19 maart 2009 13:46 schreef DaFan het volgende:
[..]
Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.
Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
[ code verwijderd ]
1 2 3 4 5 6 7 8 | Range("B2").Value = Date ScrollBar1.Value = 0 ScrollBar2.Value = 0 End Sub |
quote:Op donderdag 19 maart 2009 16:51 schreef Deetch het volgende:
nevermind
code stond idd op de verkeerde plek
LOLquote:
1 2 3 4 5 6 7 8 9 | Dim c As Range For Each c In Sh.Range("A1:A10") c.Value = Sheets("Sheet1").Range("A1").Value Next End Sub |
quote:Op donderdag 19 maart 2009 21:27 schreef Chilley het volgende:
Goedenavond!
Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?
Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.
Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5
Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!
Ik hoor het heel graag!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sheets("Blad1").Activate i = 0 k = 0 Do i = i + 1 For j = 1 To Cells(i, 2).Value k = k + 1 Sheets("blad2").Cells(k, 1).Value = Cells(i, 1).Value Next Loop Until Cells(i, 1).Value = "" End sub |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sheets("Sheet1").Activate i = 0 k = 0 Do i = i + 1 For j = 1 To Cells(i, 2).Value k = k + 1 Sh.Cells(k, 1).Value = Cells(i, 1).Value Next Loop Until Cells(i, 1).Value = "" End Sub |
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 |
1 |
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
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
Dat lijkt meer op een benadering van een lokale niet beveiligde SQl-database..quote:Op vrijdag 20 maart 2009 12:17 schreef Metal_Jag het volgende:
[..]
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.
FF een quote uit de help van Excel:
[..]
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..
1 2 | [Vrijdag] [20-03-2009] [14:30] [21:00] [6:30] [6,5] [waarde van X * C5] [¤14,50] [loonperdag+fooi] |
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.
Dan gebruik je ipv weekdag() werkdag()quote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |