VBA Excel实战

最新推荐文章于 2024-10-19 09:59:34 发布

原创

最新推荐文章于 2024-10-19 09:59:34 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #vba #integer #文档 #编程 #工作

本文记录了一次使用VBA为Excel实现功能的经历：当第一列内容为'是'时，右边6个单元格变为只读并填充特定背景色；反之，则恢复可编辑状态和白色背景。通过查阅资料和编写代码，最终成功完成任务。

为了帮朋友实现Excel中的一个功能，接触了VBA Excel。历经两天的时间，现将最终结果存档。

参考资料

vba excel编程三日谈

实现功能

在Excel文档中，当第一列为“是”，则右边6个单元格不可编辑且背景色改变；当第一列为“否”，则右边6个单元格可编辑且背景色恢复白色。

准备工作

新建一个Excel文档，选中第一列，按照下图设置数据有效性：

代码

Private Sub Worksheet_Change(ByVal Target As range)
    
    If Target.Column = 1 Then
    
        Dim editable As Boolean
        Dim rowNumber As Integer
        Dim columnNumber As Integer
        Dim rag As range
                
        rowNumber = Target.Row
        columnNumber = Target.Column
        Set rag = range(Cells(rowNumber, columnNumber + 1), Cells(rowNumber, columnNumber + 6))
                            
        If Target.Text = "是" Then
           
            editable = False