[基于VBA编写] 钻孔数据表（未完工）

      钻孔数据表是一个基于MS-Excel平台采用VBA语言编写的表格，该表格可以辅助绘制钻孔柱状图。钻孔柱状图在地质行业里一直是一个让很多地质人员头疼的图件，因为该类图件数据量极大，而且采用手工绘制非常的耗时耗力，即使是一个深度仅有几百米的钻孔其柱状图里都可能含有数千条数据，如果用铅笔在图纸上一个个的写入会耗费很多时间。目前在地质行业里普遍采用手工绘制该图件然后再扫描导入电脑中以其为模板用mapgis进行矢量化，一个普通柱状图绘制的时间大概要一周左右，而且绘制出来的图件质量较低，精度也不够。

      在国内地勘行业里尚无简单易用的柱状图绘制软件，为了能最大程度的方便地质人员绘制该图件所以俺费尽心思历经数月编制了一个辅助绘制柱状图的表格，该表格基于Excel平台编写所以简单易用界面友好，其内置的自定义模板功能可以满足大部分地勘单位绘制钻孔柱状图的需求。

      目前该表格的主要功能已经完成，但仍需要进一步完善，很多功能目前还在紧张的编制中，很快会与大家见面。

 

 

 

 

 

 

 

 

 

 

------------------------------------------------------华丽的分割线-------------------------------------------------------------

2009.12.30

1、重写了系统初始化代码，效率更高；

2、放宽了对用户输入数据的限制，给与用户更高的自由度；

3、增加了大样品和小样品页面列宽自动调整的功能；

4、修正了数处Bug。

2009.12.29

1、增加了铁路线绘制功能；

2、增加了换径线的绘制功能；

3、修改了内部处理模块，点数据的生成更加合理；

4、对文件生成的控制流程进行了大幅更改；

5、增加了适当的错误处理程序；

6、修正了回次数据页面换径数据录入的bug；

2009.12.28

1、增加了区文件wap生成功能；

2、重新整理了代码模块；

3、修正了一些界面的Bug。

2009.12.26

1、增加了明码格式点文件wat的支持；

2、改进了模块处理过程。

2009.10.03

1、界面大幅改进；

2、增加了高级设置页面的项目ID和项目类型参数；

3、增加了文件输出页面动态下来菜单选择功能；

4、增加了输出线文件为mapgis明码文件wal格式文件。

2009.09.29

1、增加了高级设置工作表，内置了一部分参数；

2、完成了mapgis对应的3号字体的ANSI代码及字体宽度；

3、增加自定义模板工作表，完成了其大概样式。

2009.09.23

1、钻孔数据表主要界面基本定型；

2、改进了点数据和线数据的输出功能。

2009.09.16

1、完成了点数据页面和线数据页面自动选择；

2、基本完成了西蒙公司SMB-08标准点线文件生成功能。

2009.09.06

1、增加了分层数据自动录入功能；

2、增加了化学样品自动录入功能；

3、增加了原生晕样品自动录入功能；

4、增加了背景色及单元格格式自动恢复功能。

2009.08.24

1、完成了回次数据自动录入功能；

2、增加了化学样品分析元素自动筛选功能。

2009.08.16

1、正式开始采用VBA重写钻孔数据表；

2、数据录入界面大幅改进。