Question

我在A栏中有一定数量的标签号。这些标签号的前缀各不相同，即＆＃34; 35C-1243＆＃34;或＆＃34; 35TC-1234＆＃34;。每个前缀都带有很多标签号，但是标签号之间有一些空白行用于跳过标签，例如它可以来自＆＃34; 35C-1234＆＃34;至＆＃34; 35C-1235＆＃34;至＆＃34; 35C-1237＆＃34;。这意味着我在＆＃34; 35C-1235＆＃34;之间有一个空行。和＆＃34; 35C-1237＆＃34;。我一直在尝试做的是创建一个代码，提示用户输入他们想要关注的标签号的前缀，并根据该前缀选择下一个空行但是我无法得到excel激活空行。任何建议/帮助将不胜感激。

Private Sub Worksheet_Activate()


Dim msg As String
Dim result As Integer
Dim x As String
msg = "Would you like to find the next available tag number?"
result = MsgBox(msg, vbYesNo)

If result = vbYes Then
x = Application.InputBox("Enter the part reference ")

Select Case x

    Case x = "35C"
    NextFree = Range("A:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
    Range("A" & NextFree).Select

    End Select
Else
Cancel = True

End If



End Sub

Answer 1

问题出在Select Case。它应该是Case "35C"而不是Case x = "35C"。您现在所做的是将x与x = "35C"的结果进行比较，True，但x不等于True，因此这种情况为{{ 1}}：）

@FreeMan所说的False应该是Range("A:A" & Rows.Count)。

在用户输入特定前缀

1 个答案: