VBA
|
|
| Другие темы раздела | |
| VBA Непонятная ошибка в Word Скриншот с описанием ошибки приложен. Help ничего путного не поясняет. Ошибка возникает только при прохождении кода в автоматическом режиме. В пошаговом - все нормально. Обработчик ошибок, типа On... превращается в квадратики, иероглифы А не может на это влиять проверка правописания? Может попробовать снять галку автоматической проверки? https://www.cyberforum.ru/ vba/ thread178538.html |
VBA ListBox и поиск в и выбор по двойному нажатию
https://www.cyberforum.ru/ vba/ thread177245.html Добрый день. Есть не большая проблема. На листе "Расходы" есть кнопка "Вставить товар" При нажатии на кнопку необходимо выбрать соответствующий товар и вставить его номер в ячейку P4:P16. Пример... Можно так: |
| VBA Загрузить картинку с листа Excel в image на форме Формирую листы отчета вместе с данными на листе в определенной ячейке .range("o1") прикрепляется изображение. программно открываю отчет данные загружаются в форму, в форме есть пустой image... в определенной ячейке .range("o1") прикрепляется изображение как это сделать? https://www.cyberforum.ru/ vba/ thread177141.html |
VBA Вывести на печать переменные A, B, C в порядке их возрастания 1. вывести на печать переменные A, B, C в порядке их возрастания. Значения переменных: а) ввести с клавиатуры; б) взять из диапазана B2:B4 листа Excel; в) задать оператором присваивания 2. даны... модуль(x) = Abs(x) |
|
VBA числа в интервале от 10 до 100
https://www.cyberforum.ru/ vba/ thread178651.html Напишите программу, которая бы запрашивала у пользователя числа в интервале от 10 до 100, пока пользователь не введет число не принадлежащее этому интервалу. Все введённые числа выдайте в окно... Sub m_1() Dim vResponse As Double Dim vResult As String Do vResponse = CDbl(InputBox("Введите число")) vResult = vResult & "," & " " & vResponse Loop While vResponse >= 10 And vResponse... |
VBA VBA в Access и Visio У меня в Visio создана форма, которая автоматически открывается при запуске документа Visio. Для этого я использовал следующий код: Private Sub Document_DocumentOpened(ByVal doc As IVDocument)... lordblack, сначала надо подключить библиотеку объектов Visio: Tools - References... (см. рис.). Вот код: Sub m_1() Dim oVisio As Visio.Application Dim oVisioDocument As Visio.Document Set... https://www.cyberforum.ru/ vba/ thread177867.html |
|
название года по японскому календарю VBA Запросите у пользователя год, и выдайте название года по японскому календарю. (1992 - обезьяна, 1993 - петух, 1994 - собака, 1995 - свинья, 1996 - крыса, 1997 – быка, 1998 –тигра, 1999 – кота, 2000... Sub Define_Year() Dim iYear iYear = InputBox("Ââåäèòå ãîä:") If Not IsNumeric(iYear) Then Exit Sub If iYear < 1900 Or iYear > 2010 Then MsgBox "Òîëüêî ñ 1900 äî 2010 ãîäà!", vbCritical: Exit Sub... |
VBA Каждое слово - новым цветом Помогите, пожалуйста, создать макрос, который будет выделять каждое слово текста каким-то новым цветом. Например, первое слово - красный, второе - желтый, третье - синий и т.д. Sub FunnyText() 'раскрашивает слова (не содержащие дефиса) в 6 цветов (один из них родной - wdColorAutomatic) Selection.HomeKey wdStory 'соответсвует нажатию Ctrl-Home (курсор - в начало текста)... https://www.cyberforum.ru/ vba/ thread177148.html |
|
VBA Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова Помогите-помогите! Пожалуйста.... Нужно разбить строку, введённую в первую ячейку первого столбца активного листа, на слова, и вывести их в ячейки первого столбца, начиная со второй. Словом считается... Ну раз знаками препинания и пробелами, значит надо сначала привести к единому заменив последовательно все знаки на пробел(или просто удалив их) с помощью "Replace" А потом разбить "Split" и удалить... |
VBA Определить, попадает ли число в заданный интервал
https://www.cyberforum.ru/ vba/ thread178460.html Создать функцию и процедуру с оператором множественного выбора Select Case. И процедура и функция должны запрашивать у пользователя три числа (a, b, c) и выдавать сообщение о том, попадает ли число с... не интересно :-! Option Explicit Sub S() Dim a As Double, b As Double, c As Double, temp As Double a = Val(InputBox("Введите a", , Cells(1, 2))) b = Val(InputBox("Введите b", ,... |
|
алгоритм Флойда в excel VBA Помогите пожалуйста создать алгоритм Флойда ( поиск кратчайшего расстояния) в excel |
VBA глючит выбор диапазона Option Explicit Sub q() Dim strABC() As String strABC = Split(Range("A1:A2000"), Chr(Asc(" "))) Range("B1") = Trim(strABC(0)) Range("C1") = Trim(strABC(1)) Range("D1") =... Кве, Sub m_4() Dim myArray(1999) As String Dim vСчётчик As Long For vСчётчик = 0 To 1999 myArray(vСчётчик) = Range("A" & vСчётчик + 1) Next Range("B1") = myArray(0) Range("C1") =... |
|
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 7
|
|
| 22.10.2010, 11:40 [ТС] | 0 |
Как изменить цвет фона ячейки ListView - VBA - Ответ 104816222.10.2010, 11:40. Показов 13316. Ответов 13
Метки (Все метки)
Ответ
Итак, есть база данных - договора аренды земли для крупного агрохолдинга. Куча свойств, параметров, формочек. Все отлично работает. Около 50 тысяч записей.
Но кроме этого, они захотели видеть свои владения визуально - купили приборчик по обмеру полей, приборчик замечательно выдает контур поля по координатам широты и долготы в Google Earth. Есть ActiveX, который чудесно работает с векторной графикой. Забил в форму карту, поля по координатам. Красиво... Опять, же - у поля куча параметров - тип земли, урожайность, орошение, владельцы... И, исходя из разного набора параметров требуется закрасить поля разным цветом (типа - земля наша зелененький, не наша красненький). Но, если захотелось посмотреть одновременно и тип земли, и что растет, и еще что-то, получается какая-то цветовая мешанина. Поэтому, чтобы не забивать на каждый тип, вид параметра свой цвет, хотел сделать форму выбора цвета, исходя из предложенных параметров. То есть, мне, кроме всего прочего, нужно будет повесить событие обработки на клик мышки по закрашенной ячейке. Если вставлять Excel, получается ну очень некрасиво. Если закрашивать шрафт, оттенки цвета теряются (типа наше поле темно зеленое, а наше, но отданное в аренду светло зеленое). Вот собственно и все. PS. Прекрасно понимаю, что вместо Access лучше было-бы использовать какую-нибудь другую СУБД, помощнее, но начиналось все с пары формочек для удобства, и теперь переписывать все уже поздно - приходится выкручиваться на Access Вернуться к обсуждению: Как изменить цвет фона ячейки ListView VBA
0
|
|
| 22.10.2010, 11:40 | |
|
Готовые ответы и решения:
13
Как изменить цвет фона строки в ListView Как изменить цвет фона страницы? Функция определенная пользователем: как изменить цвет ячейки |
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 22.10.2010, 11:40 | |
|
Помогаю со студенческими работами здесь
0
Можно ли изменить цвет фона нескольких ячеек? Определять, был ли изменен цвет фона (заливки) данной ячейки после снятия с нее фокуса
Изменить цвет шрифта ячейки, если в ней содержится определенная буква Как программно установить в Excel цвет фона диапазона ячеек? |
Новые блоги и статьи
|
||||
|
Лучшие практики оптимизации Docker Image
Mr. Docker 13.03.2025
Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .
|
Вопросы на собеседовании по Docker
Mr. Docker 13.03.2025
Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .
|
Поиск текста в сносках : замена дефиса на тире или тире на дефис...
РоΜа 13.03.2025
Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .
|
Real PATH definitions in bash scripts
jigi33 13.03.2025
Как поймать путь и путь к директории относительно запускаемого файла в BASH
1. поймать путь через вывод $(pwd)
2. более правильно - на основе realpath (см. скриншот)
|
Django или Flask: что выбрать для веб-разработки на Python
py-thonny 13.03.2025
Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
|
|
Непрерывное развертывание в Java с Kubernetes
Javaican 13.03.2025
Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .
|
Предотвращение XSS, CSRF и SQL-инъекций в JavaScript
run.dev 13.03.2025
JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .
|
PHP 8: JIT-компиляция и улучшение производительности
Jason-Webb 13.03.2025
PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .
|
Сериализация данных с Apache Avro в Kafka
Javaican 12.03.2025
Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .
|
Создание потребителей Kafka с помощью Reactor Kafka
Javaican 12.03.2025
Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .
|
Наверх