Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отображение числа и дня недели в виртуальном календаре. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение числа и дня недели в виртуальном календаре. (Формулы/Formulas)
Отображение числа и дня недели в виртуальном календаре.
KrosTj Дата: Вторник, 15.05.2018, 14:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Подскажите пожалуйста с одним вопросом. Есть документ эксел (прикреплён), в котором создан своего рода календарь, однако он является просто "картинкой" и ексел не понимает где месяцы, какие дни и тд. 1) Хотелось бы чтобы в каждой клетке месяца отображался номер дня, при том чтобы в неё можно было вводить свои значения (я ввожу туда числа, которые суммирует синяя клетка) для того, чтобы мне не высчитывать какой сегодня (или нужный мне) день начиная с 1 дня и считая в уме перемещаясь курсором по каждой клетке. 2) Можно ли сделать так, чтобы при наведении табличного курсора на клетку одного из дней недели месяца этот самый день недели в закреплённой области как-то подсвечивался, чтобы было сразу понятно куда я встал. Ну или найти какое-нибудь решение чтобы при вставании на клетку было сразу понятно какое число и день недели. Заранее благодарю.
К сообщению приложен файл: 9259347.xlsx(19.4 Kb)


Сообщение отредактировал KrosTj - Вторник, 15.05.2018, 16:16
 
Ответить
СообщениеДобрый день! Подскажите пожалуйста с одним вопросом. Есть документ эксел (прикреплён), в котором создан своего рода календарь, однако он является просто "картинкой" и ексел не понимает где месяцы, какие дни и тд. 1) Хотелось бы чтобы в каждой клетке месяца отображался номер дня, при том чтобы в неё можно было вводить свои значения (я ввожу туда числа, которые суммирует синяя клетка) для того, чтобы мне не высчитывать какой сегодня (или нужный мне) день начиная с 1 дня и считая в уме перемещаясь курсором по каждой клетке. 2) Можно ли сделать так, чтобы при наведении табличного курсора на клетку одного из дней недели месяца этот самый день недели в закреплённой области как-то подсвечивался, чтобы было сразу понятно куда я встал. Ну или найти какое-нибудь решение чтобы при вставании на клетку было сразу понятно какое число и день недели. Заранее благодарю.

Автор - KrosTj
Дата добавления - 15.05.2018 в 14:49
китин Дата: Вторник, 15.05.2018, 15:06 | Сообщение № 2
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5071
Репутация: 807 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
название темы ни а чём. а вообще то в поиске куча всяких календарей


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеназвание темы ни а чём. а вообще то в поиске куча всяких календарей

Автор - китин
Дата добавления - 15.05.2018 в 15:06
KrosTj Дата: Вторник, 15.05.2018, 15:42 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Мне не нужен сам календарь, мне нужно 2 вещи: наглядное отображение числа с каждой клетке, соответствующее реальной дате месяца, так чтобы в них можно было вводить значения. 2) Подстветка Дня недели при наведении табличного курсора на любую клетку месяца.
 
Ответить
СообщениеМне не нужен сам календарь, мне нужно 2 вещи: наглядное отображение числа с каждой клетке, соответствующее реальной дате месяца, так чтобы в них можно было вводить значения. 2) Подстветка Дня недели при наведении табличного курсора на любую клетку месяца.

Автор - KrosTj
Дата добавления - 15.05.2018 в 15:42
abtextime Дата: Вторник, 15.05.2018, 17:10 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Решение корявенькое, конечно, но какое уж есть. Через программную простановку примечаний макросом.

Макрос подвешен на Ctrl+q

[vba]
Код

Public Sub Comm()
    
    Dim i, j, Counter As Integer
    Dim D As Date
            
    D = DateSerial(2018, 1, 1)
       
    For j = 7 To 69
    For i = 4 To 10
    
    Worksheets(1).Cells(i, j).ClearComments
    If Counter = 0 Then
    With Worksheets(1).Cells(i, j).AddComment
     .Visible = False
     .Text CStr(D)
    End With
    End If
    
    If Day(D + 1) = 1 And Month(D + 1) > 1 And Counter < 7 Then
        Counter = Counter + 1
    Else
        D = D + 1
        Counter = 0
    End If
        
    Next i
    Next j
    
End Sub
[/vba]
К сообщению приложен файл: 9259347-1-.xlsm(47.4 Kb)


Сообщение отредактировал abtextime - Вторник, 15.05.2018, 17:11
 
Ответить
СообщениеРешение корявенькое, конечно, но какое уж есть. Через программную простановку примечаний макросом.

Макрос подвешен на Ctrl+q

[vba]
Код

Public Sub Comm()
    
    Dim i, j, Counter As Integer
    Dim D As Date
            
    D = DateSerial(2018, 1, 1)
       
    For j = 7 To 69
    For i = 4 To 10
    
    Worksheets(1).Cells(i, j).ClearComments
    If Counter = 0 Then
    With Worksheets(1).Cells(i, j).AddComment
     .Visible = False
     .Text CStr(D)
    End With
    End If
    
    If Day(D + 1) = 1 And Month(D + 1) > 1 And Counter < 7 Then
        Counter = Counter + 1
    Else
        D = D + 1
        Counter = 0
    End If
        
    Next i
    Next j
    
End Sub
[/vba]

Автор - abtextime
Дата добавления - 15.05.2018 в 17:10
abtextime Дата: Вторник, 15.05.2018, 17:34 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
С днями недели

[vba]
Код
Public Sub Comm()
    
    Dim i, j, Counter As Integer
    Dim D As Date
    Dim W()
    
    W = Array("Воскресенье", "Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота")
            
    D = DateSerial(2018, 1, 1)
       
    For j = 7 To 69
    For i = 4 To 10
        
    Cells(i, j).ClearComments
    If Counter = 0 Then
    With Cells(i, j).AddComment
     .Visible = False
     .Text CStr(D & "  " & W(Weekday(D) - 1))
    End With
    End If
    
    If Day(D + 1) = 1 And Month(D + 1) > 1 And Counter < 7 Then
        Counter = Counter + 1
    Else
        D = D + 1
        Counter = 0
    End If
        
    Next i
    Next j
    
End Sub
[/vba]
К сообщению приложен файл: 8010219.xlsm(61.4 Kb)
 
Ответить
СообщениеС днями недели

[vba]
Код
Public Sub Comm()
    
    Dim i, j, Counter As Integer
    Dim D As Date
    Dim W()
    
    W = Array("Воскресенье", "Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота")
            
    D = DateSerial(2018, 1, 1)
       
    For j = 7 To 69
    For i = 4 To 10
        
    Cells(i, j).ClearComments
    If Counter = 0 Then
    With Cells(i, j).AddComment
     .Visible = False
     .Text CStr(D & "  " & W(Weekday(D) - 1))
    End With
    End If
    
    If Day(D + 1) = 1 And Month(D + 1) > 1 And Counter < 7 Then
        Counter = Counter + 1
    Else
        D = D + 1
        Counter = 0
    End If
        
    Next i
    Next j
    
End Sub
[/vba]

Автор - abtextime
Дата добавления - 15.05.2018 в 17:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение числа и дня недели в виртуальном календаре. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!