В целях обеспечения качества / целостности данных я должен убедиться, что все комментарии в column C
будут видны при печати: скрытого текста не будет. Ширина, высота и шрифт зафиксированы, а перенос слов активирован.
Пока что я установил проверку с максимальной длиной текста (100 символов в моем случае). Стандартные предложения и материал Lorem ipsum хорошо вписываются в ячейку, но другой пользователь обнаружил, что его 100 символов частично скрыты.
Действительно, 100 "W" не вписываются - только около 30. Но максимальная длина текста в 30 символов слишком коротка.
Как определить реальную длину текста, его видимость или переполнение?
Есть другие идеи?
редактировать
- Монотипный шрифт работает отлично. Но так как комментарий занимает гораздо больше места, я предпочел второй вариант
Я использовал трюк Жана-Франсуа Корбетта в разделе Как определить значения, которые не помещаются в ячейки Excel, с помощью VBA? : проверка, если
autofit
увеличивает строку или столбец, а затем восстановление исходного размера. Таким образом, максимум 3 строки комментариев принимаются. Возврат кареткиAlt + Enter
также учитывается.'Check previous cells If Cell.Column = 10 Then 'check the comments column Hauteur_ligne = Cell.RowHeight Cell.EntireRow.AutoFit If Cell.RowHeight > Hauteur_ligne Then Cell.Interior.ThemeColor = xlThemeColorAccent2 'Red for rejected comment Saisie_Valide = False 'Validity flag Else Cell.Interior.ThemeColor = xlThemeColorAccent3 'Green for accepted comment End If Cell.RowHeight = Hauteur_ligne 'end of sub, alert message
Спасибо вам большое !