ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пропуск определённых столбцов?
5 сообщений из 5, страница 1 из 1
пропуск определённых столбцов?
    #38084151
Mikhail.91
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhail.91
Гость
Надо сделать вот так:

Или вот так:

http://www.ex.ua/load/367863784868/41193778] Скачать проект
Help(Информация): открываем в корневом каталоге Стипендия Новая.xlsm
...
Рейтинг: 0 / 0
18.12.2012, 20:30
| Ответить | Цитировать | Написать  
пропуск определённых столбцов?
    #38084249
Mikhail.91
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhail.91
Гость
Mikhail.91Надо сделать вот так:

Или вот так:

http://www.ex.ua/load/367863784868/41193778] Скачать проект
Help(Информация): открываем в корневом каталоге Стипендия Новая.xlsm

For b = 3 To 19
If Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
c = c + 1
If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) < 4 Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "н/а" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "н\а" Then
stip1 = False
End If
If Sheets(UserForm1.ComboBox1.Text).Cells(a, 23) > 0 Then
stip2 = False
End If

If Sheets(UserForm1.ComboBox1.Text).Cells(a, 24) = "ê" Then
stip3 = False
End If

If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = 5 Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "зач" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "-" Then
Pyat = Pyat + 1
End If
End If
Next b
Как мне запихнуть ещё одну процедуру в эту процедуру?
Есть вариант, но всё безуспешно(

a = Per + 1
If Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
Do While Sheets(UserForm1.ComboBox1.Text).Cells(a, 2) <> ""
If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) <> "" Then
EmptyCol = False
Exit Do
End If
a = a + 1
Loop
End If
If EmptyCol = True And Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
Sheets(UserForm1.ComboBox1.Text & "_ПустыеПридметы").Cells(n, 1) = UserForm1.ComboBox1.Text
Sheets(UserForm1.ComboBox1.Text & "_ПустыеПридметы").Cells(n, 2) = Sheets(UserForm1.ComboBox1.Text).Cells(Per, b)
n = n + 1
...
Рейтинг: 0 / 0
18.12.2012, 22:15
| Ответить | Цитировать | Написать  
пропуск определённых столбцов?
    #38084257
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Mikhail.91, я уже один раз предупреждал про использование тэгов оформления кода.
...
Рейтинг: 0 / 0
18.12.2012, 22:18
| Ответить | Цитировать | Написать  
пропуск определённых столбцов?
    #38084261
Mikhail.91
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhail.91
Гость
[quot Mikhail.91]Mikhail.91Надо сделать вот так:

Или вот так:

http://www.ex.ua/load/367863784868/41193778] Скачать проект
Help(Информация): открываем в корневом каталоге Стипендия Новая.xlsm

+
 
Код: vbnet
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.
For b = 3 To 19
    If Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
    c = c + 1
        If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) < 4 Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "н/а" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "н\а" Then
        stip1 = False
        End If
        If Sheets(UserForm1.ComboBox1.Text).Cells(a, 23) > 0 Then
        stip2 = False
        End If
        
        If Sheets(UserForm1.ComboBox1.Text).Cells(a, 24) = "&#234;" Then
        stip3 = False
        End If
   
        If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = 5 Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "зач" Or Sheets(UserForm1.ComboBox1.Text).Cells(a, b) = "-" Then
        Pyat = Pyat + 1
        End If
    End If
    Next b
Как мне запихнуть ещё одну процедуру в эту процедуру?
Есть вариант, но всё безуспешно(

[color=red]a = Per + 1
    If Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
        Do While Sheets(UserForm1.ComboBox1.Text).Cells(a, 2) <> ""
            If Sheets(UserForm1.ComboBox1.Text).Cells(a, b) <> "" Then
                EmptyCol = False
                Exit Do
            End If
        a = a + 1
        Loop
    End If
    If EmptyCol = True And Sheets(UserForm1.ComboBox1.Text).Cells(Per, b) <> "" Then
    Sheets(UserForm1.ComboBox1.Text & "_ПустыеПридметы").Cells(n, 1) = UserForm1.ComboBox1.Text
    Sheets(UserForm1.ComboBox1.Text & "_ПустыеПридметы").Cells(n, 2) = Sheets(UserForm1.ComboBox1.Text).Cells(Per, b)
    n = n + 1[/color][/quot]

...
Рейтинг: 0 / 0
18.12.2012, 22:21
| Ответить | Цитировать | Написать  
пропуск определённых столбцов?
    #38085070
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Mikhail.91Как мне запихнуть ещё одну процедуру в эту процедуру?
Вообще, понятно не очень. В приведенном фрагменте вообще нет процедур, только фрагменты кода.
То есть что куда надо запихивать вообще непонятно.
...
Рейтинг: 0 / 0
19.12.2012, 13:59
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пропуск определённых столбцов?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=65&tid=2157262]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 13ms
total:  128ms
созд. / загр.: 128ms
x
x
Закрыть


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