Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пытался написать макрос / 8 сообщений из 8, страница 1 из 1
24.08.2010, 19:30
    #36809059
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Пытаюсь вытащить инфо о ячейках, которые выделены жирным
причем выдавать в виде сообщения

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton6_Click()
Dim msg As String, c As Range

For Each c In Range("d3:cc40")
If c.Font.Bold And IsNumeric(c) Then
        msg = msg & Cells( 1 , poz.Column) & " сумма: " & poz.Value & vbCrLf
            End If
Next c
MsgBox msg
End Sub

нужна помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2010, 19:35
    #36809066
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton6_Click()
Dim msg As String, poz As Range

For Each poz In Range("d3:cc40")
If poz.Font.Bold And IsNumeric(poz) Then
        msg = msg & Cells( 1 , poz.Column) & " сумма: " & poz.Value & vbCrLf
            End If
Next poz
MsgBox msg
End Sub

процесс пошел, но вытащил выделенные жирным, надо наоборот =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2010, 19:47
    #36809080
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton6_Click()
Dim msg As String, poz As Range

For Each poz In Range("d3:cc40")
If poz.Font.Bold Then
        msg = msg & Cells( 1 , poz.Column) & " ñóììà: " & poz.Value & vbCrLf
            End If
Next poz
MsgBox msg
End Sub

как сделать обычный текст?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2010, 19:51
    #36809086
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Ципихович Эндрю,

If poz.Font.Bold Then

типо чтобы ячейка была была не жирным текстом, а обычным
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2010, 19:57
    #36809096
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Ципихович Эндрю,

бинго вот оно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton6_Click()
Dim msg As String, poz As Range

For Each poz In Range("d3:cc30")
If poz.Font.Bold = False And Not IsEmpty(poz) Then
        msg = msg & Cells( 1 , poz.Column) & " сумма: " & poz.Value & vbCrLf
            End If
Next poz
MsgBox msg
End Sub

спс, вопрос снялся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2010, 11:14
    #36809821
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
pepel222, опять в msgbox, да что ж такое! =))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2010, 15:18
    #36810786
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
Всё таки есть вопросы
1)
скока строк всего в выскакивающем сообщении, и как реально их увеличить?
2)
Обратил внимание, что инфо по данному макросу тянет по строкам, а реально сделать, чтобы тащил по столбцам?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2010, 16:09
    #36811007
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пытался написать макрос
pepel222Всё таки есть вопросы
1)
скока строк всего в выскакивающем сообщении, и как реально их увеличить?
2)
Обратил внимание, что инфо по данному макросу тянет по строкам, а реально сделать, чтобы тащил по столбцам?1) не знаю сколько строк, но ни разу не сталкивался с их нехваткой.
2) судя по коду макроса, он берет ячейки последовательно слева направо первой строки диапазона, затем из следующей и т.д. Если надо как-то по другому, то можно например использовать два вложенных цикла, что-то вроде этого:
Код: plaintext
1.
2.
3.
4.
For i =  1  To  10 
 For j =  1  To  20 
  MsgBox Cells(j, i)
 Next j
Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пытался написать макрос / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 388ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177760]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 76ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 222ms
total:  388ms
x
x
Закрыть


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