попробуй формулу =значен().  
Либо как 2 вариант в свойствах запроса установить галку "Автоформат данных"

Джом, спасибо, разобрался, вроде все заработало.  
А про рекордсет!данные, дак это вытекает из строки  
SELECT Sum(ОснБаза.[1]) AS Данные FROM ....
а так вроде все - этот файл заработалкак надо :)  
 
PS: там просто таблица урезана, дабы не грузить вас лишними данными..

привет. Помогите решить следующую проблему:  
 
Имеем базу данных Access с одной таблицей на 98 полей и файл excel, куда должны быть импортрированы данные для последующего анализа.  
 
Идея такова, чтобы на листе SQL прописать инструкции SQL для обращения к базе данных (вычисления каждого поля таблицы), затем пробежаться макросом и вернуть результат на лист "Итог".  
Возникла проблема при обращении к базе данных, я так полагаю, что неправильно сформирована строка SQL.  
Кто в этом получше разбирается посмотрите, пжлста, подскажите, где я лопухнулся и как лучше сделать?

Добрый день!  
Есть файл с макросами и формой, содержащей ProgressBar. В отдел дали новый компьютер, с которого при работе с фалом (при обращении к этой форме) выдает следующее:  
---------------------------  
Microsoft Forms  
---------------------------  
Could not load an object because it is not available on this machine.  
---------------------------  
ОК      
---------------------------  
 
Помогите решить проблему? Файл с формой в приложении

Вариант с суммпроизведений  
=суммпроизв((МАССИВ1=Критерий1)*(МАССИВ2=Критерий2)*(МАССИВн=КритерийН)) - подсчитывает число записей удовлетовряющих условиям  
 
=суммпроизв((МАССИВ1=Критерий1)*(МАССИВ2=Критерий2)*(МАССИВн=КритерийН)*(ДИАПОЗОН_СУММИРОВАНИЯ)) - просуммирует записи в диапозоне, удовлетворяющие критериям

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

=если(счетесли(H3:H6;B226)>0;B222;"Чужой")

Во блин только тоже самое хотел спросить, а тут уже столько постов:)  
ИМХО Вам надо все базы привести для начала в порядок (ошибки), а потом через условное форматирование  
=счётесли(I:I;сжпробелы(c3))=0  
и установить формат, тогда все записи о лицах, находящихся в списке 1 и не находящихся в списке 2, будут отфармотировано по Вашему желанию.

Раньше помню в DOSe команда была:  
copy 1.txt con  
и означала она создание файла 1.тхт с последующим вводом его содержимого с клавиатуры. Также вы не сможете в виндовсе (Досе) создать папки с именами:  
. (точка) - текущий каталог;  
.. (2 точки) - родительский каталог  
con - т.к. сокращенно Console (основное устройство ввода)  
LPT1, COM1, COM2 и пр.- зарезервированные названия портов  
имена содержащие: *, ?, /, \, : - символы маски и разделители адресов.

А что если сделать следующее:  
1. Отключить обновление экрана (СкринАпдейтинг и дисплейАлертс)  
2. Воспользоваться расширенным фильтром (извлечь уникальные записи)  
3. Добавить "невидимый" лист (Visible=false)  
4. Перенести результат расшироенного фильтра на "невидмый" лист  
5. провести действия с полученным массивом  
6. вставить полученный результат куда-надо.  
7. При необходимости удалить "временный" лист (хотя лучше его оставить на будущее и тогда можно не создавать его в будущем)  
8. Включить обновление экрана и вывод предупреждений.  
 
И в скорости не очень много потеряешь, и на геммороидальных свечах сэкономишь:)

Форум классный, но вот ошибка 502 Bad Gateway уже конкретно достала. Конечно, удаление кукишей спасает, но вместе с ними удаляются и все "нужное" для входа на другие сайты.  
 
Отчего возник вопрос: а нельзя ли что-нибудь там подкрутить, чтобы эта ошибка больше не возникала? Ну есть же наверняка куча решений этой проблемы...

Самый простой способ - это попробовать записать макрос через макрорекордер, а потом чуточку поковыряться в коде и всестанет понятно

Мой вариант решения твоей проблемы, конечно, до конца не автоматизирован, но ход решения может быть следующим:  
 
1. Сортируем таблицу: 1 по дате, 2 по компании в порядке возрастания;  
2. в Столбец С вставляем формулу для проверки уникальности покупки в отдельной компании в отдельный день (=ИЛИ(А1<>A2;B1<>B2));  
3. Через расширенный фильтр (или другим способом) вывести в отдельный столбец всех уникальных отправителей.  
4. Добавить формулу расчета количества покупок в разные дни (см. файл):  
=Суммпроизв((База_компаний=уникальному_представителю)*(уникальность_покупки=истина)).  
5. Отсортировать таблицу с уникальными отправителями по нужным значениям.  
 
ПС: даю только ход мысли, полностью автоматизировать можно, используя макрорекордер и динмаические именованные диапозоны, а также в зависимости от того, как вы получаете исходные данные.

Sub copy2()  
   Dim wdApp As New Word.Application  
   Dim wdDoc As Word.Document  
       wdApp.Visible = True  
       Set wdDoc = wdApp.Documents.Add  
       Application.Range("A1:F31").Copy  
       Call wdDoc.Range.PasteExcelTable(False, False, False)  
       wdApp.Activate  
       wdApp.Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)  
End Sub  
 
Должен быть подкючен Microsoft Office Control 1.0 (или выше)

От перестановки мест слагаемых сумма не меняется, следовательно можно добавить еще один столбец, где проставлять в столбец J добавить формулу СУММ(F3:I3) (номеров строк), и присвоить это значение переменной vsegost (или любое другое), а затем в код, где идут все проверки условий добавить строчку:  
 
-----  
If Application.WorksheetFunction.CountIf(Range("J:J"), vsegost) > 0 Then GoTo Sled:  
-----  
Эта строчка проверяет уникальность суммы номеров строк и если она уже есть, то переходит к следующим вычислениям.  
Надеюсь направление мысли понял...