Не выбранные ячейки влияют при использовании Selection.SpecialCells (xlCellTypeVisible) '

Question

Я создал макрос, который добавляет префикс к текущему выбору. Это довольно просто, как вы можете видеть - это петли через видимые ячейки в выборе. Я добавил .SpecialCells(xlCellTypeVisible), потому что это повлияло на непреднамеренные ячейки при использовании фильтров.

Sub Prefix() 

Dim rng As Range 
Dim Prefix As String 
Prefix = "P" 

For Each rng In Selection.SpecialCells(xlCellTypeVisible) 
    rng = Prefix & rng 
Next rng 

End Sub 

В качестве примера, предположим, что мои данные Cells A1:A4 заполнены так:

Title 
1 
2 
1 

Моя проблема возникает, когда я делаю следующее:

1. Положите Autofilter на интервале , и скрыть «2», который находится в A3
2. Выбрать A2 (первый «1»)
3. Запустить мой макрос

Проблема заключается в том, что вместо того, чтобы воздействовать только Cell A2 (выбранная клетка), он начинает применять префикс к первой строке (A1: Z1 и т.д.), пока я не отменить макрос. Он будет продолжать делать это с тысячами ячеек, если я позволю ему продолжать работать.

Эта проблема не возникает, когда мой выбор - несколько ячеек, или если я использую Selection, а не Selection.SpecialCells(xlCellTypeVisible), или если я применяю макрос к одной ячейке, когда ничто не отфильтровывается (скрыто).

У кого-нибудь есть идеи, почему выбор по умолчанию для всей электронной таблицы, когда у меня есть только одна ячейка?
В качестве альтернативы, может ли кто-нибудь предложить способ добавления таких префиксов, как VBA?

Я знаю, что использование формулы excel облегчит проблему, но это не практично для меня, и, несмотря на это, не так быстро, как щелчок макроса.

Answer 1

Вы можете использовать «Application.intersect», чтобы убедиться, что вы получите желаемый результат:

For each rng in Application.Intersect(Selection,ActiveSheet.Cells.SpecialCells(xlCellTypeVisible)) 

Answer 2

Если вы хотите, чтобы работать динамически, когда вы выбираете диапазон ячеек вручную, так и ваше намерение состоит в том, чтобы просто перед именем код страны из поля ввода в текущее значение ячейки, затем добавьте событие изменения, указанное ниже, в раздел кода вашего рабочего листа и добавьте подпрограмму в модуль кода в рабочей книге.

Не знаете, почему вы заменяете знак минус, но при необходимости можете добавить его в этот код.

код Worksheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Call AddPrefix(Target) 
End Sub 

Добавить модуль и поместить этот код в нем.

Sub AddPrefix(rangeToPrefix) 
    Dim cCell As Range 
    Dim prefix As String 
    prefix = InputBox("Enter your country code", "Set Country Code", +33) 

    For Each cCell In rangeToPrefix.SpecialCells(xlCellTypeVisible) 
     If Not IsEmpty(cCell) Then cCell.Value = prefix & cCell.Value 
    Next cCell 
End Sub