Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Записывать в определённую ячейку на листе / 4 сообщений из 4, страница 1 из 1
11.02.2019, 22:28
    #39772530
Алексей191919
Алексей191919
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записывать в определённую ячейку на листе
Подскажите куда вставить А10 чтоб записывалось в А10 всё перепробовал
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " ": newRow = newRow + 1
End If
Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2019, 22:54
    #39772538
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записывать в определённую ячейку на листе
Код: vbnet
1.
ws.Range("A10").Value="blabla"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2019, 23:26
    #39772544
Алексей191919
Алексей191919
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записывать в определённую ячейку на листе
Почти то что надо только не блабла)), а с листбокса строки, а в лист боксе строки появляются с листа1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2019, 23:34
    #39772545
Алексей191919
Алексей191919
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записывать в определённую ячейку на листе
Спасибо разобрался воткнулавтор.Range("A10")и всё заработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Записывать в определённую ячейку на листе / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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