[EXCEL] Het grote Excel vragen topic, #13

zaterdag 23 mei 2009 @ 17:50:58 #151

Zeim1

quote:
Op zaterdag 23 mei 2009 10:40 schreef DaFan het volgende:
Zeim; nice, ik was er niet aan toegekomen, heel even maar. Kan je je oplossing posten?

Jaap; google eens op Dynamic Name Ranges. Hiermee kan je je kolom een naam geven en die gebruiken als Dataset in je grafiek. Deze range wordt groter en kleiner naarmate er meer (of minder) ingevuld is.

maar natuurlijk

Dim myName As String, n As Long, y As Long

Do

myBestand = Application.GetOpenFilename( _
FileFilter:="Excel bestand (*.xlsx), *.xlsx")
Loop Until myBestand <> False
Workbooks.Open _
Filename:=myBestand

myName = myBestand
myName = myBestand & "\"
opnieuw:
y = Len(myName)
n = Application.WorksheetFunction.Search("\", myName, 1)
If n = y Then GoTo Gereed
myName = Right(myName, (y - n))
GoTo opnieuw
Gereed:
y = Len(myName)
myName = Left(myName, y - 6)

De loop loopt dus net zo lang totdat alle \ weg zijn. Doordat het geopende document een document is wat ik ook zelf maak en exporteer vanuit datzelfde spreadsheet, kan ik volstaan door de laatsts 6 tekens weg te halen omdat ik het in deze vaste extensie opsla (.xlsx\)

Vond hem zelf wel leuk gevonden

heeft iemand anders nog een andere manier om dit voor elkaar te krijgen

?

zondag 24 mei 2009 @ 00:12:33 #152

Bill_E

vijf plus 98!

Hey excel experts
Ik heb een configuratie file van een apparaat. Die staat vol met dit soort info:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

TEXT=1345 IC-ZHB03.674.204
DATA=3B40 4610 0100 0000 1221 0000 0000 0000 1100 0100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0384 000C AB25 5561 0A0A 083D FFFF FF00 0A0A 08FE 0000 0000 3000 4010 0000 0000/
DATA=4140 0A10 0100 0000 11F0/
DATA=4440 2810 0100 0000 0200 0000 0000 0000 0005 0500 0001 0000 0000 0000 0000 8080 0000 0000 0808 0000/
DATA=4F40 1810 0100 0000 4943 2D5A 4842 3033 2E36 3734 2E32 3034/
DATA=6040 5E10 0100 0000 4513 3B93 0F69 0103 0405 592E 3133 3435 2D36 3734 2E32 3034 0000 0000 0000 0000 FEFE FEFE FEFF FFFF FEFE 66FF FFFF 641E 8000 0080 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000/
DATA=7940 3E10 0100 0000 0460 0062 0000 0003 13F1 0000 0000 0000 0000 0003 0000 0000 0A0A C03D FFFF FF00 0A0A C0FE 000C AB10 3515 0000 0000 0000 0000 0000 0000/
DATA=C740 A010 0100 0000 FFFF E001 0021 0000 3C00 0000 4B52 AE62 0452 5C10 5C50 BF20 BFA0 BDA0 5B50 1140 3280 5A50 1150 BDA0 32A0 FFFF C200 FFFF FFFF FFFF 0000 8100 0200 0400 0E00 00AC 3010 C040 F050 0003 1980 C003 C003 0010 0080 0000 0000 0000 0080 0000 0000 0000 0080 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000/
DATA=CB40 2010 0100 0000 FFFF 3801 0021 0000 0801 0201 4923 1F9A DA00 03F0 FF00 0000/
TEXT=1350 IC-ZHA03.803.204
DATA=3B41 4610 0100 0000 1221 0000 0000 0000 1100 0100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0384 000C AB25 7843 0A0A 033E FFFF FF00 0A0A 03FE 0000 0000 3000 4010 0000 0000/
DATA=4141 0A10 0100 0000 11F0/
DATA=4441 2810 0100 0000 0200 0000 0000 0000 0005 0500 0001 0000 0000 0000 0000 8080 0000 0000 0808 0000/
DATA=4F41 1810 0100 0000 4943 2D5A 4841 3033 2E38 3033 2E32 3034/
DATA=6041 5E10 0100 0000 5013 3B93 0F51 0103 0500 412E 3133 3530 2D38 3033 2E32 3034 0000 0000 0000 0000 FEFF FEFE FEFF FFFF FEFE 66FF FFFF 741E 8000 0080 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000/
DATA=C741 A010 0100 0000 FFFF E001 0021 0000 3C00 0000 4B52 AE62 0452 5C10 5C50 BF20 BFA0 BDA0 5B50 1140 3280 5A50 1150 BDA0 32A0 FFFF C200 FFFF FFFF FFFF 0000 8100 0200 0400 0E00 00AC 3010 C040 F050 0003 1980 C003 C003 0010 0080 0000 0000 0000 0080 0000 0000 0000 0080 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000/

Ik weet dat er redelijk wat info staat en zou dit graag willen importeren in excel en direct vertalen naar een leesbaar verhaal. Ik heb alleen geen idee waar te beginnen.. Hier iemand misschien een ideetje ?

zondag 24 mei 2009 @ 09:36:00 #153

Deetch

WTF?

Heb je de vertaaltabel voor die hexadecimale codes, ander kun je in excel dezez 4 cijfer/letterige codes alleen omzetten naar decimale getallen dus dat schiet niet echt op.

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

zondag 24 mei 2009 @ 12:50:38 #154

Bill_E

vijf plus 98!

quote:
Op zondag 24 mei 2009 09:36 schreef Deetch het volgende:
Heb je de vertaaltabel voor die hexadecimale codes, ander kun je in excel dezez 4 cijfer/letterige codes alleen omzetten naar decimale getallen dus dat schiet niet echt op.

Ik heb een tabel voor decimale codes.

zondag 24 mei 2009 @ 13:21:46 #155

Zeim1

kan je daar ook een voorbeeldje van plaatsen?

zondag 24 mei 2009 @ 13:29:37 #156

Bill_E

vijf plus 98!

sorry dom van me :')

Is een xml file die zo opgebouwd is :

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
36
37
38
39
40
41
42
43

<LanguageDB>
   <item id='0'>
      <language name='german'>Eine Zentrale ohne Zentralenummer ist in einem Netzwerk nicht zul+AOQ-ssig+ACE-</language>
      <language name='english'>A central without a central-number is not permitted in a network +ACE-</language>
      <language name='french'>Dans un r+AOk-seau, une centrale doit obligatoirement avoir une adresse+ACE-</language>
      <language name='italian'>In una rete ogni centrale deve avere un proprio numero+ACE-</language>
      <language name='russian'>+BB0ENQQ+BDEERQQ+BDQEOAQ8BD4- +BD8EQAQ4BEEEMgQ+BDgEQgRM- +BD0EPgQ8BDUEQA- +BEYENQQ9BEIEQAQwBDsETAQ9BD4EOQ- +BEEEQgQwBD0ERgQ4BDg- +BDQEOwRP- +BEAEMAQxBD4EQgRL-  +BDI- +BEEENQRCBDgAIQ-</language>
      <language name='spanish'>+AKE-En una red una central debe tener una direcci+APM-n en todo caso+ACE-</language>
   </item>
   <item id='1'>
      <language name='german'>Benennung</language>
      <language name='english'>Naming</language>
      <language name='french'>Nom du poste</language>
      <language name='italian'>Propriet+AOA-</language>
      <language name='russian'>+BB0EMAQ4BDwENQQ9BD4EMgQwBD0EOAQ1-</language>
      <language name='spanish'>Nombre del puesto</language>
   </item>
   <item id='2'>
      <language name='german'>Displaytexte</language>
      <language name='english'>Displaytext</language>
      <language name='french'>Afficheur</language>
      <language name='italian'>Display</language>
      <language name='russian'>+BCIENQQ6BEEEQg- +BD0EMA- +BDQEOARBBD8EOwQ1BDU-</language>
      <language name='spanish'>Pantalla</language>
   </item>
   <item id='3'>
      <language name='german'>Sekret+AOQ-r</language>
      <language name='english'>Secretary</language>
      <language name='french'>Secr+AOk-taire</language>
      <language name='italian'>Segretaria</language>
      <language name='russian'>+BCEENQQ6BEAENQRCBDAEQARM-</language>
      <language name='spanish'>Secretaria</language>
   </item>
(knip)
   <item id='2386'>
      <language name='german'>Zustand</language>
      <language name='english'>State</language>
      <language name='french'>State</language>
      <language name='italian'>State</language>
      <language name='russian'>State</language>
      <language name='spanish'>State</language>
   </item>
</LanguageDB>

maandag 25 mei 2009 @ 00:45:45 #157

Deetch

WTF?

De vertaalfunctie van hexadecimaal naar decimaal heet "hex2bin". Om deze te gerbuiken moet je bij je add-ons de analysis toolpack starten.

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

maandag 25 mei 2009 @ 12:44:46 #158

Joooo-pi

Do you want a balloon...

Waarom moet dit in excel? Google eens iets met hexadecimal voor een vertaalprogramma...

http://en.wikipedia.org/wiki/Hexadecimal

heitieh

maandag 25 mei 2009 @ 12:54:02 #159

wdn

Elfen lied O+

Bill_E : zoiets zou ik niet in Excel doen.
Is dit iets eenmaligs of moet het herhaalbaar zijn?

XML toon je normaal met een XML viewer.
http://www.w3schools.com/XML/xml_xsl.asp
en die dingen hebben vaak ook een export naar (Excel/txt).

Beatus vir qui suffert tentationem.
PSN Rinzewind
Disgaea 5 *O* Horizon Zero Dawn *O* Nier Automata *O* Persona 5 *O*

maandag 25 mei 2009 @ 13:40:44 #160

olivier-dw

Ik heb een excel bestand vol met emailadressen. Is het mogelijk om op een snelle manier te checken of er geen dubbele emailadressen tussen zitten ?

Microsoft Excel 2003, Nederlands

maandag 25 mei 2009 @ 13:58:55 #161

DaFan

quote:
Op maandag 25 mei 2009 13:40 schreef olivier-dw het volgende:
Ik heb een excel bestand vol met emailadressen. Is het mogelijk om op een snelle manier te checken of er geen dubbele emailadressen tussen zitten ?

Microsoft Excel 2003, Nederlands

Wat wil je met de dubbele doen? Highlighten/verwijderen/whatever? En hoe is je data gesorteerd?

maandag 25 mei 2009 @ 14:04:24 #162

olivier-dw

Ik gebruik ze om ze te importeren in "Groupmail". Ik heb ze gewoon heel simpel onderelkaar gesorteerd.
Verdeeld over 6 bladen. (100 per blad)
Een dubbel emailadres wil ik verwijderen.

maandag 25 mei 2009 @ 14:14:52 #163

wdn

Elfen lied O+

Dan zou dit moeten doen wat jij wilt:
http://support.microsoft.com/kb/262277/nl
Wel even alles op 1 blad zetten

Beatus vir qui suffert tentationem.
PSN Rinzewind
Disgaea 5 *O* Horizon Zero Dawn *O* Nier Automata *O* Persona 5 *O*

maandag 25 mei 2009 @ 14:33:17 #164

olivier-dw

Jaa thank youu !

Scheelt een hoop werk

maandag 25 mei 2009 @ 18:34:38 #165

Bill_E

vijf plus 98!

@ joooo-pi en wdn, Het is de bedoeling dat deze config in een overzichtelijk uitgeprint document komt te staan zodat snel het verschil van de config te zien is. En nee het is dus niet eenmalig maar zal vaker gebruikt worden.
Ik denk dat excel in combi met een macro het makkelijkste is dan. Of zie ik dat verkeerd?

maandag 25 mei 2009 @ 19:00:21 #166

wdn

Elfen lied O+

Nou ja en nee. Ik ben zelf een programmeur dus ik maak al snel een stukje software

Ik denk zelf dat een XLST maken makkelijker zou moeten zijn. Excel is 2d (rij+kolom) dus een xml erin zetten is niet zomaar 1 tag voor rij en 1 tag voor kolommen. Dus excel is lijkt -mij- niet de beste oplossing. Misschien dat anderen een andere mening zijn aangedaan hoor

Heb je deze al eens gezien: http://office.microsoft.com/nl-nl/excel/HP102064051043.aspx
Misschien dat dat goed genoeg is?

Beatus vir qui suffert tentationem.
PSN Rinzewind
Disgaea 5 *O* Horizon Zero Dawn *O* Nier Automata *O* Persona 5 *O*

maandag 25 mei 2009 @ 19:30:00 #167

Bill_E

vijf plus 98!

quote:
Op maandag 25 mei 2009 19:00 schreef wdn het volgende:
Nou ja en nee. Ik ben zelf een programmeur dus ik maak al snel een stukje software

Ik denk zelf dat een XLST maken makkelijker zou moeten zijn. Excel is 2d (rij+kolom) dus een xml erin zetten is niet zomaar 1 tag voor rij en 1 tag voor kolommen. Dus excel is lijkt -mij- niet de beste oplossing. Misschien dat anderen een andere mening zijn aangedaan hoor

Heb je deze al eens gezien: http://office.microsoft.com/nl-nl/excel/HP102064051043.aspx
Misschien dat dat goed genoeg is?

Wat misschien belangrijk om te weten is is dat de xml file vast is. Deze zal hooguit bij een udate wat kleine veranderingen hebben eens per jaar. Das met de hand nog wel aan te passen. Die xml gegevens krijg ik wel in excel. Maar ik krijg die config gegevens er niet in. Ik heb al met dat hex2bin zitten spelen btw. Ook wil ik geen voorgekauwd verhaal hebben ik wil graag zelf het een en ander uitzoeken. Maar ik weet niet goed welke richting ik op moet

maandag 25 mei 2009 @ 21:51:54 #168

Joooo-pi

Do you want a balloon...

quote:
Op maandag 25 mei 2009 19:30 schreef Bill_E het volgende:

[..]

Wat misschien belangrijk om te weten is is dat de xml file vast is. Deze zal hooguit bij een udate wat kleine veranderingen hebben eens per jaar. Das met de hand nog wel aan te passen. Die xml gegevens krijg ik wel in excel. Maar ik krijg die config gegevens er niet in. Ik heb al met dat hex2bin zitten spelen btw. Ook wil ik geen voorgekauwd verhaal hebben ik wil graag zelf het een en ander uitzoeken. Maar ik weet niet goed welke richting ik op moet

Als je het bestand opent (importeren) en de celindeling juist zet, zou je heel simpel onderstaand kunnen maken en customizen naar je eigen wensen:

Boven zie je het geimporteerde bestand en onder een hok met "=hex.n.dec(A1)" en verder... (zie invulbalk)

Waar #GETAL staat zou je handmatig andere teksten neer kunnen zetten, nullen weghalen e.d.

Is dat wat?

heitieh

dinsdag 26 mei 2009 @ 13:25:11 #169

Hi_flyer

Van alles te melden

Jongens, ik zit te prutsen. Op de een of andere manier weigert dit stukje code 'strRunnumber' op te zoeken. Volgens mij zie ik iets gruwelijk over het hoofd... :{

Vanuit deze geactiveerde cell wil ik wat offsets doen, dat moet wel lukken. Ik krijg een type mismatch error. ;(

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

strRunnumber = run_number_box.Value

    MsgBox "LayerID: " & layerID & vbCrLf & "strrunnumber" & strRunnumber

    If layerID = 1 Then
        offset1 = 19
        offset2 = 100

    ElseIf layerID = 2 Then
        offset1 = 30
        offset2 = 91

    ElseIf layerID = 3 Then
        offset1 = 41
        offset2 = 82

    ElseIf layerID = 4 Then
        offset1 = 52
        offset2 = 73
    End If

    MsgBox "nr 1: " & offset1 & "  nr 2: " & offset2

    Sheet5.Range("A3:A1000").Find(what:=strRunnumber, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    MsgBox "activated"

dinsdag 26 mei 2009 @ 13:37:16 #170

DaFan

strRunnumber = run_number_box.Value

=>

strRunnumber = run_number_box.Text

Ik neem aan dat run_number_box een Textbox is.

dinsdag 26 mei 2009 @ 13:42:53 #171

Hi_flyer

Van alles te melden

Jup, die fout had ik er ook al uit gehaald, maar daar blijkt de fout niet te zitten. Volgens mij heb ik een soort oplossing. Eerst

sheet5.range("A3:A1000").select

Dan

Selection.find(blablabla)

Dat werkt dus wel

:?:? Ik zie het verschil niet, maar ben blij dat het iig soort van werkt.

dinsdag 26 mei 2009 @ 13:49:49 #172

DaFan

Ja dat heb ik soms ook! Geen idee waarom dat wel/niet werkt af en toe.
Soms lijkt het alsof Excel te snel door je macro vliegt om fatsoenlijk alles te selecteren en dan je opdracht uit te gaan voeren.

Maarja mooi dat je eruit bent gekomen.

dinsdag 26 mei 2009 @ 17:44:38 #173

Repeat

Misschien een simpele vraag, maar kan je ergens ook de grootte van een grafiekgebied instellen? Nu moet ik nl een beetje op het oog verschillende grafieken even groot maken, maar als je ergens absolute waarden kunt instellen is dat natuurlijk veel makkelijker

Owja en als ik in een grafiek met gelabelde punten, punten vlak bij elkaar heb gaat de tekst door elkaar lopen, is hier iets aan te doen?

dinsdag 26 mei 2009 @ 20:13:20 #174

Bill_E

vijf plus 98!

quote:
Op maandag 25 mei 2009 21:51 schreef Joooo-pi het volgende:

[..]

Als je het bestand opent (importeren) en de celindeling juist zet, zou je heel simpel onderstaand kunnen maken en customizen naar je eigen wensen:

[ afbeelding ]

Boven zie je het geimporteerde bestand en onder een hok met "=hex.n.dec(A1)" en verder... (zie invulbalk)

Waar #GETAL staat zou je handmatig andere teksten neer kunnen zetten, nullen weghalen e.d.

Is dat wat?

Ik ga hier morgen even mee aan de slag eens kijken hoe ver ik kom. Bedankt voor je moeite!

woensdag 27 mei 2009 @ 09:12:09 #175

Hi_flyer

Van alles te melden

AAAAAAAAAAAAAAAARRRRGGHHHHHHHH

Onderstaande code werkt de hele tijd, maar nu opeens niet meer. Excel kan NIET omgaan met .find

1
2
3
4

Sheet5.Range("A3:A1000").Select
Selection.Find(what:=strRunnumber, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Excel geeft dus een error bij het .select gedeelte: Select mode of range class failed. Iemand een idee?

_{Ja, ik ben een tikje gefrustreerd, ook halfziek enzo en eigenlijk moet je dan van je code afblijven}

[ Bericht 15% gewijzigd door Hi_flyer op 27-05-2009 09:35:10 ]

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software