В общем сделал всё через удаление старого имени и создание нового в том же адресе.
Спасибо всем, кто принимал участие в теме.

цитата - не бездумная копия! [МОДЕРАТОР]

Дело в ошибке -  пост #11
не получается извлечь имя листа и адрес , на котором находится именованная ячейка, по её имени.  

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

я имел в виду не изменить, а через удаление:
вставка-имя-присвоить...- удалить старое имя - назначить новое имя

Что является родителем для диапазона и как его запросить

Пытаюсь через удаление. При определении адреса и имени листа  именованной ячейки "д301_к311_сч311_2" выдает ошибку 1004.
Фрагмент кода:

Что здесь неверно?

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

а без удаления нельзя?
Интересует как именно присвоить новое значение Workbook.

Всем привет.
Как посмотреть уровень расположения именованной ячейки разобрался, а как программно изменить , например , с Worksheet на уровень Workbook, не понимаю.
Фрагмент кода:

Например,  нужно изменить уровни Worksheet на уровень Workbook.
Как это сделать в vba? Интересует как именно присвоить новое значение Workbook.

Всем спасибо. Вы  мне очень помогли.

Да, смотрел. Работает как надо.
Вы применили еще и ф-цию ИЛИ, хотя в задачке условие одно, а не несколько.
Другими словами =ЕСЛИ(ИЛИ($B3:$F13=B2);"";B2)  + Ctrl+Shift+Enter  - это работает, а =ЕСЛИ($B3:$F13=B2;"";B2)  + Ctrl+Shift+Enter  - нет.
Почему так?

Использование ввода формул массива с сочетанием Ctrl+Shift+Enter почему-то даёт неверный результат.
А вот  вариант без массивного ввода мне помог.
Хотелось бы понять почему Ctrl+Shift+Enter не дало ожидаемого результата.
Файл с этими вариантами приложил.

Всем привет. Нужна ваша помощь.
Пытаюсь использовать конструкцию =ЕСЛИ($B3:$F13=B2;"";B2)
а в результате #ЗНАЧ!
Файл с примером прилагаю.

Да. Печалька.
В случае с официальный Excel для android от MS - для доступа ко всем функциям Office необходима подписка на Office 365.

Всем привет.
Попал в ситуацию, когда комп за собой не потащишь, а данные нужно вносить в таблицы и находу делать выборку, сортировку и т.п.
Попробовал несколько моб.приложений (WPS Office, Documents To Go) на своем смартфоне и планшете (оба андроидные) и оказалось, что в них документ Excel открывается и даже редактируется, а макросы не работают (кнопки на листах и события).
Может подскажете такое моб.приложение, чтобы макросы работали.  Конечно лучше если бесплатные версии.

FormulaLocal применял - не помогло.
А вот замена СУММ  на SUM - это то!!!!!!!!
Макрорекордер в помощь - это как?
Пишем макрос по нужным ходам, а потом смотрим код? Как я сам до этого не дошел.
Спасибо за помощь!

Всем привет. Нужна ваша помощь.
В модуле VBA конкретной ячейке присваивается формула. После исполнения VBA-кода формула не срабатывает, а в соотв. ячейке имеет место  "Ошибка-недопустимое имя".  
Фрагмент кода:

Результат на скриншоте-02.
НО если зайти в строку формул при активной (ошибочной) ячейке и нажать Enter, то формула срабатывает (см. на скриншоте-02 красную поз.2)
Я конечно понимаю, что можно по очереди "пройтись" по всем этим ячейкам с "Ошибкой" понажимать Enter, Но это не устраивает хотя бы потому, что в таблице их много и это не рационально.

Еще пробовал так:

И так:

Сам не могу допереть. Подскажите - в чём нюанс?

 

Подскажите, как в Экселе в модуле vba выполнить SQL запрос на выборку из таблицы эксель , а также выполнить SQL запрос на удаление или добавление данных в таблицу эксель ?

Подскажите, есть ли в Экселе "встроенная" возможность сделать поле счетчик наподобие как в Access?
Ну так , чтобы не городить своё с помощью функций.

Я сначала не понял о чем речь, а через некоторое время после создания поста с цитатой и своим вопросом я смекнул что к чему.
А т.к. я не знаю как удалить весь пост, через редактирование удалил свой вопрос.
Извиняюсь , что так получилось.

Спасибо. Нужно подумать.
Хотя в моем случае скорость не сильно важно.

Спасибо.

Приветствую всех.
Нужно определить тип данных в ячейке.

If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Date) Then ' (1) если тип Date
Range(Cells(stroka_aktiv, N).Address).Value = Empty
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = String) Then ' (2) если тип String
Range(Cells(stroka_aktiv, N).Address).Value = ""
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Empty) Then ' (3) если тип Empty
Range(Cells(stroka_aktiv, N).Address).Value = Empty
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Double) Then ' (4) если тип Double
Range(Cells(stroka_aktiv, N).Address).Value = 0
End If

Сравнения (1) (2) (4) не получаются.
Если сравнение (4) переделать:
Range("B22".Value = TypeName(Range("A22".Value) ' (*)
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Range("B22".Value) Then ' если тип Double
Range(Cells(stroka_aktiv, N).Address).Value = 0
End If
(*) - это в отдельную ячейку "A22" записать , например, 152, то в ячейке "B22" сохранится Double и сравнение (4) начинает работать. Но мне так не нравится.
Что нужно писать вместо Date , String, Double , чтобы сравнения работали?

Спасибо всем. Довольно доходчиво объяснили. Google курит в коридоре

Если речь идет о нижней процедуре (см. пост1) , то я испробовал варианты и с пробелом и без пробела - выдавало ошибку. Ошибка перестала выскакивать когда я оставил только один параметр.

Real  это тип данных - Вещественные числа — это числа, которые могут иметь знаки после запятой.
Уже нашел Single.
Всем спасибо.

Но все-таки хотел бы понять чё так получилось ? (пост4, А если параметров два и более, то ошибка. Как это объясняется?)

Подскажите еще какой тип данных в экселе по аналогии с REAL ?

Вот пробовал передавать только один параметр без применения Call , срабатывает без ошибки :


Private Sub Perenos_saldo_i_obnulit_strok1(dt1 As String)
 MsgBox "  столбец=" & dt1
End Sub

Private Sub CommandButton2_Click()
Dim dt_nach, kt_nach, dt_kon, kt_kon As String
dt_nach = "e"
kt_nach = "f"
dt_kon = "r"
kt_kon = "s"
  Perenos_saldo_i_obnulit_strok1 (dt_nach)
End Sub


А если параметров два и более, то ошибка. Как это объясняется?

Добрый день.
Написал две процедуры. Одна (нижняя) вызывает другую (верхняя) с передачей четырех значений (dt_nach, kt_nach, dt_kon, kt_kon   )

Private Sub Perenos_saldo_i_obnulit_strok1(dt1 As String, kt1 As String, dt2 As String, kt2 As String)
 MsgBox "  столбец=" & dt1
End Sub

Private Sub CommandButton2_Click()
Dim dt_nach, kt_nach, dt_kon, kt_kon As String
dt_nach = "e"
kt_nach = "f"
dt_kon = "r"
kt_kon = "s"
  Perenos_saldo_i_obnulit_strok1(dt_nach, kt_nach, dt_kon, kt_kon)  ' ошибка компиляции: Syntax error
  Perenos_saldo_i_obnulit_strok1("e","f","r","s")  ' тоже ошибка компиляции: Syntax error
End Sub

Не пойму в чем ошибся.

Пробовал верхнюю процедуру писать так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal dt1 As String, ByVal kt1 As String, ByVal dt2 As String, ByVal kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(dt1 , kt1 , dt2 , kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal  dt1 , kt1 , dt2 , kt2 As String)

Помогите!