|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.04.2015, 22:06 | #11 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Игорь - лишний явно п.3
А по задаче - мой код именно так и делает. Всего делов - открыть каждый день вот прямо первым делом прямо с утра этот график, а в нём на воркбоок.опен задать выполнение кода.
webmoney: E265281470651 Z422237915069 R418926282008
|
19.04.2015, 22:24 | #12 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Игорь, браво!!!
я не сомневался!))) Катя, вернемся к Вашей задаче. не можете исправить почти работающий код - потрудитесь скурпулезно описать задачу, у кого-то будет время и настроение - напишут Вам код под Вашу задачу а пока нет четкой задачи - не будет и решения, ну разве что, кого-то осенит и он угадает как все должно работать.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
19.04.2015, 22:27 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну насколько я помню из первой темы - там в строке поиск не находил сегодняшнюю дату. Что не удивительно - по картинке то...
webmoney: E265281470651 Z422237915069 R418926282008
|
19.04.2015, 22:39 | #14 |
Пользователь
Регистрация: 15.03.2014
Сообщений: 34
|
По данному примеру,который ниже,Вы можете подредактировать его исходя из моей задаче (которую я писала)?
Вот код который необходимо подредактировать: Sub tt() Const ROOT = "d:\" 'заменить на свой путь Dim c, strDate$ strDate = Format(Now, "dd.mm.yyyy" & "г.") Set c = [b2:af2].Find(Day(Now)) For Each c In Range(Cells(3, c.Column), Cells(Rows.Count, c.Column).End(xlUp)).Cells If c.Row > 2 Then If Val(c.Value) > 0 Then On Error Resume Next MkDir ROOT & strDate & "\" MkDir ROOT & strDate & "\" & Cells(c.Row, 1).Value & "\" End If End If Next End Sub Вот моя задача: Необходимо создать папки с именами сотрудников,исходя из графика xls (график прилагала).Т.е.на рабочем столе создать папку с именем даты,и в этой папке должны быть папки,с именами сотрудников (уже писала ранее)Как еще подробнее описать задачу..не знаю? Ниже должн быть уже исправленный листинг, исходя из моей задаче |
20.04.2015, 00:16 | #15 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
поместите этот
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 20.04.2015 в 00:19. |
20.04.2015, 09:45 | #16 |
Пользователь
Регистрация: 15.03.2014
Сообщений: 34
|
Код заработал))огромное спасибо!!!(напишите номер вашей карточки,хоть что то вам перечислю)
Но есть нюансы: 1.В графике на 20 апреля некто не отмечен,по сути он должен создать пустую папку с наименованием 20.04.2015.Но на деле он создал папку с именен 20.04.2015г. с папками:Есупова М.Н.,Иванов И.И.,Кузнецов А.М.-как это он там наобум взял имено эти фамилии..? 2.Если поменять у себя на компьютере дату,к примеру на завтра,на 21.04.2015г.он должен создать новую папку с именен 21.04.2015г.?В данном случае у меня это не прокатывает |
20.04.2015, 10:17 | #17 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
2. откуда мне знать как часто меняется дата на Вашем компьютере? и как это влияет на выполнение задачи? 3. откуда мне знать что там находиться в ячейках? (я вижу только картинку листа, но не знаю что там в ячейках, возможно там формула, которая ставит 1 или "", а я проверяю ячеку на условие Если ячейка не пуста под данным числом, то сделать папку с соотв. фамилией) ОТКУДА мне все это знать, когда задача не описана! сейчас все работает на таком алгоритме: 1. макрос срабатывает при каждом открытии файла 2. проверяет есть ли на рабочем столе папка с имнем СЕГОДНЯ в формате ДД.ММ.ГГГГг 3. если такая папка есть - дальше не происходит ничего (ибо значит, что сегодня файл уже открывался и все необходимое сделано см.п.4) 4. если папки нет 4.1. создается папка по формату п.2 4.2. во второй строке листа График находится День, соотв. сегодня 4.3. в колонке под днем проверяется содержимое ячеек. если ячейка не пуста - в папке "сегодня" создается папка с именем, содержащимся в 1-й ячейке проверяемой строки как-то так а что нужно Вам, знаете пока только Вы.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 20.04.2015 в 10:19. |
|
20.04.2015, 10:21 | #18 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Если заработал этот код - то вроде как нет причин не работать и тому давнему моему...
Ну разве что не винда... Или может на х64 не заработало? В остальном механизм ведь не менялся.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 20.04.2015 в 10:24. |
20.04.2015, 10:36 | #19 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
допустим, Д: это ДиВиДи-привод, и в нем нет болванки...
и все.. код не работает)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.04.2015, 10:46 | #20 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну так там ведь человеческим языком написано: 'заменить на свой путь
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cоздание папок VBA Excel | Екатерина Попкова | Microsoft Office Excel | 8 | 29.03.2015 19:35 |
Программа в Exсel с помощу VBA | mr.art | Фриланс | 0 | 27.03.2014 19:53 |
Копирование картинок и создание папок VBA | STYDENT13 | Microsoft Office Excel | 5 | 24.05.2012 01:05 |
создание папок | CodeNOT | PHP | 1 | 21.03.2011 09:41 |
Создание папок. | Alex Cones | Общие вопросы Delphi | 5 | 18.04.2009 15:32 |