以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于设置指单元格的求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3731)
--  作者：roy78
--  发布时间：2009/7/29 10:06:00
--  [求助]关于设置指单元格的求助
　　　想通过窗口按钮单击事件，对表A的第一行的第二列的内容赋值　，并通过自定义样式设置单元格的背景色。这个应该怎么搞？求学ing~~~
--  作者：狐狸爸爸
--  发布时间：2009/7/29 10:24:00
--  
Tables("表A").Rows(0)(1) = "值"

只能通过DrawCell事件，按条件设置颜色，不能直接指定颜色。
--  作者：yangming
--  发布时间：2009/7/29 10:43:00
--  

通过自定义样式设置单元格的背景色的步骤:

1、增加一个名为“A”的自定义样式，样式的背景颜色设为红色。

2、将DrawCell事件的代码设为：
If e.Col.Name = "第二列" Then
    If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
         e.Style = "A" \'那么用"A"样式绘制单元格
    End If
End If
--  作者：yangming
--  发布时间：2009/7/29 11:06:00
--  
也可以这样,将二个代码放在一起,都放在DrawCell事件中

If e.Col.Name = "第二列" Then
    Tables("表A").Rows(0)(1)= "期初余额"
  If e.Row(e.Col.Name)= "期初余额" Then
     e.Style = "A" \'那么用"A"样式绘制单元格
End If
End If