Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) //监听单元格的双击事件
If Target.Column = 8 Then //如果点击的是是第8列
Dim i As Integer // i 为整型
For i = 1 To 455 //循环语句 从 1到455
Cells(i, 8).Value = Cells(i, 8).Value //单元格(行,列)的值 = 单元格(行,列)的值。此处主要是为了把字符串格式转为数值格式。运行前将此列单元格设置为数值。
Next
End If
If Target.Column = 8 Then //如果点击的是是第8列
Dim i As Integer // i 为整型
For i = 1 To 455 //循环语句 从 1到455
Cells(i, 8).Value = Cells(i, 8).Value //单元格(行,列)的值 = 单元格(行,列)的值。此处主要是为了把字符串格式转为数值格式。运行前将此列单元格设置为数值。
Next
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Dim j As Integer
For j = 3 To 155
If Cells(j, 1).Value = "" Then
Cells(j, 1).Value = Cells(j - 1, 1).Value // 让后一行单元格等于上一行单元格的值
End If
Next
End If
If Target.Column = 4 Then