Lås en kolumn

[lewdis]

Har en kolumn i ett dokument som bara ränkar från 1 - 100. Jag skulle vilja att denna kolumn är låst oavsett om jag använder autofilter. Är detta möjligt?

[Monshi]

Du menar att det ska stå 1-100 i en kolumn oavsett om Autofilter har filtrerat bort rader eller ej?

 

Mmh, den måste jag fundera på om det är det du menar.

[lewdis]

Dels det, men framför allt om jag sorterar efter den ena eller den andra så skall 1-100 alltid stå kvar utan att ändras beroende på hur jag ordnar andra kolumner!

[Monshi]

För att hantera osynliga celler/rader då krävs det VBA. Varför uppfinna hjulet igen, CPearson har en funktion som fungerar:

http://www.cpearson..../IsVisible.aspx

Public Function IsVisible(InRange As Range) As Boolean()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' IsVisible
' This function returns an array of Boolean values indicating whether the
' corresponding cell in InRange is visible.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim R As Range
Dim Arr() As Boolean
Dim RNdx As Integer
Dim CNdx As Integer

ReDim Arr(1 To InRange.Rows.Count, 1 To InRange.Columns.Count)
For RNdx = 1 To InRange.Rows.Count
   	For CNdx = 1 To InRange.Columns.Count
       	Set R = InRange(RNdx, CNdx)
       	If R.EntireRow.Hidden = True Or R.EntireColumn.Hidden = True Then
           	Arr(RNdx, CNdx) = False
       	Else
           	Arr(RNdx, CNdx) = True
       	End If
   	Next CNdx
Next RNdx
IsVisible = Arr
End Function

 

 

]Sedan använder man denna funktion i en formel på bladet. Jag minns ej vilket Excel du har, här får du hur det skulle kunna se ut i Excel 2010, i en tabell

=OMFEL(FÖRSKJUTNING([@Radtest];-1;0)+OM(IsVisible([@Radtest]);1;0);1)

eller utan tabell.

=OMFEL(FÖRSKJUTNING(Blad1!$A2;-1;0)+OM(IsVisible(Blad1!$A2);1;0);1)

Om du inte har Excel 2007, får du lösa OMFEL-delen på annat vis.