UC知道vb MSFlexGri单元格的问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 12:57:46
当单元格里的数字>=0<10时单元格变成红色这个
代码如何写
上面的代码加入我的代码不好使啊
If i > 4 Then
ReDim l(1 To 5, 1 To 3) As Integer
For j = 1 To UBound(l)
For k = 1 To UBound(l, 2)
l(UBound(l) + 1 - j, k) = Val(Mid(List1.List(i - j), k, 1))
Next
Next
For j = 1 To UBound(l, 2)
h = 0
For k = 1 To UBound(l)
h = h + Sgn(UBound(l) / 2 + 1 - k) * l(k, j)
MSFlexGrid1.TextMatrix(i, j + 4) = IIf(h >= 0 And h < 10, h, "---")
Next
Next
Else
MSFlexGrid1.TextMatrix(i, 5) = "---"
MSFlexGrid1.TextMatrix(i, 6) = "---"
MSFlexGrid1.TextMatrix(i, 7) = "---"
代码如何写
上面的代码加入我的代码不好使啊
If i > 4 Then
ReDim l(1 To 5, 1 To 3) As Integer
For j = 1 To UBound(l)
For k = 1 To UBound(l, 2)
l(UBound(l) + 1 - j, k) = Val(Mid(List1.List(i - j), k, 1))
Next
Next
For j = 1 To UBound(l, 2)
h = 0
For k = 1 To UBound(l)
h = h + Sgn(UBound(l) / 2 + 1 - k) * l(k, j)
MSFlexGrid1.TextMatrix(i, j + 4) = IIf(h >= 0 And h < 10, h, "---")
Next
Next
Else
MSFlexGrid1.TextMatrix(i, 5) = "---"
MSFlexGrid1.TextMatrix(i, 6) = "---"
MSFlexGrid1.TextMatrix(i, 7) = "---"
在窗体上添加一个MSFlexGrid1,把下面代码复制到代码区,运行即可
Private Sub Form_Load()
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Rows = 1
MSFlexGrid1.FormatString = "第0列|第1列|第2列|第3列|第4列"
MSFlexGrid1.AddItem "1" & Chr(9) & "2" & Chr(9) & "3" & Chr(9) & "4" & Chr(9) & "5"
MSFlexGrid1.AddItem "6" & Chr(9) & "7" & Chr(9) & "8" & Chr(9) & "9" & Chr(9) & "10"
MSFlexGrid1.AddItem "11" & Chr(9) & "12" & Chr(9) & "13" & Chr(9) & "14" & Chr(9) & "15"
For r = 1 To MSFlexGrid1.Rows - 1
For c = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = r
MSFlexGrid1.Col = c
If Val(MSFlexGrid1.Text) >= 0 And Val(MSFlexGrid1.Text) < 10 Then
MSFlexGrid1.CellBackColor = vbRed
End If
Next c
Next r
End Sub
if val(MSFlexGri1.text)>=0 and val(MSFlexGri1.text)<10