Здравствуйте уважаемые программисты! Суть вопроса:При внесении числовых данных в любую активную ячейку остальные ячейки должны пересчитываться автоматически. (конвертер единиц измерения) Заранее спасибо!
Здравствуйте уважаемые программисты! Суть вопроса:При внесении числовых данных в любую активную ячейку остальные ячейки должны пересчитываться автоматически. (конвертер единиц измерения) Заранее спасибо!tasdel
Просто хочется иметь свой собственный конвертер и не зависеть от интернета. http://www.convert-me.com/ru/convert/power/ ссылка на сайт, где находится это замечательная программка.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("e6:e11")) Is Nothing Then Application.EnableEvents = False Dim arrKoef arrKoef = Array(2.343, 1000, 3600 * 10 ^ -9, 10 ^ 6, 1000, 0.1186 * 10 ^ -6) r0 = Target.Row For n = Target.Row - 5 To Target.Row + UBound(arrKoef) - 6 koef = n Mod (UBound(arrKoef) + 1) r = koef + 6 Cells(r, 5) = arrKoef(koef) * Cells(r0, 5) r0 = r Next n Application.EnableEvents = True End If End Sub
[/vba] Файл перезалила
tasdel, конкретно для Вашего диапазона: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("e6:e11")) Is Nothing Then Application.EnableEvents = False Dim arrKoef arrKoef = Array(2.343, 1000, 3600 * 10 ^ -9, 10 ^ 6, 1000, 0.1186 * 10 ^ -6) r0 = Target.Row For n = Target.Row - 5 To Target.Row + UBound(arrKoef) - 6 koef = n Mod (UBound(arrKoef) + 1) r = koef + 6 Cells(r, 5) = arrKoef(koef) * Cells(r0, 5) r0 = r Next n Application.EnableEvents = True End If End Sub
Manyasha, Расширил диапазон на 15 ячеек задача усложнилась. При вводе числовых данных в первую ячейку сверху, программа считает нормально,если вводишь данные в любую другую ячейку, программа начинает считать:"кто в лес кто по дрова". Объясните пожалуйста, как работает строка? [vba]
Manyasha, Расширил диапазон на 15 ячеек задача усложнилась. При вводе числовых данных в первую ячейку сверху, программа считает нормально,если вводишь данные в любую другую ячейку, программа начинает считать:"кто в лес кто по дрова". Объясните пожалуйста, как работает строка? [vba]
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
