» Excel VBA (часть 3)

AndVGri

Спасибо. Принцип понял, все получается. Конвертирую из VBS дальше.
В принципе, кроме этих Events все практически один к одному.
Есть нюансы синтаксиса. Допустим VBScript
Код: If a=b Then: a=1: Else b=2: End If

Цитата:

Niiks
Не работает что? Поконкретнее: не закрашивает, не выполняется, выдаёт ошибку?...

AndVGri, не работает, значит ничего не меняется.
Т.е. что есть макрос, что его нет - - ноль эмоций....
Никаких сообщенй не выбрасыватся.
Excel 2003.

Цитата:

...По Вашему примеру всё работало (убирал заливку со строк начиная с 3, ниже таблицы A1:E2)

Не могли бы выложить эту рабочую версию файла на rghost.ru

Может быть я не смог правильно объяснить условие?
Пробую еще раз:
Есть в таблице А1:Е2 закрашенные цифры.
Надо, чтобы после выполнения макроса, все ячейки с цифрами в книге окрасились бы соответственно заданным цветам ячеек таблицы A1:E2 (цвета таблицы могут быть изменены пользователем в любой момент).
Скажем, поменял пользователь в таблице цвет восьмерки с желтого на зелёный - все восьмёрки в книге (которые ранее были закрашены желтым) - перекрасились моментально в зелёный. И т.к. далее.

AndVGri
не выходит, тоже самое, если ячейка повторная то он выделяет ее желтым цветом, и не зависимо от цвета ячейки.

Niiks
http://rghost.ru/31356641
P.S. Не забудьте установить безопасность макросов в средний уровень и ответить разрешить выполнение макросов при открытии книги
JekG
В любой ячейке набираете =PreviousMonth() не забудьте для этой ячейки установить формат даты.
lorents
Скорее всего работаете не в 2003, тогда проверяйте
If x.Interior.Color = 16777215
Желательно эту константу определить в ячейке, которую считаете прозрачной, в Immediate выполнив
?ActiveCell.Interior.Color

Niiks, AndVGri
Хочу отметить (добавить), что если речь идет о ячейках, требующих окрашивания, которые не содержат формул, то все можно сделать существенно проще:

Код: Sub ReColor()
With Application
.FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False
For Each x In [A1:E2]
.ReplaceFormat.Interior.ColorIndex = x.Interior.ColorIndex
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Replace x, x, xlWhole, , , , , True
Next
.ScreenUpdating = True
End With
End Sub

AndVGri

Цитата:

Желательно эту константу определить в ячейке, которую считаете прозрачной, в Immediate выполнив
?ActiveCell.Interior.Color

можно поподробнее, как это сделать?

не подскажите, как можно сделать следующее:
допустим я закрасил ячейку B1, как можно закрасить тем же цветом ячейки от C1 до F1 автоматически. Т.е. суть в том, если я закрасил ячейку в столбце B, то по горизонтали заращиваются остальные ячейки в столбцах от C до F.

lorents

Цитата:

можно поподробнее, как это сделать?

В редакторе VBA меню View/Immediate window. В низу окна редактора VBA появится Immediate. Вводите и нажимаете [Enter]

Цитата:

то по горизонтали заращиваются остальные ячейки в столбцах от C до F

А не подскажете за какое событие зацепится, чтобы определить факт окрашивания?

AndVGri
PreviousMonth() я бы сделал так:
PreviousMonth = DateSerial(Year(Now - Day(Now)), Month(Now - Day(Now)), 1)

AndVGri

Цитата:

В редакторе VBA меню View/Immediate window. В низу окна редактора VBA появится Immediate. Вводите и нажимаете [Enter]

сделал, получил 16777215

Цитата:

А не подскажете за какое событие зацепится, чтобы определить факт окрашивания?

как только я окрасил ячейку с столбце B

dandyd
Спасибо

AndVGri
Это Вам за Events спасибо, научили.

Непонятно почему у меня эксель на все попытки вместо даты выдает #ИМЯ? (неверное имя)

Ни макросом

Код: Range("B2").Select
Selection.NumberFormat = "m/d/yyyy"
ActiveCell.FormulaR1C1 ="=PreviousMonth()"

Пардон, по-понедельничному оттормозился, мысли не в тему вынес.

JekG
PreviousMonth - функция у Вас находится в проекте VBA той же книги, что и приведённый Вами код? Если нет, то возможно потребуется корректировка. Посмотрите как будет выглядеть на рабочем листе в другой книге, если использовать мастер функций (находится в группе пользовательские). Полученный синтаксис и вставляйте в FormulaR1C1

У меня офис 2003 русский. В мастере нет таких функций как пользовательские

JekG
На то она и пользовательская, что создается пользователем. Ищите в книге модуль, где создана функция PreviousMonth. Может и в другой книге быть.

JekG
Я конечно извиняюсь - косноязычно написал, но когда Вы нажимаете = в ячейке рабочего листа, то слева от строки формул в раскрывающемся списке можно выбрать "другие функции", в диалоговом окне "мастер функций" есть раскрывающийся список "категория" там выбираете "определённые пользователем" - там и отображаются функции (формулы), которые написаны в VBA.
И к сути. Для функции, определённой в VBA проекте другой книги формула выглядит
='d:\path\MyFunctions.xls'!PreviousMonth()
для функции в VBA проекте этой же книги формула может быть сокращена до:
=PreviousMonth()
P. S. Что бы не было проблем (того же ИМЯ? при закрытой книге с функциями) желательно сохранить книгу с функциями в VBA как надстройку (xla) и подключить через Сервис/Надстройки

Цитата:

Непонятно почему у меня эксель на все попытки вместо даты выдает #ИМЯ? (неверное имя)

Вместо "Selection.NumberFormat = "m/d/yyyy"" должно быть Selection.NumberFormat = "mm/dd/yyyy"

AndVGri
Не могли бы вы где-то выложить свой файлик с сохраненной в нем этой функцией. Не выходит у меня чето. Думал тут проще простого все ан нет, а это только первая часть задумки...

JekG
http://rghost.ru/31634761

AndVGri
Огромное спасибо. Так сработало все на ура.
Еще вопрос.
Как задать Range диапазону ячеек начиная скажем с A1 и заканчивая A1+x ячеек вправо где х - число лежащее в ячейке B2?

JekG

Код:
Dim pRange As Excel.Range
Set pRange = Range("A1").Resize(1, Range("B2").Value + 1)

Ребят помогите плиз,
проверить является ли введенное в строку число шестнадцатиричным

NiNo52RUS
Несколько длинновато, через regular expression было бы поизящнее, но не соображу. Для нотации Си "0x1234567890abcdef"

Код:
Option Compare Text
Public Function IsHexC(ByVal this As String) As Boolean
If InStr(this, "0x") = 1 Then
If Mid$(this, 3) Like "*[!0-9a-f]*" Then
IsHexC = False
Else
IsHexC = True
End If
Else
IsHexC = False
End If
End Function

Подскажите пожалуйста в таком вопросе. Есть столбец с данными. В последней строке этого столбца есть ячейка "Итого : 2345" (без кавычек но с пробелами.) Мне для дальнейшей работы нужно получить просто число без "Итого:" Данный код вроде как справляется с задачей но есть один ньюанс: при увеличении или уменьшении разряда числа, количество пробелов после двоеточия тоже меняется и тогда поиск не срабатывает. Как это можно обойти?


Код:
Selection.Cells.Replace What:="Итого : ", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

JekG

Код: y = Split(ActiveCell)
For n = 0 To UBound(y)
MsgBox y(n)
Next

aidomars
И как этим пользоваться в моем случае? Побить на слова ячейку можно многими способами, а как взять из нее только последнее слово?

JekG
Лучше так

Код:
Public Function GetValue(ByVal fromText As String) As Double
Const findChar As String = " "
GetValue = CDbl(Mid$(fromText, InStrRev(fromText, findChar) + 1))
End Function

JekG, после сплита сравнивай данные на текст/число. А если последнее слово надо, то
msgbox y(UBound(y)).

Написал скрипт, который в цикле удаляет строки. Проблема в том, что строки, в которых есть объединенные ячейки не удаляются. можно ли что-то сделать в этой ситуации?