ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как транспонировать диапазон?
18 сообщений из 18, страница 1 из 1
Как транспонировать диапазон?
    #36323444
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Как транспонировать диапазон?
Такой вариант не работает -

Код: plaintext
ThisWorkbook.Sheets("Лист1").Range("A1:A3").Value = ThisWorkbook.Sheets("Лист1").Range("B2:D2").Value
...
Рейтинг: 0 / 0
20.11.2009, 22:25
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323619
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Такое ощущение, что вы форум совсем не читаете, вы же тут постоянный участник
Код: plaintext
ThisWorkbook.Sheets("Лист1").Range("A1:A3").Value = Application.Transpose(ThisWorkbook.Sheets("Лист1").Range("B2:D2").Value)
...
Рейтинг: 0 / 0
21.11.2009, 08:57
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323898
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Учебники давно не читал, Затупил, Исправлюсь...
А вообще непонятно. Читаю Уокенбабаха - профессиональное программирование на VBA в Excel 2003 стр. 772 "Вызов функций Excel с помощью операторов VBA" - нету в таблице функции "Transpose" хоть ты тресни...
И в "cписке операторов VBA" на 769 странице тоже не нашел...
...
Рейтинг: 0 / 0
21.11.2009, 17:35
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323907
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
А теперь более интересный вопрос:
А нет ли тайной функции позволяющей "зеркально отразить диапазон"... в смысле в обратном порядке? типа StrReverse...но для ячеек
...
Рейтинг: 0 / 0
21.11.2009, 17:51
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323918
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
Dan-K, поищите в меню Экселя слово сортировка.
...
Рейтинг: 0 / 0
21.11.2009, 18:13
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323940
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Ну и как зеркально отразить слкедующий список сортировкой?
1
3
45
2
kkk
...
Рейтинг: 0 / 0
21.11.2009, 18:47
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323947
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
То есть ячейку нужно прочитать справа-налево?
msgBox StrReverse(ActiveCell.Value)
...
Рейтинг: 0 / 0
21.11.2009, 18:53
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323964
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Выделяете диапазон и запускаете макрос:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub MirrorRange()
Dim cell As Range
Dim bEdgeLine As Byte

bEdgeLine = CByte(Mid(Selection.Address(ReferenceStyle:=xlR1C1), _
InStrRev(Selection.Address(ReferenceStyle:=xlR1C1), "C") +  1 ))
For Each cell In Selection
    If cell.Column = bEdgeLine Then
    Cells(cell.Row, cell.Column +  1 ).Value = cell.Value
    Else
    Cells(cell.Row, cell.Column +  1  + (bEdgeLine - cell.Column) *  2 ).Value = cell.Value
    End If
Next

End Sub
...
Рейтинг: 0 / 0
21.11.2009, 19:20
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323969
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Dan-KА теперь более интересный вопрос:
А нет ли тайной функции позволяющей "зеркально отразить диапазон"... в смысле в обратном порядке? типа StrReverse...но для ячеек
Как маленький пример
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub TransposeDescending()
    Dim c As Range, arr, i As Long
    ReDim arr(Application.CountIf(Sheets( 1 ).Range("A1:A3"), ">0") -  1 )
    
    For Each c In Sheets( 1 ).Range("A1:A3")
        If c >  0  Then
            arr( 2  - i) = c
            i = i +  1 
        End If
    Next c
    Sheets( 1 ).Range("B2").Resize(, UBound(arr) +  1 ) = arr
End Sub
...
Рейтинг: 0 / 0
21.11.2009, 19:27
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36323983
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
2 mds_world ,
Спасибо, очень интересно. Теперь узнал про существование типа переменной 8204,
vbArray+vbVariant... Она используется со свойством Resize? Интересно, что когда в массив значения заносятся так: arr = [a1:a5] тоже используется этот тип переменной. Интересно, где еще применяется это тип...И сколько он памяти кушает, тоже vbArray+vbVariant ?
...
Рейтинг: 0 / 0
21.11.2009, 19:51
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324003
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
2 mds_world ,
Еще раз спасибо, какой показательный пример :)...
Получается что тип 8204 используется для ввода/ввывода информации без использования циклов:
Код: plaintext
1.
2.
3.
4.
5.
Option Base  1 
Sub InputAndOutput()
Dim arr
arr = [a1:b5]
Cells( 1 ,  3 ).Resize(UBound(arr,  1 ), UBound(arr,  2 )) = arr
End Sub

Почаще заходите к нам :)
...
Рейтинг: 0 / 0
21.11.2009, 20:22
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324154
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Код: plaintext
1.
2.
3.
4.
5.
Option Base  1 
Sub InputAndOutput()
Dim arr
arr = [a1:b5]
Cells( 1 ,  3 ).Resize(UBound(arr,  1 ), UBound(arr,  2 )) = arr
End Sub


А как в этом случае вставить диапазон [a1:b5] в активную ячейку? Аналог Копи-пасте?
...
Рейтинг: 0 / 0
22.11.2009, 00:28
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324317
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Код: plaintext
ActiveCell.Resize(UBound(arr,  1 ), UBound(arr,  2 )) = arr
...
Рейтинг: 0 / 0
22.11.2009, 11:57
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324579
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Странно, внутри книги работает
Код: plaintext
ThisWorkbook.Sheets("Лист3").Range("A1:A3").Value = Application.Transpose(ThisWorkbook.Sheets("Лист3").Range("B2:D2").Value)

А между двумя книгами - не заботает...
Код: plaintext
Workbooks("ТЕСТ2.xlsm").Sheets("Лист3").Range("A1:A3").Value = Application.Transpose(Workbooks("SK.xlsb").Sheets("Лист3").Range("B2:D2").Value)
...
Рейтинг: 0 / 0
22.11.2009, 17:49
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324898
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Dan-K,

Если книги сохранены на диске, то все работает, если не сохранена ТЕСТ2, то понятно что не работает :)
...
Рейтинг: 0 / 0
22.11.2009, 23:55
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36324928
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Dan-KА теперь более интересный вопрос:
А нет ли тайной функции позволяющей "зеркально отразить диапазон"... в смысле в обратном порядке? типа StrReverse...но для ячеек
На листе это очень просто - см. пример (обычные формулы)
Вот в макросе получить массив - формулы посложнее, но все же можно обойтись стандартными формулами Эксель, вот мозги поразмять:) :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
' первая ячейка не должна быть пустой
' для вертикального диапазона, первая ячейка число
arr = Evaluate("transpose(HLOOKUP(9E+307," & [testRNG].Address(, , ,  1 ) & "," & [testRNG].Count & "-(ROW(" & Range("a1:a" & [testRNG].Count).Address & ")-1),1))")
' для вертикального диапазона, первая ячейка текст
arr = Evaluate("transpose(HLOOKUP(""яяяяя""," & [testRNG].Address(, , ,  1 ) & "," & [testRNG].Count & "-(ROW(" & Range("a1:a" & [testRNG].Count).Address & ")-1),1))")
' для горизонтального диапазона, первая ячейка число
arr = Evaluate("transpose(VLOOKUP(9E+307," & [testRNG].Address(, , ,  1 ) & "," & [testRNG].Count & "-(ROW(" & Range("a1:a" & [testRNG].Count).Address & ")-1),1))")
' для горизонтального диапазона, первая ячейка текст
arr = Evaluate("transpose(VLOOKUP(""яяяяя""," & [testRNG].Address(, , ,  1 ) & "," & [testRNG].Count & "-(ROW(" & Range("a1:a" & [testRNG].Count).Address & ")-1),1))")
Можно проверки на горизонтальный/вертикальный и на текст/число в самой процедуре задать и заложить вариативность в формулу просто не стал перегружать информацией
...
Рейтинг: 0 / 0
23.11.2009, 00:58
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36327006
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
DeggasadDan-K,

Если книги сохранены на диске, то все работает, если не сохранена ТЕСТ2, то понятно что не работает :)

Все оказалось сложнее. При открытой форме UserForm2 У меня эта операция срабатывает один раз, после чего программно файл SK.xlsb закрывается без сохранения, а когда приходит время опять его открыть для того чтобы опять тот же макрос выполнить - он сволотчь не открывается - пока форму не перезагрузишь и соответственно ничего не срабатывает... Глюк какой-то
...
Рейтинг: 0 / 0
23.11.2009, 20:55
| Ответить | Цитировать | Написать  
Как транспонировать диапазон?
    #36327127
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Не знаю что там у вас выполняет макрос, но чтобы транспонированный диапазон из закрытой книги получить ее не нужно открывать.
Код: plaintext
1.
2.
3.
4.
имяКниги = "Книга2.xls"
With [C4:O4]
.FormulaArray = "=TRANSPOSE('" & ThisWorkbook.Path & "\[" & имяКниги & "]Лист1'!A2:A14)"
.Value = .Value
End With
...
Рейтинг: 0 / 0
23.11.2009, 22:59
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как транспонировать диапазон?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36324003&tid=2178799]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 146ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 219ms
total:  455ms
созд. / загр.: 455ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]