ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic Macros
25 сообщений из 26, страница 1 из 2
  1  все
Visual Basic Macros
    #35477628
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Kak mozho na macrose pereshagnut' na odnu ya4eiku (if...then)?
...
Рейтинг: 0 / 0
08.08.2008, 08:51
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477639
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
поставь вопрос поконкретнее
...
Рейтинг: 0 / 0
08.08.2008, 08:59
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477647
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
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:03
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477651
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?
...
Рейтинг: 0 / 0
08.08.2008, 09:07
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477655
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
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:08
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477656
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
ya pitalsya s ciclom no to 4to nado ne vihodit..
...
Рейтинг: 0 / 0
08.08.2008, 09:09
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477664
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Nomad87а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?
net.
...
Рейтинг: 0 / 0
08.08.2008, 09:13
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477665
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
попробуй next написать до закрытия файла
...
Рейтинг: 0 / 0
08.08.2008, 09:13
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477670
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
на самом деле я сам совсем недавно с vba познакомился поэтому
посоветую тебе почитать сайтик, для начала довольно интересный
http://on-line-teaching.com/vba/index.html
...
Рейтинг: 0 / 0
08.08.2008, 09:15
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477673
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
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:17
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477699
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
формулировка задачи?
...
Рейтинг: 0 / 0
08.08.2008, 09:28
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477728
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
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, 09:38
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477824
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
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:10
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35477965
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
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, 10:58
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478055
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Nomad87а вы слышали о сушествовании циклов, об увеличении счетчиков для перехода на след ячейку?

Mozesh' prosto primer dat' dlya perehoda na sled. strani4ku?
...
Рейтинг: 0 / 0
08.08.2008, 11:28
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478062
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
Код: 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:31
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478134
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Ya sdelal no on vse zapuskaet 4erez odnu ya4eiku.
...
Рейтинг: 0 / 0
08.08.2008, 11:56
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478164
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
Код: 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:05
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478223
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
...
Рейтинг: 0 / 0
08.08.2008, 12:22
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478287
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
Arlan88Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
вы можете все подробно и с самого начала все объяснить...
с каждым постом появляются новые условия, какие пробелы в начале?
лучше скиньте ваш пример сюда
...
Рейтинг: 0 / 0
08.08.2008, 12:45
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478314
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
birk Arlan88Kak v na4ale bilo bez probelov tak i stalo.A gde v uslovii perehod?
вы можете все подробно и с самого начала все объяснить...
с каждым постом появляются новые условия, какие пробелы в начале?
лучше скиньте ваш пример сюда
...
Рейтинг: 0 / 0
08.08.2008, 12:53
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478407
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
не понимаю... :)
вставляет он пустые строки при изменении ячейки, дальше то что...
может вам итоги нужны ?
...
Рейтинг: 0 / 0
08.08.2008, 13:26
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478475
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
birkне понимаю... :)
вставляет он пустые строки при изменении ячейки, дальше то что...
может вам итоги нужны ?



Kak dolzhen viglyadit(v ru4nuy sdelal poka ne rabotaet)
...
Рейтинг: 0 / 0
08.08.2008, 13:51
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478522
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
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:03
| Ответить | Цитировать | Написать  
Visual Basic Macros
    #35478544
Arlan88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arlan88
Гость
Spasibo!Ogromnoe!Vse rabotaet.Ne poimu po4emu u menya ne rabotal?
...
Рейтинг: 0 / 0
08.08.2008, 14:09
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic Macros
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35477673&tid=2161959]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 71ms
get tp. blocked users:
 2ms
others: 255ms
total:  431ms
созд. / загр.: 431ms
x
x
Закрыть


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