Объединение ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Объединение ячеек

Матраскин

Дата: Понедельник, 17.09.2012, 15:12 | Сообщение № 1

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Всем привет
Вроде всё просто, надо брать группу ячеек со сдвигом, не знаю как сделать,так не работает:

Code

Set Данные = Worksheets("Лист1").Range("Cells(2 + i, 1), Cells(2 + i, 4), Cells(1, 1),Cells(1,4)")

так тоже)

Code

Set Данные = Worksheets("Лист1").Range("Cells(2 + i, 1), Cells(2 + i, 4)", "Cells(1, 1),Cells(1,4)")

К сообщению приложен файл: 7359041.xlsm (24.2 Kb)

в интернете опять кто-то не прав

Ответить

Матраскин

Дата: Понедельник, 17.09.2012, 15:24 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

брать первую строчку с названиями, и к ней брать сначала вторую и выводить на 2 страницу диаграмму, потом первую и третью и выводить на 3 страницу, и т д
Это нужно делать для того, чтобы в диаграммах на страницах получились подписанные данные) и эти данные были разные

в интернете опять кто-то не прав

Ответить

_Boroda_

Дата: Понедельник, 17.09.2012, 15:25 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
Не, первый файл был неправильно. Перевложил

Code

Set Данные =Worksheets("Лист1").Range("A1:D1, A" & i + 2 & ":D" & i + 2)

К сообщению приложен файл: 7359041_3.xlsm (25.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Матраскин

Дата: Понедельник, 17.09.2012, 15:37 | Сообщение № 4

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Quote (_Boroda_)

Так нужно?

нет, чтобы взять первую и вторую строку(т.е 2 строки идущих подряд) нужно написать следующее:

Code

Set Данные = Worksheets("Лист1").Range(Cells(1 + i, 1), Cells(2 + i, 4))

а что надо написать чтобы взять первую и 3 строку???

в интернете опять кто-то не прав

Ответить

Матраскин

Дата: Понедельник, 17.09.2012, 15:40 | Сообщение № 5

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Quote (_Boroda_)

Перевложил в пост выше

да, именно так)) спасибо

в интернете опять кто-то не прав

Ответить

Матраскин

Дата: Понедельник, 17.09.2012, 15:54 | Сообщение № 6

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Может Вы знаете как и легенду убрать из диаграммы? какой метод отвечает за это.
p.s. чтобы не было а- такого цвета, б такого и т д

в интернете опять кто-то не прав

Ответить

RAN

Дата: Понедельник, 17.09.2012, 15:54 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Крутил, крутил, так и не понял, как это
[vba]

Code

Set Данные = .Range(.Cells(2 + i, 1) & ":" & .Cells(2 + i, 4) & "," & .Cells(1, 1) & ":" & .Cells(1, 4))

[/vba]
такой диапазон собирает?
При i=0 Данные.address "$1:$4,$A:$D"
При i=1 Данные.address "$2:$3,$A:$D"

Быть или не быть, вот в чем загвоздка!

Ответить

Gustav

Дата: Понедельник, 17.09.2012, 15:55 | Сообщение № 8

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Матраскин)

Set Данные = Worksheets("Лист1").Range("Cells(2 + i, 1), Cells(2 + i, 4)", "Cells(1, 1),Cells(1,4)")

А чтобы мысль выразить непременно через Cells, нужно было чуть-чуть побольше напрячься wink

:

[vba]

Code

Set Данные = Worksheets("Лист1").Range(Cells(2 + i, 1).Address & ":" & Cells(2 + i, 4).Address & "," & Cells(1, 1).Address & ":" & Cells(1, 4).Address)

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

Матраскин

Дата: Понедельник, 17.09.2012, 16:00 | Сообщение № 9

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

С Cells вообще кошмар)))
Set Данные =Worksheets("Лист1").Range("A1:D1, A" & i + 2 & ":D" & i + 2) - самый оптимальный вариант

в интернете опять кто-то не прав

Ответить

Объединение ячеек

Страница 1 из 1
1