Помогите начинающиму в VBA

[villi]

Я начинающий в VBA, подскажите как решить задачку: есть таблица в Excel нужно сравнить дату в ячейке таблицы с текущей датой и вывести данные которые на две недели раньше текущей даты. Подскажите код программы или где можно поспотреть.

[McZim]

villi, так вы начинающий в VBA или C++

[Naghual]

нужно сравнить дату в ячейке таблицы с текущей датой и вывести данные которые на две недели раньше текущей даты

Для смещения даты просто применяйте операции сложения/вычитания в днях.
На две недели раньше   = А1-14,  где А1-Ячейка с датой, а 14 - количество отнимаемых дней.

Что вы понимаете под "вывести данные"?  Уточните вопрос.

[Naghual]

villi, так вы начинающий в VBA или C++

А это вы к чему???

[Алексей++]

villi, так вы начинающий в VBA или C++

А это вы к чему???

да автор в другой теме всё то же самое написал, только не VBA а с++ )))

[Виктоша]

Подскажите пожалуйта! Как в Excel поставить фильтр по вхождению в запись какого либо слова? (например - "мир" входит во "Владимир").Я знаю, как это в делать в FoxPro:    
Select * from tab where 'мир'$name into dbf newtab  
но надо написать макрос в Excel, а я в VBA не сильна

[RXL]

Из хелпа в Excel-е:

InStr Function
Returns a Variant (Long) specifying the position of the first occurrence of one string within another.

Syntax

Код:

InStr([start, ]string1, string2[, compare])

The InStr function syntax has these arguments:

Part Description
start Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified.
string1 Required. String expression being searched.
string2 Required. String expression sought.
compare Optional. Specifies the type of string comparison. If compare is Null, an error occurs. If compare is omitted, the Option Compare setting determines the type of comparison. Specify a valid LCID (LocaleID) to use locale-specific rules in the comparison.

Settings
The compare argument settings are:
Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.

Return Values
If InStr returns
string1 is zero-length 0
string1 is Null Null
string2 is zero-length start
string2 is Null Null
string2 is not found 0
string2 is found within string1  Position at which match is found
start > string2 0

Remarks
The InStrB function is used with byte data contained in a string. Instead of returning the character position of the first occurrence of one string within another, InStrB returns the byte position.

[Виктоша]

Спасибо! 

[Виктоша]

Немного легче ...

[Sla]

а конкретно?

[RXL]

Конкретно - просто нажал F1 и нашел ф-ию.

[Виктоша]

Я обнаружила, что в пользовательском автофильтре  можно выбрать условие «входит». Это то, что нужно! Но теперь у меня другая проблема – как ввести это самое искомое слово? Чтобы каждый раз не открывать форму ввода.  Я представляю это себе так - в выделенную ячейку (еще до шапки таблицы) вводится нужное слово. И потом адрес этой ячейки подставить в выражение для поиска.
Я пробую подставить этот адрес в записанный макрос:

 Selection.AutoFilter Field:=1, Criteria1:="=*МиГ*", Operator:=xlAnd

Наобум пробую заменить слово "=*МиГ*" на "=D1" – но ничего не получается…L
Что делать? Где что почитать? (в интернете)
   Как видите,  знаний - никаких… :