Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Eger
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Ошибка в формуле расчета между двумя координатами
 
#
29.07.2018 22:20:41
Есть формула расчета расстояния между двумя координатами
Код
x1 = 50.190117 / 57.2957795130823
x2 = 50.190117 / 57.2957795130823
y1 = 27.053675 / 57.2957795130823
y2 = 27.053675 / 57.2957795130823
r = Application.Acos(Sin(x1) * Sin(x2) + Cos(x1) * Cos(x2) * Cos(y1 - y2)) * 6371
Она работает в цикле с различными входными данными. Успешно обрабатывает 2500 итераций (в том числе около 50 при x1=x2 & y1=y2)
На приведенных значениях падает в ошибку: Error 13 Type mismatch

Что не так? и как победить?
(MS Excel 2019 x64)
 
Перейти    
Порядок нумерации страниц
 
#
10.01.2016 15:50:23
Старницы на листе Excel нумерует по столбцам:
Код
1 3 5
2 4 6
А мне нужна нумерация страниц по строкам:
Код
1 2 3
4 5 6
Возможно ли это? Как?
 
Перейти    
Как подставить в Range() изменяемое значение?, Excel, VBA, Range, For
 
#
03.12.2015 14:09:19
Есть потребность данные таблицы выборочно разбрасывать в две другие таблицы на основании значения в столбце D каждой записи
Код
   For i = 3 To 79
      If Range("D" + i) = 1 Then ' Тут ошибка получается. Как правильно записать? - не знаю. 
          Range("a2").Select ' Обработчик 1
        Else
          Range("a3").Select ' Обработчик 2
      End If
    Next i
 
Перейти    
Циклический перебор ячеек
 
#
24.06.2015 12:18:48
Задача: Скрыть строки, в которых значение ячейки в столбце M равняется нулю.
Написал код, но он НЕ работает.
Код
    For i = 7 To 1007
        If Cells(m, i).Value = 0 Then `<-- Error 1004
        Rows(i).Select
        Selection.EntireRow.Hidden = True
      End If
    Next i
Подскажите, что НЕ так?
Подозреваю, что Cells "не понимает" адрес столбца ячейки в виде буквы.

Как Заставить cells понимать буквы? Поскольку мной бутут использоваться столбцы далеко от начала таблицы, и высчитывать по алфавиту номер столбца - большая морока.

Спасибо.
 
Перейти    
Дата/время изменения ячейки
 
#
27.01.2015 13:14:55
Как автоматически записать в комментарий к ячейке дату/время ее изменения при изменении ее значения?
 
Перейти    
Сортировка групп ячеек по первой ячейке в группе
 
#
27.01.2015 12:39:25
Подскажите простой способ сортировки записей (групп ячеек) по первой ячейке в группе.

Сложность в том, что одна запись размещена в ТРЕХ СТРОКАХ
Необходимо отсортировать список по первой строке записи.
Сравнение происходит только по первой строке записи.
Перемещение применяется к записи целиком (три строки)
Еще после сортировки должны сохранится все связи с ячейками, которые на них ссылаются

Приложил упрощенный пример.
В примере необходимо отсортировать зеленый столбец А, чтоб
значения из красной области не перепуталось.
Т.е. в красной области значения должны остаться, а формулы могут поменяться.

Спасибо
 
Перейти    
Защита листа от повреждения пользователем
 
#
06.01.2015 10:16:28
Есть лист, в котором есть "защишенные" ячейки с формулами и  "НЕзащишенные" ячейки для ввода данных.
Лист защищен. Разрешено только "выделение незаблокированных ячеек".
Пользователь умудряется перетащить одну незащищенную ячейку на другую, в результате чего портятся формулы в защищенных ячейках, зависимых от перемещаемых. В результате имеем ошибку, которая не может быть устранена пользователем без снятия защиты.
Как решить данную проблему? т.е как защитить формулы в защищенных ячейках от изменения методом перетаскивания незащищенных ячеек?

Пример во вложении.

PS: Метод решения:
"Файл - Параметры - Дополнительно - Разрешить маркеры заполнения и перетаскивание ячеек"
НЕ подходит, так как действует не на лист или книгу, а на весь Excel, а у пользователей есть потребность использовать автозаполнение маркером в повседневной работе в других документах
Изменено: Евгений Яцишин - 08.01.2015 02:28:04
 
Перейти    
VBA выдает ошибку. (Excel 2003)
 
#
13.02.2012 17:30:03
Ошибка 1004  
Метод Select из класса Range завершен неверно.  
 
Задача макроса: Скопировать итоги на конец 12 месяца и вставить "только значения" в начало первого месяца.  
После чего очистить обороты за во всех месяцах.  
 
Код:  
Private Sub CommandButton1_Click()  
   Range("D32:IU32").Select  
   Selection.Copy  
   Sheets("1").Select  
>>    Range("D4").Select ' Останавливается в этой строке.    
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  
   ...
 
Перейти    
Условное форматирование (Различить некорректный ввод числа)
 
#
13.02.2012 15:25:29
Как при помощи условного форматирования различить числовое значение, которое было введено некорректно?  
То есть нужно уже на стадии ввода отловить числовые значения, которые вызывают ошибки в математических формулах.  
Иными словами проконтролировать синтаксис при вводе    
 
Пример:  
Корректные значения:  
"12345,67"  
"-12345"  
"12,3%"  
Некорректные значения, которые подлежат выделению:  
"12345.67" - точка вместо запятой  
"1 234 567,89" - недопустимые символы (пробелы) в введенном значении  
"15 шт."  - недопустимые символы в введенном значении  
"орфываорыва" - не числовое значение
 
Перейти    
Сумма столбцов через один
 
#
17.01.2012 19:18:02
Как посчитать сумму столбцов листа через один?  
 
В ячейке А4 есть формула, но она "некрасивая". Если столбцов много - то легко запутаться.  
Как можно сделать проще и читабельнее?  
 
Заранее Спасибо...
 
Перейти    
"Интеллектуальные" параметры страницы
 
#
29.12.2011 18:25:04
Имеется таблица следующей структуры:  
Одна запись состоит из трех строчек. Между записями одна пустая строка. (итого - четыре)  
 
Таблица формируется динамически. Каждый раз число столбцов, ширина столбцов разная.  
 
Масштаб таблицы подгоняется так, чтоб при максимально крупном масштабе на лист помещались все поля.  
 
Таблица подлежит дальнейшей печати.  
 
Проблема: при изменении масштаба для печати меняется число строк, которые помещаются на один печатный лист. т.е. происходит разрыв записи на разные страницы.  
 
В примере на Лист1 показано как должно быть и на Лист2 - как НЕ должно быть.  
 
Как автоматизировать процесс "подгонки" данных для печати, чтоб при максимально крупном масштабе записи не разрывались?  
 
Допускаю незначительное изменение полей, допускаю изменение высоты строки между записями, допускаю VBA.  
Но как это реализовать на практике - не знаю :( ...
 
Перейти    
Сведение списков
 
#
15.12.2011 23:50:47
Исходные данные:  
Имеются 3 списка, взятых из зарплатных ведомостей за три разных месяца.  
Каждый список содержит Фамилию и Размер зарплаты человека за данный месяц.  
Необходимо:  
Создать один список, содержащий Размер зарплаты человека за квартал (сумма 3 месяцев).  
 
Сложности:  
В связи с текучкой кадров и большего размера штата каждый месяц списки разные.  
Кто-то приходит, кто то уходит.  
Так же может быть разным количество людей в списках за разные месяцы.  
Так что тупо отсортировать и сложить не получится.  
В ручную сводить списки - работа на несколько часов... т.е. не подходит.  
 
Подскажите:  
Каким способом лучше всего реализовать данную фичу?  
Можно ли обойтись без VBA?  
Если не обойтись - то какой должен быть алгоритм сведения списков, чтоб получилось не сложно и оптимально?  
(с алгоритмом подробнее, пожалуйста)  
 
Приоритеты:  
1. Правильность работы  
2. Устойчивость технологии от тупых криворуких бухгалтеров.  
 
Дополнительно:  
MS Excel 2003 RUS SP3  
Заранье СПАСИБО
 
Перейти    
Вопрос по VBA - параметры страницы
 
#
18.01.2011 00:12:24
1. Изменения параметров страницы, выполненные макросом, не выполняются мгновенно.  
Изменения видны только после входа в режим предварительного просмотра.  
 
например:  
После выполнения макроса с командой:  
 
ActiveSheet.PageSetup.FitToPagesWide = 2  
 
реальное область печати остается на 3 страницы по ширине (по старому)  
 
После ручного нажатия кнопки предварительного просмотра и закрытия режима предварительного просмотра - все становится таким как нужно область печати становится на 2 страницы по ширине (по новому)  
 
Как это победить?  
 
2. пробовал решить первую проблему методом программного входа и выхода в режим предварительного просмотра. Записал макрос. В макросе появилась только одна команда:  
 
ActiveWindow.SelectedSheets.PrintPreview  
 
которая заходит в режим предварительного просмотра.  
Какой командой теперь от туда программно выйти?
 
Перейти    
Страницы: 1
Наверх