Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пропуск определённых столбцов? / 5 сообщений из 5, страница 1 из 1
18.12.2012, 20:30
    #38084151
Mikhail.91
Mikhail.91
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пропуск определённых столбцов?
Надо сделать вот так:

Или вот так:

http://www.ex.ua/load/367863784868/41193778] Скачать проект
Help(Информация): открываем в корневом каталоге Стипендия Новая.xlsm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2012, 22:15
    #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:18
    #38084257
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пропуск определённых столбцов?
Mikhail.91, я уже один раз предупреждал про использование тэгов оформления кода.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2012, 22:21
    #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
| Ответить | Цитировать | Написать  
19.12.2012, 13:59
    #38085070
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пропуск определённых столбцов?
Mikhail.91Как мне запихнуть ещё одну процедуру в эту процедуру?
Вообще, понятно не очень. В приведенном фрагменте вообще нет процедур, только фрагменты кода.
То есть что куда надо запихивать вообще непонятно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пропуск определённых столбцов? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 145ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157262]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 18ms
total:  145ms
x
x
Закрыть


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