Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как записать в строковую переменную значения из ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как записать в строковую переменную значения из ячеек (Макросы/Sub)
Как записать в строковую переменную значения из ячеек
Shimaruka Дата: Понедельник, 26.05.2014, 14:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет!

Код ниже записывает в строковую переменную Str значения ячеек из стобца "A".

[vba]
Код
Dim i As Integer
Dim Str As String
Str = " "

For i = 1 To 10
Str = Str + CStr(Range("A" + CStr(i)).Value)
Next i
[/vba]

Как правильно изменить код, чтобы в Str записывались данные не из столбца "A",
а из ячеек А1-B1-C1-D1 и так далее.
Спасибо.


Сообщение отредактировал Serge_007 - Воскресенье, 01.06.2014, 10:12
 
Ответить
СообщениеВсем привет!

Код ниже записывает в строковую переменную Str значения ячеек из стобца "A".

[vba]
Код
Dim i As Integer
Dim Str As String
Str = " "

For i = 1 To 10
Str = Str + CStr(Range("A" + CStr(i)).Value)
Next i
[/vba]

Как правильно изменить код, чтобы в Str записывались данные не из столбца "A",
а из ячеек А1-B1-C1-D1 и так далее.
Спасибо.
Автор - Shimaruka
Дата добавления - 26.05.2014 в 14:35
_Boroda_ Дата: Понедельник, 26.05.2014, 14:47 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
Dim i As Integer
Dim Str_ As String
Str_ = " "

For i = 1 To 4
Str_ = Str_ + Str(Cells(1, Str(i)).Value)
Next i
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
Dim i As Integer
Dim Str_ As String
Str_ = " "

For i = 1 To 4
Str_ = Str_ + Str(Cells(1, Str(i)).Value)
Next i
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 26.05.2014 в 14:47
Shimaruka Дата: Понедельник, 26.05.2014, 14:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, спасибо большое!
 
Ответить
Сообщение_Boroda_, спасибо большое!
Автор - Shimaruka
Дата добавления - 26.05.2014 в 14:58
Hugo Дата: Понедельник, 26.05.2014, 16:10 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
За что спасибо? Код ведь не работает! :(
Вот так работает:
[vba]
Код
Sub tt()
     Dim i As Integer
     Dim Str_ As String
     Str_ = " "
     For i = 1 To 4
         Str_ = Str_ & Cells(1, i).Value
     Next i
     MsgBox "|" & Str_ & "|"
End Sub
[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЗа что спасибо? Код ведь не работает! :(
Вот так работает:
[vba]
Код
Sub tt()
     Dim i As Integer
     Dim Str_ As String
     Str_ = " "
     For i = 1 To 4
         Str_ = Str_ & Cells(1, i).Value
     Next i
     MsgBox "|" & Str_ & "|"
End Sub
[/vba]
Автор - Hugo
Дата добавления - 26.05.2014 в 16:10
Hugo Дата: Понедельник, 26.05.2014, 16:37 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
А если попробовать с буквами?
С буквами Str(Cells(1, Str(i))) не работает!

Help:
Str Function
Returns a Variant (String) representation of a number.

Хотя конечно если там всегда будут цифры - то замечание снимается :)

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеА если попробовать с буквами?
С буквами Str(Cells(1, Str(i))) не работает!

Help:
Str Function
Returns a Variant (String) representation of a number.

Хотя конечно если там всегда будут цифры - то замечание снимается :)
Автор - Hugo
Дата добавления - 26.05.2014 в 16:37
Shimaruka Дата: Суббота, 31.05.2014, 13:07 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Hugo, большое спасибо за подсказку - первый код действительно работает только с цифрами.
 
Ответить
СообщениеHugo, большое спасибо за подсказку - первый код действительно работает только с цифрами.
Автор - Shimaruka
Дата добавления - 31.05.2014 в 13:07
krosav4ig Дата: Воскресенье, 01.06.2014, 04:16 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а можно так?
[vba]
Код
Sub tt()
       Dim arr(), r%
       r = 4
       arr = Application.Transpose(Range("A1:A" & r))
       MsgBox Join(arr)
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 01.06.2014, 04:17
 
Ответить
Сообщениеа можно так?
[vba]
Код
Sub tt()
       Dim arr(), r%
       r = 4
       arr = Application.Transpose(Range("A1:A" & r))
       MsgBox Join(arr)
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 01.06.2014 в 04:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как записать в строковую переменную значения из ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!