Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / из столбца в строку / 12 сообщений из 12, страница 1 из 1
23.04.2009, 10:12
    #35948930
igor0008
igor0008
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Подскажите как можно по быстрому данные из столбца отобразить в строке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2009, 10:26
    #35948975
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
igor0008,
1. Копировать -- Специальная вставка -- Транспонировать -- ОК


2. Формула массива {=ТРАНСП($A$1:$A$5)} вводится Ctrl + Alt + Enter
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2009, 10:27
    #35948980
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Copy - Paste special - Transpose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2009, 10:46
    #35949060
igor0008
igor0008
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Aster32,

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2010, 20:21
    #36583893
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub spec_vstavca()
Dim x As Integer, v As Integer

Worksheets("1").Range("b5:e5").Select 'выделяет диапазон ячеек
    Selection.Copy 'копирут диапазон
Worksheets("3").Activate 'активирует лист (3)
    Range("a1").Select 'выделяет ячейку (а1)
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True 'делает специальную вставку с транспонировкой


End Sub
Добрый день. Вот нашел топик который мне помог. Может для начинающих таких как я, этот код поможет . Ну может кто еще подскажет нельзя каким-то образом сократить вот эту строку но что бы функционал ее остался (написать проще)...

Код: plaintext
1.
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2010, 21:30
    #36583923
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
-O_o-,


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Sub spec_vstavca()

With Worksheets( 3 ).[a1]
Worksheets( 1 ).Range("b5:e5").Copy
.PasteSpecial , , , True
End With

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2010, 01:03
    #36584059
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Код: plaintext
1.
2.
...
.PasteSpecial Transpose:=True
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2010, 18:44
    #36584471
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2010, 18:46
    #36584472
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Hugo121-O_o-,


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Sub spec_vstavca()

With Worksheets( 3 ).[a1]
Worksheets( 1 ).Range("b5:e5").Copy
.PasteSpecial , , , True
End With

End Sub


2 Hugo121 & vlth спасибо за примеры. Просто я пока не очень с ВБА )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2010, 16:38
    #36586000
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
-O_o-Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.Попробуйте внутри этого документа выполнить код
Код: plaintext
MsgBox ThisWorkbook.RemovePersonalInformation
Если выдаст True (а это соответствует тому, что где-то в настройках установлена опция удалять личные сведения), то проблема в этом, если False, то что-то другое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2010, 21:18
    #36586442
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
Djon Player-O_o-Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.Попробуйте внутри этого документа выполнить код
Код: plaintext
MsgBox ThisWorkbook.RemovePersonalInformation
Если выдаст True (а это соответствует тому, что где-то в настройках установлена опция удалять личные сведения), то проблема в этом, если False, то что-то другое.

Выдает False.... Что делать дальше не знаю...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2010, 10:37
    #36589435
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из столбца в строку
-O_o-,

Этот файл выложите и напишите при каких действиях ошибка возникает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / из столбца в строку / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 416ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178215]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 201ms
total:  416ms
x
x
Закрыть


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