VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Переход на новую строку Доброго времени суток. Тема не новая, но никак не могу применить к своей ситуации то что нашла в др. примерах. Итак, имеем 2 файла .xls, в 1 файле пишем данные клиента, 2 файл база данных в табличном виде. Нужно что бы при нажатии кнопки данные клиента (ФИО, Дата рождения, адрес) заносились в таблицу БД. Проблема возникла в следующем действии: в таблице надо найти последнюю заполненную... https://www.cyberforum.ru/ vba/ thread911564.html	Как удалить повторяющиеся элементы динамического массива? VBA Массиву меняем размер равный количеству заполненных ячеек в столбце "А", на листе2! Нужно удалить повторяющиеся значения! Вот часть кода для заполнения массива. ReDim intArr(intcount_cell) 'Меняем размер массива For int_i = 1 To intcount_cell intArr(int_i) = Cells(int_i, 1).Value 'Заполняем массив данными из ячеек на 2 листе Next int_i
VBA Пользовательские процедуры и функции Здравствуйте. У меня в VBA вот такая задача: найти периметр фигуры ABCD по заданным сторонам AB, АС и DC. (Определить процедуру для расчета гипотенузы прямоугольного треугольника по его катетам.) Я сделал вот так: Public Sub q() Dim AB As Double Dim AC As Double Dim DC As Double Dim DB As Double Dim BC As Double Dim P As Double AB = InputBox("введите сторону AB")... https://www.cyberforum.ru/ vba/ thread911156.html	VBA Как удалить последний символ из файла? https://www.cyberforum.ru/ vba/ thread910965.html Вот часть кода fileSaveName = Application.GetSaveAsFilename("Zadanie", _ fileFilter:="Text File(.txt), .txt") Open fileSaveName For Output As #1 For int_i = 1 To intcount_cell Print #1, intArr(int_i) & ","; Next int_i Close #1
VBA обработка двумерных массивов Двумерный массив размером N х N задан в виде одномерного массива по столбцам. Вывести на печать верхний треугольник массива по строкам, включая элементы главной диагонали.	VBA По работе функции Replace https://www.cyberforum.ru/ vba/ thread910833.html Возникла проблема из цикла почувствуй себя тупым. Тапками не кидайтесь, хелп почитал, не понял. Беда такая. Делаю Cells(k, 2).Replace What:="*" & Cells(ob, 13), Replacement:="" Жду от этого действия, что изменится значение в ячейке (к,2). Однако вместо этого значения меняются на всём рабочем листе. Вот, собственно не могу понять где я не прав
VBA массив На днях мне дали задание: 1. Пользователь через Ctrl выделяет группу диапазонов на листе(возможный вариант отмечен желтым). В ячейках - только числа. 2. Нажимает кнопку. 3. Все объединеннные ячейки разбиваются. 4. Все ячейки входящие в объединеннную заполняются значением этой ячейки. 5. Записать все значения из выделенного диапазона в текстовый файл в порядке убывания. В одной строке, через... https://www.cyberforum.ru/ vba/ thread910752.html	VBA цикл с пост и пред ( условием) Добрый день ! Подскажите пожалуйста , когда удобно применять цикл с постусловием и предусловием ! Я понимаю что когда неизвестно кол-во повторов цикла , но когда какой из этих 2-ч не понятно . они похожи,но отличие в том , что цикл с постусловием выполняется хотя б 1 раз .
VBA Поиск и замена списка значений https://www.cyberforum.ru/ vba/ thread910587.html Доброго всем дня! Вопрос 1. Имеется таблица для поиска и замены включающая в себя множество строчек (1000 и более). Если всякий раз вставлять эти значения в поля "найти и заменить" построчно это займет огромное количество времени. Есть ли какое то пакетное решение данной задачи? Вопрос 2. Имеется 2 похожих по структуре текста. Нужно заменить все значения выделенные курсивом из 1-го...	VBA За сколько часов можно пройти 40 км, если идти 5 км /час https://www.cyberforum.ru/ vba/ thread910583.html Расстояние от города А до города Б 40 км.За сколько часов можно дойти из А в Б,если идти 5 км /час.(сделать окно, куда можно вводить любое расстояние и получать время)
VBA Через какое время в из 3-х амёб будет 100, если они делятся каждые 3 часа Одноклеточная амеба каждые 3 часа делится на 2 штуки.Через какое время в колбе будет 100 амеб,если первоначально в колбу запустили 10 штук?	VBA Сортировка слов с "весом" Доброго времени суток! Есть задача: Выделен кусочек текста. В выделение имеет следующий вид: <слово> <число>, <слово> <число>. Пример: карандаш 1, книга 100, ручка 20, ластик 2 ... Хотелось бы отсортировать данные элементы, т.е. чтобы вместо исходного выделения появилось: книга 100, ручка 20, ластик 2, карандаш 1 Есть подозрение, что нужно использовать регулярные выражения, но я в этом не... https://www.cyberforum.ru/ vba/ thread910254.html

Pernat

0 / 0 / 0

Регистрация: 22.06.2013

Сообщений: 6

25.06.2013, 19:34 [ТС]

Вывести среднее значение после экспорта - VBA - Ответ 4770670

25.06.2013, 19:34. Показов 726. Ответов 5

Метки (Все метки)

Ответ

Предложили вот такое решение, что скажете?

Visual Basic

Private Sub CommandButton1_Click()
 
Dim s As String
Dim i As Integer
For i = 1 To 200
' добавляем к каждому значению в ячейке 00 пока в ячейках хоть что то написано
If ThisWorkbook.Worksheets(1).Cells(i, 1).Value = "" Then ' если в ячейке пусто заканчивается цикл
Exit For
End If
s = ThisWorkbook.Worksheets(1).Cells(i, 1).Value
ThisWorkbook.Worksheets(1).Cells(i, 1).Value = "00" & s
Next i
i = i - 1 ' так как цикл заканчивается на пустой уже ячейке то мы отнимаем 1 и получаем актуальное кол-во перезаписаных ячеек
 
s = "=СРЗНАЧ(A1:A" & i & ")" ' формула которую мы вставим
ThisWorkbook.Worksheets(1).Range("C1").FormulaLocal = s ' вставляем формулу
ThisWorkbook.Worksheets(1).Range("C1").Activate ' выделяем ячейку
ThisWorkbook.Worksheets(1).Range("C1").Calculate ' пересчитываем в ней значения, иначе глючит временами)
 
 
End Sub

Вернуться к обсуждению:
Вывести среднее значение после экспорта VBA

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

25.06.2013, 19:34

Готовые ответы и решения:

Найти среднее арифметическое 2-х чисел и вывести значение на экран с 3-мя цифрами после запятой
Вот мой код , в котором все работает,не знаю как сделать 3 цифри после запятой чтобы...

Вычислить среднее значение элементов массива. Вывести на дисплей полученное значение
Вычислить среднее значение элементов массива. Вывести на дисплей полученное значение. После этого...

В одномерном массиве определить среднее значение всех элементов,значение которых превышает среднее значение
в произвольно заданном одномерном массиве определить среднее значение всех элементов,значение...

	25.06.2013, 19:34

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

25.06.2013, 19:34

Помогаю со студенческими работами здесь

Вывести среднее значение
5. Вывод на экран средней величины стоимости технического средства закрепленного за определенным...

Вывести среднее значение по столбцу
есть две табл (в одной страны, а в другой показатели по странам). одна подчиненная другой. Таблицы...

Подскажите как добавить вычесленное среднее значение из подпрограммы 1, в подпрограмму 2, а то в подпрограмме 2 берет среднее значение = 0
void Count_avg(int n,knigizd* str, double Avg_all ) // Подпрограмма 1 { Avg_all = 0;...

Определить среднее значение всех элементов, значение которых превышает среднее для массива
в произвольно заданном одномерном массиве определить среднее значение всех элементов, значение...

Новые блоги и статьи
Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .	Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .

Наверх