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

Не хочешь читать правила форума, рекомендации и т.п. - не надо. Результат-то тебе нужен, не нам. Пиши как хочешь.
НО (модераторское предупреждение!) - твой следующий топик с неинформативным заголовком будет закрываться сразу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2015, 18:24
    #39127649
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
авторExcel вносит их по порядку в каждую строчку при каждом нажатии на сохранить.
вот как сделать так что бы когда я нажимаю на сохранить, у меня программа показывала и отобразила этот номер строки куда эти данные били записаны
Excel не вносит по порядку, а вносит Ваша программа, код которой Вас и просят показать (а не морду формы :) )
Поскольку Вы сделали скриншот из редактора, то удосужтесь кликнуть на кнопке "сохранить" два раза и привести процедуру сохранения.
PS можно и файл выложить без конфиденциальных данных, если совсем туго с VBA :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 17:52
    #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, 18:41
    #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:56
    #39129038
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
В конце процедуры вставьте строку:
Код: vbnet
1.
MsgBox "Данные внесены в строку № " & x


Или можно вывести эту информацию на форму (как Label, например)
Надеюсь, Вы поняли что № строки это х
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 10:46
    #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:54
    #39129455
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
Алексей Москвакак если Check1 то Check2 не становится не активно, если Check2 то Check1 становиться не активноИспользуйте OptionButton. Чтобы создать несколько независимых групп, поместите каждую группу во Frame (одну группу можно оставить на форме): https://msdn.microsoft.com/en-us/library/aa241737(v=vs.60).aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 11:25
    #39129517
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
Дмит,
все разобрался, Огромное спасибо.
все отображает отлично.
но как написать что бы писала на строчку ниже, тоесть допустим данные внесены в строку номер 4 , а что бы отображалась строка 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 11:26
    #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:29
    #39129521
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
 
У Эндрю появился ученик?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 11:31
    #39129523
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
Алексей Москваможите написать код, пожалуйста на эти строчкиЭто ведь не вопрос, а утверждение - ну конечно можем. Особенно с учетом, что код там вообще писать не требуется.

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

Впрочем, вопрос риторический, ты даже не в состоянии прочитать ссылки, которые тебе дают на нужную информацию. В частности на статью по оформлению кода. Так что после каждого следующего поста с неоформленным кодом топики будут автоматически закрываться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 11:32
    #39129525
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужна маленькая помощь
 
The_PristУ Эндрю появился ученик?
сын подрастает ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2015, 11:57
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужна маленькая помощь / 21 сообщений из 21, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 153ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155690]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 11ms
total:  153ms
x
x
Закрыть


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