Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic Macros / 25 сообщений из 26, страница 1 из 2
  1  все
08.08.2008, 08:51
    #35477628
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Kak mozho na macrose pereshagnut' na odnu ya4eiku (if...then)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 08:59
    #35477639
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
поставь вопрос поконкретнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:03
    #35477647
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then

nuzhno 4tob ya4eika Cells(i+1,n) s dannimi pereshla na ya4eiku Cells(i+1,n) s dannimi.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:07
    #35477651
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:08
    #35477655
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
For i = 3 To 1073
rsOra.Open "select .....", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Cells(i, 1).Value = rsOra![...]
Cells(i, 2).Value = rsOra![...]
Cells(i, 3).Value = rsOra![...]
.
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then

<............................................................>

Cells(i+1,1) sdelaet probel i pereshagnet na i+2
End If
i = i + 1
rsOra.MoveNext
Wend
rsOra.Close
Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:09
    #35477656
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
ya pitalsya s ciclom no to 4to nado ne vihodit..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:13
    #35477664
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Nomad87а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?
net.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:13
    #35477665
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
попробуй next написать до закрытия файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:15
    #35477670
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
на самом деле я сам совсем недавно с vba познакомился поэтому
посоветую тебе почитать сайтик, для начала довольно интересный
http://on-line-teaching.com/vba/index.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:17
    #35477673
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
For i = 3 To 1073
rsOra.Open "select ...", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Cells(i, 1).Value = rsOra![...]
Cells(i, 2).Value = rsOra![...]
Cells(i, 3).Value = rsOra![...]

If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then
Cells(i + 1, 1).Value = Cells(i + 2, 1).Value
Cells(i + 1, 2).Value = Cells(i + 2, 2).Value
Cells(i + 1, 3).Value = Cells(i + 2, 3).Value

End If
i = i + 1
rsOra.MoveNext
Wend
Next i
rsOra.Close


Sdelal primerno tak no bez izmenenii...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:28
    #35477699
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
формулировка задачи?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 09:38
    #35477728
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
V Tablice Excel est' dannie

ASLAN 28 2.81
ASLAN 58 2.7
ASLAN 93 24
IVAN 92 2.72
OMAR 89 2.66

V itoge dolzho polu4itsya tak..

ASLAN 28 2.81
ASLAN 58 2.7
ASLAN 93 24
(zdes' pustaya ya4eika!)
IVAN 92 2.72
(zdes' pustaya ya4eika!)
OMAR 89 2.66

For i = 3 To 1073
rsOra.Open "select ...", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Cells(i, 1).Value = rsOra![...]
Cells(i, 2).Value = rsOra![...]
Cells(i, 3).Value = rsOra![...]

If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then

Cells(i + 1, 1).Value = Cells(i + 2, 1).Value(?nepravil'no)
Cells(i + 1, 2).Value = Cells(i + 2, 2).Value(?)
Cells(i + 1, 3).Value = Cells(i + 2, 3).Value(?)

End If
i = i + 1
rsOra.MoveNext
Wend
Next i
rsOra.Close
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 10:10
    #35477824
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Arlan88V Tablice Excel est' dannie

ASLAN 28 2.81
ASLAN 58 2.7
ASLAN 93 24
IVAN 92 2.72
OMAR 89 2.66

V itoge dolzho polu4itsya tak..

ASLAN 28 2.81
ASLAN 58 2.7
ASLAN 93 24
(zdes' pustaya ya4eika!)
IVAN 92 2.72
(zdes' pustaya ya4eika!)
OMAR 89 2.66


По какому правилу должны вставляться ячейки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 10:58
    #35477965
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Arlan
Arlan
Arlan
Arlan
Arlan
Arlan
Arlan
[pustaya]
Omar
Omar
Omar
Omar
Omar
Omar
[pustaya]
Ivan
Ivan
Ivan
Ivan
Ivan
......


Esli odinakovie imena togda ni4ego,esli Omar zatem Ivan 4ereduet to posle Omara dolzhna bit' pustaya ya4eika,to est' Ivan dolzhen spustitsya na odnu ya4eiku vniz.I tak dal'she..Ponyatno?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 11:28
    #35478055
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Nomad87а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?

Mozesh' prosto primer dat' dlya perehoda na sled. strani4ku?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 11:31
    #35478062
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
For i =  1  To Range("A65536").End(xlUp).Row
    
    If Cells(i,  1 ) <> Cells(i +  1 ,  1 ) Then
        Range(Cells(i +  1 ,  1 ), Cells(i +  1 ,  1 )).Select
        Selection.EntireRow.Insert
        i = i +  1 
    End If

Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 11:56
    #35478134
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Ya sdelal no on vse zapuskaet 4erez odnu ya4eiku.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 12:05
    #35478164
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  1  To Range("A65536").End(xlUp).Row
    
    If (Cells(i,  1 ) <> Cells(i +  1 ,  1 )) And (Cells(i,  1 ) <> "") And (Cells(i +  1 ,  1 ) <> "") Then
        Range(Cells(i +  1 ,  1 ), Cells(i +  1 ,  1 )).Select
        Selection.EntireRow.Insert
    End If

Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 12:22
    #35478223
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 12:45
    #35478287
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Arlan88Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
вы можете все подробно и с самого начала все объяснить...
с каждым постом появляются новые условия, какие пробелы в начале?
лучше скиньте ваш пример сюда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 12:53
    #35478314
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
birk Arlan88Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
вы можете все подробно и с самого начала все объяснить...
с каждым постом появляются новые условия, какие пробелы в начале?
лучше скиньте ваш пример сюда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 13:26
    #35478407
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
не понимаю... :)
вставляет он пустые строки при изменении ячейки, дальше то что...
может вам итоги нужны ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 13:51
    #35478475
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
birkне понимаю... :)
вставляет он пустые строки при изменении ячейки, дальше то что...
может вам итоги нужны ?



Kak dolzhen viglyadit(v ru4nuy sdelal poka ne rabotaet)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 14:03
    #35478522
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Arlan88
Kak dolzhen viglyadit(v ru4nuy sdelal poka ne rabotaet)

я не понимаю, в чем проблема, вот скрипт:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  3  To Range("A65536").End(xlUp).Row
    
    If (Cells(i,  1 ) <> Cells(i +  1 ,  1 )) And (Cells(i,  1 ) <> "") And (Cells(i +  1 ,  1 ) <> "") Then
        Range(Cells(i +  1 ,  1 ), Cells(i +  1 ,  1 )).Select
        Selection.EntireRow.Insert
    End If

Next i

вставьте его в код кнопки и все заработает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2008, 14:09
    #35478544
Arlan88
Arlan88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic Macros
Spasibo!Ogromnoe!Vse rabotaet.Ne poimu po4emu u menya ne rabotal?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic Macros / 25 сообщений из 26, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 366ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2161959]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 63ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 212ms
total:  366ms
x
x
Закрыть


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