ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Допоможіть, дуже прошу !
9 сообщений из 9, страница 1 из 1
Допоможіть, дуже прошу !
    #34403310
Pita
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pita
Участник
Мені потрібно за допомогою макросів у Microsoft Excel задати цикл, за допомогою яких функцій це можливо
...
Рейтинг: 0 / 0
20.03.2007, 15:52
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34403379
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Правила форума

Правила форума на SQL.RU (v1.0)


Назначение
Форум предназначен для обсуждения вопросов, связанных с СУБД и родственными темами. Возможно обсуждение других вопросов согласно наименованию разделов форума. Соответственно, раздел "Microsoft SQL Server" предназначен для обсуждения вопросов, связанных с установкой, разработкой и администрированием MS SQL Server'а и т.д. Для обсуждения любых других вопросов, не подпадающих ни под один из разделов форума, существуют разделы "Просто треп" и "Вопрос-Ответ".

Ограничения
Официальный язык форума - русский. Однако допускаются сообщения, написанные транслитом и на английском языке. Использование других языков возможно при цитировании либо в других исключительных случаях.

видимо это "другой исключительный случай"
...
Рейтинг: 0 / 0
20.03.2007, 16:09
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34403884
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
vkodor
видимо это "другой исключительный случай"
Видимо :).
Негоже встречать новичка придирками. Считаю украинский менее исключительным чем английский.


2 Pita
Уважаемый(ая?), просьба четче сформулировать вопрос, не понятно что конкретно вам нужно - цикл макросов или просой цикл в коде?

Цикл в коде формируется например с помощью операторов For .. Next
...
Рейтинг: 0 / 0
20.03.2007, 18:16
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34404535
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Magnus23Негоже встречать новичка придирками. Считаю украинский менее сключительным чем английский.+1

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос1()
Sheets("Sheet1").Select
r =  0 
For i =  1  To  100 
    r = Range("A" & CStr(i)).Value
    If Val(r) >  0  Then
        ' шо-нибудь делай
    End If
Next
End Sub
...
Рейтинг: 0 / 0
21.03.2007, 07:43
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34407612
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дурак
Участник
ОФФ конечно, и флейм, ессно, модератор может удалить... но.

Неужели в Украине есть люди, не владеющие русским языком?
...
Рейтинг: 0 / 0
22.03.2007, 09:50
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34408971
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
ДуракОФФ конечно, и флейм, ессно, модератор может удалить... но.

Неужели в Украине есть люди, не владеющие русским языком?
Валом. Особенно в новых поколениях. Много таких кто понимает русских но использование его для них некомфортно, примерно так же как русские понимают украинский но писать на нем никогда не будут.

И давайте закроем на этом языково-флеймовую тему :).
...
Рейтинг: 0 / 0
22.03.2007, 15:07
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34634619
light_ret
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
light_ret
Участник
klen_ Magnus23Негоже встречать новичка придирками. Считаю украинский менее сключительным чем английский.+1

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос1()
Sheets("Sheet1").Select
r =  0 
For i =  1  To  100 
    r = Range("A" & CStr(i)).Value
    If Val(r) >  0  Then
        ' шо-нибудь делай
    End If
Next
End Sub


А если количество строк не известно?
Оно вормируется, когда данные записываются в отчет.

Спасибо!
...
Рейтинг: 0 / 0
03.07.2007, 12:45
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34634639
light_ret
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
light_ret
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
For Each c In Range("field")
      If c.ColumnWidth > ColumnWidthMax Then
        c.ColumnWidth = ColumnWidthMax
      End If
      'displayformat
      If Cells(c.row +  3 , c.Column).Value <> "" Then
        Cells(c.row +  1 , c.Column).NumberFormat = Cells(c.row +  3 , c.Column).Value
        Cells(c.row +  3 , c.Column).Value = ""
      End If
    Next c
Я так понял это именно та часть в моем макросе в которой идет обратотка строк, согласно вытянутых данных из с.
Или я ошибаюсь?
...
Рейтинг: 0 / 0
03.07.2007, 12:50
| Ответить | Цитировать | Написать  
Допоможіть, дуже прошу !
    #34634871
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
light_retА если количество строк не известно?
Код: plaintext
1.
2.
With ThisWorkbook.Worksheets("Лист1").UsedRange
       RowMax = .Rows.Count + .Row -  1    ' номер последней строки, с непустыми ячейками
End With
Код: plaintext
1.
RowMax = ThisWorkbook.Worksheets("Лист1").UsedRange.Rows.Count 
кол-во использованных строк (то есть пропускает пустые)
...
Рейтинг: 0 / 0
03.07.2007, 13:39
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Допоможіть, дуже прошу !
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34403884&tid=2163777]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 159ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 209ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


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