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

Вход

Регистрация

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

 

= Мир MS Excel/Работа с элементами ActiveX TextBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с элементами ActiveX TextBox (Макросы/Sub)
Работа с элементами ActiveX TextBox
Sashagor82 Дата: Воскресенье, 20.07.2014, 00:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 100% ±

Excel 2007
Извиняюсь за вопрос.
На листе1 с помощью элемента ActiveX TextBox создано окно Textbox1, содержащее какую либо вводимую пользователем информацию.
Кнопке1 назначен макрос
[vba]
Код
Sub Макрос()
Dim a As String

ai = ActiveCell.Row
Range("L" + CStr(ai)).Value = ??????
End SubSub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End SubSub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End Sub
[/vba]

Подскажите как сделать так, что бы в столбец L, активной строки выводилось содержимое TextBox1[/code][/vba]


Сообщение отредактировал Serge_007 - Воскресенье, 20.07.2014, 00:17
 
Ответить
СообщениеИзвиняюсь за вопрос.
На листе1 с помощью элемента ActiveX TextBox создано окно Textbox1, содержащее какую либо вводимую пользователем информацию.
Кнопке1 назначен макрос
[vba]
Код
Sub Макрос()
Dim a As String

ai = ActiveCell.Row
Range("L" + CStr(ai)).Value = ??????
End SubSub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End SubSub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End Sub
[/vba]

Подскажите как сделать так, что бы в столбец L, активной строки выводилось содержимое TextBox1[/code][/vba]
Автор - Sashagor82
Дата добавления - 20.07.2014 в 00:08
Sashagor82 Дата: Воскресенье, 20.07.2014, 09:56 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 100% ±

Excel 2007
Вопрос в том, как считать из TextBox значение в переменную?
 
Ответить
СообщениеВопрос в том, как считать из TextBox значение в переменную?
Автор - Sashagor82
Дата добавления - 20.07.2014 в 09:56
Serge_007 Дата: Воскресенье, 20.07.2014, 10:17 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Элементарно:
[vba]
Код
переменная = TextBox1
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЭлементарно:
[vba]
Код
переменная = TextBox1
[/vba]
Автор - Serge_007
Дата добавления - 20.07.2014 в 10:17
Sashagor82 Дата: Воскресенье, 20.07.2014, 11:06 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 100% ±

Excel 2007
[vba]
Код
Sub Ïîèñêîâèê()
Dim a As String
a = TextBox1
ai = ActiveCell.Row
Range("L" + CStr(ai)).Value = a
End Sub
[/vba]
В ячейки помещает пустые значения, хотя введено "99999999999"
К сообщению приложен файл: 4969055.png (12.5 Kb)


Сообщение отредактировал Serge_007 - Воскресенье, 20.07.2014, 11:08
 
Ответить
Сообщение[vba]
Код
Sub Ïîèñêîâèê()
Dim a As String
a = TextBox1
ai = ActiveCell.Row
Range("L" + CStr(ai)).Value = a
End Sub
[/vba]
В ячейки помещает пустые значения, хотя введено "99999999999"
Автор - Sashagor82
Дата добавления - 20.07.2014 в 11:06
nilem Дата: Воскресенье, 20.07.2014, 11:15 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
а если так:
[vba]
Код
Sub ttt()
Dim a As String, ai As Long
a = ActiveSheet.TextBox1.Value
ai = ActiveCell.Row
Range("L" & ai).Value = a
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеа если так:
[vba]
Код
Sub ttt()
Dim a As String, ai As Long
a = ActiveSheet.TextBox1.Value
ai = ActiveCell.Row
Range("L" & ai).Value = a
End Sub
[/vba]
Автор - nilem
Дата добавления - 20.07.2014 в 11:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с элементами ActiveX TextBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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