Как открыть разные диапазоны, зависит от ячейки, выбранной в ComboBox - PullRequest
Новая
       34

Как открыть разные диапазоны, зависит от ячейки, выбранной в ComboBox

0 голосов
/ 11 октября 2018

У меня есть названия магазинов в столбцах с B по E на листе 'home'.Мне нужно открыть соответствующий ассортимент магазинов на втором, третьем, четвертом и пятом листах, используя ComboBox.Предположим, что при выборе столбца B активный лист должен быть вторым, а для номера строки 1,2,3 ... Диапазон один два три ... и так далее.То же самое и на других листах.

Теперь я использую регистр выбора для каждого диапазона.

Коды указаны ниже. 

Private Sub CommandButton1_Click()

Select Case ComboBox3

  Case Worksheet("home") . Range ("A2")
            Application.Goto Worksheet("P1").Range("A1:F20")

  Case Worksheet("home") . Range ("A3")
            Application.Goto Worksheet("P1").Range("A21:F40")

  Case Worksheet("home") . Range ("A4")
            Application.Goto Worksheet("P1").Range("A41:F60")

  Case Worksheet("home") . Range ("A5")
            Application.Goto Worksheet("P1").Range("A61:F80")


  Case Worksheet("home") . Range ("B2")
            Application.Goto Worksheet("P2").Range("A1:F20")

  Case Worksheet("home") . Range ("B3")
            Application.Goto Worksheet("P2").Range("A21:F40")

  Case Worksheet("home") . Range ("B4")
            Application.Goto Worksheet("P2").Range("A41:F60")

  Case Worksheet("home") . Range ("B5")
            Application.Goto Worksheet("P2").Range("A61:F80")

End Select

End Sub

Пожалуйста, помогите кому-нибудь.Я новичок в VBA.Как упростить это с помощью Range Offset и ссылки на ячейку.Пожалуйста, помогите.

...