【探索】excel VBA的任意坐标画线问题

参考： http://club.excelhome.net/thread-438888-1-1.html

效果

代码

Sub test()
Dim r1 As Range, r2 As Range, x!, y!, m!, n!
Set r1 = Range("b9"): Set r2 = Range("f6")
x = r1.Left: y = r1.Top: m = r2.Left: n = r2.Top
Set l = ActiveSheet.Shapes.AddLine(x, y, m, n) '线的几个坐标
l.Line.ForeColor.SchemeColor = 12 '线条色
End Sub

---------------------------------------------------------------

发现一个问题就是它的坐标原点是在交点上的，如何到格子的中间？呢

可以直接加上数字，表示移动的像素

代码

Sub 数字()Dim x1, y1, x2, y2Dim i As LongDim r1 As Range, r2 As RangeFor i = 3 To Sheet1.Range("a1").End(xlDown).RowFor Each r1 In Sheet1.Range("b" & i - 1 & ":k" & i - 1)If r1 <> "" Then Exit ForNext r1For Each r2 In Sheet1.Range("b" & i & ":k" & i)If r2 <> "" Then Exit ForNext r2r1.Interior.ColorIndex = 8r2.Interior.ColorIndex = 8x1 = r1.Left + r1.Width / 2y1 = r1.Top + r1.Height / 2x2 = r2.Left + r2.Width / 2y2 = r2.Top + r2.Height / 2Sheet1.Shapes.AddLine x1, y1, x2, y2Next i
End Sub

实现

----------------------------------------

找到特定的字符

代码

Sub Click()
Dim r As Range
For Each r In [A1:Z100] '把[A1:Z100] 改成你的查找mm所在单元格区域就行If InStr(r, "3") Thenr.Interior.ColorIndex = 4Elser.Interior.ColorIndex = 0
End If
Next
End Sub

【探索】excel VBA的任意坐标画线问题相关推荐

AD16画线时如何切换90°、45°、任意角度画线模式
在绘图界面选择画线后,使用"shift+空格"可切换不同的画线模式.切换过程中会有90°模式.45度模式.任意角度模式等,在这些模式中可使用空格键在进行细分切换. 1.90°模式 ...
Android动态画线坐标画线动画
效果图如下根据相对于图片本身的坐标xy数组基于view的左上角为原点在图片上动态画线 //参考数据类型//pointList [PointEntity(pointX=1, pointY=1), ...
Excel VBA: 批量删除带删除线的文本
需求的故事是这样的.... 在开发过程中, 我们会使用excel写各式各样的文档, 通常这些文档都是从一个Base修改而来的. 为了便于其他人review, 在做成这些文档的时候, 作成者会使用不同的 ...
excel使用—— 宏 | VBA | 画线
(2019年4月26日更新) 需求更新:一次性画出选中的一列单元格的线 Sub 红线() ' 'Sheet1.Cells(3,2)--表1第3行第2格 '这段代码可以一次画一行的线,但是要求选中的单元 ...
ArcGIS API for JavaScript根据两个点坐标在地图上画线
ArcGIS API for JavaScript根据两个点坐标在地图上画线比如说a(xxxx,xxxxx),b(xxxx,xxxxx).利用这两个点画一条线 var polyline = new ...
百度地图坐标点轨迹画线php,百度地图绘制轨迹点
没有后台获取事实信息都是伪数据- -轨迹信息做不到事实导航. 控件可以根据自己的需求添加位置通过offset:new BMAP.Size(x,y)进行微调事实路况信息需要通过引没有后台获取事实信 ...
OpenLayers 在地图上画线，获取点坐标（以天地图为例）
应用场景: 最近在开发过程中,有个需求,需要在天地图中画线,结束后获取对应的坐标集合,查阅 OpenLayers API 和网上的相关资料后得以实现,特此记录. 因为直线间的点是无数个,我们不可能去获 ...
利用辅助工具怎么在Excel中画线
Excel中有时会遇到需要我们绘制表格或者给单元格划分的情况,怎样利用辅助工具在Excel中进行划线,有没有一个相对简单的方法呢. 在Excel中,可以使用"绘图"工具来画线: 在 ...
Excel坐标画CAD
Excel坐标画CAD 使用Excel批量画CAD断面原始数据命令使用Excel批量画CAD断面原始数据 A B C D 名称 X Y Z JD1 3234036.4214 498074.27 ...

【探索】excel VBA的任意坐标画线问题

【探索】excel VBA的任意坐标画线问题相关推荐

最新文章

热门文章