Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum2 -- CercaGlobale -- Informativa su Cookie e Privacy

Questo Forum1 è in sola lettura -- Usa il Forum2


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Trovare l'ultima riga occupata in una colonna di un foglio Excel e Calc
#1
su Excel (esistono anche altre soluzioni)
Codice:
UltimaRiga = Cells(Rows.Count, "C").End(xlUp).Row
dove C è la colonna su cui cercare

e su Calc ? basterà una sola riga ?
 
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#2
Scusa,è una domanda e cerchi soluzione oppure è un test da risolvere ?

Cita messaggio
#3
è un test dedicato a token che sta cercando di dimostrare che il basic di calc non è più complicato del vba.
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#4
Io faccio presto ... premo CTRL + freccia giu ... e mi sposta automaticamente sull'ultima riga occupata della colonna di partenza
Cita messaggio
#5
ti ricordo che la sezione è dedicata alla programmazione e macro
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#6
Su calc si possono avere le seguenti soluzioni
1) ci interessa l'ultima riga occupata nel foglio
Codice:
sub ultimariga
   oSheet = ThisComponent.Sheets(0)
   oCursor = oSheet.createCursor
   oCursor.gotoEndOfUsedArea(False)
   LastRow = oCursor.RangeAddress.EndRow
   print LastRow
end sub

2) ci interessa l'ultima riga  della colonna C
Codice:
sub LastRowNumberinColumn() ' la migliore
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
numcol = 2 ' colonna C
oCol = oSheet.getColumns().getByIndex(numcol)
rd = oCol.createReplaceDescriptor
rd.searchRegularExpression = true
rd.setSearchString(".")
find = oCol.FindAll(rd)
aray = Split(find.AbsoluteName,"$")
lastRow = val(aray(ubound(Aray)))
Print lastRow
end sub
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#7
ciao patel
io faccio tutto questo "ambaradan" con il "registra macro" e il "copia>incolla per andare nella colonna C alla prima cella vuota. mi sa che è un po macchinoso....(comunque ci va) mi sai dire se posso togliere qualcosa per velocizzarlaExclamationExclamation
grazie

Nuovo_in_C
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args3())


end sub
caldo è bello, dolce è buono......se ci metti anche un sorriso sei perfetto
Cita messaggio
#8
non puoi togliere niente da quella registrata, butta via tutto ed usa la mia
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#9
Sad 
ciao patel
ma non mi funzione
appare una scritta con =0
caldo è bello, dolce è buono......se ci metti anche un sorriso sei perfetto
Cita messaggio
#10
hai ragione, quel codice funziona soltanto se non ci sono buchi vuoti, ho modificato la macro
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)