作者：乔山办公网日期：
返回目录：excel表格制作
点击结束，应该能进入EXCEL，不过下次打开文件仍会有这个出现，最好把这个代码里有变量类型定义错误的宏删掉。
VBA程序报错，类型不匹配是指运算的变量或物体不是需要的类型，比如字符当作数字用了。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then 'B列为赋值列
Target.Offset(, -1) = IIf(Target = "", "", Now) '当B列有值时来在A列出源现时间
End If
End Sub
第2行代码是新zd加入的，你试试。
条件636f7079e799bee5baa6e79fa5e98193337不能连写。改正如下：Sub CC()
Dim i%, j%, a%, b%
For i = 2 To 14
For j = 2 To 117
a = Worksheets("Sheet1").Cells(i, j)
If a > 0 And a < 35 Then
b = (50 - 0) / (35 - 0) * (a - 0) + 0
ElseIf a >= 35 And a < 75 Then
b = (100 - 50) / (75 - 35) * (a - 35) + 35
ElseIf a >= 75 And a < 115 Then
b = (150 - 100) / (115 - 75) * (a - 75) + 75
ElseIf a >= 115 And a < 150 Then
b = (200 - 150) / (150 - 115) * (a - 115) + 115
ElseIf a >= 150 And a < 250 Then
b = (300 - 200) / (250 - 150) * (a - 150) + 150
End If
Worksheets("Sheet2").Cells(i, j) = b
Next j
Next i
End Sub