主题：新手学习中，在练习中找不到相关资料4

此主题相关图片如下：2016-08-04_151237.png

1 

点击  单数按钮  所有单数填入1

然后点击 双数按钮  想把单数1都清空   双数都填入1

第二个问题

代码 合计行  怎么自定义样式

单数这样写

For Each c As Col In Tables("表a").Cols
    If c.name.StartsWith("H") Then
        If c.name.Replace("H", "") Mod 2 = 1 Then
            Tables("表a").current(c.name) = 1
        Else
            Tables("表a").current(c.name) = Nothing
        End If
    End If
Next

合计行，样式是无法控制的，除非你用汇总模式。

我想了个简单的，我能不能    单击按钮  先把当前行 记录清空  这样的话我做任何一个按钮都不用if