Excel Linhas e Colunas – Código VBA

Código VBA

h4>Sem objectos de Linha ou Coluna

Não há objectos de Linha ou Coluna e não há colecções de Linhas ou Colunas.
É possível no entanto utilizar as propriedades do objecto da folha de actividade

ActiveSheet.Columns(icolumn) 

Isto devolve um objecto de Intervalo que se refere a uma coluna em particular.

Range("C1").ColumnWidth = Range("A1").ColumnWidth 

icount = Selection.Columns.Count - returns the number of columns currently selected 
ActiveSheet.Rows 
ActiveSheet.UsedRange.Rows.Count 
ActiveSheet.Rows(10).Cells(6).Select 

p>As propriedades EntireColumn e EntireRow retornam as colunas ou linhas em que o intervalo dado está localizado.
Estes são então tratados como intervalos normais de células.

ActiveSheet.Outlines.ShowLevels RowLevels:=2 

Range("B2:B10").EntireColumn.Interior.ColorIndex = 27 

Application.Intersect(Activesheet.Rows(2).Cells, Activesheet.Columns(4).Cells) 

Colunas

ActiveSheet.Columns 
ActiveSheet.UsedRange.Columns.Count 
ActiveSheet.Columns("A:C").Delete 
Range("A1:E10").Columns("C").Insert 

h4>Número de linhas actualmente selected

lcount = Selection.Rows.Count 

Número de colunas numa selecção múltipla

Dim iareacount As Integer 
Dim itotal as Integer 
itotal = 0 
For iareacount = 1 to Selection.Areas.Count 
itotal = itotal + Selection.Areas(iareacount).Columns.Count 
Next iareacount 
Call MsgBox(itotal) 

ActiveSheet.UsedRange.Row 

br>>>p> Tão chamada GetColumnName, ColumnNumberToLetter
ColumnNumberToNa,e

Question

I gostaria de esconder uma linha se certos valores fossem introduzidos em três células. Por exemplo, se o Reino Unido for seleccionado na célula C3 e C5 e o CI for seleccionado na célula C10, eu teria então a linha 16 escondida. Gostaria que isto fosse dinamicamente actualizado, isto é, sempre que o valor na célula mudar.

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rng As Range 
Set rng = Me.Range("C3,C5,C10") 
If Not Intersect(rng, Target) Is Nothing Then 
Rows(16).EntireRow.Hidden = Range("C3").Value = _ 
"United Kingdom" And Range("C5").Value = _ 
"United Kingdom" And Range("C10") = "C1" 
End If 
End Sub