按钮的文本属性设为:“隐藏”
If e.Sender.Text = "隐藏" Then e.Sender.Text = "显示" Tables("表A").Cols("第一列").Visible = FalseElseIf e.Sender.Text = "显示" Then e.Sender.Text = "隐藏" Tables("表A").Cols("第一列").Visible = TrueEnd If