第一次EXCEL编程，双击SHEET2 中的单元格数据自动填充到 SHEET1 中去

最新推荐文章于 2025-04-27 10:00:43 发布

busfly001

最新推荐文章于 2025-04-27 10:00:43 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签： excel 编程 integer

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/wfeng107/article/details/1757614

本文介绍了一个简单的VBA代码示例，该代码定义了在Excel工作表中双击单元格时触发的事件。当双击目标单元格时，会将该单元格的值追加到另一个工作表的最后一行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer

    Sheet_Input.Activate

    i = Sheet_Input.UsedRange.CurrentRegion.Rows.Count


    Sheet_Input.Cells(i + 1, 1).Value = Target.Value

End Sub

博客等级

码龄22年

14
原创

0
点赞

2
收藏

2
粉丝

关注

私信

热门文章

分类专栏

Delphi 2篇

上一篇：: Delphi函数

下一篇：: 美食

最新评论

dbgrid导出excel
busfly001: DBGRID 这个方法不好
dbgrid导出excel
qq1978: 请问"procedure SaveToExcelFile(DbgridName:TDbGrid); "事件从哪里出来!谢谢,急需帮助!
dbgrid根据值改变行的颜色
godgod: 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。 <br> 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。 <br> 示例程序的运行： <br> 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调试通过。 <br>procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; <br> const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState); <br>var i :integer; <br>begin <br> if gdSelected in State then Exit; <br>//定义表头的字体和背景颜色： <br> for i :=0 to (Sender as TDBGrid).Columns.Count-1 do <br> begin <br> (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; //字体 <br> (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小 <br> (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色) <br> (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色) <br> end; <br>//隔行改变网格背景色： <br> if Query1.RecNo mod 2 = 0 then <br> (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色 <br> else <br> (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色 <br>//定义网格线的颜色： <br> DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); <br> with (Sender as TDBGrid).Canvas do //画 cell 的边框 <br> begin <br> Pen.Color := $00ff0000; //定义画笔颜色(蓝色) <br> MoveTo(Rect.Left, Rect.Bottom); //画笔定位 <br> LineT
感悟
星期零: 对头

大家在看

最新文章

目录

展开全部

收起

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。