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

Страницы: 1
Изменение всех Label на форме, написать вложенный цикл
 
#
04.12.2018 20:29:52
Доброго времени суток.

Ситуация следующая. На форме расположены 24 лейбла, по замыслу каждый соответствует временному промежутку в 1 час.

Необходимо сравнивать текущее системное время и подсвечивать соответствующий лейбл.
Написал функцию, в которой возвращаем системное время в часах, и сравниваем ее с названием лейбла. Нужна именно функция, потому что в конечном счете будет таблица из 552 лейблов.(23х24, где ряды это часы, а строки A-W как в Excel ) Поэтому два вложенных цикла, один проходит по всем лейблам, второй по каждому из 24. (например А0-А23)
Код
Private Sub HourReload()
CurrentHour = Hour(Now)
Dim lblHour As Integer
Dim lblname As Control

For Each lblname In ChartFrame 'название рамки объединяющей все лейблы
 If TypeOf lblname Is Label Then
        For i = 0 To 23
        If lblname Like "*i" Then lblHour = i
        Next i
 End If
Next lblname


If lblHour <> CurrentHour Then
   lbl.BackColor = &H80000004
Else
   lbl.BackColor = &HC0E0FF
End If
End Sub  
 
Перейти    
2 контекстных меню на одной странице
 
#
17.05.2015 21:50:21
Разбираю этот тутор: https://msdn.microsoft.com/ru-ru/library/office/gg987030(v=office.14).aspx
хочу сделать 2 типа контекстных меню для одной страницы, привязанные к именным областям и привязать все это на клик правой кнопки мыши. В чем ошибки?
Код
Sub CreateDisplayPopUpMenu()
    ' Delete the popup menu if it exist.
    Call DeletePopUpMenu

    ' Create the correct menu based on the active worksheet.
    Dim rng As Range, rng2 As Range
    Set rng = ActiveSheet.Range("Area")
    Set rng2 = ActiveSheet.Range("Area2")
    Select Case Range.Name
    Case "area": Call Custom_PopUpMenu_1
    Case "area2": Call Custom_PopUpMenu_2
    Case Else: MsgBox "Sorry no Popup Menu"
    End Select

    ' Show the popup menu.
    On Error Resume Next
    Application.CommandBars(Mname).ShowPopup
    On Error GoTo 0
End Sub
 
Перейти    
Подсветка синтаксиса
 
#
03.05.2015 19:41:12
Возможно есть какой-то add-in или сторонний редактор для VBA, где эта функция реализована. Например здесь на сайте отлично сделано, что есть нумерация строк  подсветка синтаксиса. так же не хватает функции сворачивания части кода.
Для удобства работы с кодом хотелось бы иметь такое в Excel. Это возможно?
 
Перейти    
Часовой таймлайн, условное форматирование.
 
#
01.05.2015 12:13:40
Хочу сделать рабочий график.
В таблице по горизонтали 24 часа. Условным форматированием выделяется столбец соответствующий текущему времени.
проблема в том, что не пойму, как ячейкам присвоить формат времени "hh" без привязки к датам.  
 
Перейти    
Вписать фигуру в выделенные ячейки
 
#
30.03.2015 00:03:09
Доброго времени суток.
Работаю над созданием рабочего графика.
Дано:
Некоторая область (B4:L26), внутри которой при выделении нескольких ячеек и нажатии на кнопку должна появляться фигура
RightTriangle вписанная в выделенные ячейки. Количество фигур неограниченно.
 
Перейти    
Формула значений < И > для нескольких значений.
 
#
07.12.2014 15:35:11
Доброго дня.
Имеется таблица со значением интервалов температуры. Каждый интервал соответствует  числу баллов. Баллы повторяются, например "3 балла" может соответствовать  как интервалу 39-40.9, так и 32-33.9
Пытаюсь создать формулу, чтобы по значению температуры в поле ввода показывались соответствующие баллы.
 
Перейти    
Расчет по таблице между разными датами.
 
#
23.11.2014 15:04:23
Добрый день.
1.вариант
Никак не могу составить формулу.
Есть таблица. В нее вносится время в формате dd.mm.yyyy hh:mm и скорость передвижения. Необходимо вычислить общее количество километров. При этом таблица может быть и не вся заполнена.
Понятно что необходимо для каждой ячейки находить разность дат и умножать на скорость, а потом суммировать результаты. Однако никак не могу разобраться с числовым отображением даты.
2.вариант
в таблице по мере заполнения ячеек в результирующей ячейке необходимо отображать значений последней заполненной.
 
Перейти    
Автозаполнение с заданным интервалом
 
#
11.09.2014 11:21:20
Делаю форму для составления рабочего графика.
подскажите как автоматизировать.
Смысл в следующем. Выбираем нужную строку из колонки с сотрудником и далее нажимаем одну из кнопок. При этом происходит расстановка символов в таблице по заданному интервалу 1/3 или 1/4 начиная с первого числа.
 
Перейти    
Проверка даты и времени перед печатью., логика And Or
 
#
04.09.2014 12:29:28
Хочу сделать, чтобы перед печатью происходила сверка текущей даты и времени с системным, и в случае несоответствия  на n- минут появлялось бы предупреждение. Написал код.
Код
[o18].Value = Format(TimeValue(Now), "hh:mm")
Dim time1 As Date, time2 As Date
time1 = [o18]
time2 = [e19]
[o19].Value = time1 - time2
If [e18] = Date And ([o19] < 0.020833333 Or [o19] = 0) Then
Worksheets("sheet1").PrintOut from:=1, To:=1
Else
WarningDateForm.Show
End If
[o19] - дата пользователя.
но он не работает. В чем ошибка?
нужно чтобы оповещение срабатывало при несоответствии или времени или даты, или обоих сразу.
Изменено: Doctorbol - 04.09.2014 12:46:20
 
Перейти    
Сравнение даты и времени
 
#
27.06.2014 13:41:33
Хочу сделать макрос, которые сравнивает дату и время в документе с текущей, и если дата или врем не соответствует, показывает форму с предупреждением перед печатью. Сделал таким образом:

Код
If [E19].Value <> Format(TimeValue(Now), "hh:mm") Then WarningTimeForm.Show
If [E18].Value <> Format(DateValue(Now), "dd.mm.yyyy") Then WarningDateForm.Show
Application.Dialogs(xlDialogPrint).Show
Не получается сделать, чтобы не срабатывал на правильную дату и время.
 
Перейти    
Время в текст.
 
#
22.06.2014 16:55:57
имеется время формата "hh:mm", которое получается из вычетания двух разных ячеек.
необходимо чтобы результат отображался не в формате "hh:mm", а текстом "столько-то минут"

Например:
17:30-17:00 = "30 минут".
 
Перейти    
Замена курсора при наведении на ячейку
 
#
25.05.2014 22:39:35
Доброго времени суток.
Возможно ли макросом менять курсор при наведении на определенную ячейку?
необходимо что бы стандартный экселевский курсор менялся на  "pointer", как при наведении на гипрессылку.  
 
Перейти    
Знаки препинания при выборе из листбокса
 
#
16.05.2014 13:20:15
имеется код:

Код
Private Sub lBoxList_Change()
Dim Str As String
Dim i As Long

    For i = 0 To Me.lBoxList.ListCount - 1
        If Me.lBoxList.Selected(i) Then
            Str = Str & ", " & Me.lBoxList.List(i)
        End If
    Next i
    
    Worksheets("Priemnik").Range("G50").Value = Str
End Sub
Сейчас в объединенном тесте строка начинается с запятой и заканчивается запятой. Как сделать, что бы начиналось без пробела и запятой, далее шло чередование через запятую а в конце ставилась точка?
 
Перейти    
[ Закрыто] Подскажите нужный макрос, настройки полей печати
 
#
01.05.2014 23:08:35
добрый вечер.
В окне предварительного просмотра на ленте есть чекбокс "показать поля"
он по умолчанию всегда отключен.
Возможно ли его макросом при загрузке книги включать?
 
Перейти    
Объединение нескольких строк фигурной скобкой., макросом
 
#
20.04.2014 10:46:07
добрый день.
прошу подсказать как это сделать.
необходимо чтобы справа от выделенных подряд нескольких строк отдельным макросом ставилась фигурная скобка из автофигур.
Это возможно?  
 
Перейти    
продублировать комбинацию горячих клавиш, кнопкой activeX
 
#
12.04.2014 15:50:37
Добрый день. Подскажите можно ли при помощи кнопки  продублировать стандартную комбинацию горячих клавиш в Excel.
Создаю заполняемую форму, в которой должно быть сведено к минимуму использование клавиатуры.
 
Перейти    
Ошибки гиперссылок на закрытом листе.
 
#
06.02.2014 13:49:45
Доброго времени суток.
имеется книга, защищенная макросом при открытии. (скинуть не могу, т.к. более 500 кб)
На листах книги имеются гиперссылки на разные участки документов.
Проблема в том, что при клике на защищенную область, происходит переход по какой-нибудь из гиперссылок. приходится сперва ставить курсор на незащищенную ячейку. Как это возможно исправить.
 
Перейти    
Генерация чисел внутри TB через слэш
 
#
02.02.2014 01:19:09
Подскажите пожалуйста код для следующей задачи:
внутри техтбокса по нажатии кнопки генерация случайных чисел вида "000/000".
 
Перейти    
как с помощью Characters сделать Font.Bold, в объединенном тексте
 
#
06.01.2014 22:55:22
В объединенном тексте вида:

Код
Cells(i, 4) & "  " & Cells(i, 5) & " " & Cells(i, 8) & _
                    " " & Cells(i, 10) & " " & Cells(i, 11) & " " & Cells(i, 12) & " " & Cells(i, 14)
ячейка cells (i,4) с текстом  должна быть жирным.
Как это сделать при помощи characters?
 
Перейти    
Код работает с кнопкой, но не работает при назначении макроса на автофигуру.
 
#
09.12.2013 22:37:04
Проблема в следующем.
макрос

Код
Private Sub CommandButton1_Click()
ComboBox1 = ""
TextBox1 = ""
End Sub
Работает с кнопкой, но не работает при назначении макроса на автофигуру.
 
Перейти    
Макрос с Intersect Method для range + combobox
 
#
07.12.2013 22:00:25
В прошлой теме Юрий М подсказал макрос для исключения

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E1")) Is Nothing Then
     Call MakeList
    End If
End Sub
что нужно дописать чтобы макрос работал, если  данные  в "E1" изменяются через combobox?
 
Перейти    
Включение и выключение диапазона в объединенный текст
 
#
24.11.2013 22:03:41
Не ругайтесь, но беглый просмотр поиска не помог.
Задача: есть колонка с именами, которые объединяются в общий текст. Необходимо кнопкой включать и выключать диапазон, при этом не скрывать его, а исключать из объединенного текста. Сам диапазон при этом, например, перекрашивать.
 
Перейти    
Поменять формат даты в DatePicker
 
#
19.11.2013 01:24:21
Здравствуйте.  Столкнулся с такой проблемой. Нашел подходящий datepicker, без надстроек, который можно прописать в код документа и открывать на любом компьютере. Но никак не могу поменять в нем формат даты на dd.mm.yyyy вместо m.d.yy.
исходник здесь http://www.vbaexpress.com/kb/getarticle.php?kb_id=543
Изменено: Doctorbol - 19.11.2013 03:35:55
 
Перейти    
Страницы: 1
Наверх