Оформление. Сделать видимым содержимое ячейки. Наложение.

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

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

Оформление. Сделать видимым содержимое ячейки. Наложение. (показать содержимое)

карандаш

Дата: Воскресенье, 17.02.2013, 20:19 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

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

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

2010

если ячейки, находящиеся правее от "целевой" ячейки, имеющий длинный текст, пусты, то текст из "целевой" ячейки виден весь, он продолжает выводится, накладываясь на пустые ячейки

если ячейка, находящаяся справа от ячейки с текстом, содержит свой текст или просто пробел (который не виден), текст из "целевой" ячейки отображается только в границе самой ячейки

это логично.

но если в правой ячейке содержится не текст, а формула, регулирующая (разрешающая) вывод текста, то независимо от результата работы этой формулы, текст из более левой ячейки не выводится
например, если ячейки имею формулу =ЕСЛИ(условие; "текст";""), то казалось бы при невыполнении условия ячейка должна быть пуста.
но текст из предыдущей ячейки все равно не накладывается на эту "пустую" ячейку.

знает ли кто, есть ли способ вывода сформированного текста в нужном месте?

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

К сообщению приложен файл: dm.xls (88.5 Kb)

Ответить

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

если ячейка, находящаяся справа от ячейки с текстом, содержит свой текст или просто пробел (который не виден), текст из "целевой" ячейки отображается только в границе самой ячейки

это логично.

но если в правой ячейке содержится не текст, а формула, регулирующая (разрешающая) вывод текста, то независимо от результата работы этой формулы, текст из более левой ячейки не выводится
например, если ячейки имею формулу =ЕСЛИ(условие; "текст";""), то казалось бы при невыполнении условия ячейка должна быть пуста.
но текст из предыдущей ячейки все равно не накладывается на эту "пустую" ячейку.

знает ли кто, есть ли способ вывода сформированного текста в нужном месте?

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

Автор - карандаш
Дата добавления - 17.02.2013 в 20:19

Мур

Дата: Воскресенье, 17.02.2013, 21:20 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 436

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

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

Приветствую!
понимаю, что это не решение, но выйти из положения можно biggrin

К сообщению приложен файл: dm_1.xls (82.5 Kb)

Ответить

_Boroda_

Дата: Воскресенье, 17.02.2013, 21:57 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант.
Правда, если начальная дата, например, 25/1, то "Январь" не влезает. Хотя, он не влезает и в первоначальном варианте

К сообщению приложен файл: dm_11.xls (92.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

карандаш

Дата: Воскресенье, 17.02.2013, 23:03 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

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

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

2010

Здравствуйте!
можно вопрос по старой теме
надо защитить несколько верхних строк и набор некоторых диапазонов

например, строки от 1 до 3 и диапазоны С4:С9, F4:F9, K4:K9

пароль спрячу, например, в А4

есть ваше решение
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            If Target.Cells.Count > 1 Then Exit Sub                    ' ïðîâåðÿåì, ÷òî ôîêóñ çàõâàòèë åäèíè÷íóþ ÿ÷åêó, à íå äèàïàçîí
            If Not Intersect(Target, Range("c5:AH24")) Is Nothing Then ' ïðîâåðÿåì íàõîæäåíèå ôîêóñà â "öåëåâîì" äèàïàçîíå
                Range("A5:A24").ClearContents
                Cells(Target.Row, 1) = " "
                Range("b" & Target.Row & ":C" & Target.Row).Copy Range("R30")
            End If
End Sub

[/vba]

ковырял, ковырял... не получается его видоизменить под то, что я написал

вот что-то такое хотелось бы
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target <> Range("1:3")& Range("С4:С9")& Range("F4:F9")& Range("K4:K9") Then Exit Sub
       If [A4] = "$$$" Then Exit Sub
       Target.Offset(1).Select
End Sub

[/vba]

помогите, пожалуйста

потому, что если защищать лист стандартными средствами эксела, тогда он не дает макросу изменять защищенные ячейки