Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
нужно помощь с файлом, макрос(ы)
 
подробнее напишу в личку
помогите разобратся с макросом, разбор по строкам
 
есть макрос в примерах , по оглавлению книги эксель
может кто то построчно объяснить что тут за что отвечает , что бы я мог его подкорректировать под себя

Код
Sub SheetList()
   Dim sheet As Worksheet
   Dim cell As Range
   With ActiveWorkbook
      For Each sheet In ActiveWorkbook.Worksheets
         Set cell = Worksheets(1).Cells(sheet.Index, 1)
         .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!s30"
         cell.Formula = sheet.Name
         cell.Offset(, 1) = sheet.Range("B1")
      Next
   End With
End Sub


благодарен за ответы
[ Закрыто] и снова оглавление, оглавление не по имени листа а по значением ячеек на листе
 
Доброго времени суток уважаемие форумчане
нужна Ваша помощь  
есть книга (350 листов)
по примеру аз этого сайта "Оглавление книги Excel" и макроса в этом примере сделал оглавление для своей книги, но мне надо там кое что доработать/добавить , буду рад Вашей помощи уважаемые форумчане

1) оглавление в примере начинается с первой строки и столбца , а как исправить макрос что бы начиналось скажем с В3 (другие ячейки заняты другой информацией)
2) оглавление в примере берется с имени листа , а можно чтобы с каждого листа брало скажем с В1(ФИО)
3) макрос выполняется один раз , а как сделать/настроить что бы гиперссылки/данные обновлялись при каждом изменении информации

может кто то скажет а не многого ли я хочу , но задача такова ))) и в данном форуме мне помогали не раз
P.S.  офис у меня 2010г
Изменено: max-aziat - 23.11.2023 20:41:47
счётесли внутри счётесли
 
не знаю как это ещё назвать ...
в примере думаю будет понятно без слов
заранее извиняюсь , если не прав

в первом листе идут данные
во втором нужно сделать как бы свод данных
Изменено: max-aziat - 28.12.2018 19:41:36
разом защитить листи, защита листов
 
как можно разом защитить листы(100 листов) паролем в книге ?
гиперссылки на 100 листов автоматом, гиперссылки
 
доброго времени суток Уважаемые форумчане
есть книга с 101 листами (один главный лист и 100 с данными )
в главном листе соберется короткая информация с 100 листов
в столбцах F, H, I, K, L, M, N гиперссылки из листов с данными
как можно быстро "указать" гиперссылки с листов

**p.s. для уменщения размера оставил только один лист с данными
Создать 1000 копий листов
 
доброго времени суток уважаемые форумчане
как быстро создать 1000 копию(клон) одного листа ?
[ Закрыто] помогите с макросом макросом, резервное копирование
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim x1 As String
   Dim x2 As String
   'на локальный диск
   strPath1 = "d:\Rezerv\"
   
   'на флешку
   'strPath2 = "J:\Rezerv\"
   
   On Error Resume Next
   x1 = GetAttr(strPath1) And 0
   'x2 = GetAttr(strPath2) And 0
   If Err = 0 Then ' если путь существует - сохраняем копию книги
       strDate = Format(Now, "dd/mm/yy hh-mm")
       FileNameXls1 = strPath1 & "\" & Left(ActiveWorkbook.Name, _
            Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
       'FileNameXls2 = strPath2 & "\" & Left(ActiveWorkbook.Name, _
       '     Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
       ActiveWorkbook.SaveCopyAs Filename:=FileNameXls1
       'ActiveWorkbook.SaveCopyAs Filename:=FileNameXls2
   Else 'если путь не существует - выводим сообщение
       MsgBox "Папка " & strPath1 & " недоступна или не существует! ПРОВЕРЬТЕ ", vbCritical
       'MsgBox "Папка " & strPath2 & " недоступна или не существует! ПРОВЕРЬТЕ ", vbCritical
   End If
End Sub

не копирует/резевирует , хотя папка с таким именем в диске создан предварительно
проверка данных на всю книгу, быстрая наладка проверки данных
 
доброго времени суток уважаемые форумчане

есть книга более 100 листов, каждая из 1000 строк, и по шаблону нужно во всех листах поставить/настроить проверку данных идентично первому листу книги
можно как то это "клонировать" с первого листа?

заранее благодарен за помощь  
Не отображать 00/01/1900, если даты нет
 
доброго времени суток уважаемые форумчане
помогите решить задачу

в "главном листе" книги в одном столбце (из листов  книги ) выводятся значения (дата) , если значение на листе пустое то в "главном листе "  отображается 00/01/1900 -это если формат дата ну а если изменить формат на общее то соответственно дата не корректно отображается (типа 43205)

мысль : если проверить значение ячейки и оно больше нуля то изменить формат ячейки на дату  
но как это реализовать ? прошу помощи у Вас уважаемые формунчане  
Последняя дата прохода работника
 
Доброго времени суток уважаемые форумчане

есть список людей (лист 2) и когда они проходили
в листе 1 нужно на против этого человека вывести последнюю запись (дату)

заранее благодарен за помощь  
Сцепить дату и текст
 
что  я делаю не так ?

=Сцепить(текст1;текст2;текст3)
текст 1 - это дата
текст 2 - это дата
текст 3 - это текст

получается : "код даты"  "код даты" "текст"
Помогите отсортировать данные (текст/даты)
 
Доброго времени суток уважаемые форумчане
помогите отсортировать данные
файл прилагается
попробовал  отсортировать простым инструментом сортировка , но не получается,  некоторые данные которые должны быть на верху(по логике) оказываются по  середине

P.S. я понимаю что эксель сортирует по первый двум символам, но мне нужно что бы с начала отсортировал январь, потом февраль и так далее

спасибо за помощь
нумерация вместо подписи данных, диаграммы
 
Есть диаграмма - кольцевая
Вместо подписи данных нужно прописать нумерацию по возростанию, кроме закрашенных
В первом ряду 58, во втором 80, в 3-87 и в 4-100
Изменить рисонук, но размер оставить, автоматически подогнать размер
 
Доброго времени суток уважаемые форумчане
Подскажите пожалуйста, как сделать так, что бы в ячейке(объединённых ячейках) вставить фото и при изменении фото размер оставался.
Например: размер "рамки" 5 см * 5 см и туда перетаскиваем с какой то папки или с рабочего стола фото размер которого 10 см * 15 см и оно автоматически подгоняло наше фото в рамку 5*5
заранее благодарен
только четные числа
 
есть список в 2 столбца (столбец А порядковый номер, стоблец В текст) . как сделать так что бы все четные "скопировались" в отдельную таблицу а не четные отдельную  ?
заранее благодарен
Изменения в Word передать в Excel
 
может такой вопрос задавался уже, но по поиску я не нашел ...
есть документ ворд в ней таблица и аналогичная таблица в эксель , как сделать так что бы когда я изменяю/ввожу данные в документ ворд изменения/новые записи вводились/изменялись в эксель ?
Автоматически поменять раскладку клавиатуры
 
доброго времени суток
есть такая задача : а одной ячейке вводится данные на английском а в др на русском , как сделать так что бы при выборе данной ячейки расклад клавиатуры автоматом поменялся на  EN ?
спасибо за помощь
"умный" раскрывающийся список, или раскрывающийся список с условием
 
доброго времени суток уважаемые форумчане
задача такова :
есть 5 листов со списком(категория товаров) и один лист бланк, если в первом поле(раскрывающийся список) мы выбираем категорию то в низу в других полях(раскрывающийся список) можно было выбрать из той категории, которое было выбрано.
приоритет стандартными средствами/функциями , ну а если это нельзя - то  макрос
спасибо всем за ранее  
Диапазон: поиск и суммирование
 
есть таблица в ней номер машины и количество груза, которое оно перевозило, номера повторяются и нужно найти  каждой машине сколько оно перевозило груза
если не ясно выразился заранее примите мои извинения усталость после работы сказывается , но думаю пример будет говорит за меня )))
извиняюсь забыл добавить мне нудно не макросом а формулой
Изменено: max-aziat - 06.01.2016 21:52:29
Непонятная группировка на листе
 
как оно сделано , а именно как сделана вкладка "прайс" данной книги(иерархический список)? в "ПРАВИЛА ПОЛЬЗОВАНИЯ" написано как пользоваться а вот как это создать
пример
Макрос на всю книгу, кроме одного листа
 
как сделать так, что бы макрос работал на всю книгу кроме одного листа (скажем в книге 10 листов, а макрос работал на 9 из них или 8  )
Изменено: max-aziat - 06.02.2015 20:18:56
дата в примечаниях, Application-defined or object-defined error 1004
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell
                Application.EnableEvents = False
               .AddComment
               .Comment.Text Text:=Date
               Application.EnableEvents = True
            End With
       End If
    Next cell
End Sub 
где тут ошибка ? голову сломал уже, выдает - run-time error '1004' application-defined or object-defined error
Изменено: max-aziat - 29.01.2015 21:34:55
В диапазон ячеек вести вчерашнюю дату
 
доброго времени суток уважаемые форумчане
у меня к вам такой вопрос :
можно ли , как то организовать в эксель такую примочку , скажем при нажатии сочетания клавиш в ячейки из заданного диапазона вводилась вчерашняя дата, типа  =СЕГОДНЯ()-1 ?

заранее СПАСИБО всем
Изменено: max-aziat - 05.05.2014 23:59:45
запрет изменения вчерашних данных
 
извиняюсь если этот вопрос задавался .... в поиске я не нашел

можно ли как то в эксель сделать так, что бы на завтра тот файл который я создал/изменил сегодня не обновлялся(не обновлял данные ячеек которые берутся из др книг)
сравнение и вывод значний
 
доброго времени суток
очень нужна помощь форумчан
есть книга и там несколько листов(группа товара) и один Лист "спк" весь список(не разделен по группам)
в "спк" - имеется поля: "Товар", "Ед. изм.", "Цена закупа", "Кол расход", "Сумма по закупочной"
в листах с группами товара имеются поля : "наименование товара", "ед.изм", "штрихкод", "количество", "цена", "на сумму"      ***см.пример

задача: если в листе с группой товара поле "количество" значение не нулевое (не пустое значение) то найти это наименование товара из листа "спк" в столбике "товар" и присвоить значение "цена закупа" в поле "цена" того же листа (листа с группой товара).

я так понял здесь без макроса не обойтись(может я ошибаюсь), а писать макросы у меня нет опыта , надеюсь на вашу помощь.
-=заранее благодарен ВСЕМ=-
связать сканер шктрих кодов и эксель, или может меня не так информировали ?
 
в МС ЭКСЕЛЬ есть возможность считивать штрих коды (при наличии сканера штрих кодов) той или иной модели ?
у кого есть информация на этот счет ?
изменить цвет ячейки с отрицательным значением
 
как сделать так что бы , когда пользователь вводит отрицательное число , цвет ячейки изменился
Страницы: 1
Наверх