大家帮忙看下标红的代码哪里错了

lininghao62 · 发表于 2019-11-9 12:38

Sub 根据表名新建工作表()
Dim i, l, m As Integer
Dim sht As Worksheet
l = InputBox("请输入按哪列新建工作表")
m = Sheets("数据源").Range("a65536").End(xlUp).Row
For i = 2 To m
k = 0
For Each sht In Sheets
  If sht.Name = Sheets("数据源").Cells(i, l) Then
  k = 1
  End If
  Next
If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("数据源").Cells(i, l)
End If
Next

End Sub

Jaofuan · 发表于 2019-11-9 12:54

本帖最后由 Jaofuan 于 2019-11-9 12:59 编辑

If sht.Name = Sheets("数据源").Cells(i, l).Value Then

liulang0808 · 发表于 2019-11-9 13:12

楼主输入的l值是什么？

lininghao62 · 发表于 2019-11-9 13:44

liulang0808 发表于 2019-11-9 13:12
楼主输入的l值是什么？

数字第几列

lininghao62 · 发表于 2019-11-9 13:46

Jaofuan 发表于 2019-11-9 12:54
If sht.Name = Sheets("数据源").Cells(i, l).Value Then

还是不对呢.

lininghao62 · 发表于 2019-11-9 13:47

运行代码的相关附件

Jason_WangSS · 发表于 2019-11-9 13:55

看你定义，I好像要定义成数值，intputbox前要加val转化成数值

DevilW · 发表于 2019-11-9 14:07

InputBox 结果默认为文本值
Cells 函数的第二参数有文本值和数字两种
Cells(i,2) 和 Cells(i,"E")
If sht.Name = Sheets("数据源").Cells(i, l) Then
这句 l 的值为（字母）列号可以通过，l 的值为数字就要改为如下代码可以通过

If sht.Name = Sheets("数据源").Cells(i,Val(l)) Then

复制代码

lh123lh1234 · 发表于 2019-11-9 14:13

对的，就是8楼说的问题，不过也可以不改这句，主要原因就是你inputbox出来的是文本，变成数字就好了，这句加个0就好了
l = InputBox("请输入按哪列新建工作表") + 0

lininghao62 · 发表于 2019-11-9 15:55

Jason_WangSS 发表于 2019-11-9 13:55
看你定义，I好像要定义成数值，intputbox前要加val转化成数值

谢谢，解决了

		自动登录	找回密码
密码			免费注册

大家帮忙看下标红的代码哪里错了

最新热点 /1