大家好,小生有个问题想寻求达人相助:       表格如我上传,我要在C14那个空格的值选定为Amendment Spec.自动运行宏TOW,即表格黄色区域内自动填值,C14选择其它值,则不做任何变化。       这个程序要怎么写,我只会录制宏,不懂得VBA       如有达人相助,再下不胜感激。

解决方案 »

  1.   

    是 D14 吧?在 VBA 编辑器的工程窗口中,双击 Sheet1 ,然后把下面的代码粘贴到右边的窗口中:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If (Target.Row = 14) Then
            If (Target.Column = 4) Then
                If (Target.Text = "Amendment Spec.") Then Call TOW
            End If
        End If
    End Sub
    如果真是 C14 单元格,你把 Target.Column = 4 改成: Target.Column = 3 就行了。
      

  2.   


    “那个贴代码的”,你很拽,是吧!你在 CSDN 都混了五六年了,不懂得尊重人么!
      

  3.   

    Peace!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!顺便jf