Сколько точек в области / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сколько точек в области

5 сообщений из 5, страница 1 из 1

Сколько точек в области

#39543429

lexxora

Гость

В картинке пример отчета.
Нужно в отчете не расширять строку 35, если и без расширения помешается текст, тогда не будет пустого места B.

Так, как после того. как отчет уже сформирован, то у нас есть объединенные ячейки, как в примере, или их не будет, если в отчете в блоке всего 1 строка.
Когда 1 строка, то тут легко, брать максимум из первого столбца, или второго.

А вот, когда в блоке много строк, то я хочу узнать, сколько места в блоке А, сколько туда может поместиться текста.
Если влезает. то строку 35 не трогаем. Если не влезает, то расширяем.

Пример макроса, но он дописывается, так как не верно работает.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.

Sub FixHeigth()

    Dim i, num_of_lines As Integer
    i = 34
    
    
    Do While Range("C" & i).Text > ""
    
    num_of_lines = Int(pointwidth(Range("C" & i).Text) / 90) + 1
    num_of_lines2 = Int(pointwidth(Range("A" & i).Text) / 90) + 1
    'MsgBox Range("C" & i).Text & "  " & pointwidth(Range("C" & i).Text) / 90 & " " & num_of_lines
    'Range("C" & i & ":" & "E" & i).RowHeight = 14 * num_of_lines
    If num_of_lines > num_of_lines2 Then
    num_of_lines3 = num_of_lines
    Else
    num_of_lines3 = num_of_lines2
    End If
    Range("A" & i & ":" & "B" & i).RowHeight = 14 * num_of_lines3
    i = i + 1
    Loop
End Sub

Function pointwidth(s As String) As Double
   Range("P1") = s
   Columns("P").AutoFit
   pointwidth = Columns("P").Width
   Range("P1") = ""
   
End Function

...

Рейтинг:

0 / 0

27.10.2017, 16:40

| Ответить | Цитировать | Написать

Сколько точек в области

#39543430

lexxora

Гость

lexxora,

А получить нужно вот это

...

Рейтинг:

0 / 0

27.10.2017, 16:40

| Ответить | Цитировать | Написать

Сколько точек в области

#39543431

lexxora

Гость

Пример екселя.
Может кто что другое придумает
https://yadi.sk/i/whdJEp8n3P9qUc

...

Рейтинг:

0 / 0

27.10.2017, 16:41

| Ответить | Цитировать | Написать

Сколько точек в области

#39544078

Bobax012

Гость

lexxora, Проверь, должно работать.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.

Dim i, num_of_lines As Integer
    i = 34

    Do While Range("C" & i).Text > ""
    
        zzz = Range("A" & i).MergeArea.Rows.Count
        
        If zzz > 1 Then
        
        num_of_lines_X = 0
        num_of_lines = 0
            
            For schet = i To i + zzz - 1
                num_of_lines_X = Int(pointwidth(Range("C" & schet).Text) / 90) + 1
                num_of_lines = num_of_lines + num_of_lines_X
                Range("A" & schet).RowHeight = 14 * num_of_lines_X
            Next schet
        
        i = i + zzz - 1
        
        ElseIf zzz = 1 Then
            num_of_lines = Int(pointwidth(Range("C" & i).Text) / 90) + 1
        End If
                   
        num_of_lines2 = Int(pointwidth(Range("A" & i).Text) / 90) + 1
                
        If num_of_lines < num_of_lines2 Then
            Range("A" & i).RowHeight = 14 * num_of_lines2
        End If

    i = i + 1
    Loop
    
    MsgBox "Готово"

...

Рейтинг:

0 / 0

29.10.2017, 22:09

| Ответить | Цитировать | Написать

Сколько точек в области

#39544178

lexxora

Гость

Bobax012,
Великолепно!!!
Спасибо! Очень помогли.

...

Рейтинг:

0 / 0

30.10.2017, 09:41

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сколько точек в области

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39543429&tid=2155182]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	5ms
check topic access:	5ms
track hit:	42ms
get topic data:	14ms
get forum data:	3ms
get page messages:	41ms
get tp. blocked users:	2ms
others:	263ms

total:	396ms