Всем привет)

Есть массив данных, из него надо выбрать только те напротив которых стоит знак "+".
Найти к сожалению не смог(

Заранее спасибо.

Андрей

День добрый.
Есть значение Х. Есть таблица где значение Х есть (Х=Х=true). Но в некоторых случаях функция ВПР не находит это значение.

Подробности в примере.
Вопрос- почему?

З.Ы. Х - дата
Заранее большое спасибо.

День добрый.  
 
Есть метод    
 
Sub DrawTest(r As Range)  
r.Interior.Color = vbRed  
End Sub  
 
Передаю туда напрямую ячейку:  
Sub test1()  
DrawTest (Cells(7, 14))  
End Sub  
 
все работает.  
 
Но при попытке передать range:  
Sub test2()  
Dim r As Range  
Set r = Cells(7, 14)  
DrawTest ®  
End Sub  
 
Выдает ошибку. Как победить?    
 
Заранее спасибо. Андрей

День добрый, есть массив текстовых данных в которых встречается знак *. Надо его ликвидировать. Банальное "найти и заменить" результата не дало, равно как и Cells.Replace what:=Chr(42), replacement:=""  
 
Подскажите как с этим зловредным символом работать. Спасибо.  
 
З.Ы. Посимвольно просматривать ячейки не могу, в виду большого их количества.

День добрый. Есть диаграмма - на одном компьютере разноцветная красивая, открываю на другом - цвета совсем другие. И совсем уже не красиво.  
 
Подскажите пожалуйста куда копать и как победить. Заранее спасибо.

День добрый. Макросом получил строку http://www.phones.megafon.ru/ надо открыть ее в браузере(любом). Подскажите пожалуйста как.  
 
Заранее спасибо. Андрей.

День добрый.    
 
Записал макродекодером процесс поиска решения. ОДнако попытка запустить этот код из VBA успехом не увенчалась. Выделилось слово SolverOk ("Sub or function not defined")  
 
Вопрос куда надо пнуть, или что надо подключить чтобы заработало?    
 
Спасибо.

День добрый.    
 
Есть текстбокс. В текстбоксе текст.  
Что надо написать чтобы при событии TextBox1_Enter() выделялся весь текст в этом текстбоксе (также как и при двойном щелчке)  
 
Заранее спасибо.

День добрый.  
 
Подскажите пожалуйста алгоритм по поиску всех возможных комбинаций из N элементов. Элементы внутри комбинации повторятся не должны.  
Пример внутри.  
Тему Волшебника читал, но вынести что то полезное не смог (  
Заранее спасибо.  
 
З.Ы. всем привет :)

День добрый.  
 
Необходимо чтобы при отображении формы ее левый верхний край, находился на уровне верхнего левого края ячейки В2.  
Пытался при инициализации колдовать с Top и Left но как то не получилось)  
 
Спасибо.

Добрый день.  
Попался файлик с кучей примечаний. При редактировании примечаний - они открывают далекооо от ячейки к которым привязаны.  
Надо Все их разместить справа от ячеек.  
Примечаний очень много - хотелось бы макрос.  
 
Заранее спасибо.

есть строка "корова" надо получить "аворок"  
в ВБА вроде была функция такая - напомните пожалуйста, а то справочника под рукой нету сейчас.  
 
Спасибо.

Выдали монстра. Около сотни листов, на каждом листе около десятка условий для УФ.  
 
Как бы половчее все это добро удалить?    
 
Спасибо.

День добрый.  
 
в ячейке есть число N например 5.  
 
Во второй ячейке нужно получить сумму всех чисел от 1 до 5.  
 
Сам придумал =СУММ(СТРОКА(1:5)) - массивом, но вот как вместо 5 - подставить ссылку на ячейку не догадался.  
Возможно есть более грамотная формула.  
 
Спасибо.

есть код:  
Sub pp2()  
Dim arr  
arr = [e1:e5] ' тут мы получаем массив размерностью (1 to 5, 1 to 1)
arr = Application.Transpose(arr) ' а тут мы получаем массив (1 to 5), а хотелось бы (1 to 1, 1 to 5)  
End Sub  
 
 
как это можно сделать?    
 
Спасибо.

Или может еще что то по БД.  
 
В целом нужна программа для простеньких баз данных, с возможность делать красивые формы для ввода/вывода информации, многопользовательский режим.  
 
Спасибо.

Есть листбокс. Значения ему присваиваются через массив, например так  
Dim arr()  
arr = Range("a1:a3")  
UserForm1.ListBox1.List = arr  
 
 
какой командой полностью очистить листбокс?  
 
Спасибо

Sub pp()  
Dim arr()  
arr = Range("a1:a3")  
ReDim Preserve arr(1 To 4, 1 To 1)  
arr(4,1)="четыре  
End Sub  
 
как правильно записать?  
 
Спасибо

Вообщем есть куча ячеек с разнообразным текстом.  
Например текст в ячейке А1.  
Нужна формула=А1=[то что надо]. Нужно чтобы при любом значении в А1 эта формула возвращала ИСТИНА.
 
Мысль движется в сторону знаков подстановки, но с ними дружу плохо  
 
Спасибо.

Вопрос в теме, в примере надо чтобы в лабеле отображалось "раз" "два" "три"    
 
Спасибо.

есть одномерный массив, например  
"один"  
"два"  
"три"  
 
как создать имя, присвоив ему значения этого массива? что бы в последствии создать выпадающий список с значениями этого массива.  
 
Sub pp()  
   Dim uniq(1 To 3)  
uniq(1) = "один"  
uniq(2) = "два"  
uniq(3) = "три"  
 
 
'    ActiveWorkbook.Names.Add name:="uniq",    'дальше дело не пошло  
[b1].Validation.Add Type:=xlValidateList, Formula1:="=uniq"
End Sub  
 
 
заранее спасибо

Собственно вопрос.  
 
Извините, заклинило чтото.  
 
Заранее спасибо.

Есть планировщик заданий в котором мне придется в месяц набивать руками расписание заданий (по 3 на каждый день).  
задания хранятся в файле, я его попробовал расковырять, но собрать обратно чтобы работало не смог. На всякий случай приложу исходный.  
 
Никто не сталкивался с планировщиком, задания которого хранятся в текстовом файле, который можно редактировать напрямую? Ибо хочется все это сделать на вба.  
 
 
Извините что не по теме форума. Заранее спасибо.

Есть график. Надо  
1. убрать маркеры  
2. изменить цвет  
3. изменить толщину  
 
макродекодер в 2007 не пишет ничего.  
 
Заранее спасибо)

Есть макрос экспорта с листа в файл txt  
 
переносит значение в кавычках - надо без.  
 
test - что есть  
test2 - что хотелось бы получить  
 
Sub pp()  
   Dim FileName As String  
   Dim i As Long  
   Dim Data  
   FileName = Application.DefaultFilePath & "\test.txt"  
   Open FileName For Output As #1  
   For i = 1 To 3  
       Data = Cells(i, 1).Value  
       Write #1, Data  
   Next i  
   Close #1  
End Sub  
 
спасибо

задался вопросом можно ли как то искать в массиве без перебора каждого элемента?  
 
Sub pp()  
Dim arr(1 To 3, 1 To 2)  
Dim s  
arr(1, 1) = "первый"  
arr(2, 1) = "второй"  
arr(3, 1) = "третий"  
arr(1, 2) = "яблоко"  
arr(2, 2) = "вишня"  
arr(3, 2) = "черешня"  
s '= [поиск в массиве arr, по второму столбцу слова "вишня]
MsgBox s 'должно вывести "2"  
 
End Sub  
 
 
есть ли такой способ? что то типа Find  
 
Заранее спасибо.

Вопрос в файле, если строить второй ряд по вспомогательной оси - он накладывается на первый. Нужно чтобы строился рядом.  
 
Ексель 2007. Спасибо

Есть макрос, который форматирует диаграмму (удаляет - добавляет ряды данных)  
Во время выполнения диаграмма ощутимо "дергается"  
Application.ScreenUpdating не помог.  
 
как на время выполнение макроса запретить перерисовку диаграммы и перерисовать ее в конце?  
Или может еще какой способ есть?  
 
Спасибо  
 
Заранее извиняюсь за избыточность данных. Интересует лист "Диаграмма", кнопка "Построить диаграмму" и макрос висящий на ней

Хочу получить сколько раз встречались ячейки содержащие букву д в любом регистре  
 
Спасибо

метод  
 
Range("a1").Copy Range("f1") - работает быстро, но если в копируемой ячейке есть формулы - копирует формулы  
 
range("a1").copy  
range("f1").PasteSpecial xlPasteValues  - вставляет как надо, но намного медленнее  
 
Можно ли как нибудь использовать первый метод, но чтобы вставлялись только значения?  
 
Спасибо.  
 
З.Ы. еще пробовал range("f1") = range("a1"), но показалось тоже медленным.