Отправляет email-рассылки с помощью сервиса Sendsay

Excel - вопросы и ответы

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 1.605 RSS
  Сентябрь 2006   →
 1
 2
 3
 4
 5
05.09.2006
10:25:21
22:50:12
 6
 7
 8
08.09.2006
23:08:31
23:18:00
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней 7 выпусков (3-4 раза в месяц)


Сайт рассылки: http://vladekas.com/
Открыта: 03-09-2006

Автор
Владимир

Статистика

1.605 подписчиков
-4 за неделю
←   Все выпуски   →

Excel - вопросы и ответы


Новая Израильская Сетевая Компания Elite Club выходит на рынок России, Украины и стран СНГ

"Приглашаем региональных представителей!" 

www.eliteclub.h10.ru ______________________________________________________________________________________________________________

Добрый день!

ИЗ ВАШИХ ПИСЕМ

Ответы

1. Вариант решения задачи о "Мне надо запускать из одного каталога 30 файлов, в каждом из них запускать несколько макросов, сохранять и все."

Если я правильно понял вопрос, вот вариант решения: 

Public Sub OpenAndRun()
'макрос откроет каждый Excel файл в выбранной папке, запустит макросы, имена которых
'оформлены списком в именнованной области этой книги и в именованных областях каждой
'открываемой книги,
'сохранит и закроет открытые книги.
'Имена макросов, которые должны запуститься, должны находиться:
'- общие для всех файлов - на последнем листе этой книги в списке CommonMacrosList (может отсутствовать)
'- специфические - на последнем листе открываемой книги в списке MacrosList (может отсутствовать)
'
'разработка: Агафонов Евгений Ефимович, РОЕХ "Московская Церковь Христа"
'e-mail: genyaa@nm.ru
'
'диалог выбора папки, файлы которой должны быть обработаны
Set fl = Application.FileDialog(msoFileDialogFolderPicker)
With fl
If .Show = 0 Then Exit Sub
dr = .InitialFileName
End With

Set fs = Application.FileSearch
With fs
'искать в выбранной папке
.LookIn = dr
'фильтр по типу файлов
.Filename = "*.xls"
'выполнить поиск файлов по заданным условиям
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Найдено " & .FoundFiles.Count & _
" файл(ов) в папке " & dr
'цикл по всем найденным файлам
For i = 1 To .FoundFiles.Count
Set cf = Workbooks.Open(Filename:=.FoundFiles(i)) 'откроем очередной файл
On Error Resume Next
Err.Clear
'цикл по всем именам в списке CommonMacrosList (список обрабатывается до первой ошибки или до конца)
For Each cc In ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Range("CommonMacrosList").Cells
If Err.Number <> 0 Then Exit For
'вызов очередного макроса на выполение
Run cc.Value
Next cc
Err.Clear
'цикл по всем именам в списке MacrosList (список обрабатывается до первой ошибки или до конца)
For Each cc In cf.Sheets(cf.Sheets.Count).Range("MacrosList").Cells
If Err.Number <> 0 Then Exit For
'вызов очередного макроса на выполение
Run cc.Value
Next cc
On Error GoTo 0
'сохраним и закроем обработанный файл
cf.Save
cf.Close
Next i
Else
MsgBox "В выбранной папке нет файлов для обработки."
End If
End With
End Sub

'макросы для примера
Sub aaa()
MsgBox "Отработка макроса aaa"
End Sub
Sub ddd()
MsgBox "Отработка макроса ddd"
End Sub
Sub sss()
MsgBox "Отработка макроса sss"
End Sub
'чтобы запустить макрос из друго проекта нужно имя макроса в списке указать следующим образом:
' FILE.XLS!mmm
'где FILE.XLS - имя книги, содержащей нужный макрос (книга должна быть открыта до начала обработки),
'знак "!" (восклицательный знак) - обязателен,
'mmm - имя макроса, который должен быть запущен.

Genya A. <genyaa@nm.ru>

______________________________________________________________________________________________________________

Вопросы

1. Добрый день.
А можно не вопрос а как бы небольшое дело. Ниже то что я писал на форумах, но никто не помог. Если вам не сложно может вы поможете. Можно и за отдельную плату :)

ЦИТАТА==============================================

Приветствую всех.
Сейчас все подробно распишу.
в общем у меня есть сайт bankhyip.com
на сайте каждая табличка это каждый сайт ... эти все сайты инвестиции денег под % ... мой сайт выступает в роли каталога этих инвестиционных сайтов и тут наглядно показывается какой сайт сколько дней живет, сколько выплатил назад % ... 
ставится статус каждому сайту ПЛАТИТ, ОЖИДАНИЕ, ПРОБЛЕМЫ или НЕ ПЛАТИТ ... т.е. для юзера важно знать куда можно вложить деньги под % чтоб не кинули.
Я сейчас веду учет в Екселе по программам которые у меня на сайте. В общем бух. учет типа, но моя система думаю не очень удобная. Вот надо сделать поудобнее. Образер файла для скачивания ниже, это то что у меня сейчас. 

_http://bankhyip.com/excel.rar

Так вот ... например таблички идут в экселе, 

САЙТ ...на какой сайт заходить снимать деньги, пароль - пароль , время... во сколько или позже зайти на сайт чтоб снять деньги, вывод - ручной или автомат на кошелек вроде понятно, дальше...........
в какой план вложены деньги, сколько вложено, дата когда платил, и цвета....

КРАСНАЯ - когда зайти на сайт снять деньгу

ФИОЛЕТОВОЕ - висячий запрос на вывод(висячий платеж, т.е. нажал на вывод, но деньги на кошелек позже придут когда админ того сайта мне пришлет ... если 2 фиолетовых, уже можно программе ставить оранжевый маркер и ставить на сайте что не ПЛАТИТ)

ОРАНЖЕВОЕ - прога не платит, на сайте соответственно ставиться нужный СТАТУС). Если уже прошла неделя в таком статусе можно прогу удалять.
Программы тоже распределены по категориям на листах, АВТО - это сайты от которых деньги на кошелек капают автоматом и на сайт в принципе заходить больше не надо, ДЕНЬ это надо заходить на сайты каждый или почти каждый день чтобы вывести деньги. НЕДЕЛЯ где раз в неделю можно. 


Может кто придумать схему проще, удобнее, с возможностью сортировки по ближайшей дате и времени когда нужно зайти на сайт забрать денежку и по висячим платежам? По всем вопросам обращаться на admin@bankhyip.com или на асю 808787

________________________________________________________________________________________________________________

2. 1. Как сделать кнопку, чтобы копировала данную строку в новый
Worksheet?
2. Как сделать кнопку, которая бы отправляла данный Worksheet по
электронной почте (т.е. создавала письмо с аттачем на заданный адрес)?
- 
с уважением, 
Alexander Polenov alex_polenov@mail.ru

________________________________________________________________________________________________________________

Предлагаю всем вместе поискать ответ на эти вопросы. Может быть вариантов решения проблемы будет несколько, тогда тем интереснее. Жду ваших писем с ответами на ddvdz@inbox.ru

ВОПРОС

Что такое сводные таблицы и как с ними работать?

ОТВЕТ

Ответ на этот вопрос несколько больше по размеру, чем позволяет рассылка, поэтому Вы можете отдельно скачать файл по адресу: www.eliteclub.h10.ru.Svodtabl.zip Файл в формате Word размером около 300 кб.

Ну, пока все. Жду новых вопросов и сообщений!

И еще. Поскольку у нас появилось много новых подписчиков, думаю будет небесполезным разместить здесь ссылку на самоучитель по Excel, с которого, собственно, все и началось - www.excel.sbn.bz


С уважением,
Александр РАСЕВ
_____________________________________________________________________________________________________
В избранное