MSFlexGridでセルの色を条件付で変更するには？ (ID:122540)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 試してみてください。 テストしてないので、ごめんなさいですけど(^^; >Private Sub MSFGrid_Click() > Dim Col1, Col2, Row1, Row2 As Integer この定義の仕方だとRow2だけがintegerで、前者はバリアントになっちゃいますけど・・・ > With MSFGrid > .Col = 0 クリックした列の情報がクリアされてますけど・・・ > If .Text = "" Then > Else > Col1 = .Col > Row1 = .Row > .Col = Col2 > .Row = Row2 > .CellBackColor = vbWhite > .Col = Col1 > .Row = Row1 > .CellBackColor = vbRed > Col2 = Col1 > Row2 = Row1 > End If > End With Private Sub MSFGrid_Click() Dim Col1 as integer,Row1 as integer With MSFGrid ' クリックされた位置の保存 Col1 = .Col Row1 = .Row ' クリックした位置の１行目の確認 If .Textmatrix(1,Col1) = "" Then Else ' セルの背景を白に .Col = 0 .Row = 0 .Colsel = .Cols-1 .Rowsel = .rows-1 .Fillstyle = flexfillrepeat .CellBackColor = vbWhite .Fillstyle = flexfillsingle ' クリックしたセルを赤に .Col = Col1 .Row = Row1 .CellBackColor = vbRed End If End With