ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / step, программа с транспонированием столбца
9 сообщений из 9, страница 1 из 1
step, программа с транспонированием столбца
    #36572238
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_rat
Гость
не могу собрать мысли... нужно данные из столбца I (4, 12) перенести. причем не обычным способом, а так чтобы данные первой ячейки (I1) записывалась в ячейкку A28, I2 в ячейку В26... и так далее... то есть мало того чтобы он транспонировался как бы но еще и по диогонали вверх и еще с интервалом. понимаю что тут нужно использ0овать шаг, но тут видимо несколько циклов... и возникают сложности с написанием кода
...
Рейтинг: 0 / 0
10.04.2010, 14:28
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572245
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
white_rat,

выкладывайте файл, если действительно проблема.
...
Рейтинг: 0 / 0
10.04.2010, 14:42
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572314
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
white_rat,

подойдет?
...
Рейтинг: 0 / 0
10.04.2010, 16:58
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572512
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_rat
Гость
О_о
...
Рейтинг: 0 / 0
10.04.2010, 22:18
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572514
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_rat
Гость
О_о
это очень замечательно...
а если не использовать MsgBox, а все переменные использовать только типа Integer
...
Рейтинг: 0 / 0
10.04.2010, 22:21
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572648
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
white_rat,

извольте, наконец, изложить внятно Вашу проблему.
...
Рейтинг: 0 / 0
11.04.2010, 07:17
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572974
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_rat
Гость
zchvv,
я новичок и просто ваш код мне не понятен. попримитивнее можно как то объяснить, чтоыбы даже мне стало понятно
...
Рейтинг: 0 / 0
11.04.2010, 20:16
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36572995
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
white_rat,

там нет ничего особенного. Я вынес для общности задание адресов диапазонов на лист, но их можно и прямо в коде указать, если это устраивает. В "верхнюю" процедуру вызывается "нижняя", в нее передаются параметры: фактический адрес диапазона-столбца и фактический адрес ячейки, с которой начинается "лесенка". На каждом шаге цикла Do While ..... Loop происходит смещение вправо на 1 ячейку и вверх на 2 ячейки (самое первое смещение - нулевое). А MsgBox потребовался для предупреждения ошибки, когда вверх уже некуда смещаться, а в цикле требуется сделать это. Для предотвращения этой ситуации ячейку следует выбирать пониже по листу. Поразмышляйте над этим кодом, поэкспериментируйте. Умение придет обязательно, все так начинали.
...
Рейтинг: 0 / 0
11.04.2010, 20:44
| Ответить | Цитировать | Написать  
step, программа с транспонированием столбца
    #36619103
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_rat
Гость
наконец то я разобралась с этим вопросом!!!
все настолько просто... при условии что столбец I4-I12, и нужно транспонировать все с ячейки А27 по диагонали вверх, через столбец!

Sub зад3()
Dim b, k, g As Integer
b = 4
k = 1
g = 27
Do While Cells(b, 1) <> ""
Cells(g, k) = Cells(b, 9)
k = k + 2
b = b + 1
g = g - 1
Loop
End Sub
...
Рейтинг: 0 / 0
09.05.2010, 18:51
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / step, программа с транспонированием столбца
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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