Rijen tellen

Rijen tellen

Berichtdoor Martin73 » wo feb 16, 2011 1:29 am

Hallo kan iemand me bij het volgende helpen?
Ik kan aardig programmeren in VBA (Excel) maar calc is wel ff wat anders. Wat ik wil is vrij simpel. Van een werkblad het aantal rijen tellen en dan van twee kolommen de waarden vervangen door de waarde van de cellen maal 1000. Normaal zou ik de het aantalrijen tellen door iets van Usedrage.rows.count en dan met een loopje even de zaken vervangen.
Wie helpt me even?
Groet Martin
Open Office 3.2 op Vista
Martin73
 
Berichten: 10
Geregistreerd: vr dec 24, 2010 12:05 am

Re: Rijen tellen

Berichtdoor RPG » wo feb 16, 2011 9:49 am

Hallo

Een ander programma vereist een andere aanpak. Verder is de vraag onduidelijk

Romke
LibreOffice 6.2.5.2 op openSUSE Leap 15.1
RPG
 
Berichten: 3967
Geregistreerd: wo apr 15, 2009 1:01 am
Woonplaats: Apeldoorn, Nederland

Re: Rijen tellen

Berichtdoor Martin73 » wo feb 16, 2011 10:55 am

Dag Romke,
Concreet is de vraag hoe ik met basic in een willekeurig werkblad het aantal rijen met data kan tellen. In VBA doe ik dit met usedrange.rows.count. Hoe moet dit in basic?
Groet Martin
Open Office 3.2 op Vista
Martin73
 
Berichten: 10
Geregistreerd: vr dec 24, 2010 12:05 am

Re: Rijen tellen

Berichtdoor RPG » wo feb 16, 2011 1:02 pm

Hallo

Martin73 schreef:Concreet is de vraag hoe ik met basic in een willekeurig werkblad het aantal rijen met data kan tellen. In VBA doe ik dit met usedrange.rows.count. Hoe moet dit in basic?
Ik heb helaas geen idee hoe het op te lossen op deze manier.

Romke
LibreOffice 6.2.5.2 op openSUSE Leap 15.1
RPG
 
Berichten: 3967
Geregistreerd: wo apr 15, 2009 1:01 am
Woonplaats: Apeldoorn, Nederland

Re: Rijen tellen

Berichtdoor BoySue » wo feb 16, 2011 9:06 pm

Hallo,

Volgende macro afficheert het max aantal kolommen en rijen van de actuele sheet.

Code: Selecteer alles   UitklappenInklappen
Sub TelRijenEnKolommen
     oSheet = ThisComponent.CurrentController.ActiveSheet
     oSheetCurs = oSheet.createCursor()
     oSheetCurs.gotoEndOfUsedArea(False)
     LastColumn = oSheetCurs.getRangeAddress.StartColumn
     LastRow = oSheetCurs.getRangeAddress.StartRow
     MsgBox " " & LastColumn & "        " & LastRow & "  ",," verste Kolom  &  Rij "
End Sub

De nummering vertrekt van 0 maw LastRow = 3 betekent dat er 4 'bezette' rijen zijn.

Willy
genietend van:
LinuxMint 9 kernel 2.6.32-21
OpenOffice.org 3.2.0 000320m12 (build:9483)
BoySue
 
Berichten: 18
Geregistreerd: do sep 02, 2010 2:47 pm

Re: Rijen tellen

Berichtdoor RPG » do feb 17, 2011 12:51 pm

Hallo

Waarom niet gebruik maken van de ingebouwde functie

rijen(BereikNaam)

Romke
LibreOffice 6.2.5.2 op openSUSE Leap 15.1
RPG
 
Berichten: 3967
Geregistreerd: wo apr 15, 2009 1:01 am
Woonplaats: Apeldoorn, Nederland


Keer terug naar Macro's

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast