Как обращаться к номеру ячейки отдельно с помощью переменной для поля со списком в VBA - PullRequest
Новая
       104

Как обращаться к номеру ячейки отдельно с помощью переменной для поля со списком в VBA

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

Как обращаться к номерам ячеек отдельно?Я пытался с х целым числом, но это не удалось. 

Private Sub Combo_Selection()

Select Case ComboBox1

      Case  'condition any cell in column A of page1
                  Application.Worksheets("page2") = Activate
                  call Range_selection

      Case  'condition any cell in column B of page1
                  Application.Worksheets("page3") = Activate
                  call Range_selection

      Case  'condition any cell in column C of page1
                  Application.Worksheets("page4") = Activate
                  call Range_selection
End Select

End sub


Private Sub Range_selection()

Select case ComboBox1

    Case ' condition first row in any column
                Application.ActiveWorksheets. Range ("A1:E50")

    Case ' condition second row in any column
                Application.ActiveWorksheets. Range ("A51:E100")

'so on upto 10th row

End Select

End Sub

1 Ответ

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

Это рабочая программа для выбора диапазона в поле со списком.Это включает в себя много для петель.Любая помощь, чтобы изменить это на вложенные циклы.

См. Код ниже 

Sub CommandButton1_Click()


On Error Resume Next

If ComboBox3.Value = "Select" Then

MsgBox "Please Select a Seller"

   Else

Call Show_Page

Unload UserForm1

End If

End Sub




Sub Show_Page()

For Each cell In Range("A2:A10")

 If cell.Value = Me.ComboBox3.Value
 Then
Worksheets("p1").Activate

Call Show_Range

Exit For

Exit Sub

End If

Next


For Each cell In Range("B2:B10")


    If cell.Value = Me.ComboBox3.Value 
 Then

    Worksheets("p2").Activate

    Call Show_Range

    Exit For

    End If

Next

End Sub

For Each cell In Range("C2:C10")


    If cell.Value = Me.ComboBox3.Value Then

    Worksheets("p3").Activate

    Call Show_Range

    Exit For

    End If

Next

End Sub


Sub Show_Range()


For Each cell In Range("A2:C2")

    If cell.Value = Me.ComboBox3.Value Then

    ActiveSheet.Range("A1:E20").Select

    End If

    Exit For

    Exit Sub    

Next

For Each cell In Range("A3:C3")

    If cell.Value = Me.ComboBox3.Value Then

    ActiveSheet.Range("A21:E40").Select

    Exit For

    Exit Sub

    End If

Next

For Each cell In Range("A4:C4")

    If cell.Value = Me.ComboBox3.Value Then

    ActiveSheet.Range("A41:E60").Select

    Exit For

    Exit Sub

    End If


For Each cell In Range("A5:C5")

    If cell.Value = Me.ComboBox3.Value Then

    ActiveSheet.Range("A1:j106").Select

    Exit For

    Exit Sub

    End If

Next

End Sub
...