代码无效

lingning1001 · 发表于 2018-9-11 08:30

Private Sub 新建分数据库_Click()

Dim m As Integer, n As Integer, o As Integer, p As Integer, q As Integer

With Sheets("基本数据库")

m = InputBox("请输入第1列的列号")
n = InputBox("请输入第2列的列号")
o = InputBox("请输入第3列的列号")
p = InputBox("请输入第4列的列号")
q = InputBox("请输入第5列的列号")

Range(Cells(1, m), Cells(1, n), Cells(1, o), Cells(1, p), Cells(1, q)).EntireColumn.Select

End Sub

lingning1001 · 发表于 2018-9-11 08:31

红色部分代码无效，不知道为什么？

山菊花 · 发表于 2018-9-11 08:46

Private Sub 新建分数据库_Click()

Dim m As Integer, n As Integer, o As Integer, p As Integer, q As Integer

With Sheets("基本数据库")
      .Activate
      m = InputBox("请输入第1列的列号")
      n = InputBox("请输入第2列的列号")
      o = InputBox("请输入第3列的列号")
      p = InputBox("请输入第4列的列号")
      q = InputBox("请输入第5列的列号")

      Union(.Cells(1, m), .Cells(1, n), .Cells(1, o), .Cells(1, p), .Cells(1, q)).EntireColumn.Select
End With
End Sub

lingning1001 · 发表于 2018-9-11 08:52

山菊花发表于 2018-9-11 08:46
Private Sub 新建分数据库_Click()

Dim m As Integer, n As Integer, o As Integer, p As Integ ...

解决了，谢谢，就是Cells前面的.要去掉

lingning1001 · 发表于 2018-9-11 09:00

山菊花发表于 2018-9-11 08:46
Private Sub 新建分数据库_Click()

Dim m As Integer, n As Integer, o As Integer, p As Integ ...

但是如果我只选择其中的四列，会出错

microyip · 发表于 2018-9-11 09:17

Private Sub 新建分数据库_Click()
Dim nI As Integer, vVal As Variant
Dim rRNG As Range
With Sheets("基本数据库")
.Activate
For nI = 1 To 5
vVal = InputBox("请输入第" & nI & "列的列号")
If vVal <> "" Then
If rRNG Is Nothing Then
Set rRNG = .Cells(1, vVal).EntireColumn
Else
Set rRNG = Union(rRNG, .Cells(1, vVal).EntireColumn)
End If
End If
Next
If Not rRNG Is Nothing Then rRNG.Select
End With
End Sub

复制代码

lingning1001 · 发表于 2018-9-11 09:32

microyip 发表于 2018-9-11 09:17

运行有问题，会选择完重复拷贝

microyip · 发表于 2018-9-11 09:37

lingning1001 发表于 2018-9-11 09:32
运行有问题，会选择完重复拷贝

你确定你的描述或者表述没问题？

lingning1001 · 发表于 2018-9-13 15:58

microyip 发表于 2018-9-11 09:37
你确定你的描述或者表述没问题？

设定了五个，但是选择4个或者少几列，就会有问题

lingning1001 · 发表于 2018-9-13 16:04

山菊花发表于 2018-9-11 08:46
Private Sub 新建分数据库_Click()

Dim m As Integer, n As Integer, o As Integer, p As Integ ...

把cells前面的.去掉可以用，但是设定5个，如果选择4个或者4个以下就会出错

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

[求助] 代码无效