ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Массив типа стринг скинуть на лист без ошибок
6 сообщений из 6, страница 1 из 1
Массив типа стринг скинуть на лист без ошибок
    #34654112
Chelovek Tapok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chelovek Tapok
Гость
У меня есть необходимость работать с массивами типа стринг, после чего скидывать их на лист.
Возникает вопрос: Может есть какой-нибудь простой способ переброски данных без того, чтобы в ячейках были числа и даты представленные ввиде текста?
Решаю сейчас этот вопрос перебросом данных в массив типа Variant и на лист.
Файл, отображающий суть проблемы прикреплен.
...
Рейтинг: 0 / 0
11.07.2007, 16:38:55
| Ответить | Цитировать | Написать  
Массив типа стринг скинуть на лист без ошибок
    #34654127
Chelovek Tapok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chelovek Tapok
Гость
И, кстати, может кто-нибудь предложит альтернативу переброски данных в массив типа стринг, тому методу, который реализован в приложеном файле?
...
Рейтинг: 0 / 0
11.07.2007, 16:41:51
| Ответить | Цитировать | Написать  
Массив типа стринг скинуть на лист без ошибок
    #34654458
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Как вариант! У меня так сложно получилось потому что я пытался не упустить вашу логику, а так может и проще можно

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub sad()
Dim iRow As Range, iCol As Range
Dim MassivString() As String, MassivVariant() As Variant
Dim i, j
i =  1 : j =  1 
With Sheets("1")
 
 ReDim MassivString( 1  To .UsedRange.Rows.Count,  1  To .UsedRange.Columns.Count)
 
  For Each iRow In .UsedRange.Rows
   For Each iCol In iRow.Columns
    MassivString(i, j) = iCol
    j = j +  1 
     Next iCol
    j =  1 : i = i +  1 
  Next iRow
  
  Sheets("2").Range(.UsedRange.Address) = MassivString
  For Each iCel In Sheets("2").UsedRange
   iCel.Formula = iCel.Formula
  Next iCel

End With
End Sub
...
Рейтинг: 0 / 0
11.07.2007, 18:00:56
| Ответить | Цитировать | Написать  
Массив типа стринг скинуть на лист без ошибок
    #34654717
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Chelovek TapokВозникает вопрос: Может есть какой-нибудь простой способ переброски данных без того, чтобы в ячейках были числа и даты представленные ввиде текста?
Решаю сейчас этот вопрос перебросом данных в массив типа Variant и на лист.А что мешает изначально работать с Variant'ным массивом?
Вообще, ответ на начальный вопрос - нет. Если ты копируешь массив на лист, то все задействованные ячейки листа примут тип соответсвующий типу массива. Естественно в случае вариантного массива получаем вариантный тип ячейки.

Но если очень надо работать именно с текстовым массивом, то можно сделать так как начал показывать Deggasad, но он чуть-чуть не дошел до правильного ответа, не нужен там цикл на самом деле :)
Код: plaintext
1.
    Range(Cells(Nachalo( 1 ,  1 ), Nachalo( 2 ,  1 )), Cells(Nachalo( 1 ,  2 ), Nachalo( 2 ,  2 ))) = MassivString
    Sheets("2").UsedRange.Formula = Sheets("2").UsedRange.Formula
Секрет в этой последней строке, которая не должна работать с точки зрения классического программирования, но увы - работает.
...
Рейтинг: 0 / 0
11.07.2007, 19:47:14
| Ответить | Цитировать | Написать  
Массив типа стринг скинуть на лист без ошибок
    #34654872
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
White Owl Sheets("2").UsedRange.Formula = Sheets("2").UsedRange.Formula[/src]Секрет в этой последней строке, которая не должна работать с точки зрения классического программирования, но увы - работает.

И точно, а ведь знал же, но забыл, ведь програмирование у меня всего лишь хобби (да и программированием то, что я делаю, сложно назвать)
Спасибо что напомнил, мне пригодится.
...
Рейтинг: 0 / 0
11.07.2007, 21:46:02
| Ответить | Цитировать | Написать  
Массив типа стринг скинуть на лист без ошибок
    #34656031
Chelovek Tapok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chelovek Tapok
Гость
Спасибо Deggasad и White Owl.
Приятно, когда видишь, что нет предела совершеству.
В дальнейшем буду пользоваться полученными сведениями.
...
Рейтинг: 0 / 0
12.07.2007, 12:37:47
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Массив типа стринг скинуть на лист без ошибок
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34654872&tid=2182612]:
 0ms
get settings:
 6ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 219ms
total:  302ms
созд. / загр.: 302ms
x
x
Закрыть


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