Последние записи
- Функция GetCurrentProcessToken (processthreadsapi.h)
- With … do и вызов функции. Как получить указатель на сам объект?
- TChromium обработка клика
- Delphi 7: замостить TImage маленьким изображением
- Определить, что кнопка зажата сейчас
- ATmega128 — При появлении положительного фронта на входе PD3 запустить таймер-счётчик 0
- Можно вставить в HTML элемент из XML?
- Не получается запустить компьютер, при старте показывает no codec initialized
- Громкость звука (Делфи)
- Собрать post/get и куки параметры в одну переменную
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
30th
Июл
Определить самую длинную строку в ListBox
Подскажите, пожалуйста, как кодом определить длину (Len(Me.ListBox1.List(x))) самой длинной строки в списке ListBox1 на форме? (vba excel 2003).
30th
Деление на ноль, как обработать (Excel)
Формула деление на пустую ячейку или 0 выдает ошибку №ДЕЛ/О. Как сделать так что бы вместо ошибки стоял 0?
29th
Июл
Объединение строчек опираясь на другой столбец
В файле 2 колонки. в первом столбце идет порядковый номер объекта в объеденной ячейке, которая равна кол-ву ячеек второго столбца. Во втором столбце идет построчно информация, которая соответствует объекту в ячейке первого столбца.
Необходимо объединить ячейки второго столбца, которые принадлежат объекту первого столбца. То есть, где то их 3 строки, где то 10, а где то и одна, которую нужно пропустить.
28th
Июл
Расположить форму относительно кнопки на листе
Скажите пожалуйста, как исправить код ниже (vba excel 2003), чтобы форма открывалась располагаясь сразу под кнопкой («Shapes(имя)»), щелкая по которой эта формы и вызывается?
Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Top = ActiveSheet.Shapes(имя).Top
.Left = ActiveSheet.Shapes(имя).Left
End With
End Sub
28th
Запретить клавишу ESC при вводе значения в textbox на форме
Подскажите пожалуйста как запретить следующее действие: при вводе значения в textbox1 (на форме) и последующего нажатия клавиши ESC происходит очищение textbox1?
15th
Июл
Как наиболее быстро и грамотно сортировать массивы строк?
Честно говоря, несколько ошарашен отсутствие в VBA подобных встроенных функций (push, pop, shift, unshift, sort и т.д.), без них становиться совсем грустно…
Нормального справочника с примерами по VBA тоже не могу найти. Кстати, может подскажите такой?
Как же, все-таки, наиболее быстро и грамотно сортировать массивы строк?
15th
Как добавить элемент в динамический массив?
Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)
Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.
Dim arr() As String
Redim arr(1)
затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.
Моя конструкция
arr(UBound(arr) + 1) = tb.Cells(j, "C").Value
не срабатывает, ругается, что «Subscript out of range»
Если не трудно, подскажите, как решаются такие задачи в VBA!
15th
Фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу
Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…
27th
Июн
Макросом выписать из таблицы строки по определённому признаку
Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр «U», по которому производится отбор. Вторая таблица изначально пустая. Не получается добавить строку и заполнить её данными. И ещё: Параметр «U» Не уникален.
Уникальная строка получается только в сочетании с другим параметром.
Как лучше организовать поиск? Или при первом нахождении просто проверить второй параметр? и сделать FindNext
Set rst = dbs.OpenRecordset("*****")
rst.FindFirst "ИНомер ='" & U & " '"
Set rstN = dbs.OpenRecordset("*******")
rstN.FindFirst "ИНомер ='" & U & " '"
If rstN.NoMatch Then
rstN.AddNew
For R = 0 To 4 ' эти поля являются ключевыми
rstN(R) = rst(R)
Next R
rstN(5) = 1
rstN(6) = "30.11.2011"
rstN(7) = "30:21:12542/lk:200"
rstN.Update ' на этой строке ругается
Else
25th
Июн
Перенос данных из одного листа одной таблицы в создаваемые листы другой таблицы
Подскажите пожалуйста как написать макрос в Excel для переноса данных из одного листа одной таблицы в создаваемые листы другой таблицы. Условия такие: есть таблица (Test), имеющая один лист (Лист1) с данными в трех столбцах, необходимо перенести информацию из ячеек столбцов «В» и «С» в другую таблицу (Nado), таким образом что ячейки первого столбца «А» первой таблицы (Test) должны стать названиями листов второй таблицы (Nado), при совпадении значений ячеек первого столбца «А» новая страница не должна создаваться, строки переносятся только на тот лист, который имеет название первой ячейки строки.
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)