VPF::Объединение ячеек? - Форум программистов

Ved

Дата 1.11.2007, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1

Дело в том, что есть допустим акт в нем некоторое не ограниченное число столбцов но не когда не меняющееся ну пусть будет 10!
Он формируется сам программой и у программы есть маленькая недоработка диапазон из нескольких ячеек объединяется рамкой!
Я хочу чтобы эти ячейки в рамке объединились, но как мне дать как указание что до границы рамки в низ чтоли, ну и в бок.
Вот фаил прикрепил примерно все так выглядит!
Может я зря в программирование ВБА залес может есть это и в менюшке, но я чота там нигде такого не нашол чтоб как бы он сам путем отбора все объединил!
Да и так чтоб данные не терялись в нижних ячейках!
Может в принцепе просто надеюсь на чудо и такое не льзя сделать!

Присоединённый файл ( Кол-во скачиваний: 3 )

______.rar 1,44 Kb

--------------------

Я не волшебник, я только учусь! smile

Aloha

Дата 1.11.2007, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 5
Всего: 165

Ved

Глянь такой код. Он объединяет выделенные ячейки с сохранением данных

Код


Sub s_MergeCells()
  Dim v_Rng As Range, v_Tmp() As Variant, v_Str As String
  
  If TypeName(Selection) <> "Range" Then Exit Sub
  Set v_Rng = Selection
  If v_Rng.Areas.Count > 1 Then Exit Sub 'если выделены несколько областей,
                                         'то неделаем ничего
  If v_Rng.Cells.Count = 1 Then Exit Sub 'если выделена одна ячейка,
                                         'то неделаем ничего
  v_Tmp = v_Rng                     'сохраняем данные в выделенном диапазоне
                                    'во временном массиве
  Application.DisplayAlerts = False 'отключаем показ сообщений Excel
  With v_Rng
    .MergeCells = True              'объединяем ячейки
    .VerticalAlignment = xlTop      'выравниваем по верхнему краю
    .WrapText = True                'устанавливаем перенос по словам
  End With
  Application.DisplayAlerts = True
  
  For i = 1 To UBound(v_Tmp)        '"склеиваем" данные из ячеек в строку
    v_Str = v_Str & CStr(v_Tmp(i, 1)) & " "
  Next
  v_Rng.Cells(1, 1) = v_Str         'записываем в объединенную ячейку результат
End Sub

Это сообщение отредактировал(а) Aloha - 1.11.2007, 18:37

Дмит

Дата 2.11.2007, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9

См

Присоединённый файл ( Кол-во скачиваний: 6 )

______.zip 7,88 Kb

Ved

Дата 7.11.2007, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1

Всем спасибо!ОГРОМНОЕ!!!

--------------------

Я не волшебник, я только учусь! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »