vb中如何给MSFlexGrid控件指定的单元格区域赋值： - 编程论坛

#2

ZHRXJR2016-05-22 14:46

程序代码：

Dim arr() As String
Private Sub Command1_Click()
ReDim arr(5 To 5000)   '定义数组的上标与下标
For I = 5 To 5000
arr(I) = MSFlexGrid1(I, 1)    '第二列的第5行到第5000行赋值到数组arr中，前提是 MSFlexGrid1 控件中必须有值
Next I
'或
ReDim arr(1 To 4996)   '定义数组的上标与下标
For I = 1 To 4996
arr(I) = MSFlexGrid1(I + 4, 1)  '第二列的第5行到第5000行赋值到数组arr中，前提是 MSFlexGrid1 控件中必须有值
Next I
End Sub

MSFlexGrid1(行标识, 列标识)，行标识是从0开始，列标识也是从0开始，我理解你的第五行是不计标题行，从有数据开始计算的。
如果计标题，那么(I, 1)应该是(I - 1, 1).
如果要得到MSFlexGrid1的总行数，可以 AA = MSFlexGrid1.Rows，就是总行数，但不包括标题行。

[此贴子已经被作者于2016-5-22 15:09编辑过]

#3

vbcaonia2016-05-22 20:35

回复 2楼 ZHRXJR

谢谢老师，我试试看！

#4

vbcaonia2016-05-23 23:48

回复 2楼 ZHRXJR

试了试，看来这个控件不支持自定义函数不知对否？

#5

ZHRXJR2016-05-24 23:46

呵呵，那天少了一个属性：MSFlexGrid1.TextMatrix(I, 1)

程序代码：

Private Sub Command1_Click()
ReDim arr(5 To 5000)   '定义数组的上标与下标
For I = 5 To 5000
arr(I) = MSFlexGrid1.TextMatrix(I, 1)    '第二列的第5行到第5000行赋值到数组arr中，前提是 MSFlexGrid1 控件中必须有值
Next I
'或
ReDim arr(1 To 4996)   '定义数组的上标与下标
For I = 1 To 4996
arr(I) = MSFlexGrid1.TextMatrix(I + 4, 1)  '第二列的第5行到第5000行赋值到数组arr中，前提是 MSFlexGrid1 控件中必须有值
Next I
End Sub

#6

vbcaonia2016-05-27 10:19

回复 5楼 ZHRXJR

老师你好，现在用Msflexgrid控件做一表格，共有列：A、B、C、D、E，在b5开始的b列中放置数据源，在c5开始的c列中放置条件源，e5开始的e列中放置结果，见excel附件：

1、b3开始的b列各单元格分别填有不同的数据且每2个数字间空1格。

[此贴子已经被作者于2016-6-1 23:27编辑过]

#7

ZHRXJR2016-05-27 15:54

1-2=3 8 15 21 23 ：提取 3 8 15 21 23， 0-3=4 12 15 20 33 35 36 ：提取 4 12 15 20 33 35 36， 提取 = 号以后的数据没有问题。
3、c3开始的c列，每行为一个条件每21行为1组，即c3：c23为第1组，c24：c44为第2组，c45：c65为第3组.....，这个分组也没有问题。看看你的记录：210-3=207,207/21=9.85....，不是整数呀，怎么分组？
4、点击按钮后c3开始的c列各大组（21行）中，首先一次求出同时满足c列前12条的b列数据放在某数组arr中，从第13条开始对同时满足c列前12条的b列数据arr过滤并提取符合条件的数据，第14条开始对同时满足c13的b列数据过滤提取符合条件的数据，依次...当b列符合条件的组数为1组时停止查找并将b列这1组数据依次提取并填写在e3开始的e列各单元格，，这个不太清楚是什么意思。
你写一个Word文件，就你的要求尽量写清楚，发给我，可以帮你做。

#8

vbcaonia2016-05-27 22:49

回复 7楼 ZHRXJR

老师你好，重新写了一下说明，麻烦你有时间看看，谢谢！

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2016-5-29 11:21编辑过]