begin
Range := Sheet.Range[sheet.cells[i,1],sheet.cells[i,5]];
if Range.MergeCells then
ShowMessage('存在合并单元格');
调试出现错误。
求高手知道如何在选定excel区域内查找是否有合并单元格。
-
等级
本版专家分：0结帖率 66.67% -
for i := 1 to 10 do
begin
Range := Sheet.Range[sheet.cells[i,1],sheet.cells[i,5]];
if Range.MergeCells then
ShowMessage('存在合并单元格');
调试出现错误。
求高手知道如何在选定excel区域内查找是否有合并单元格。
展开阅读全文
-
等级
本版专家分：14303勋章
-
-
红花
2003年11月 C/C++大版内专家分月排行榜第一
2003年5月 C/C++大版内专家分月排行榜第一
-
-
黄花
2002年5月 Delphi大版内专家分月排行榜第二
2003年12月 专题开发/技术/项目大版内专家分月排行榜第二
-
-
蓝花
2002年6月 C++ Builder大版内专家分月排行榜第三
2003年11月 专题开发/技术/项目大版内专家分月排行榜第三
-
-
function IsInMergeArea(XSheet: Variant; Row,
Col: Integer): boolean;
var
Area: Variant;
AreaRow, AreaCol : Integer;
begin
Area := XSheet.Cells[Row, Col].MergeArea;
AreaRow := Area.Row;
AreaCol := Area.Column;
Result := ( AreaRow <> Row ) or ( AreaCol <> Col );
end;
procedure TForm1.Button1Click(Sender: TObject);
var
XBooks : Variant;
XBook : Variant;
XSheet: Variant;
UsedRange : Variant;
HasMerged: Boolean;
Row, Col, MinRow, MinCol, MaxRow, MaxCol: Integer;
begin
XBooks := ExcelApplication1.Workbooks;
XBook := XBooks.Open('e:\test.xls');
XSheet := XBook.ActiveSheet;
UsedRange := XSheet.UsedRange;
MinRow := UsedRange.Row;
MaxRow := MinRow + usedRange.Rows.Count - 1;
MinCol := UsedRange.Column;
MaxCol := MinCol + UsedRange.Columns.Count - 1;
HasMerged := false;
Row := MinRow;
while( ( not HasMerged ) and ( Row <= MaxRow ) ) do
begin
Col := MinCol;
while( ( not HasMerged ) and ( Col <= MaxCol ) ) do
begin
HasMerged := IsInMergeArea( XSheet, Row, Col );
Inc(Col);
end;
Inc(Row);
end;
if( HasMerged ) then
begin
ShowMessage( '有合并区域！');
end;
end;
- delphi XE 10实现App和PC下TreeView调用ImageList和Sqlite数据
delphi XE 10实现App和PC下TreeView调用ImageList和Sqlite数据 一、工程 program TreeView; uses System.StartUpCopy, FMX.Forms, Unit1 in 'Unit1.pas' {Form1}, FrmTreeView in 'FrmTreeView.pas' {...
- Delphi WinExec ShellExec 用法介绍
在Windows程序设计中WinAPI也为我们提供了类似的函数，它们就是WinExec()和ShellExecute()，下面就来讨论一下这两个函数的用法。 1)WinExec() 函数原型： UINT WinExec(LPCSTR lpCmdLine,UINT uCmdShow);...
- [delphi教程]delphi开发教程全攻略（1）
如何在Image上提示字符？ 怎样加入tb2k FastReport4.0安装后中文的问题。 怎样单独得到现在的年和月??...[考题]这两种字符串赋值...如何使窗体在用户按下显示桌面之后不会隐藏(不是将它始终置前)谢谢各位 大家好，请D
- delphi 注册表操作(读取、添加、删除、修改)完全手册
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create...
- delphi 操作注册表详解
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Cre
- Delphi与Word之间的融合技术（下）zt
Delphi与Ole,Word,Excel,查找与替换等 Delphi与Word之间的融合技术（下）zt来自：yzhshi, 时间：2002-2-2 14:24:00, ID：902680前面我就Delphi中调用Word写了一些，比较注重于具体实现，对于研究的方法则说的比较...
- delphi技巧总结收集
Delphi常用总结 (2008-03-30 23:45:17)转载标签： 杂谈分类： Delphi程序大全 1.定义leftstr,midstr时需uses strutils. 2.打开记事本需要在單元接口部分引用 SHELLAPI單元 3.获取计算机名与IP时，需定义uses...
- Delphi调用外部程序函数：WinExec() 和ShellExecute详解
2019独角兽企业重金招聘Python工程师标准>>> ...
- delphi 注册表操作之(读取、添加、删除、修改)
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create； 2.释放TRegistry...
- Delphi实现sql 复制编程
{ Copyright (c) 咏南工作室 2006 作者： 陈新光 EMail：hnxxcxg@yahoo.com.cn QQ： 254072148 手机： 13025531017 TODO： 断网收银以及总部和各门店间的数据通讯（通过复制方法实现） .......
- delphi 注册列表的学习
Delphi的注册表操作 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象： ARegistry := TRegistry....
- Delphi与Word之间的融合技术
问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...
- Delphi WinExec ShellExec 用法介绍(转)
在Windows程序设计中WinAPI也为我们提供了类似的函数，它们就是WinExec()和ShellExecute()，下面就来讨论一下这两个函数的用法。 <br />1)WinExec() 函数原型： <br />UINT WinExec(LPCSTR lpCmdLine,...
- Delphi的注册表操作
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create； 2.释放TRegistry...
- Delphi的注册表操作
转帖：Delphi的注册表操作 2009-12-21 11:12:52 分类： Delphi的注册表操作 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了...
- 在Delphi中利用CreateRemoteThread远程注入例子
花了一个下午翻了MSDN,写了这个例子,为了安全,我用Delphi建了个什么也没有作的程序prjzzhost.exe,将它用作被注入的宿主进程.写了一个TestDll.Dll,里面只有一个Log函数,用来在文件Test.Txt中输出信息.最重要的一个...
- Delphi----心得04
98-11-1 1:48嘿嘿，今天找到了Windows95的“浏览文件夹”对话框的调用方法。竟然简单得很：用SHBrowseForFolder。同时还找到了另外几个有用的API，SHGetDesktopFolder，SHChangeNotify，SHAddToRecentDocs，...
- 在Delphi中利用CreateRemoteThread远程注入例子
花了一个下午翻了MSDN,写了这个例子,为了安全,我用Delphi建了个什么也没有作的程序prjzzhost.exe,将它用作被注入的宿主进程.写了一个TestDll.Dll,里面只有一个Log函数,用来在文件Test.Txt中输出信息.最重要的一个...
- 根据已知IP地址查询局域网中对应网卡的MAC地址
请教高手:怎样用Delphi根据已知IP地址查询局域网中对应网卡的MAC地址问题点数：0、回复次数：5 1楼 bluemeteor (挂月||Becoder) 回复于 2003-01-23 11:50:50 得分 0 （即在局域网内,知道IP查MAC地址，知道MAC地址...
- Delphi与Ole,Word,Excel,查找与替换等
Delphi与Word之间的融合技术（下）zt ...今天晚上，我静下心来，总结了一下怎样在Delphi中生成操作Word的代码。如果说前面我写的 是金子，那么下面这篇文章就是点石成金的手指(太自夸了，呵呵)。毕竟已...
- Delphi Note
Delphi Note 1、触发器的使用。 源数据库： 名称：info 字段：idd、namee、age、sex、city、department、position 目标数据库： 名称：leave 字段：idd、namee、type 1、修改操作。（原代码） CREATE ...
- Xshell破解版
Xshell破解版，亲测可用，Xshell 是一个强大的安全终端模拟软件，它支持SSH1, SSH2, 以及Microsoft Windows 平台的TELNET 协议。Xshell 通过互联网到远程主机的安全连接以及它创新性的设计和特色帮助用户在复杂的网络环境中享受他们的工作。
- 抢茅台脚本以及使用方法
抢茅台的方法，里面有脚本文件和python的安装包，小白可以学习使用，大佬绕行吧，哈哈
- PHP面向对象设计模式
本系列教程内容涵盖PHP常用的设计模式，旨在指导读者搭建易扩展的项目框架，高服用的代码，大程度的发挥面向对象思想的优势。 提升PHP程序员面向对象思想以及解决问题的能力，进而构建出高复用、易扩展的优秀框架。
- C语言内存管理机制精讲-高手必修课视频教程
在企业级项目开发中一个非常重要的设计就是如何有效地管理内存资源。在C语言中，关于内存管理的知识点比较多，如函数变量、作用域、指针、堆 、栈、 常量区、全局静态区、要想真正掌握和理解C语言，就必须先精通C语言内存管理机制。 黄老师精选内存相关知识点，循序渐进，最后以一个复杂的内存池设计实现贯穿对整个课程知识要点，让学员真正透彻理解C语言内存管理！
- C#高性能大容量SOCKET并发完成端口例子（有C#客户端）完整实例源码
例子主要包括SocketAsyncEventArgs通讯封装、服务端实现日志查看、SCOKET列表、上传、下载、远程文件流、吞吐量协议，用于测试SocketAsyncEventArgs的性能和压力，最大连接数支持65535个长连接，最高命令交互速度达到250MB/S（使用的是127.0.0.1的方式，相当于千兆网卡1Gb=125MB/S两倍的吞吐量）。服务端用C#编写，并使用log4net作为日志模块； 同时支持65536个连接，网络吞吐量可以达到400M。
- jdk1.8 64位官方正式版 jdk-8u91-windows
jdk1.8 64位官方正式版 jdk-8u91-windows
- C#入门必看实力程序100个
C#入门必看含有100个例字,每个例子都是针对C#的学习关键知识点设计的,是学习C#必须知道的一些程序例子,分享给大家，需要的可以下载
- c语言项目开发实例
十个c语言案例 （1）贪吃蛇 （2）五子棋游戏 （3）电话薄管理系统 （4）计算器 （5）万年历 （6）电子表 （7）客户端和服务器通信 （8）潜艇大战游戏 （9）鼠标器程序 （10）手机通讯录系统
- 解决api-ms-win-crt-runtime-l1-1-0.dll 丢失问题 绿色版 工具下载
提示api-ms-win-crt-runtime-l1-1-0.dll 丢失，安装这个小玩意就可以解决了