Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Marshal
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Копирование из ListBox на лист со смещением
 
#
05.02.2019 09:43:00
Доброго времени суток.
Прошу помощи.
По двойному клику в ListBox, необходимо скопировать выбранные данные из ListBox в три ячейки на листе.
Прикрутил (не смейтесь может коряво), но как сделать что бы при выборе следующего значения в ListBox данные переносились на лист со смещением на одну строку вниз.В идеале, нужно заполнить с D18 по D27, ну и совсем шик если при попытке добавить больше строчек выскочит сообщение.

Спасибо

Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Range("D18") = ListBox1.List(ListBox1.ListIndex, 2)
Range("H18") = ListBox1.List(ListBox1.ListIndex, 3)
Range("Z18") = ListBox1.List(ListBox1.ListIndex, 8)
 
    

End Sub
 
Перейти    
Звук при совпадении значения в ячейках
 
#
24.04.2017 18:14:43
Здравствуйте.
Помогите реализовать или подскажите куда двигаться.
При совпадении значений в диапазоне B3:B100 на листе итог с ячейкой А1, проигрывать один звук. при не совпадении другой
Спасибо
 
Перейти    
Защита ячеек от изменения на VBA
 
#
18.10.2016 02:18:33
Доброго времени.
Для защиты ячеек использую код ниже.

Но данная защита снимается нажатием правой кнопкой на листе "Снять защиту листа".
Что можно сделать дабы исключить такую возможность вообще или снятие через пароль, но на VBA.

Всем спасибо

Код
Private Sub Workbook_Open()
   Cells.Locked = False '
    Range("F5:AH5").Locked = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Перейти    
Фильтр по значению в ячейке (VBA)
 
#
16.07.2016 00:19:43
Доброго времени.
Уважаемые специалисты.
Подскажите как будет выглядеть код для работы фильтра  (вложение)
На листе 2 в ячейке G5 должен включаться фильтр и осуществлять отбор по значению в ячейке В3 на лите1
Спасибо
 
Перейти    
Оптимизация кода VBA (перенос данных с одного листа на другой с заданным шагом (через определённое количество строк)
 
#
05.05.2016 09:27:12
Здравствуйте.
Код сделан макрорекордером.
Перенос данных с листа 1 на лист 2 в определённые ячейки и с определённым шагом.
Пример выложен на 2 страницы (печатные)
Страниц может быть и 100, и моё детище получается громоздки.
Уважаемые специалисты как можно упростить код.

Код
'Страница 1
Worksheets("1").Range("A1:A60").Copy
Worksheets("2").Range("D4").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("B1:B60").Copy
Worksheets("2").Range("C4").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("C1:C60").Copy
Worksheets("2").Range("G4").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("D1:D60").Copy
Worksheets("2").Range("L4").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("E1:E60").Copy
Worksheets("2").Range("J4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("1").Select 'удаляем 60 строк
    Rows("1:60").Select
    Selection.Delete Shift:=xlUp
Do While Range("B1").Offset(LineCt, 0) = UCase(LineOfText)

Call SHel
Exit Sub
Loop

'Страница 2
Worksheets("1").Range("A1:A60").Copy
Worksheets("2").Range("D75").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("B1:B60").Copy
Worksheets("2").Range("C75").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("C1:C60").Copy
Worksheets("2").Range("G75").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("D1:D60").Copy
Worksheets("2").Range("L75").PasteSpecial Paste:=xlPasteValues
Worksheets("1").Range("E1:E60").Copy
Worksheets("2").Range("J75").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("1").Select 'удаляем 60 строк
    Rows("1:60").Select
    Selection.Delete Shift:=xlUp
Do While Range("B1").Offset(LineCt, 0) = UCase(LineOfText)
Call SHel
Exit Sub
Loop

Call Выход
 
Перейти    
Создание меню на ленте
 
#
30.01.2016 13:02:43
Доброго времени.
На просторах данного форума взял код, который создаёт меню. (не помню кто создал)
в 2007 Excel всё работало отлично.
Собственно и в 2010 тоже, единственное появилось неудобство.
Кнопка "Моё меню" создаётся во вкладке "надстройка", что неудобно.
В 2007 она появлялась прям там где "Файл/Главная/....и.т.д"
Помогите пожалуйста, если можно, вернуть кнопку
Всем спасибо
Код
Sub CreateMenu()
 Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    Dim Submenuitem As CommandBarButton
'   Удаление меню, если таковое существует
    Call DeleteMenu
'   Поиск меню Справка
    Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
    If HelpMenu Is Nothing Then
'       Добавление меню в конец строки меню
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           temporary:=True)
    Else
'      Добавление меню перед меню Help
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           Before:=HelpMenu.Index, _
           temporary:=True)
    End If
'   Добавление подписи
    NewMenu.Caption = "&Моё меню"
'   Первый элемент меню
    Set MenuItem = NewMenu.Controls.Add _
      (Type:=msoControlButton)
    With MenuItem
        .Caption = "&Поиск данных"
        .FaceId = 173
        .OnAction = "Poisk"
    End With
End Sub
 
Перейти    
Сохранение только данных (без формул и т.д.)
 
#
27.09.2014 01:43:18
Здравствуйте уважаемые форумчане.
Мне тут на форуме помогли написать код сохранения книги, я его немного сам допилил под себя, на сколько хватило ума (не судите строго).
Вложение (модуль 4).Тут недавно видел код который сохраняет без формул, очень понравился (Модуль 1), это по сути то что я пытался сделать у себя, но намного меньше.  
Помогите склеить из двух один. Ну или как то упростить мой код.
Спасибо.
 
Перейти    
Задать поля страницы на VBA
 
#
08.08.2014 13:16:32
Всем доброго дня.
Необходимо задать поля страницы (лист1), верх 1/низ 0,5/левое 1/ правое 0,5
Пробовал записать макрорекордером, работает, но код жутко огромный.
Есть способы проще?
Поделитесь опытом
Спасибо
 
Перейти    
Сохранить под именем с ячейки и датой
 
#
07.08.2014 05:51:55
Доброго всем дня.
Помогите дописать.
Сохраняется файл с именем в ячейке О3, как приделать что бы ещё и дата вставлялась?

Например: Работа.28.08.14.xlsm
iSaveTime$ = Format(ActiveWorkbook.ActiveSheet.[O3] & ".xlsm" ;)
Спасибо за помощь
 
Перейти    
Фильтр по значению в ячейке
 
#
01.07.2014 14:49:47
Здравствуйте.
Прошу помощи у специалистов.
В данный момент пользуюсь вот этим кодом (часть)
Код
.AutoFilter Field:=1, Criteria1:="<>" & Range("G3".Value
Но возникла необходимость фильтровать не по точному совпадению, а по принципу "содержит"
На подобии
Код
.AutoFilter Field:=8, Criteria1:="=*Яблоко*" _
     , Operator:=xlAnd
Помогите доработать код
 
Перейти    
Автофильтр по значению из другой ячейки.
 
#
29.12.2013 11:28:55
Здравствуйте.
Подскажите пожалуйста как реализовать на VBA следующее:
Если значение на Лист1 в ячейке А2=Яблоко, тогда на листе 2 по столбцу D необходимо выбрать автофильтром все значения кроме "Яблоко".
Спасибо всем.
 
Перейти    
Организовать автофильтр по значению в ячейке с вопросительным знаком
 
#
26.12.2013 08:45:34
Всем здравствуйте.
Можно ли организовать автофильтр по значению в ячейке с вопросительным знаком?
В диапазоне присутствуют ячейки в которых есть вопросительный знак, может не один.

Можно ли как нибудь отфильтровать по такому же принципу
ActiveSheet.Range("$A$9:$W$1862"  ;)  .AutoFilter Field:=23, Criteria1:= _
 "=яблоки", Operator:=xlAnd

Всем спасибо, и с наступающим!
 
Перейти    
Проверить дату на четность
 
#
24.08.2013 14:41:05
Доброго времени суток.
Подскажите как можно реализовать на VBA, проверку даты.
При открытии книги необходимо проверить системную дату, и если она чётная (имеется ввиду день) вывести сообщение "чётная".
Спасибо.
 
Перейти    
Нумерация страниц
 
#
15.06.2013 07:16:08
Здравствуйте знатоки.
Подскажите как можно реализовать следующее.
Нужно пронумеровать страницы не с номера 1, а скажем с 20.
т.е, 1 лист будет 20 второй 21 и.т.д
В колонтитулах не нашёл как изменить....или не понял
Всем спасибо
 
Перейти    
Отслеживание открытия файла
 
#
11.05.2013 15:49:19
Здравствуйте.
Пользуюсь взятым у Вас на форуме кодом, для отслеживания открытия файла с именем День.
Помогите пожалуйста его изменить, что бы отслеживались файлы с таким именем
День1, День30, но в любом случае имя будет начинатся со слова День.
Спасибо
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Select Case Wb.Name
Case "День.xls", "День.xlsm", "День.xlsx"
Call t
End Select
End Sub
 
Перейти    
Сохранение книги
 
#
18.04.2013 06:31:47
Здравствуйте.
Прошу помоч изменить (lдоработаь код).
Ниже приведён код которым пользуюсь (взял с Вашего форума).
При его выполнении книга сохраняется под именем указанным в ячейке, а оригинал закрывается без сохранения.
Нужно что бы копия сохранялась под именем указанной в ячейке, и при этом оригинал не закрывался.
Сохранить книгу с изменениями, и работать дальше с не изменённым оригиналом.
Можно ли такое сделать?
Спасибо.
 
Перейти    
Найти фаилы и удалить формулы
 
#
09.04.2013 10:20:30
Здравствуйте.
Помогите реализовать на VBA следующее:
Необходимо найти на диске C и D  все книги с именем HOT.xlsm, и удалить в них все формулы.
Возможно ли такое?
Спасибо за отклики.
 
Перейти    
Вопрос по скрытию VBAProject
 
#
11.02.2013 10:57:48
Здравствуйте.
Подскажите пожалуйста, есть ли способ скрыть VBAProject, в окне редактора.
Так что бы его не было видно.
Спасибо
 
Перейти    
Проверка значения в автофильтре VBA
 
#
02.02.2013 03:36:32
Здравствуйте знатоки.
Прошу Вашей помощи.
Как можно сделать следующее:
Код
Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$5".AutoFilter Field:=3, Criteria1:="=*персик*" _
        , Operator:=xlAnd
Дальше необходимо:
проверить если "персик" в списке присутствует, выполняем модуль дальше.

Если отсутствует переходим
Call Sok

Спасибо.
 
Перейти    
Поиск по букве, доработка VBA
 
#
06.01.2013 07:06:01
Здравствуйте.
На форуме нашёл код выполняющий поиск по первым буквам.
Работае хорошо, но если возможно, помогите его изменить.
При выделении значения в List Box1, выделяется ячейка в столбце остаток, что даёт возможность поставить количество, но если выбрать другое значение в List Box1, ячейка так же выделиться, но уже нельзя ввести значение, пока ячейку не выделишь мышкой.Необходимо сделать так, что бы после выбора значения в List Box1, выделялась ячейка для ввода данных, а после ввода и нажатия Enter, данную операцию можно было проделать с другим наименованием.
Спасибо!
 
Перейти    
Помогите написать код на VBA, проверяющий сумму пар ячеек
 
#
31.12.2012 10:19:31
Здравствуйте.
Всех с наступающим!
Напишите пожалуйста код, который будет:
1. Проверять сумму каждых двух ячеек, и при <>0, выдавать ошибку.
2.Проверять всегда ли в паре первое число положительное.
Диапазон в столбце постоянно меняется, но всегда чётное количество ячеек.
Всем спасибо
 
Перейти    
Помогите доработать код
 
#
27.12.2012 10:48:20
Здравствуйте.
Помогите пожалуйста дописать (изменить) код.
Range("U3" ;) .Select
ActiveCell.FormulaR1C1 = "=RC[-20]"
Range("U3:U4" ;) .Select
Selection.AutoFill Destination:=Range("U3:U1000" ;)

Последняя ячейка в которую необходимо прописать формулу неизвестна, она может быть и 20, 10, 32
Может быть по проверке на пустое значение?
В столбце B, у меня есть значения и соответственно формула в столбце U должна быть прописана пока не закончатся значения в В.
Условие, шаг должен быть +1, через одну ячейку начиная с U3
Извините, возможно изъяснил коряво.
Спасибо
 
Перейти    
Страницы: 1
Loading...