Объединение

Автор Asmer, 16 февраля 2011, 15:51

0 Пользователи и 1 гость просматривают эту тему.

Asmer

Здравствуйте,
Мне надо сделать что-то вроде шаблона, но только на одном листе файла. Первый столбец должен содержать по 3 стро'ковых ячейки. Причем также как и с необъединенными можно было б размножить значения (одно значение на всю объединенную ячейку).

Заранее спасибо!

И еще..
..извиняюсь если где-то есть подобная темка  ;)

convas

Вот так до конца листа?

[вложение удалено Администратором]

Asmer

Да так, но чтобы не вручную объединять и не копированием, а автоматом было. И, повторюсь, номерация чтобы была.

convas

Можно с помощью макроса.
NMAX ~ число объединяемых строк.
При большом NMAX работает очень медленно.
(На листе Calc ~ 1 000 000 строк!)

Sub Cells3
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args(0) as new com.sun.star.beans.PropertyValue

NMAX=20

For n=1 To NMAX step 3
range_cells="$A" & Trim(Str(n)) & ":$A"  & Trim(Str(n+2))

args(0).Name = "ToPoint"
args(0).Value = range_cells

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args())
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, Array())

args(0).Name = "StringName"
args(0).Value = Str(Int(n/3)+1)

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args())

Next n
End Sub

Asmer

Спасибо! Пол дела сделано, нумировать вручную буду, (мне немного по-другому надо было)