ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужна маленькая помощь
21 сообщений из 21, страница 1 из 1
нужна маленькая помощь
    #39127380
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
всем привет, подскажите пожалуйста кто знает.
написал программку для внесения данных в excel после после нажатия на кнопку "сохранить" все данные по определенному порядку вносятся в строчку в exel....все просто супер....
ВОПРОС.....
А как прописать что бы после того как они вносятся у меня отображалось в программе номер строки куда эти данные только что в неслись....
все данные вносятся по порядку....
помогите пожалуйста....
...
Рейтинг: 0 / 0
14.12.2015, 14:54
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127398
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если помощь действительно нужна, изучи вот это 16726098
...
Рейтинг: 0 / 0
14.12.2015, 15:05
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127401
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Shocker.Pro,
я серьезно , можите помочь
...
Рейтинг: 0 / 0
14.12.2015, 15:09
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127409
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я тоже абсолютно серьезно. Статья написана специально для тех, кто сам не может догадаться, как нужно задать вопрос, чтобы был шанс получить на него ответ.
...
Рейтинг: 0 / 0
14.12.2015, 15:13
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127445
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Shocker.Pro,
ну я вроде нормально задал вопрос
...
Рейтинг: 0 / 0
14.12.2015, 15:34
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127451
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Алексей Москва,
но ведь когда программа вносит данные в Excel - она сама определяет, в какую строку вносит, или как?
Запостите фрагмент кода, который вносит данные.
...
Рейтинг: 0 / 0
14.12.2015, 15:37
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127484
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Казанский,
попробую объяснить.
у меня есть программка которая вносит данные в Excel, я вбиваю данные и нажимаю сохранить, после этого эта программа переносит данные в Excel и Excel вносит их по порядку в каждую строчку при каждом нажатии на сохранить.
вот как сделать так что бы когда я нажимаю на сохранить, у меня программа показывала и отобразила этот номер строки куда эти данные били записаны.... соответственно и так до конца листа.
...
Рейтинг: 0 / 0
14.12.2015, 15:57
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127488
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
 
"пони бегали по кругу" (c)
...
Рейтинг: 0 / 0
14.12.2015, 16:00
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127503
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Алексей Москвану я вроде нормально задал вопросДа, примерно так, летят два крокодила, один на север, другой зеленый. Какая зарплата у директора зоопарка?

Не хочешь читать правила форума, рекомендации и т.п. - не надо. Результат-то тебе нужен, не нам. Пиши как хочешь.
НО (модераторское предупреждение!) - твой следующий топик с неинформативным заголовком будет закрываться сразу.
...
Рейтинг: 0 / 0
14.12.2015, 16:10
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39127649
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
авторExcel вносит их по порядку в каждую строчку при каждом нажатии на сохранить.
вот как сделать так что бы когда я нажимаю на сохранить, у меня программа показывала и отобразила этот номер строки куда эти данные били записаны
Excel не вносит по порядку, а вносит Ваша программа, код которой Вас и просят показать (а не морду формы :) )
Поскольку Вы сделали скриншот из редактора, то удосужтесь кликнуть на кнопке "сохранить" два раза и привести процедуру сохранения.
PS можно и файл выложить без конфиденциальных данных, если совсем туго с VBA :)
...
Рейтинг: 0 / 0
14.12.2015, 18:24
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39128925
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Дмит,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Private Sub Command1_Click()
Dim xl As Object
Dim wb As Object
Dim x As Integer
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\User\Desktop\Журнал\baza.xlsx")
    x = 2
    With wb.Sheets(1)
        While .Cells(x, 1) <> ""
            x = x + 1
        Wend
        .Cells(x, 1) = Text1.Text
        .Cells(x, 2) = Text2.Text
        .Cells(x, 3) = Text3.Text
        .Cells(x, 4) = Text4.Text
        .Cells(x, 5) = Text5.Text
        .Cells(x, 6) = Text6.Text
        .Cells(x, 7) = IIf(Check1.Value, Check1.Caption, Check2.Caption)
        .Cells(x, 8) = Combo1
        .Cells(x, 9) = Text7.Text
        .Cells(x, 10) = Text8.Text
        .Cells(x, 11) = Text9.Text
        .Cells(x, 12) = IIf(Check3.Value, Check3.Caption, Check4.Caption)
        .Cells(x, 13) = Combo2
        .Cells(x, 14) = Text10.Text
        .Cells(x, 15) = Text11.Text
        .Cells(x, 16) = Text12.Text
        .Cells(x, 17) = Text13.Text
        .Cells(x, 18) = Text14.Text
        
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Combo1.Text = ""
        Combo2.Text = ""
        Check1.Caption = ""
        Check3.Caption = ""
        
             
    End With
    wb.Save
    xl.Quit
End Sub



после внесения данных в программу она записывает все в excel на каждую строчку, а как сделать что бы на морде программы отображалось именно номер строки в какую эти данные попали. что бы не заходить в excel и не переписывать этот номер строки
...
Рейтинг: 0 / 0
15.12.2015, 17:52
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129007
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Алексей МоскваДмит,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
Private Sub Command1_Click()
Dim xl As Object
Dim wb As Object
Dim x As Integer
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\User\Desktop\Журнал\baza.xlsx")
    x = 2
    With wb.Sheets(1)
        While .Cells(x, 1) <> ""
            x = x + 1
        Wend
        .Cells(x, 1) = Text1.Text
        .Cells(x, 2) = Text2.Text
        .Cells(x, 3) = Text3.Text
        .Cells(x, 4) = Text4.Text
        .Cells(x, 5) = Text5.Text
        .Cells(x, 6) = Text6.Text
        .Cells(x, 7) = IIf(Check1.Value, Check1.Caption, Check2.Caption) - [color=green]как если Check1 то Check2 не становится не активно, если        Check2 то Check1 становиться не активно
[/color]        
        .Cells(x, 8) = Combo1
        .Cells(x, 9) = Text7.Text
        .Cells(x, 10) = Text8.Text
        .Cells(x, 11) = Text9.Text
        .Cells(x, 12) = IIf(Check3.Value, Check3.Caption, Check4.Caption) - [color=green]как если Check3 то Check4 не становится не активно, если        Check4 то Check3 становиться не активно
[/color]        
        .Cells(x, 13) = Combo2
        .Cells(x, 14) = Text10.Text
        .Cells(x, 15) = Text11.Text
        .Cells(x, 16) = Text12.Text
        .Cells(x, 17) = Text13.Text
        .Cells(x, 18) = Text14.Text
        
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Combo1.Text = ""
        Combo2.Text = ""
      [color=green]  и как правильено написать что бы очищались поля Check1 , Check2, Check3 , Check4 после нажатия на кнопку "save"[/color]
        Check1.Caption = ""
        Check3.Caption = ""
        
             
    End With
    wb.Save
    xl.Quit
End Sub



после внесения данных в программу она записывает все в excel на каждую строчку, а как сделать что бы на морде программы отображалось именно номер строки в какую эти данные попали. что бы не заходить в excel и не переписывать этот номер строки
...
Рейтинг: 0 / 0
15.12.2015, 18:41
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129038
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
В конце процедуры вставьте строку:
Код: vbnet
1.
MsgBox "Данные внесены в строку № " & x


Или можно вывести эту информацию на форму (как Label, например)
Надеюсь, Вы поняли что № строки это х
...
Рейтинг: 0 / 0
15.12.2015, 18:56
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129436
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
ДмитВ конце процедуры вставьте строку:
Код: vbnet
1.
MsgBox "Данные внесены в строку № " & x


Или можно вывести эту информацию на форму (как Label, например)
Надеюсь, Вы поняли что № строки это х

Должно получиться так
Check1.Caption = ""
Check3.Caption = ""
МsgBox "Данные внесены в строку № " - это просто текс который будет отоброжаться & x

End With
wb.Save
xl.Quit
End Sub
...
Рейтинг: 0 / 0
16.12.2015, 10:46
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129455
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Алексей Москвакак если Check1 то Check2 не становится не активно, если Check2 то Check1 становиться не активноИспользуйте OptionButton. Чтобы создать несколько независимых групп, поместите каждую группу во Frame (одну группу можно оставить на форме): https://msdn.microsoft.com/en-us/library/aa241737(v=vs.60).aspx
...
Рейтинг: 0 / 0
16.12.2015, 10:54
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129517
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
Дмит,
все разобрался, Огромное спасибо.
все отображает отлично.
но как написать что бы писала на строчку ниже, тоесть допустим данные внесены в строку номер 4 , а что бы отображалась строка 3
...
Рейтинг: 0 / 0
16.12.2015, 11:25
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129518
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
КазанскийАлексей Москвакак если Check1 то Check2 не становится не активно, если Check2 то Check1 становиться не активноИспользуйте OptionButton. Чтобы создать несколько независимых групп, поместите каждую группу во Frame (одну группу можно оставить на форме): https://msdn.microsoft.com/en-us/library/aa241737(v=vs.60).aspx

можите написать код, пожалуйста на эти строчки
...
Рейтинг: 0 / 0
16.12.2015, 11:26
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129521
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
 
У Эндрю появился ученик?
...
Рейтинг: 0 / 0
16.12.2015, 11:29
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129523
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Алексей Москваможите написать код, пожалуйста на эти строчкиЭто ведь не вопрос, а утверждение - ну конечно можем. Особенно с учетом, что код там вообще писать не требуется.

а ты можешь прочитать учебник?

Впрочем, вопрос риторический, ты даже не в состоянии прочитать ссылки, которые тебе дают на нужную информацию. В частности на статью по оформлению кода. Так что после каждого следующего поста с неоформленным кодом топики будут автоматически закрываться.
...
Рейтинг: 0 / 0
16.12.2015, 11:31
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129525
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
The_PristУ Эндрю появился ученик?
сын подрастает ))
...
Рейтинг: 0 / 0
16.12.2015, 11:32
| Ответить | Цитировать | Написать  
нужна маленькая помощь
    #39129570
Алексей Москва
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Москва
Участник
КазанскийАлексей Москвакак если Check1 то Check2 не становится не активно, если Check2 то Check1 становиться не активноИспользуйте OptionButton. Чтобы создать несколько независимых групп, поместите каждую группу во Frame (одну группу можно оставить на форме): https://msdn.microsoft.com/en-us/library/aa241737(v=vs.60).aspx

я прочитал и все объединил но мне нужно понять как продолжить .Cells(x, 7) = - что бы в строчку выбиралось или одно или второе из Frame1
...
Рейтинг: 0 / 0
16.12.2015, 11:57
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужна маленькая помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39127484&tid=2155690]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 331ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


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