09. april 2005 - 13:20Der er
12 kommentarer og 1 løsning
Excel cell Merge
Hej
Jeg sidder med et VB program der laver et udtræk fra et excel(xls) ark. Jeg ved dog ikke hvordan man finder de celler der er forenet. Har forsøgt mig med Range(1, 2).MergeCells = True, men der får jeg en fejl.
Håber der er nogen der kan hjælpe.
With aObjWorkSheet aLngRowCount = .UsedRange.Rows.Count aLngColCount = .UsedRange.Columns.Count
For aLngRow = 1 To aLngRowCount If .Range(aLngRow, aLngCol).MergeCells = True Then 'HER FEJLER KODEN
End If For aLngCol = 1 To aLngColCount aStrCellVal = aStrCellVal & .Cells(aLngRow, aLngCol) Next aLngCol
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
mikkelk >> Har lige implementeret det og det virker rent faktisk :-) Mit eneste problem er bare hvordan man tjekker om to celler, hvor den ene er under den anden, er forenet. F.eks.
Ja, det er jo så et problem. Her skal du bruge Range for at tjekke at alle celler i den markerede range er forenede. Men i range skal du benytte syntaksen: Range("A1:H8") istedet for tal - så den er lidt mere besværlig at have med at gøre.
:-) Ok...ellers kan du bruge .Cells(aLngRow, aLngCol).Address
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
