VBA Excel实战

最新推荐文章于 2023-12-15 15:21:52 发布

daisyp

最新推荐文章于 2023-12-15 15:21:52 发布

阅读量961

点赞数

分类专栏： VBA 文章标签： excel vba integer 文档编程工作

本文链接：https://blog.csdn.net/daisyp/article/details/6981862

版权

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

摘要由CSDN通过智能技术生成

为了帮朋友实现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 Ta