Rijen tellen

Martin73
Berichten: 10
Lid geworden op: vr dec 24, 2010 12:05 am

Rijen tellen

Bericht door Martin73 »

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
RPG
Berichten: 4667
Lid geworden op: wo apr 15, 2009 1:01 am
Locatie: Apeldoorn, Nederland

Re: Rijen tellen

Bericht door RPG »

Hallo

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

Romke
LibreOffice 7.4.3.2 op openSUSE Leap 15.4
Martin73
Berichten: 10
Lid geworden op: vr dec 24, 2010 12:05 am

Re: Rijen tellen

Bericht door Martin73 »

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
RPG
Berichten: 4667
Lid geworden op: wo apr 15, 2009 1:01 am
Locatie: Apeldoorn, Nederland

Re: Rijen tellen

Bericht door RPG »

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 7.4.3.2 op openSUSE Leap 15.4
BoySue
Berichten: 18
Lid geworden op: do sep 02, 2010 2:47 pm

Re: Rijen tellen

Bericht door BoySue »

Hallo,

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

Code: Selecteer alles

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)
RPG
Berichten: 4667
Lid geworden op: wo apr 15, 2009 1:01 am
Locatie: Apeldoorn, Nederland

Re: Rijen tellen

Bericht door RPG »

Hallo

Waarom niet gebruik maken van de ingebouwde functie

rijen(BereikNaam)

Romke
LibreOffice 7.4.3.2 op openSUSE Leap 15.4
Plaats reactie