1. 首页
  2. 办公

excel类型不匹配

本文主要为您介绍excel类型不匹配,内容包括EXCEL为什么类型不匹配,Excel提示类型不匹配是什么意思,Excel为什么显示类型不匹配。条件不能连写。改正如下:Sub CC()Dim i%, j%, a%, b%For i = 2 To 14For j = 2 To 11

1. excel类型不匹配“13”

条件不能连写。改正如下:

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

2. excel中运行宏出现“类型不匹配”是什么原因

Sub SYDZZ()

Dim N As Integer

N = 0

Do

If Sheets("一台班").Columns("D").Value = "" Then

Exit Do

N = N + 1

Loop

MsgBox "N"

End SubIf Sheets("一台班").Columns("D").Value = "" then

这句应该有问题

你是不是想说,如果D列为空则退出DO循环?

可以改为

If worksheetfunction.counta(Sheets("一台班").Columns(4))= 0 then

本文来自投稿,不代表本站立场,如若转载,请注明出处。