Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать ячейку... / 6 сообщений из 6, страница 1 из 1
24.04.2005, 18:49:23
    #33032303
fonda
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
Помогите, плиз! Как выбрать ячейку из TextBox'a, например в TextBox'e написал A9, он и выделил в Excell ячейку A9?! Буду ОЧЕНЬ благодарна за помощь!
...
Рейтинг: 0 / 0
24.04.2005, 23:12:52
    #33032413
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
Открываешь Excel, нажимаешь на тул баре кнопку Record Macro, после выделяешь ячейку A9, жмешь на буттон Stop Recording. Даллее на буттон Visual Basic Editor и выбери модуль который ты создал, там бедут описаны все твои записанные действия, вот это можно брать и использовать, как текст программы.
Вот те сэмпл
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
  Set objExcel = New Excel.Application
  objExcel.Visible = True
  objExcel.SheetsInNewWorkbook =  1 
  objExcel.Workbooks.Add
  
With objExcel.ActiveWorkbook.ActiveSheet
    .Range("A9").Select
End With
End Sub
Только не забудь в References добавить объект Microsoft Excel
...
Рейтинг: 0 / 0
25.04.2005, 15:57:49
    #33033729
fonda
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
Мне не надо именно A9 выделять, а надо чтобы в TextBox я вбивала ЛЮБУЮ ячейку и она бы выделялась в Excel!
...
Рейтинг: 0 / 0
25.04.2005, 16:01:39
    #33033739
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
SmeL_md четко все описал, но если не понятно...

objExcel.ActiveWorkbook.ActiveSheet.Range(txtRange.Text).Select
...
Рейтинг: 0 / 0
26.04.2005, 09:51:39
    #33034887
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
Может такой код подойдет?
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then Range(TextBox2.Value).Select
End Sub
...
Рейтинг: 0 / 0
26.04.2005, 09:53:28
    #33034895
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать ячейку...
Может такой код подойдет?
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then Range(TextBox2.Value).Select
End Sub
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать ячейку... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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