| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 517 人关注过本帖
标题:能不能用表格控件显示?
只看楼主 加入收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
结帖率:70%
  已结贴   问题点数:20  回复次数:5   
能不能用表格控件显示?
Sub abc()
    Dim i As Integer, j As Integer, R As Integer
    Dim d As Object
    Dim ar, br(), m As Integer
    Set d = CreateObject("Scripting.Dictionary")
    R = Sheets(1).[K65536].End(3).Row
    ar = Sheets(1).Range("K5:M" & R)
    ReDim br(1 To UBound(ar), 1 To 2)
    For i = 1 To UBound(ar)
        If Not d.Exists(ar(i, 1)) Then
            m = m + 1
            d(ar(i, 1)) = m
            br(m, 1) = ar(i, 1)
            br(m, 2) = ar(i, 3)
        Else
            br(d(ar(i, 1)), 2) = br(d(ar(i, 1)), 2) + ar(i, 3)
        End If
    Next
    Sheets(1).Range("E" & R + 2).Resize(m, 2) = br

想把数组br的输出结果在datagrid上显示?

[此贴子已经被作者于2018-4-27 09:57编辑过]

2018-04-25 20:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
  得分:0 
以下是引用dsasada在2018-4-25 20:28:42的发言:

Sub abc()
    Dim i As Integer, j As Integer, R As Integer
    Dim d As Object
    Dim ar, br(), m As Integer
    Set d = CreateObject("Scripting.Dictionary")
    R = Sheets(1).[K65536].End(3).Row
    ar = Sheets(1).Range("K5:M" & R)
    ReDim br(1 To UBound(ar), 1 To 2)
    For i = 1 To UBound(ar)
        If Not d.Exists(ar(i, 1)) Then
            m = m + 1
            d(ar(i, 1)) = m
            br(m, 1) = ar(i, 1)
            br(m, 2) = ar(i, 3)
        Else
            br(d(ar(i, 1)), 2) = br(d(ar(i, 1)), 2) + ar(i, 3)
        End If
    Next
    Sheets(1).Range("E" & R + 2).Resize(m, 2) = br

想把数组br的输出结果在datagrid上显示?

datagrid必须有源

无知
2018-04-26 00:27
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:20 
用MSFlexGrid1控件,控制也简单

i,j控制行列

MSFlexGrid1.Rows:最大行
MSFlexGrid1.Cols:最大列      

MSFlexGrid1.TextMatrix(i,j)="br"
2018-04-26 09:35
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 3楼 wds1
谢谢,用datagrid是不是不行?
2018-04-26 10:03
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 3楼 wds1
谢谢!!

[此贴子已经被作者于2018-4-27 11:02编辑过]

2018-04-26 20:01
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 3楼 wds1
用datagrid是不是不行?

[此贴子已经被作者于2018-4-27 11:56编辑过]

2018-04-27 10:22







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

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