Всем привет. Я тут новенький, так что если что не так, прошу прощение. :-) Суть вопроса в следующем. Поясните пожалуйста почему происходит обнуление переменных в Пример1. И главное, как это избежать? Прикрепляю два файла. За ранее, благодарю.

Код к задаче: «Не понятное обнуление глобальных переменных - VBA»

Здравствуйте. Возникла такая проблема. у меня есть такой код.

Привет. Не въезжаю, где тут ошибка. Все кейсы, кроме первого (6,3) выполняются, а на первом при всех умножениях вылезает overflow Странно, в последующих и числа больше. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 Private Function GetNGSGasCapacity(pu As Double, v As Double) As Double Select Case v Case 6.3 Select Case pu Case 0.6 GetNGSGasCapacity = 20700 * 24 Case 1 GetNGSGasCapacity = 23300 * 24 Case 1.6 GetNGSGasCapacity = 31400 * 24 End Select Case 12.5 Select Case pu Case 0.6 GetNGSGasCapacity = 41400 * 24 Case 1 GetNGSGasCapacity = 46700 * 24 Case 1.6 GetNGSGasCapacity = 62900 * 24 End Select Case 25 Select Case pu Case 0.6 GetNGSGasCapacity = 62200 * 24 Case 1 GetNGSGasCapacity = 70000 * 24 Case 1.6 GetNGSGasCapacity = 94400 * 24 End Select Case 50 Select Case pu Case 0.6 GetNGSGasCapacity = 82900 * 24 Case 1 GetNGSGasCapacity = 93500 * 24 Case 1.6 GetNGSGasCapacity = 125500 * 24 End Select Case 100 Select Case pu Case 0.6 GetNGSGasCapacity = 124000 * 24 Case 1 GetNGSGasCapacity = 140000 * 24 Case 1.6 GetNGSGasCapacity = 188000 * 24 End Select Case 150 Select Case pu Case 0.6 GetNGSGasCapacity = 165000 * 24 Case 1 GetNGSGasCapacity = 187000 * 24 Case 1.6 GetNGSGasCapacity = 251000 * 24 End Select End Select End Function

Прошу помощи, нужно доработать макрос времени с округлением времени до минут (то есть секунды - 00 ) ,, не важно в большую или меньшую сторону Sub факт+40минут() ActiveCell.FormulaR1C1 = "=NOW()-TODAY()+TIMEVALUE(""0:40"")" Selection.Value = Selection.Value End Sub Sub факт() ActiveCell.FormulaR1C1 = "=NOW()-TODAY()" Selection.Value = Selection.Value End Sub

Здравствуйте! Ситуация такая: В книге 2 листа. Количество заполненных данными строк на листах совпадает. На одном из листов реализована кнопка вызова пользовательской формы. При вызове которой находящийся в ней комбобокс инициализируется данными с первой колонки листа (там находятся даты). Затем пользователь выбирает нужную дату и жмёт кнопку Вставить строку. После чего строка добавляется сразу на оба листа в нужное место. Вот код добавления строк. При таком варианте все было ок.

Привет. Задача - отображение формы рядом с курсором (тупо по его координатам). Работают два монитора. Полчаю координаты курсора через API - все работает, определяются правильно. Пытаюсь задать эти координаты для позиции формы LEFT и TOP в момент ее инициализации - ее положение для меня загадка. В левом верхнем углу при положении курсора (0,0) положение формы тоже 0,0. Чем дальше ставлю курсор, тем сильнее форма не совпадает с ним ))) При этом если я задаю ее положение не через переменную, то она отображается точно по координатам )))) Вот код формы:

Всем добрый день! Небольшая просьба к знатокам VBA. Есть данный макрос на проставление автодаты при изменении значений ячеек в указанном диапазоне. Нужно допилить несколько вещей: 1. Чтобы при очистке значений в указанном диапазоне, ранее проставленная дата также автоматически стиралась. И 2. Чтобы в момент проставления значений в указанном диапазоне, дата менялась с учетом крайних изменений. (Сейчас дата ставится единожды, и пока ее не удалишь, заново не проставляется. Книга защищенная, кроме отдельных диапазонов ячеек для ввода данных.)

Вообщем, нужно чтобы, когда в одну ячейку вводилось значение, значения в двух других ячейках обнулялись, а в третьей вписывалось то же самое значение, что ввели в первую. Написала код на VB, но он не работает. В чем ошибка?