Как выполнять код для нескольких ячеек Excel одновременно

Привет хоть бы смогите помогать мне, что он перемещает, состоит в том, что уже у меня есть этот код функционируя, но только он работает каждый раз, когда ты выбираешь ячейку:

Sub buscar()
Dim score1 As Double, score2 As Double, result As Integer
score1 = ActiveCell.Value
If score1 >= 0# And score1 <= 0.1 Then
result = 1
End If

If score1 >= 0.1 And score1 <= 0.2 Then
result = 2
End If

If score1 >= 0.2 And score1 <= 0.3 Then
result = 3
End If

....etc.... son varios if
End Sub

то, что мне хотелось бы знать, так это как выполнение этого же самого кода для нескольких ячеек одновременно, так как код должен работать и делать сравнение в 1000 реестрах и ps утомлено делать один из-за одного, я надеюсь объясниться и спасибо.

1
задан 14.03.2017, 03:09
1 ответ

Из-за как идут сравнения, казалось бы, что состоит в том, чтобы отсекать только ячейку * 10.

Самое легкое, если ты должен применять это на ранге, состоит в том, чтобы не использовать макрос, а писать функцию, применять ее к первой ячейке и потом копировать ее, продолжая форму ранга.

Если не, ты можешь использовать повторения sobreun ранг, как Фор i = n To 1 Step-1 искать (aRange. Cells (1, i))

и заставлять искать paramétrica относительно аргумента с ячейкой, вместо того, чтобы использовать ActiveCell.

0
ответ дан 24.11.2019, 12:28