Последние сообщения

Добро пожаловать на Форум Excel-vba.
Войти
Регистрация

12.07.2026, 02:00:57

Новости:

Название темы должно отражать суть задачи.
Темы типа "ПОМОГИТЕ!!!", "Срочно!" и т.п. будут удаляться без объяснения причин

Главное меню

Последние сообщения

Страницы 1 ... 6 7 8 9 10

#71

Вопросы по работе в Google-таблицах / Re: Смещение ячейки вправо при...

Последний ответ от Дмитрий Щербаков(The_Prist) - 07.11.2025, 19:01:04

Вот удивляюсь: хотите помощи, но таблицу для редактирования закрываете

В общем как и писал ранее - ПОИСКПОЗ возвращает для каждой строки новую позицию, которую Вы используете как номер столбца. Мне кажется, Вам надо нечто такое:

Код Выделить

=ГИПЕРССЫЛКА("#gid=1823591704&range=" & АДРЕС(ПОИСКПОЗ(F3;'Лист2'!A:A;0);2; 4); "ДОБАВИТЬ")

вместо 2 поставьте нужный номер столбца и все.

#72

Вопросы по работе в Google-таблицах / Re: Смещение ячейки вправо при...

Последний ответ от Woolf - 07.11.2025, 17:55:04

Цитата: Дмитрий Щербаков(The_Prist) от 07.11.2025, 15:05:25Вы бы ссылку на файл приложили - так помочь было бы куда проще. Например, не очень понятно, какой столбец возвращает ПОИСКПОЗ. Может там проблема(да даже скорее всего). А без файла этого никак не понять.

Таблица

#73

Вопросы по работе в Google-таблицах / Re: Смещение ячейки вправо при...

Последний ответ от Дмитрий Щербаков(The_Prist) - 07.11.2025, 15:05:25

Вы бы ссылку на файл приложили - так помочь было бы куда проще. Например, не очень понятно, какой столбец возвращает ПОИСКПОЗ. Может там проблема(да даже скорее всего). А без файла этого никак не понять.

#74

Вопросы по работе в Google-таблицах / Смещение ячейки вправо при пер...

Последний ответ от Woolf - 07.11.2025, 14:47:25

Добрый день.
Есть таблица с 2мя листами, в первом листе условный список заказов, во втором список заказов допустим с характеристиками.

Код Выделить

=ГИПЕРССЫЛКА("#gid=1823591704&range=" & АДРЕС(СТРОКА(F3); ПОИСКПОЗ(F3;'Лист2'!A:A;0); 4); "ДОБАВИТЬ")

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

#75

Вопросы по Excel и VBA / выделение ячейки при выполнени...

Последний ответ от sayn.ru - 02.11.2025, 13:46:46

помогите пожалуйста!
надо что бы в третьем столбце выполнялись условия [ТЕКУЩАЯ ДАТА] если не проставлено в ручную, т.е в пустой ячейке, в четвертом столбце считалась разница между 3 и 2 столбцом [КОЛИЧЕСТВО ДНЕЙ]. в 4 столбце должна выделятся ячейка, если значение больше 20, при условии что в 3 столбце выполняется условие, а не внесены цифры вручную, даже если значение в 4 столбце значение будет больше 20
EXCEL 2024

#76

Вопросы по работе в Google-таблицах / Re: Как сократить (оптимизиров...

Последний ответ от casag - 28.10.2025, 12:53:39

Код Выделить

function Vov() {
  var spreadsheet = SpreadsheetApp.getActive();
  var ch = spreadsheet.getRange('F6').getValue();

  if (ch <= 0) return;

  var sheet22 = spreadsheet.getSheetByName('Лист22');
  var october25 = spreadsheet.getSheetByName('Октябрь25');
  
  // Копируем данные из Лист22 в Октябрь25
  var sourceRanges = [
    { source: 'C9:D9', target: 'A2:B2' },
    { source: 'E9', target: 'E2' },
    { source: 'E6', target: 'D2' },
    { source: 'D11', target: 'C2' }
  ];

  sourceRanges.forEach(function(range) {
    var values = sheet22.getRange(range.source).getValues();
    october25.getRange(range.target).setValues(values);
  });

  // Очищаем ячейки в Лист22
  var clearRanges = ['C9:D9', 'E9', 'D9', 'C20'];
  clearRanges.forEach(function(range) {
    sheet22.getRange(range).clearContent();
  });

  // Вставляем новую строку в Октябрь25
  october25.insertRowBefore(2);
}

#77

Вопросы по Excel и VBA / Re: Как заставить обновляться ...

Последний ответ от leseal - 20.10.2025, 10:01:58

Я так решал.....
Public AddingManagerMode As Boolean
Public ManagerNameText As String
Dim editBoxControl As IRibbonControl
Sub editManagerName_getText(control As IRibbonControl, ByRef returnedVal)
Set editBoxControl = control
returnedVal = ManagerNameText
End Sub

Sub ClearEditBox()
If Not editBoxControl Is Nothing Then
ManagerNameText = ""
ribbon.InvalidateControl (editBoxControl.ID)
End If
End Sub

#78