Как создать кнопку, позволяющую выбрать элемент в поле со списком и подставить значение массива для всех значений на листе? - PullRequest
Новая
       28

Как создать кнопку, позволяющую выбрать элемент в поле со списком и подставить значение массива для всех значений на листе?

0 голосов
/ 13 июля 2020

Я хотел бы создать кнопку, которая позволяет мне выбирать элемент в поле со списком. Этот элемент, в свою очередь, заменяет значение массива для всех значений на листе. Я использовал следующий алгоритм, где A1 - это ячейка, связанная с полем со списком (то есть число изменяется в соответствии с выбранным элементом. OBS: алгоритм не работает в VBA.) 

Sub CommandButton1_Click()
Dim Entradas
Entradas = Array _
("PROCX(Correções!$B", "PROCX(Correções!$G", "PROCX(Correções!$L", _
"PROCX(Correções!$Q", "PROCX(Correções!$V", "PROCX(Correções!$AA", _
"PROCX(Correções!$AF", "PROCX(Correções!$AK", "PROCX(Correções!$AP", _
"PROCX(Correções!$AU", "PROCX(Correções!$AZ", "PROCX(Correções!$BE", _
"PROCX(Correções!$BJ", "PROCX(Correções!$BO", "PROCX(Correções!$BT", _
"PROCX(Correções!$BX", "PROCX(Correções!$CD", "PROCX(Correções!$CI", _
"PROCX(Correções!$CN", "PROCX(Correções!$CS", "PROCX(Correções!$CY", _
"PROCX(Correções!$DC", "PROCX(Correções!$DH", "PROCX(Correções!$DM", _
"PROCX(Correções!$DR", "PROCX(Correções!$DW", "PROCX(Correções!$EB", _
"PROCX(Correções!$EG", "PROCX(Correções!$EL", "PROCX(Correções!$EQ", _
"PROCX(Correções!$EV", "PROCX(Correções!$FA", "PROCX(Correções!$FF", _
"PROCX(Correções!$FK", "PROCX(Correções!$FP", "PROCX(Correções!$FU")
For i = 0 To 35
    If i + 1 = Range("A1").Value Then
    Cells.Replace What:=Entradas(0), Replacement:=Entradas(i) _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    End If
Next i
End Sub
...