Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA #Const не паблик? https://www.cyberforum.ru/ vba/ thread1659189.html
А каааак заменить #Const если эта штука не бывает паблик? или пабликом ее сделать все же как-то можно?
Как настроить получение данных из источников в Интернете VBA
Добрый день! Никак не могу решить задачу и очень надеюсь на Вашу помощь. У меня есть таблица-эксель (во вложении). Мне необходимо, чтобы данные в нее брались из интернета по этому адресу https://www.reformagkh.ru/relocation/alarm/mo?tid=2310237&sort=commissionYear&order=asc&page=1&limit=100 , где расположен перечень объектов с гиперссылками по каждой позиции. Например, вот адрес...
VBA БД с функцией разграничения доступа (Ms Access 2010) https://www.cyberforum.ru/ vba/ thread1659145.html
Здравствуйте. Занимаюсь созданием БД с функцией разграничения доступа. Надо чтобы при запуске приложения ни один пользователь не прошедший авторизацию, не мог вызвать режим конструктора по щелчку правой кнопки мыши по главной форме.
VBA Медленная работа макрос https://www.cyberforum.ru/ vba/ thread1659135.html
Добрый день. Столкнулся с проблемой ужасно медленной работы макроса. Поискал на форуме решение - нет, в интернете - нет, попробовал уже все известные мне способы ускорения VBA (загонял все данные в массив, отключал пересчёт, обновление экрана и прочее), но ни в какую. Макрос работает реально странно медленно, и я не могу понять почему. Смысл макроса в том, что он по ключу ищет совпадение на...
Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу VBA
Прошу помочь... Вот задание: Вот то что я сделал: не получается вывести в таблицу "пол, оплачено или нет, фото сданы или нет, паспорт сдан или нет.
VBA Создание матрицы в ListBox https://www.cyberforum.ru/ vba/ thread1658781.html
Здравствуйте. Нужно создать матрицу по следующей формуле, но на косинус и синус выдаёт ошибку. Помогите, пожалуйста, исправить. k = Text1.Text For i = 1 To 10 Step 1 For j = 1 To 10 Step 1 List1.AddItem (22 Cos(sin(9i+6j+7k)) Next j Next i
VBA Ошибка Run-time error 1004 https://www.cyberforum.ru/ vba/ thread1658591.html
Добрый день! Вылетает ошибка после строки: Set y = Workbooks.Open("K:\Bond Prod.MX\MX\mx.xlsm", ReadOnly:=True) Прошу подсказки. Заранее благодарна! Sub copy_info()
VBA Упорядочить символы строки: сначала русские буквы, потом английские, потом цифры.
Задание. Вводится в текстбокс строка, нужно рассортировать и вывести все буквы таким вот образом: сначала Русские от а до я, потом Английские от z до A, цифры 0-9, ну и потом остальные символы. придумал алгоритм: считать строку, разбить на символы, каждый символ по коду проверить на принадлежность к массиву русских, английских или остальных и запихать их в строку вывода в таком порядке. ...
VBA Копирование данных при совпадении значения https://www.cyberforum.ru/ vba/ thread1658561.html
Приветствую! Имеется задача. Существует список значений и таблица с данными. Необходимо осуществить поиск по всем значениям (перебором) и в случае совпадения значения в контрольном списке со значением в таблице, скопировать строку с имеющимися данными в контрольный список (чтобы данные располагались рядом). В VBA не силен, нашел часть кода Dim x As Range Dim z As Range For Each x In...
VBA Поиск и замена текста в объекте "Надпись" Word VBA Всем привет, помоги мне пожалуйста решить проблему. Есть готовый код, который нашел в интернете, которые берет данные из Excel и выводит их в Word, но просто как текст. Надо что бы выводил данные в объект "Надпись". За ранее спасибо! Const ИмяФайлаШаблона = "Шаблон.docx" Const КоличествоОбрабатываемыхСтолбцов = 8 Const РасширениеСоздаваемыхФайлов = ".docx" Sub СформироватьДоговоры() ... https://www.cyberforum.ru/ vba/ thread1658462.html
Макрос Word меняющий шрифт случайных слов с обычного на полужирный VBA
Здравствуйте, помогите, пожалуйста, сделать макрос для Word, который меняет шрифт случайных слов (в идеале), с обычного на полужирный, или через 3-4 слова. Так же, желательно, чтобы не выделялись слова с точками или запятыми, если это будет не сложно, заранее большое спасибо!
VBA Сравнить значения двух колонок одной таблицы со значениями двух колонок другой таблицы Доброго времени суток! Суть в следующем: Есть таблица_1, которая содержит в себе номера машин (без букв) и даты. И есть вторая такая же таблица. Сортировка идет сначала по дате, потом по номеру. необходимо сравнить эти две таблицы, и вывести различия (например во второй таблице не хватает строчки за один из дней (соответственно и номера машины) Заранее благодарен за помощь. Добавлено... https://www.cyberforum.ru/ vba/ thread1658232.html
15145 / 6418 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
11.02.2016, 13:29 0

Заполнение ячеек - VBA - Ответ 8739989

11.02.2016, 13:29. Показов 1752. Ответов 12
Метки (Все метки)

Ответ

Цитата Сообщение от Мерсер Посмотреть сообщение
зачем в этой строке ... берется остаток деления
Мне нужно взять случайный элемент массива. Число элементов массива n, поэтому случайный номер i = Int(Rnd * n) - целое число от 0 до n-1. Но массив двумерный (даже если была выбрана одна строка или один столбец). Число элементов в строке w. Если считать, что элементы массива пронумерованы сначала по строкам, а потом по столбцам, то номер строки i\w - это деление с отбрасыванием остатка, получается число от 0 до числа строк-1, а номер элемента в строке i Mod w - остаток от деления, получается число от 0 до w-1. Индексация элементов массива начинается с 1, поэтому приходится прибавлять 1.
Можно так
Visual Basic
1
2
3
4
5
  h = UBound(v)
  w = UBound(v, 2)
  For Each c In Selection
    c.Value = v(Int(Rnd * h) + 1, Int(Rnd * w) + 1)
  Next
Цитата Сообщение от Мерсер Посмотреть сообщение
правильно ли я определяю пустая ячейка или нет?
Да, хотя есть нюансы - пустая строка (результат формулы ="") - не Empty. Еще ячейка может содержать значение ошибки, можно проверить IsError(d.Value) .

Вернуться к обсуждению:
Заполнение ячеек VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2016, 13:29
Готовые ответы и решения:

Заполнение ячеек
Отлавливаю ошибку и нужно реализовать такую последовательность:если хоть одна ячейка заполнена,то...

Макрос на заполнение ячеек
Добрый день, фоурмчане! Необходима ваша неоценимая помощь и подсказ, как разобраться с заданием: ...

Заполнение диапазона ячеек
Еще вопрос. Запросите у пользователя диапазон ячеек и заполните его случайными символами....

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

12
11.02.2016, 13:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2016, 13:29
Помогаю со студенческими работами здесь

Заполнение диапазона ячеек
Запросите у пользователя диапазон ячеек и заполните его случайными цифрами от 0 до 50. Программа...

Заполнение ячеек в Excel циклом for
Ячейки в Excel данным способом почему-то не заполняются. Почему? Как это исправить? Sub t() Dim...

Заполнение пустых ячеек по формуле
Ку, все пытался хоть что-то придумать с формулами, но видимо без vba тут не обойтись( Есть...

Заполнение ячеек по нажатию на кнопку
Здравствуйте! Помогите, пожалуйста, исправить мой код.. Эта функция вызывается при нажатии на...

Заполнение массива значениями из ячеек
Здравствуйте, кто в силах и уме помогите или просто посоветуйте. Есть файл Excel с данными, в нем...

Нужно автоматизировать заполнение ячеек
Прошу помощи в написании макроса. Имеется два столбца A,B В этих столбцах имеются данные ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru