| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 495 人关注过本帖
标题:求助VBA
只看楼主 加入收藏
love0712
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-11-26
  问题点数:0  回复次数:4   
求助VBA
excel单元格内数字连线,VAB代码如何编写?
如图:1、如何将单元格B2到J15区域内数字自动连线,B2到J15区域内数字由公式生成;2、并且使有数字的单元格填充颜色。


附件: 您没有浏览附件的权限,请 登录注册
2018-11-26 20:24
wengjl
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:76
帖 子:1626
专家分:2915
注 册:2007-4-27
  得分:0 
这游戏意义何在?

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

loading...
2018-12-14 08:47
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1205
专家分:1309
注 册: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
附件: 您没有浏览附件的权限,请 登录注册

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

loading...
2018-12-14 09:56







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

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