Сцепить в VBA

Пользователь

Сообщений: 201 Регистрация: 01.01.1970

03.09.2009 15:04:13

Подскажите, пожалуйста, как написать правильно формулу сцепить в VBA

Надо, чтобы колонтитул содержал значения нескольких ячеек удаленные друг от друга на определенное количество пробелов, например на 3

Worksheets(i).PageSetup.LeftHeader = Worksheets(1).Range("A1").Value+" "+Worksheets(1).Range("A2").Value

Audiatur et altera pars

Kindness Пользователь Сообщений: 201 Регистрация: 01.01.1970	#2 03.09.2009 15:10:42 Спасибо огромное. Сам так пробовал, но не написал пробелы перед и после & - сломал голову что не так! Век живи век учись!!! Audiatur et altera pars

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#3 03.09.2009 15:12:50 [a8] = Join(Array([a7], [b7], [c7]), "oo") Живи и дай жить..

Kindness Пользователь Сообщений: 201 Регистрация: 01.01.1970	#4 03.09.2009 15:21:07 Спасибо! Возник еще один вопрос... Можно ли сделать левый колонтитул в две строки, то есть чтобы значение ячейки А1 располагалось над значением ячейки В1 в колонтитуле? Audiatur et altera pars

Kindness Пользователь Сообщений: 201 Регистрация: 01.01.1970	#5 03.09.2009 15:32:55 Может даже можно вставить в колонтитул целую таблицу? Audiatur et altera pars

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#6 03.09.2009 15:35:58 .LeftHeader = "a1" & Chr(10) & "b1" Живи и дай жить..

Kindness Пользователь Сообщений: 201 Регистрация: 01.01.1970	#7 03.09.2009 15:42:13 Спасибо, СЛЭН! Большое спасибо! Audiatur et altera pars

Diana

Пользователь

Сообщений: 982 Регистрация: 28.12.2012

09.11.2010 18:02:16

{quote}{login=слэн}{date=03.09.2009 03:12}{thema=}{post}[a8] = Join(Array([a7], [b7], [c7]), "oo"){/post}{/quote}

Здрасьте еще раз...
а вот если много ячеек нужно сцепить подряд, например:
A1, B1, C1, D1 и т.д. до AA1. Возможно ли как-то через цикл применить такую вещь?

Спасибки всем заранее :)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#9 09.11.2010 18:17:04 Можно и без цикла :) join(application.transpose(application.transpose([A1:AA1]))) Еще тема http://www.planetaexcel.ru/forum.php/?thread_id=17920

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	#10 10.11.2010 00:17:29 Казанский! Чмок тебя в щечку! :) спасибки снова!!! :)

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#11 10.11.2010 11:15:20 циклом: for each x in range(..) s=s & x next или r=range(..) for each x in r .. это и побыстрее чем join будет Живи и дай жить..

Читают тему