Применить имена в Excel прослушивается?

I can't replicate this (with my version of excel on Windows 7) -

If I define your names and then create formulas

Then apply names

I get the desired result -

How are you defining the names? I select the cell then click on its title to the left of the formula bar and type in the name.

With yours -

apply names -

As shown here

No change without "showing formulas" -

apply names

Okay, here we go. Office 2013, windows 7

apply names

Looks like a replicated failure.

Okay, let's try Excel 2016 on OSX Yosemite

Let's define our names and formulas -

Good, good, let's apply our names

What? Alert Formula is too long

Now it selected my count and.. what? Alert Microsoft Excel cannot find any references to replace

And it's a.. partial failure?

Okay then, let's do this manually -

Strange, it doesn't highlight the range, just the two cells?

But it works?

Just for comparison, a regular count highlights the range -

Скажем, мы начнем с:

и мы уже присвоили имена A2 и B2 . На вкладке "Формулы" раскрывающийся список :

Определить имя > Применить имена ...

Удостоверьтесь, что мы высветили оба имени и коснулись OK

и мы получаем:

и поэтому имена применяются!

Как было отмечено в обзоре кода, это вызовет проблемы, если, например, он ищет «А1», находит «А10» и т. Д.

Хорошо, вот моя попытка обойти. При этом ваши формулы должны постоянно использовать абсолютные ссылки . Он работает на именованных диапазонах больше 1 ячейки.

Обратите внимание, что я ищу usedrange- но вы можете сузить это, как вам нравится, сбросив srchRng.

Option Explicit Sub FixNames()  Dim ClctNames As Variant Set ClctNames = ActiveWorkbook.Names  Dim rngName As String Dim rngNameLoc As String Dim strFrmla As String  Dim c As Range Dim n As Integer  'Define as needed Dim srchRng As Range Set srchRng = ActiveSheet.UsedRange  'For each name (n) in the collection For n = 1 To ClctNames.Count  'I'm storing the Named Range's name and address as strings to use below rngName = ClctNames(n).Name rngNameLoc = ClctNames(n).RefersToRange.Address  '--Should I break this out into a function? If so, at what point? For Each c In srchRng 'We only want to test cells with formulas If c.HasFormula = True Then 'We have to check if the cell contains the current named range's address If InStr(1, c.Formula, rngNameLoc, vbTextCompare) <> 0 Then 'Since these are perfect matches, no need to look for length or location, just replace strFrmla = Replace(c.Formula, rngNameLoc, rngName) c.Formula = strFrmla End If End If Next Next  'No error handling should be needed  End Sub 

Вам нужно использовать абсолютные ссылки, потому что когда я вытаскиваю именованный диапазон, RefersToRange.Addressон возвращает объект диапазона, а не диапазон, поэтому я устанавливаю его как строку. Я думаю, вы могли бы написать функцию, которая удаляет $абсолютные ссылки, если хотите.

_{это было весело}