| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266144
建立时间:2005年6月6日 |
| |
|
 [delpih编程]挖掘EXCEL -1
软件技术
吕向阳 发表于 2010/6/12 7:06:23 |
工作中EXCEL已经不可或缺了，本连载试图更多地
挖掘EXCEL的功能。这将是一个长期的连载。
之一 search ,mid函数
有一需求，将类似“从xx处出口（123456789）至xx”字符串中
将"123456789"(单号）分离成一列，“（”的位置不固定。
首先找到“（”的位置，返回一个数字值，这要用到search,
=search("(",b5,1) ,b5是要分离的那个单元格。
其次要用到mid函数，mid(b5,1,5)表示取b5单元格中从第1个位置开始
的连续5个字符。那么上面的问题解决起来就是=mid(b5,search
("(",b5,1)+1,9),也就是将B5单元格中，以"("所在的位置后一位开始，
连续取9个单元格。
|
|
|
[delpih编程]Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名1、文件名函数
软件技术
吕向阳 发表于 2010/5/27 14:03:37 |
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名1、文件名
函数
文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进
行操作。下表列出这些函数及其功能。
本文出处：南山古桃(nsgtao)的百度空间
函数 说明
ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ChangeFileExt() 改变文件的扩展名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8·3格式 |
|
|
[delpih编程]DELPHI对EXCEL表格中数据的行列全循环处理
软件技术
吕向阳 发表于 2010/5/22 17:12:30 |
var
i, j: integer;
begin
for i := 1 to eclapp.activesheet.usedrange.rows.count do
for j := 1 to eclapp.activesheet.usedrange.columns.count
do
begin
showmessage(eclapp.activesheet.usedrange.rows[i].cells
[j])
end;
end;
|
|
|
[delpih编程]delphi操作excel 自我心得
软件技术
吕向阳 发表于 2010/5/22 16:42:52 |
1、解除当前表格所有的合并单元格
eclapp.activesheet.usedrange.unmerge;
重点在UNmerge为取消合并单元格
2、从一个表格复制到另一个表格
sourceworkbook.activesheet.usedrange.copy
(WorkBook.activesheet.range['a' +
trim(inttostr(allrec))]);
sourceworkbook为源表格
workbook为目标表格
3、工作簿内表格数量
eclapp.worksheets.count
4、sourceworkbook.activesheet.usedrange.rows.count
已有数据区域的行数
将row 改为columns为列数
5、为表格着背景色
WorkBook.activesheet.range['a1'].Interior.ColorIndex :=
3;
|
|
|
[delpih编程]自已编写的一段合并多个EXCEL文件到一个新EXCEL文件的程序
软件技术
吕向阳 发表于 2010/5/22 16:36:14 |
unit excel01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComObj; {ComObj是操作OLE
对象的函数集}
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action:
TCloseAction);
priva |
|
|