Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Contare righe matrice con VBA

858 views
Skip to first unread message

Simone

unread,
May 2, 2007, 3:26:57 AM5/2/07
to
Ciao a tutti,
sto cercando un comando in VBA che mi permetta di assegnare un valore
ad una variabile. Tale valore deve essere uguale al numero di righe di
una matrice presente in un file. Le celle della matrice sono tutte
piene, il numero di righe cambia in base al file utilizzato.
Grazie per l'aiuto

Simone

Tiziano Marmiroli

unread,
May 2, 2007, 3:37:53 AM5/2/07
to
Il 2 May 2007 00:26:57 -0700, Simone ha scritto:

>sto cercando un comando in VBA che mi permetta di assegnare un valore
>ad una variabile. Tale valore deve essere uguale al numero di righe di
>una matrice presente in un file.

Definisci "matrice" e "file", grazie.
--
Tiziano Marmiroli
Microsoft MVP - Office System

Norman Jones

unread,
May 2, 2007, 3:38:07 AM5/2/07
to
Ciao Simone,

'------------------


sto cercando un comando in VBA che mi permetta di assegnare un valore
ad una variabile. Tale valore deve essere uguale al numero di righe di
una matrice presente in un file. Le celle della matrice sono tutte
piene, il numero di righe cambia in base al file utilizzato.

'------------------

Senza ulteriori particolari, e' difficile aiutarti.

Comunque, forse, prova qualcosa del genere:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim iCtr As Long, jCtr As Long

Set WB = ActiveWorkbook
Set SH = WB.Sheets("Foglio1")
Set Rng = SH.Range("A1")

With Rng.CurrentRegion
iCtr = .Rows.Count
jCtr = .Columns.Count
End With

MsgBox "# Righe = " & iCtr _
& vbNewLine _
& "# Colonne = " & jCtr
End Sub
'<<=============


---
Regards,
Norman
Microsoft Excel MVP


Simone

unread,
May 2, 2007, 4:09:07 AM5/2/07
to
On 2 Mag, 09:38, "Norman Jones" <normanjo...@whereforartthou.com>
wrote:

Perfetto, funziona, ho escluso la dichirazione della variabile per il
numero delle colonne.
Grazie ancora

Simone

0 new messages