пытался написать макрос / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пытался написать макрос

8 сообщений из 8, страница 1 из 1

пытался написать макрос

#36809059

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:30

| Ответить | Цитировать | Написать

пытался написать макрос

#36809066

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:35

| Ответить | Цитировать | Написать

пытался написать макрос

#36809080

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:47

| Ответить | Цитировать | Написать

пытался написать макрос

#36809086

pepel222

Гость

Ципихович Эндрю,

If poz.Font.Bold Then

типо чтобы ячейка была была не жирным текстом, а обычным

...

Рейтинг:

0 / 0

24.08.2010, 19:51

| Ответить | Цитировать | Написать

пытался написать макрос

#36809096

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

24.08.2010, 19:57

| Ответить | Цитировать | Написать

пытался написать макрос

#36809821

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

pepel222, опять в msgbox, да что ж такое! =))

...

Рейтинг:

0 / 0

25.08.2010, 11:14

| Ответить | Цитировать | Написать

пытался написать макрос

#36810786

pepel222

Гость

Всё таки есть вопросы
1)
скока строк всего в выскакивающем сообщении, и как реально их увеличить?
2)
Обратил внимание, что инфо по данному макросу тянет по строкам, а реально сделать, чтобы тащил по столбцам?

...

Рейтинг:

0 / 0

25.08.2010, 15:18

| Ответить | Цитировать | Написать

пытался написать макрос

#36811007

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

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

25.08.2010, 16:09

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пытался написать макрос

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=152&tid=2177760]:	0ms
get settings:	6ms
get forum list:	20ms
check forum access:	5ms
check topic access:	5ms
track hit:	62ms
get topic data:	12ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	202ms

total:	359ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы