| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1975 人关注过本帖
标题:求助VBA
只看楼主 加入收藏
love0712
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-11-26
收藏
 问题点数:0 回复次数:4 
求助VBA
excel单元格内数字连线,VAB代码如何编写?
如图:1、如何将单元格B2到J15区域内数字自动连线,B2到J15区域内数字由公式生成;2、并且使有数字的单元格填充颜色。

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: VBA 单元格 数字 区域 生成 
2018-11-26 20:24
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
这游戏意义何在?

只求每天有一丁点儿的进步就可以了
2018-12-14 08:40
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
彩票走势分析

http://toorup.3v.do
loading...
2018-12-14 08:47
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
程序代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Shapes
c.Delete
Next
Set myDocument = Worksheets(1)

For i = 2 To 15
    For j = 2 To 10
        If Cells(i, j) <> "" Then
             m = Cells(i, j).Left + Cells(i, j).Width / 2
             n = Cells(i, j).Top + Cells(i, j).Height / 2
                If x <> "" And y <> "" Then
                        With myDocument.Shapes.AddLine(x, y, m, n).Line
                         .ForeColor.RGB = RGB(255, 0, 0)
                        End With
                     
                End If
                        x = m
                        y = n
        End If
    Next
Next
End Sub
	
		
			
test.zip (8.95 KB)

http://toorup.3v.do
loading...
2018-12-14 09:52
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
忘了,填充颜色再加一句
Cells(i, j).Interior.Color = 65535

http://toorup.3v.do
loading...
2018-12-14 09:56
快速回复:求助VBA
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.054443 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved