Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Варианты группировки с переключателей / 13 сообщений из 13, страница 1 из 1
16.12.2015, 14:25
    #39129796
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
ПОМОГИТЕ НАПИСАТЬ ПРАВИЛЬНО КОД.

Код: 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.
58.
59.
60.
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\Пользователь\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) = Check1.Caption - [color=green]как сделать что бы в .Cells(X, 7) отображалось или Check1 или Check2 в зависимости где стоит галочка. ( имя Check1 - М , имя Check2 - Ж )[/color]
        [color=red].Cells(X, 7) = Check2.Caption[/color]
        .Cells(X, 8) = Combo1
        .Cells(X, 9) = Text7.Text
        .Cells(X, 10) = Text8.Text
        .Cells(X, 11) = Text9.Text
        .Cells(X, 12) = Check3.Caption [color=green]как сделать что бы в .Cells(X, 7) отображалось или Check1 или Check2 в зависимости где стоит галочка. ( имя Check3 - М , имя Check4 - Ж )[/color]
        [color=red].Cells(X, 12) = Check4.Caption[/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 - очищались автоматически[/color]
        Check1.Caption = ""
        Check2.Caption = ""
        Check3.Caption = ""
        Check4.Caption = ""
        
             
    End With
    wb.Save
    MsgBox "Данные внесены в строку № " & X - [color=green]сейчас показывает куда данные записались например: строчка 5, а нужно что бы например записалась в строчку 5 а показала 4[/color]
    xl.Quit
End Sub




СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 08:06
    #39130404
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей Москва
Код: vbnet
1.
.Cells(X, 7) = iif(CheckBox1.Value, "1", "2")





PS: и не надо так орать, и лучше формируйте мысль
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 09:41
    #39130471
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
HandKot,
то что вы написали не работает, выделяется желтым
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 09:42
    #39130474
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
КАК еще сделать вот это

End With
wb.Save
MsgBox "Данные внесены в строку № " & X - сейчас показывает куда данные записались например: строчка 5, а нужно что бы например записалась в строчку 5 а показала 4
xl.Quit
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 10:41
    #39130530
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей МоскваКАК еще сделать вот это
Код: vbnet
1.
MsgBox "Данные внесены в строку № " & X 'сейчас показывает куда данные записались например: строчка 5, а нужно что бы например записалась в строчку 5 а показала 4

Так наверно?
Код: vbnet
1.
MsgBox "Данные внесены в строку № " & X-1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 11:03
    #39130556
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Казанский,
Огромное спасибо а можешь еще помочь пожалуйста.....

Есть Frame1 в ней находятся Check1 и Check2
нужно что бы в excel записывалось в .Cells(X, 7) = и отображалось или Check1 или Check2 в зависимости где стоит галочка.
( Check1 - Caption - М )
( Check2 - Caption - Ж )

и как сделать что бы после сохранения эти галочки автоматически убирались, полностью код в самом начале.

СПАСИБО ОГРОМНОЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 13:06
    #39130703
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей МоскваHandKot,
то что вы написали не работает, выделяется желтым
Вы вставили точь в точь как я написал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 17:30
    #39131086
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
HandKotАлексей МоскваHandKot,
то что вы написали не работает, выделяется желтым
Вы вставили точь в точь как я написал?

Код: 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.
Dim wb As Object
Dim X As Integer
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\&#207;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#252;\Desktop\&#198;&#243;&#240;&#237;&#224;&#235;\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(CheckBox1.Value, "1", "2")
        .Cells(X, 8) = Combo1
        .Cells(X, 9) = Text7.Text
        .Cells(X, 10) = Text8.Text
        .Cells(X, 11) = Text9.Text
        .Cells(X, 12) = IIf(CheckBox2.Value, "1", "2")
        .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 = ""
        Check2.Caption = ""
        Check3.Caption = ""
        Check4.Caption = ""
        
             
    End With
    wb.Save
    MsgBox "&#196;&#224;&#237;&#237;&#251;&#229; &#226;&#237;&#229;&#241;&#229;&#237;&#251; &#226; &#241;&#242;&#240;&#238;&#234;&#243; &#185; " & X - 1
    xl.Quit
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2015, 18:23
    #39131159
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей МоскваЕсть Frame1 в ней находятся Check1 и Check2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2015, 08:07
    #39131495
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей Москва,
нужно иногда включать мозг (простите за грубость)

Я написал направление, а не конкретное решение.
Как сказал Shocker.Pro , если у Вас есть Frame и объект называется Check, то и обращатся надо к нему
Код: vbnet
1.
.Cells(X, 7) = iif(Check1.Value, "1", "2")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2015, 12:35
    #39131712
Алексей Москва
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
HandKot,
Спасибо разобрался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2015, 16:18
    #39137316
Святой Няка-Лайк
Святой Няка-Лайк
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
Алексей Москва,
Пиши так:

.Cells(x, 7) = IIf(Check1.Value = 1 , Check1.Caption, Check2.Caption)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2015, 16:19
    #39137318
Святой Няка-Лайк
Святой Няка-Лайк
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Варианты группировки с переключателей
И читай это:
http://www.cyberforum.ru/vba/thread504301.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Варианты группировки с переключателей / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155678]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 307ms
total:  434ms
x
x
Закрыть


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