Решение геодезических задач в MS Excel

Все желающие делятся опытом.​

Продолжение обсуждения вышедшей за рамки темы ​

http://geodesist.ru/forum/threads/Аппроксимация.15190/page-2#post-205806​

Не совсем понял, Вам видимо подойдёт цикл от и до, с определенным шагом. Остановить (выйти из цикла) можно при выполнении определенного условия.

Spoiler

Sub NivoC_Copy_VV_2()
' Макрос Copy_VV записан 09.12.2012 (Кузнецов)
' NivoC -Цикл копирования высоты вехи, в пустые
Dim LastRow As String
LastRow = Range("a:a").CurrentRegion.Rows.Count - 2
For a = 9 To LastRow + 1
nnnn = Range("C" + CStr(a)).Value
If nnnn <> "" Then
Range("C" + CStr(a)).Select
mmm = Range("C" + CStr(a + 1)).Value
If mmm = "" Then
Selection.Copy Destination:=Range("C" + CStr(a + 1))
End If 'Else:
GoTo lbl1005
End If
lbl1005:
Next a
NivoC_Del_LS_3
End Sub
Наверное сразу не понять, использовал в http://geodesist.ru/forum/threads/n...разование-сырых-данных-RAW-и-обработки.15185/

Естественно можно. Можно даже применять статическую переменную (Static), чтобы использовать её значения при следующем запуске программы. Я её пока не использовал.
Пример записи переменной а ячейку Range("x10").Value = Хц
Наоборот присвоение из ячейки
Уц = ActiveCell.Value или Уц = Range("C1").Value
запись формулы ActiveCell.FormulaLocal = "=МАКС(B11:B1000)+A10"

 

Выкладываю шаблон определения номера планшета по координатам.
(Макросы нужны только для очистки и подготовки таблицы.)

 

а мы вот всё бьёмся как забить в тахеометр координаты пикетов одним файлом...а то мучаемся и забиваем вручную

 

Незначительно переработал и сократил объём формул шаблона определения номера планшета по координатам.

 

Шаблон расчета координат на окружности по заданного радиуса, через определённый угол.
Делал для проектировщиков, для расчёта Санитарно-Защитной Зоны.
Скачивать файл в следующем сообщении, в этом функции отсутствуют.

 

Обновил шаблон расчета координат на окружности по заданного радиуса, через определённый угол.

 

Пример работы с двойными ссылками и адресами.
Размещаю шаблон который меняет порядок списка координат в обратном порядке.
Заодно ДУ и расстояние вычисляет.

 

Предлагаю оценить несколько шаблонов в MSExcel, связанных с железными дорогами.
1.Калькулятор для расчета элементов кривых
2.Вычисление радиуса окружности по измеренной норде и расстоянию от кривой до хорды.
3.Последовательное вычисление центра круга по координатам трех точек
4.Расчет элементов кривых по координатам начала и конца прямых (по координатам 4 точек). Вычисление существующих, проектируемых и других значений.
5.Вычисление координат стрелок и вершины угла при проектировании ж.д. съезда между не параллельными путями.
6.Определения Радиуса по 3 координатам
7.Определения координат точек касания к окружности (с известными координатами центра и радиуса) из заданной точки.
8.Построение профиля ж.д. путей и т.п.
Предназначено для проектировщиков, геодезистов, железнодорожников.

 

Это всё я делаю в Акуиле , ну конечно кроме профилей , что продольников и то же касательно поперечников , а профиля я тоже делаю в Экселе ,только прога совсем другая

 

Шо це таке?

 

- это что за зверь? (интересуюсь в целях повышения образованности)

 

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

 

Spoiler

Ну почему Вы решили, что это украинский? Ничего я не коверкаю. Це був южноруский;)

Интересно. Поделитесь сим чудом

 

Напишите почту куда кинуть

 

Леонов Михаил, написал в личку. Заранее благодарю!

 

Отправил

 

Lex K-G ,
ну что разобрались?

 

Spoiler

Разобрались - 90% меню не работает в эмуле винды. Вероятно внизу формы должны быть кнопочки;)

 

да внизу есть кнопочки , точно не помню что мне делали на ноуте , но компе вроде все ок было