11. april 2005 - 20:26Der er
6 kommentarer og 1 løsning
Sammenflettede celler i excel ark
Hej
Jeg har en funktion der løber igennem et excel ark og læser alle celler. Det jeg godt kunne tænke mig var at finde ud af om to cellerækker er flettet med hinanden.
Den kode jeg har nu, tjekker om en celle er part af celler der er flettede, men ikke hvilke celler.
Set aObjExcel = CreateObject("Excel.Application") aObjExcel.Workbooks.Open "Book1.xls"
With aObjExcel.ActiveWorkbook For Each aObjWorkSheet In .Worksheets With aObjWorkSheet aLngColCount = .UsedRange.Columns.Count aLngRowCount = .UsedRange.Rows.Count
For aLngRow = 1 To aLngRowCount For aLngCol = 1 To aLngColCount 'Tjek af cellerække If .Cells.Range(.Cells(aLngRow - 1, aLngCol).Address, .Cells(aLngRow, aLngCol).Address).MergeCells = True Then ....
set C = Range("A4") If Not Intersect(c.MergeArea, c.Offset(-1, 0)) Is Nothing Then 'så er de flettet sammen else 'så er de ikke end if
Sub test() Dim c As Range For Each c In Selection.Cells If Not Intersect(c.MergeArea, c.Offset(-1, 0)) Is Nothing Then MsgBox "Intersect between " & c.MergeArea.Address & " and " & _ c.Offset(-1, 0).Address & " (Undersøger nu " & c.Address & " )" Else MsgBox "No Intersect between " & c.MergeArea.Address & " and " & c.Offset(-1, 0).Address End If Next End Sub
Hov, glemte da at forklare mig. Nej, du er ikke på den. Du skal bare chekke om der er Intersection mellem aktuel celle/område og cellen overfor. Det gør jeg i ovenstående eksempel. Bemærk at du ikke kan starte i række 1 da der ikke er nogen overover.
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.
