ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прибавление колонки
4 сообщений из 4, страница 1 из 1
Прибавление колонки
    #39536450
KollRoll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KollRoll
Гость
Привет!

КОД:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim a As Variant
Dim col As Variant
Dim ro As Variant

a = TextBox1

Set X = Sheets("Mind").UsedRange.Find(a, LookIn:=xlValues, lookAt:=xlPart, MatchCase:=False)
If Not X Is Nothing Then
col = X.Column + 1
ro = X.Row
MsgBox "Строка " & X.Row & vbCr & "Колонка " & X.Column & col
End If

TextBox1 = Cells(ro, col)


Мне надо чтобы в конце, в текстбокс1 выводилось слово из ячейки. Но в переменной col Колонка не плюсуется, а мне надо чтобы колонка была не первой а стала второй (например колонка A, стала колонкой B, при этом чтобы строка была той же) и взяла это слово, и вставило в текстбокс!

Спасибо за помощь!
...
Рейтинг: 0 / 0
15.10.2017, 12:14
| Ответить | Цитировать | Написать  
Прибавление колонки
    #39536472
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Cells возьмет данные с активного листа, а не с листа Mind.
А вообще, непонятно, что вы хотите, приложите лучше пример файла
...
Рейтинг: 0 / 0
15.10.2017, 14:45
| Ответить | Цитировать | Написать  
Прибавление колонки
    #39536477
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
KollRoll,

Почему Вы думаете, что не плюсуется? Она как раз-таки плюсуется, во всяком случае у меня.
Вот Вам подправленный пример.
...
Рейтинг: 0 / 0
15.10.2017, 14:58
| Ответить | Цитировать | Написать  
Прибавление колонки
    #39536482
KollRoll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KollRoll
Гость
Спасибо вам господа!!!
...
Рейтинг: 0 / 0
15.10.2017, 15:14
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прибавление колонки
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39536472&tid=2155198]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 265ms
total:  391ms
созд. / загр.: 391ms
x
x
Закрыть


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