Pipka88

Pipka88

Пикабушник
43К рейтинг 104 подписчика 35 подписок 364 поста 37 в горячем
Награды:
10 лет на ПикабуЗа неравнодушие к судьбе Пикабу
4

Прошу совет. Чугунная кастрюля

Всем привет.


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

Кастрюля нужна для приготовления супов.

Не сочтите за рекламу, но в моем городе есть только в наличии данная: Кастрюля Maysternya.

5

Мировые судьи. Вопрос

В госуслугах пришло такое сообщение:


Счёт на оплату

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

Здравствуйте, Иванов Иван Иванович!

Получен счёт на оплату услуги 120-Х-ХХХ/2021.

Ведомство: Агентство по обеспечению деятельности мировых судей Иркутской области.

Номер счёта: 0376068809072021396709281 от 09.07.2021

Счёт выставлен по данным документа Водительское удостоверение №ХХХХХХХХХХ (удалил естественно), указанного в личном кабинете.



Номер в/у сходится, но авто никогда не владел и не ездил, к тому же никогда нигде его не предоставлял и не светил. Правонарушений не нарушал 100%.


На сайте мировых судей сделал обращение через электронную форму. По моему в/у уже были поступления штрафов (через многократные обращения в ГИБДД и прокуратуру выяснилось, что у кого то был дубликат). По итогу у меня арестовали счет в сбере (благо на нем было руб 200).


Мне не совсем понятна концепция мировых судей (т.к. Получен счёт на оплату услуги 120-Х-ХХХ/2021.), какие услуги я мог у них заказать?


У нас рабочий день уже закончился, поэтому соответственно никому не могу. Просто если кто сталкивался с подобной ситуацией может что прояснит -  чтоб двигаться в правильном направлении.

Показать полностью

Выбор авто

Приветствую камрады.


Прошу не совета, а мнения.

Первое авто.

Левый руль


33 года. Бюджет 750 000р.


Вопрос: какое авто лучше взять?


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


Но, постоянно терроризируют идеями, что за эти день взять иномарку. Но поюзав рынок на сайтах, в этот бюджет влезают модели 2008-2012 годов (в выборе авто полный 0,и знакомых кто разбирается (кто реально разбирается нет)).


Насмотревшись и наслушавшись интернетов в каждом б/у авто есть косяки которые могут впарить не прошаренному обывателю.


____


Про ответ Форда знаю.

Показать полностью
2

VBA EXEL. Прошу совета

Здравствуйте. Просьба дать совет начинающему, тк запутался.

Исходные данные:

В столбце "С" имеются суммы (количество может быть и 10 и 100 и вообще любое количество строк со значениями как положительными, так и отрицательными.

В столбце "D" так же имеются суммы по аналогии с колонкой "C".

В столбце "Е" вычисляется процентное соотношение каждой строки из столбца "D" к общей сумме столбца "D" (сделал через формулу).

VBA EXEL. Прошу совета

Что необходимо реализовать:

При нажатии кнопки каждая строка из столбца "С" последовательно умножалась на каждую строку из столбца "Е" и это значение прописывалось построчно в столбец "F". Т.е., например, 2158124,395 (С,2) умножалось на 0,269604845 (Е,2) и значение выводилось в ячейку (F,2). Потом  (С,2) * (Е,3) и значение прописывалось в ячейку (F,3). После того как значения в колонке "Е" закончились, бралась следующая цифра из колонки "С" -2671900,191 (С,3) и так же последовательно перемножалась построчно с ячейками колонки "Е" с записью к уже заполненным значениям после перемножения первого шага. По итогу в столбце  "F" (с данными которые на скриншоте)  должно быть заполнено 104 строки.


Данную процедуру хочу сделать через макрос.

Думал сделать следующее. Определить количество заполненных ячеек в столбце "D", далее через цикл

For i=1 to 8 (т.к. уже определили, что заполненных ячеек 8)

и далее через цикл while. Но вот тут что то не получается, либо что то не так делаю, поэтому и прошу Вашего совета.


Мой гавнокод:

Private Sub CommandButton1_Click()

Dim a, b, c, d As Long

a = WorksheetFunction.CountA(Columns("D")) - 1

Cells(2, 7) = a

b = 1

For c = 1 To x

Do While Cells(b + 1, 5).Value = ""

Cells(b + 1, 6) = Cells(2, 6) * Cells(b + 1, 6)

Loop

Next c

End Sub



Заранее спасибо.

Показать полностью 1
Отличная работа, все прочитано!