| Код |
|---|
Option Explicit
Option Compare Text
Sub ColorCells()
Dim iStart As Integer
Dim rng As Range, cell As Range, sSearchString As Range
Set rng = Selection
For Each sSearchString In Range("B18:B30")
For Each cell In rng
If cell Like "*" & sSearchString & "*" Then
iStart = InStr(cell.Value, sSearchString)
With cell.Characters(Start:=iStart, Length:=Len(sSearchString)).Font
.Bold = True
.Color = RGB(0, 0, 255)
End With
End If
Next
Next
End Sub |
Выделение цветом внутри ячейки определенных слов из масива
Выделение цветом внутри ячейки определенных слов из масива
|
30.08.2017 16:15:19
Добрый день! Прошу помочь с доработкой макроса
Необходимо выделить слова внутри ячейки. А список этих слов находится в диапазоне ячеек. В арховной теме нашел то что мне подходит но здесь можно выделить только 1 слово или значение из одной ячейки.
Надеюсь понятно задал вопрос. Заранее спасибо |
|||
|
|
|
Как выделить первую в списке пустую ячейку
Как выделить первую в списке пустую ячейку
подстановка значений из одной таблицы во вторую
|
24.02.2009 13:53:29
{quote}{login=}{date=24.02.2009 01:42}{thema=}{post}Нихрена не понял. Два прайса, а зачем отдельно артикулы?{/post}{/quote}
чтоб сравнивать их не по названию,(названия товара звучат по-разному). например в прайс2 нужно вставить цену на LG KG810 его арикул в этом прайсе-20571 в таблице артикулов этому артикулу подходят два артикула 3155, 4023, которые нужно находить в прайсе1 и брать там цену1 соответствующую этим артикулам(из них выбрать максимальную)---137,65. |
|
|
|
|
подстановка значений из одной таблицы во вторую
подстановка значений из одной таблицы во вторую
|
24.02.2009 13:32:56
Всем здрасти. Помогите пожалуйсто подставить цены из прайса 1 в прайс 2 сопоставляя их по артикулу из другой таблицы, если артикулу прайса2 соответствует несколько артикулов прайса1, то нужно выбрать артикул с максимальной ценой. Буду очень благодарен за любые предложения по решению задачи , или формулами или макросом.
|
|
|
|
|
CheckBox в пользовательском меню
VBA - помощь просили?
CheckBox в пользовательском меню
|
04.02.2009 15:20:33
Создал своё меню, и хотелось бы ,что б один из пунктов выполнял 2 макроса .Первый - при первом нажатии, второй - при повторном нажатии. И после первого нажатия значок обводился в рамку с чекбоксом( типа как автофильтр == вкл/выкл ).Надеюсь понятно изложил задачку.
Зарание всем спасибо !!! |
|
|
|
|
Блокировка вывода xlDialogSaveAs при нажатии F12
Блокировка вывода xlDialogSaveAs при нажатии F12
Помогите задачку решить!!!
|
31.01.2009 14:51:19
Function Days(Namber)
If Namber = 1 Then Days = "понедельник" If Namber = 2 Then Days = "вторник" If Namber = 3 Then Days = "среда" If Namber = 4 Then Days = "четверг" If Namber = 5 Then Days = "пятница" If Namber = 6 Then Days = "субота" If Namber = 7 Then Days = "воскресенье" If Namber <= 0 Or Namber > 7 Then Days = " " End Function ******************* в ячейке пишем =Days(Ячейка с номером недели) |
|
|
|
|
Помогите задачку решить!!!
|
31.01.2009 14:31:51
Поместите в модуль
Function Days(Namber) If Namber = 1 Then Days = "понедельник" If Namber = 2 Then Days = "вторник" If Namber = 3 Then Days = "среда" If Namber = 4 Then Days = "четверг" If Namber = 5 Then Days = "пятница" If Namber = 6 Then Days = "субота" If Namber = 7 Then Days = "воскресенье" End Function в ячейке пишем =Days(1) |
|
|
|
|
Блокировка вывода xlDialogSaveAs при нажатии F12
Создани ехе'шного файла с командой копирования надстройки в папку Addins?
округление VBA
округление VBA
|
19.01.2009 13:56:38
{quote}{login=Марчук}{date=19.01.2009 01:38}{thema=Re: }{post}{quote}{login=Марчук}{date=19.01.2009 01:37}{thema=}{post}ОКРУГЛТ
Если данная функция недоступна или возвращает ошибку #ИМЯ?, установите и загрузите надстройку «Пакет анализа». Инструкции В меню Сервис выберите команду Надстройки. В списке надстроек выберите Пакет анализа и нажмите кнопку OK. Выполните инструкции программы установки, если это необходимо. {/post}{/quote} вот я не внимательный :({/post}{/quote} Спасибо очень полезная функция я о ней не знал. Чем больше узнаю Excel, тем больше удивляюсь его возможностям. Та ты шо... |
|
|
|
|
округление VBA
округление VBA
|
19.01.2009 13:11:54
Есть кусочек кода:
If UserForm2.CheckBox1.Value = True Then Cells(i, 9).Value = Cells(i, 9) / 5 Cells(i, 9).Value = Int(Cells(i, 9)) Cells(i, 9).Value = Cells(i, 9) * 5 End If Я так округляю числа до ближайшего числа кратного 5 но строка Cells(i, 9).Value = Int(Cells(i, 9)) не округляет а просто убирает дробную часть.Подскажите что вписать в код, чтоб число округлялось по матиматическим правилам(1,5=2 а не 1 и т.д.) Спасибо. |
|
|
|
|
Удаление пункта контекстного меню
Удаление пункта контекстного меню
Удаление пункта контекстного меню
|
13.01.2009 13:33:49
Всем привет.
С помощью такого макроса добавил нов пункт в контекстное меню Private Sub Workbook_Activate() 'добавления пункта очистить в контекстное меню Application.CommandBars("Cell").Controls.Add Type:=msoControlPopup, ID _ :=30021, Before:=9 End Sub А теперь убрать его не могу, подскажите что делать. Private Sub Workbook_Deactivate() 'удаляем созданый пункт контекстного меню With Application.CommandBars("Cell") .Controls(.Controls.Count).Delete End With End Sub '==========Это не помавгает. Спасибо. |
|
|
|
|
Защита от открывания файла
с новым годом
Новый пункт меню
|
25.12.2008 17:49:28
Спасибо Pavel55, Единственное хотелось бы , чтоб новое меню по-умолчанию распологалось рядом с др. панелями , а не на листе.(Если это возможно).И что исправить в коде , чтоб закрывая программу панель оставалась(не удалялась), а при повторном открытии не создавалась т.к. уже там есть
|
|
|
|
|
Новый пункт меню
|
25.12.2008 15:41:31
Добрый день.
Закралась мысль создать небольшую надстройку для себя (файл .xls с макросами сохранённый в .xla).Хотелось бы , что б при старте этой надстройки в Excele появлялся новый пункт меню с новыми командами(для всех пользователей), которые запускали бы макросы этой надстройки.Как мне это реализовать подскажите ув. форумчане? Всем зарание спасибо. |
|
|
|
|
Временная блокировка документа
|
24.12.2008 13:16:07
{quote}{login=:)}{date=24.12.2008 10:53}{thema=Re: }{post}{quote}{login=The_Prist}{date=23.12.2008 03:24}{thema=}{post}Доработал. Пароль на VBAProject - "1234"{/post}{/quote}
Снова: Ctrl-Break, кнопка Reset или меню Run-Reset, и заходи - бери :) А если листы были скрыты, то открыть легко: For Each Sh In Sheets Sh.Visible = xlSheetVisible Next{/post}{/quote} А куда код вписывать если Пароль на VBAProject стоит. |
|
|
|
|
Временная блокировка документа
Временная блокировка документа
