CADsite forum

Hoe krijg je met lisp de active cel (van Excel) 1 plaats naar beneden?

Dit is wat ik nu heb:
; plaats waarde in active cell van Excel
(defun ToExcel (waarde / a ActiveCell)
(if (/= waarde "")
(progn
(setq a (vlax-get-object "Excel.Application"))
(setq ActiveCell (vlax-get-property a "ActiveCell"))
(vlax-put-property ActiveCell "Value2" waarde)
(vlax-put-property a "Visible" 1)
(vlax-release-object a)
)
)
)

Maar ik moet dus elke keer handmatig een cel naar beneden.

Erg bedankt alvast.

Ik heb zelf dit gevonden:
(setq ActiveCell(vlax-get-property ActiveCell 'Next))
(vlax-invoke-method ActiveCell 'Activate)
Maar dit verplaatst de active cell naar rechts (next)
Ik wil graag de active cell een plaats omlaag.

Immand een idee?

Is dit niet een instelling in Excel??
Je kunt in Excel namelijk instellen wat de richting is na ENTER...
Lijkt op de functie NEXT

Als ik nu een enter geef in Excel dan gaat ie gewoon een cel lager.
Ik weet dat je dit ook anders kunt instellen.

Zie bijlage.

Citaat van: EddyBeerke op di 01 05 2012, 15:39:17
Als ik nu een enter geef in Excel dan gaat ie gewoon een cel lager.
Ik weet dat je dit ook anders kunt instellen.

Zie bijlage.

Dit heeft zelfs geen invloed op het gedrag van (setq ActiveCell(vlax-get-property ActiveCell 'Next)).

Beste Eddy,

Kun je niet via PutCell van GetExcel.lsp het probleem omzeilen!
http://www.theswamp.org/index.php?PHPSESSID=97u3ci1och9d4qbp7fvk6cmrc7&topic=18361.0
Met (vlax-get-property ActiveCell "Row") en (vlax-get-property ActiveCell "Column")
krijg je resp. de rij en de kolom van de actieve cel.

Met vriendelijke groet, HofCAD CSI.