Страница «Настройки» ячейки B84 формула «если», если истина то ячейка B85, если ложь то ячейки B86. Ячейку В86 необходимо отредактировать!!!!! В тексте «Работа полностью закончена, бригада удалена, заземления, установленные бригадой, сняты, сообщено (кому)», должно быть зачеркнуто «заземления, установленные бригадой, сняты», сейчас с телефона отредактировать не могу к сожалению, как сделать так что бы при значении ложь в ячейке В84 текст ставился так же зачеркнутый как и в ячейке В86? Ума не приложу как это сделать! Выручайте
Страница «Настройки» ячейки B84 формула «если», если истина то ячейка B85, если ложь то ячейки B86. Ячейку В86 необходимо отредактировать!!!!! В тексте «Работа полностью закончена, бригада удалена, заземления, установленные бригадой, сняты, сообщено (кому)», должно быть зачеркнуто «заземления, установленные бригадой, сняты», сейчас с телефона отредактировать не могу к сожалению, как сделать так что бы при значении ложь в ячейке В84 текст ставился так же зачеркнутый как и в ячейке В86? Ума не приложу как это сделать! ВыручайтеSsidSlik
Антон, формулы не переносят форматы, можно макросом в модуле листа "Прога" [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B22" Then With Sheets("Настройки ") .Range("B85").Offset(-(Target = .Range("B83"))).Resize(1, 4).Copy .Range("B84").Resize(1, 4) End With End If End Sub
[/vba] Меняйте там значения и смотрите на лист "Настройки"
Антон, формулы не переносят форматы, можно макросом в модуле листа "Прога" [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B22" Then With Sheets("Настройки ") .Range("B85").Offset(-(Target = .Range("B83"))).Resize(1, 4).Copy .Range("B84").Resize(1, 4) End With End If End Sub
[/vba] Меняйте там значения и смотрите на лист "Настройки"_Boroda_
_Boroda_, на работе к сожалению нельзя макросами, почему то файл блакируется после того как прописываешь его(, перестаёт открываться то ещё что нить происходит;( может есть ещё какой нить вариант?
_Boroda_, на работе к сожалению нельзя макросами, почему то файл блакируется после того как прописываешь его(, перестаёт открываться то ещё что нить происходит;( может есть ещё какой нить вариант?SsidSlik
Есть еще вариант разбить текст на 3 ячейки и во второй сделать условное форматирование. Так, правда, не очень красиво получается, зато без макросов
Есть еще вариант разбить текст на 3 ячейки и во второй сделать условное форматирование. Так, правда, не очень красиво получается, зато без макросов_Boroda_
_Boroda_, сделал по второму способу, но косяк вылез вчера, отображает в к нормально, но когда распечатываешь документ то текст получается не зачеркнутый(
_Boroda_, сделал по второму способу, но косяк вылез вчера, отображает в к нормально, но когда распечатываешь документ то текст получается не зачеркнутый(SsidSlik
SsidSlik, 1. Предпросмотр печати дает также ошибку? 2. Если нет, то проверить печать на другом принтере и/или запись в PDF, XPS или иной виртуальный принтер. 3. Проверить длинну строки и перезабить текст в ячейке в случае отличия от нужной, лучше руками, часто бывают непечатные символы, которые потом коверкают именно печать, но неотображаются на экране. Чаще всего это возникает при копировании из мессенджеров и прочих программ и последующей вставки.
SsidSlik, 1. Предпросмотр печати дает также ошибку? 2. Если нет, то проверить печать на другом принтере и/или запись в PDF, XPS или иной виртуальный принтер. 3. Проверить длинну строки и перезабить текст в ячейке в случае отличия от нужной, лучше руками, часто бывают непечатные символы, которые потом коверкают именно печать, но неотображаются на экране. Чаще всего это возникает при копировании из мессенджеров и прочих программ и последующей вставки.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Воскресенье, 26.11.2017, 21:57