Excel简单编程

Step

Step

1、sheetbook右键---查看代码---下拉选择Worksheet--下拉选择触发条件
2、使用VBA语言编程

Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    For y = 1 To 3
        s = ""
        For x = 1 To 3
            If Sheet1.Cells(x, y) = 1 Then
                 s = s + Sheet1.Cells(x, 4)
            End If
            Next x
            Sheet1.Cells(4, y) = s
        Next y
            
End Sub

IMG