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

Например так

Sub tst()
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 10
ActiveSheet.Cells(i, j) = 22
Next
Next
End Sub

 

Это присвоить значение? А выбрать так же?

 

Lex K-G, Сделал в VBA с небольшими комментариями, пример заполнения ячеек в столбце при помощи генератора случайных чисел и нахождение из них минимального и максимального значения.
Нажмите на кнопку и на задаваемый вопросы введите, например сначала 100, а потом 6.
Для просмотра действий пошагово в редакторе VBA используйте клавишу F8.

 

Оффтоп

Спасибо большое за сэкономленное время! Все очень понятно, четкие комментарии. Я бы посоветовал Вам добавлять в комментах, кроме имени автора, еще и что-то типа копирайта, адрес мэйла или ссылку на личную страницу в сети.

 

Никто не подскажет ссылку на уравнивание нивелировки в Excel? Где то на форуме было - а сейчас понадобилось - ищу не найду.

 

Нашел.
http://www.geodigital.ru/soft_geo

 

Kub13,в ведомости углов поворота можете изменить элементы кривой ,отображение ПК+ не правильное, не соответствует действительности,и добавить сумму в расстояние между вершинами ,длина прямой.Заранее СПАСИБО!!!

 

Пункты 3 и 4 понятные, исправил.
п.1 не понял, что не так, какой столбец? Уточните.
п.2 вроде всё правильно и отличается от вашего примера в некоторых местах на +-1мм, видимо за счёт округления в примере. Объясните?
А правильна ли методика определения "КМ" в столбце "В"? Или надо на 1км меньше как в "ПК"?

 

запятую поставил, элементы кривой от столбца U до AB,там отоброжение ПК несоответствует ,например ВУ5 находится на ПК10+78,07 а на элементах кривых он на ПК4 .

На км меньше как в ПК
И можно еще сделать в столбце D чтоб перед запятой стояли 2цифры например (ПК12+09,766 ,а не ПК 12+9,766)
P.S. Если у меня начало участка начинается не с ПК 0+00 а с 12+00 ,как мне быть в этой ситуации?

 

Правильно: "нулевой" км не встречался...
По пункту 2 тоже "торможу", непонятно: если только графическое оформление изменить (добавить столбец между С и D,вставить в него знак "+"; ( я вставляю два столбца: иногда пикеты маркируются индексом 21¹+45.03 ))...

 

Исправил.

Доработал.

Доработал. Если начало участка начинается не с ПК 0+00, а с другого места, то введите соответствующие значения в ячейки AI4:FJ4.
Небольшая справка в примечании ячейки "A2".
При желании можно объединить ячейки в столбцах "C:D" чтобы данные пикетажа выглядели, например для ВУ5, ПК10+78,007.
Не могу понять зачем в столбцах W:X и AA:AB идёт повторение пикетажа? В одном из вариантов я сгруппировал их в структуру и скрыл.

 

Огромное спасибо!!!!!!
Только вот одна проблемка,при включение макросов в некоторых строках появляется слово (знач.)

PS скажите пожалуйста можно ли эту ведомость переместить в ексель?

 

Если Вы имеете ввиду после нажатия кнопки "Подготовить", то это нормально, например вместо чисел стоят прочерки (—). После введения всех исходных данных "#ЗНАЧ!" преобразуется в расчётные значения.

Сохранил (печать при помощи Universal Document Converter) как картинку Tif, потом распознал в ABBYY FineReader и отправил в Excel для окончательного редактирования.

Повторяю вопрос: зачем в столбцах W:X и AA:AB идёт повторение пикетажа кривой (начало, конец и повторно конец, начало)?

 

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

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

 

Скиньте пример, может быть подредактирую формулы.

 

Можете поставить формулы на переходную кривую , а то значения одинаковы получаются!!!!
Спасибо!!!

 

Может кому то понадобиться(студентов имею в виду) Расчёт Элементов кривой для дороги

 

Доброе время суток господа! выкладываю маленькую прогу для расчета площади по координатам( на ХР работает). Хотелось бы спросить видел ли кто нибуть нечто подобное, а то поставил семерку а прога не пашет.

 

См. ссылку про программку-шаблон в Excel для вычисления площадей, в другой теме.
http://geodesist.ru/forum/posts/308888/
Ссылка на файл