Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ширина стобца Excel по содержимому ячейки / 6 сообщений из 6, страница 1 из 1
13.11.2015, 10:28
    #39102680
alex;
alex;
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
Надо подогнать программно ширину столбца по содержимому
ячейки с итоговой суммой, т.к. периодически не помещается число.
Стандартными средствами не получается, т.к. изменяет ширину по тексту в шапке, а там много букав.

Есть ли способ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2015, 10:42
    #39102694
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
Убрать текст из шапки
Подогнать
Вернуть текст на место
Профит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2015, 10:51
    #39102709
W_I_N_T_E_R
W_I_N_T_E_R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2015, 11:03
    #39102724
alex;
alex;
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
Еще подсказали
1. Скопировать столбец на другой чистый лист (только цифры);
2. Автофит ширины;
3. Считать полученное значение и выставить ширину исходного столбца.

Всем спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2015, 11:24
    #39102738
W_I_N_T_E_R
W_I_N_T_E_R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
тогда еще вариант: объединить ячейку в шапке, скрыть столбец и подгонять ширину столбца с цифрами стандартным двойным кликом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2015, 06:02
    #39103327
alex;
alex;
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ширина стобца Excel по содержимому ячейки
Вот так сделал:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
  Dim ColWidth(8) As Integer, ii As Integer
      For ii = 1 To 8
        
          ColWidth(ii) = Cells(ActiveCell.Row, ii).ColumnWidth
        
      Next ii
    
      Range(ActiveCell, ActiveCell.Offset(0, 7)).Columns.AutoFit
    
      For ii = 1 To 8
        
          If Cells(ActiveCell.Row, ii).ColumnWidth < ColWidth(ii) Then _
          Cells(ActiveCell.Row, ii).ColumnWidth = ColWidth(ii)
        
      Next ii
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ширина стобца Excel по содержимому ячейки / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 437ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2173289]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 286ms
total:  437ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]