录入数据时所在单元格纵横坐标能否高亮显示？

cnc_w · 发表于 2007-11-11 01:06

录入数据时所在单元格纵横坐标能否高亮显示？能否达到如图片效果呢，要求是在特定的一些单元格中使用这一效果??

cnc_w · 发表于 2007-11-11 22:02

不好意思,图片不知道哪去了现在补上 <img src="attachments/dvbbs/2007-11/200711112221197270.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

cnc_w · 发表于 2007-11-13 00:33

怎么没人回答我呢,是不是我提的问题太菜了.

cnc_w · 发表于 2007-11-13 21:59

怎么没人回答我呢,难道没人在大量输入数据时不想出错呢,还是这种状态实现不了呢

cnc_w · 发表于 2007-11-15 21:33

唉..............看来我是来错地方了

jxsdslz · 发表于 2007-11-18 11:40

我有你要的，上传不了附件，郁闷

jxsdslz · 发表于 2007-11-18 14:30

08ol8wmf.zip (98.31 KB, 下载次数: 119) 这个就是你要的

cnc_w · 发表于 2007-11-18 22:47

谢谢楼上的朋友,可惜我不会用你给的加载项,能否详细说一下吗

jxsdslz · 发表于 2007-11-18 23:01

工具》自定义》命令》工具》COM加载项拖出到菜单中》点击在COM加载项添加》查找我发的COM加载项路径》查到COM加载项点确定》

cloud920 · 发表于 2007-11-21 11:53

'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Static OldCell As Range  'If Not OldCell Is Nothing Then       'OldCell.EntireRow.Interior.ColorIndex = xlColorIndexNone       'OldCell.EntireColumn.Interior.ColorIndex = xlColorIndexNone   'End If   'Target.EntireRow.Interior.ColorIndex = 24   'Target.EntireColumn.Interior.ColorIndex = 24   'Set OldCell = Target 'End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)   If Target.Row >= 2 Then      On Error Resume Next      [ChangColor_With2].FormatConditions.Delete      [ChangColor_With3].FormatConditions.Delete      Target.EntireRow.Name = "ChangColor_With2"      Target.EntireColumn.Name = "ChangColor_With3"      With [ChangColor_With2].FormatConditions       .Delete       .Add xlExpression, , "TRUE"       .Item(1).Interior.ColorIndex = 24      End With      With [ChangColor_With3].FormatConditions       .Delete       .Add xlExpression, , "TRUE"       .Item(1).Interior.ColorIndex = 24      End With   End If End Sub

		自动登录	找回密码
密码			免费注册

[讨论] 录入数据时所在单元格纵横坐标能否高亮显示？