Отображение числа и дня недели в виртуальном календаре.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир 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

Ответить

китин

Дата: Вторник, 15.05.2018, 15:06 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

KrosTj

Дата: Вторник, 15.05.2018, 15:42 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 74

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

Ответить

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

Ответить

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)

Ответить

Страница 1 из 1
1