Excel поиск ссылок на ячейку

Всем привет.

При обработке некоторой таблички в MS Excel возникла простенькая задача — надо было найти все формулы в которых участовала определенная ячейка. Ммм, попробуйте далее не читать и решить ее самостоятельно.

Ну а кому не втерпеж, слушаем далее. Итак для примера мне надо найти кто использует ячейку B4.

Первое решение — используем поиск. Указываем ячейку в поиске и нажимаем «Найти все». В результате имеем список всех ячеек где наша B4 участвует в расчетах. Для чего не подходит такой способ? Это не подходит в случае, если наша ячейка участвует  в диапазоне типа «=СУММ(B3:B7)» или ссылка абсолютная «=B$4».

Коля nilem написал мне классный макрос котроый рвет все связи и при этом не трогает формулы листа..давно хотел прорекламировать -очень полезная штука может адаптируете себе для поиска таких ячеек.  

  Option Explicit  
Option Compare Text  
‘—————————————————————————————  
‘ Module    : Module1  
‘ Author    : Николай (nilem)  
‘ Date      : 05.09.2011  
‘ Purpose   : Mikki  
‘—————————————————————————————  
Sub CopyWithoutRef()  
‘Dim tm!: tm = Timer  
Dim r As Range, s As String, nm As Name  
With Application  
   .ScreenUpdating = 0: .Calculation = xlCalculationManual  
End With  
ActiveSheet.Copy after:=ActiveSheet  
With ActiveSheet  
   For Each r In .UsedRange.SpecialCells(xlCellTypeFormulas).Cells  
       s = r.Formula  
       If InStr(1, s, «!», vbTextCompare) Then  
           r.Value = r.Value  
       Else  
           For Each nm In ThisWorkbook.Names  
               If InStr(1, s, nm.Name, vbTextCompare) Then r.Value = r.Value: Exit For  
           Next nm  
       End If  
   Next r  
End With  
With Application  
   .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic  
End With  
‘MsgBox Timer — tm  
End Sub  

  ‘Private Sub rtyrty()  
‘Dim msg As String, nm As Name  
»For Each nm In ActiveSheet.Names  
‘For Each nm In ThisWorkbook.Names  
‘    If nm.Visible = False Then  
‘        msg = msg & «имя: » & nm.Name & vbCrLf  
‘    End If  
‘Next nm  

  ‘MsgBox msg, 64  
‘End Sub  

  ‘—————————————————————————————  
‘ Module    : Module1  
‘ Author    : Николай (nilem)  
‘ Date      : 05.09.2011  
‘ Purpose   : Mikki  
‘—————————————————————————————  

    Sub ertert()  
Dim x, i&, ch As ChartObject, nm$  
Application.ScreenUpdating = False  

  With Sheets(«Перевод»)  
   x = .Range(«B3:C» & .Cells(Rows.Count, 2).End(xlUp).Row).Value  
End With: nm = ActiveSheet.Name  
ActiveSheet.Copy after:=ActiveSheet  
On Error Resume Next  
With ActiveSheet  
   With .UsedRange.SpecialCells(2)    ‘ константы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1), x(i, 2)  
       Next i  
   End With  

     With .UsedRange.SpecialCells(-4123) ‘ формулы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1) & » «, x(i, 2) & » «, xlPart  
       Next i  
   End With  

     For Each ch In .ChartObjects ‘ диаграммы  
       If ch.Chart.HasTitle = True Then  
           With ch.Chart.ChartTitle  
               For i = 1 To UBound(x)  
                   If .Text = x(i, 1) Then .Text = x(i, 2): Exit For  
               Next i  
           End With  
       End If  
   Next ch  
   .Name = nm & «P» ‘P англ.  
End With  
Application.ScreenUpdating = True  
End Sub

The Excel ADDRESS function is a Lookup & Reference formula that returns the address of a cell based on its input arguments. The function also allows you to set the type and reference style of the address. In this guide, we’re going to show you how to use the Excel ADDRESS function and also go over some tips and error handling methods.

Supported versions

• All Excel versions

Excel ADDRESS Function Syntax

ADDRESS(row_num, column_num, [abs_num], [a1], [sheet_text])

Arguments

Examples

The Excel ADDRESS function requires two arguments to execute: row_num and column_num. Each argument specifies one of the coordinates for the target reference for which you want to find the address. The remaining three are optional arguments that configure the reference style.

The first optional argument, [abs_num] defines the absolute/relative type of the reference. You can simply omit it, or give it a number between 1 and 4 to set the type of the reference. Now, let’s take a closer look at how the function works.

A1-reference (Default style)

The A1 reference system is Excel’s default system, and it is the default configuration for the ADDRESS function as well. If you leave the [a1] argument empty or set it to TRUE, you will get the address in A1-style.

R1C1-reference

R1C1 reference style works very well with relative references. Instead of coordinates like B5, R1C1 displays the relative position of referenced ranges. If you are using R1C1 reference style in your workbook, you need to set the [a1] argument as FALSE or 0.

Using the Excel ADDRESS Function with sheet name

The last optional argument is [sheet_name]. Supply a text value to get a reference that contains the sheet name. If the argument is omitted, the reference returns without a sheet name.

Download Workbook

Tips

• Combine the Excel ADDRESS function with the INDIRECT function to create dynamic references. For example, the following formula targets a range which size is determined by the values in the cells A1, A2, A3 and A4.

  INDIRECT(ADDRESS(A1,A2)&»:»&ADDRESS(A3,A4))

Помогла ли Вам статья?