excel中每隔10点取一值的代码怎么
请点击表格下面的Sheet1或sheet2……后右键,选择“查看代码”,将下面的VBA代码粘贴到VBA编辑窗口中,再点右上角关闭VBA编辑窗口。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow, iCol As Integer
Dim str As String
If Target。 Column = 6 Or Target。Column = 6 Then
If Not IsNumeric(Target) Then
MsgBox "F列只能输入数字,才能计算。 "
GoTo tt:
End If
End If
i...全部
请点击表格下面的Sheet1或sheet2……后右键,选择“查看代码”,将下面的VBA代码粘贴到VBA编辑窗口中,再点右上角关闭VBA编辑窗口。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow, iCol As Integer
Dim str As String
If Target。
Column = 6 Or Target。Column = 6 Then
If Not IsNumeric(Target) Then
MsgBox "F列只能输入数字,才能计算。
"
GoTo tt:
End If
End If
iRow = Target。Row
iCol = Target。
Column
If iRow >= 1 And iCol = 6 And Target <> "" Then
Application。EnableEvents = False
Cells(iRow, iCol) = Cells(iRow, iCol) * 1 / 10
Application。
EnableEvents = True
ElseIf iRow >= 2 And iCol = 2 And Target = "" Then
Cells(iRow, iCol + 1) = ""
Else
Cells(iRow, iCol + 1) = ""
End If
tt:
End Sub。
收起