venerdì 8 marzo 2013

Excel conteggio righe colonne

Attribute VB_Name = "Excel_conteggio_righe_colonne"

'

Option Explicit

'

Sub uso_conteggiorighecolonne()

Dim nomefoglio

nomefoglio = "articoli"

MsgBox "Righe utilizzate: " & conteggiorighecolonne(nomefoglio, "righe")

MsgBox "colonne utilizzate: " & conteggiorighecolonne(nomefoglio, "colonne")

End Sub

'

Function conteggiorighecolonne(nomefoglio, cosa)

' funzione conteggio righe e colonne usate su un foglio excel

Dim foglio, quanterighe, quantecolonne

conteggiorighecolonne = 0

Set foglio = Sheets(nomefoglio)

'

quanterighe = Range(foglio.UsedRange.Cells(foglio.UsedRange.Rows.Count, 1).Address).Row

quantecolonne = Range(foglio.UsedRange.Cells(1, foglio.UsedRange.Columns.Count).Address).Column

'

If cosa = "righe" Then

conteggiorighecolonne = quanterighe

Else

conteggiorighecolonne = quantecolonne

End If

'

End Function

Nessun commento:

Posta un commento