Как копировать обычный текст с ячейки или всю таблицу целиком в виде календаря (с формулами) копировался и вставлялся как примечание уже в виде значений, можно было его вставить как примечание Искал везде как это сделать, но не нашел. Спасибо
next777pro написал: Искал везде как это сделать, но не нашел.
Не удивительно. Вы что-то представили в голове, а изложить или сформулировать это не можете.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
next777pro, зайдите в свой профиль и поменяйте отображаемое имя (логин). И я тоже Ваше сообщение не смог переварить ) Попробуйте переформулировать, и прикрепите файл-пример, где покажите нужный результат.
Дело в том что можно скопировать, как в таблице в виде значений это будут даты этого месяца, но так как в первой таблице даты в оригинале идут 01.06.2017 и путем сокращений в формате выглядят как просто даты, мне подойдет любой из этих вариантов, или число или полностью вся дата, как получится
Goldenito написал: мне подойдет любой из этих вариантов
Но ведь у Вас все три варианта идентичны )) А вообще я задумку не понял. Получается, что Вам нужен "пустой" календарь, а даты именно в примечаниях. Так?
Юрий М написал: "пустой" календарь, а даты именно в примечаниях
точно, пустой календарь, но только с примечаниями, перенести значения с первой таблицы (даты) именно оттуда взять и вставить в виде примечаний на второй таблице. вот) может это поможет ? правда переделать пока не смог
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearComments
If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
With Target
.AddComment
.Comment.Text Text:=Target.Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
Ну тут можно схитрить: приравнять значения правого диапазона к значению левого и применить белый шрифт. Или создать примечания к ячейкам правого, взяв текст из левого диапазона. Конечно, преобразовав его в дату, отталкиваясь от названия месяца.
белый шрифт не пойдет, так как там в пустой я использую другие формулы по подсчету, вообщем значения там не должны быть только примечания для определения дат
Sub AddComents()
Dim rCell As Range, iMonth As Long, Txt As String
iMonth = Month(Date)
For Each rCell In Range("B6:H11")
Txt = rCell.Text & "." & iMonth & "." & Year(Date)
With rCell.Offset(0, 8)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text Text:=Txt
End With
Next
End Sub
Sub AddComents()
Dim rCell As Range, iMonth As Long, Txt As String
iMonth = Month(Date)
For Each rCell In Range("B6:H11")
Txt = rCell.Text
With rCell.Offset(0,
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text Text:=Txt
End With
Next
End Sub
Sub AddComents()
Dim rCell As Range, iMonth As Long, Txt As String
iMonth = Month(Date)
For Each rCell In Range("B6:H11")
Txt = rCell.Text
With rCell.Offset(0,
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text Text:=Txt
.Comment.Shape.Width = 20
.Comment.Shape.Height = 20
.HorizontalAlignment = xlCenter
End With
Next
End Sub
Я же говорил - нужно будет добавить проверку: у Вас ведь УФ (бледный текст) выполняется по некому условию? Вот это же условие используйте и в проверке.
Одолжение сделал... Включите макрорекордер - Приведите примечание к нужному Вам виду - Выключите запись. Разберитесь в полученном коде Хоть что нибудь САМИ сделайте!
Согласие есть продукт при полном непротивлении сторон
Тоже обратил на это внимание - пойдёт... Попробуйте такой вариант:
Код
Sub AddComents()
Dim rCell As Range, iMonth As Long, Txt As String, Rng As Range
For Each rCell In Range("J6:P11")
If Not rCell.Comment Is Nothing Then rCell.Comment.Delete
Next
iMonth = Month(Date)
For Each rCell In Range("B6:H11")
Txt = rCell.Text & "." & iMonth & "." & Year(Date)
With rCell.Offset(0, 8)
If Month(rCell) = iMonth Then
.AddComment
.Comment.Text Text:=Txt
End If
End With
Next
End Sub
Юрий М, не получится так как в примечании ставит что все даты за июнь, я уже писал выше об этом что все даты, по вашему макросу проставлены почему-то за июнь, а в первой таблице правильно стоят за разные месяцы в начале мая, июнь, затем конец июль