проблема связать переменные с несколькими ввода - PullRequest
Новая
       29

проблема связать переменные с несколькими ввода

0 голосов
/ 26 сентября 2019

В настоящее время у меня есть макрос с 2 полями ввода.Мой макрос должен сделать следующее: используя первое поле ввода, пользователь выбирает первую числовую строку, которую он хочет выбрать.Используя второе поле ввода, пользователь выбирает вторую числовую строку, которую он хочет выбрать.Затем макрос копирует строки, связанные с выбранным номером строки.Например, если пользователь вводит число 1 в первое поле ввода и вводит число 2 во второе поле ввода.Я хотел бы, чтобы мой макрос скопировал всю строку, 1 и 2, одновременно.Прямо сейчас с моим текущим макросом, если пользователь вводит 1 в 1-е поле ввода и 2 во второе поле ввода, строка, которая копируется, является строкой 12!Это не то, что я хочу сделать ... Я думаю, что проблема в моем коде из-за моей строки: Rows(Chosennumber & Chosennumber2).Copy Спасибо за вашу помощь заранее!

Пожалуйста, найдите мой код ниже: 

Sub selectlinefiletemplat()
    Dim Chosennumber As Integer
    Dim Chosennumber2 As Integer

    On Error GoTo NothingChosen

    Chosennumber = Application.InputBox( _
    prompt:="Type in a number", _
    Default:="Type your number here", _
    Type:=1)

    Chosennumber2 = Application.InputBox( _
    prompt:="Type in a number", _
    Default:="Type your number here", _
    Type:=1)

    Rows(Chosennumber & Chosennumber2).Copy

    Exit Sub

    NothingChosen:
        MsgBox "You didn't choose anything!"
End Sub

1 Ответ

1 голос
/ 26 сентября 2019

Попробуйте с помощью Application.Union: 

Application.Union(Rows(Chosennumber), Rows(Chosennumber2)).Copy

Вы делаете это неправильно, потому что & объединяет строку, поэтому при вводе 1 и 2 конкатенация равна 12:)

...