
www.Usenet.com
| <-- __Chronological__ --> | <-- __Thread__ --> |
> Trouble is all the software I can find is at ridiculous prices for an
> individual and do so many things that I don't require (and mostly don't so
> what I actually want in a simple way).
>
> I am not working professionally - just an amateur/part time student who
> wants to tart up notes from field observations and measurements and to use
> in assignments.
>
> All I need is something where I can enter the thickness of beds, rocktype,
> contact type, sedimentary structures, broad fossil types found and notes
> (preferably via an Excel sheet or an Access database or similar) and let
it
> generate a lithological column and graphic log.
it may after all not be a simple task if the result should meet professional
standards and be dependable too.
> I may see if I can put together a symbol library for something like
> SmartDraw so that you can just drag and drop the symbols and then stretch
to
> scale - but it shouldn't be too difficult to produce a simple program that
> is suitable for student diagrams/personal use .... I am just surprised
there
> isn't one out there already.
let's make one Carol!
put the below macro into a excel macro-module
(ask me if you don't know how)
select your column with thickness-data and
run setHøjde!
The skala is set (to 29) so that 1 appears as one cm on the screen
............................................................................
.......
Sub setHøjde()
Dim skala As Single
skala = 29
Dim ræk As Integer
Dim høj As Single
Dim res
Dim om As Range
Set om = Selection
For Each r In om.Rows
ræk = r.Row
høj = r.Value
Rows(ræk).RowHeight = høj * skala
Next
End Sub
.............................................................
This is one simple task that makes the excel sheet itself into a column
If you have a bmp-library with rocktypes, sedimentary structures or fossils,
it should not be that difficult to code it into place.
Cheers Carsten
| <-- __Chronological__ --> | <-- __Thread__ --> |