ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Анализ типа ячеек
8 сообщений из 8, страница 1 из 1
Анализ типа ячеек
    #34390294
S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S
Гость
Добрый День, Всем!
Подскажите, пожалуйста, как написать макрос:
Есть лист, в котором содержится таблица (т.е. есть ячейки как числового значения, так и текстового) и есть кнопка на этом листе. Нужно умножить все числовые данные на определенное число. Т.е. хотелось бы, чтобы программа перебирала все заполненные ячейки, анализировала тип данных ячейки и в случае, если тип числовой, умножала на какое-нибудь.
...
Рейтинг: 0 / 0
14.03.2007, 14:18:24
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34390636
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
в код кнопки поместите код из этой процедуры. Умножатся только числа, но не формулы, дающие числа.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub MUL()
Dim MyNum As Double
Dim cell As Range

    MyNum = Application.InputBox("Введите число, на которое умножить", ,  1 , , , , ,  1 )
    
    For Each cell In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
        cell.Value = cell.Value * MyNum
    Next cell
    
End Sub
...
Рейтинг: 0 / 0
14.03.2007, 15:29:14
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34390688
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Привет vbapro!
А как сделать чтобы умножение происходило только в определенном столбце, например в "С", а не на всем листе?
...
Рейтинг: 0 / 0
14.03.2007, 15:44:37
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34390705
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
andMegaMПривет vbapro!
А как сделать чтобы умножение происходило только в определенном столбце, например в "С", а не на всем листе?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim cell As Range
Dim targetRng As Range

    MyNum = Application.InputBox("Ââåäèòå ÷èñëî, íà êîòîðîå óìíîæèòü", ,  1 , , , , ,  1 )
    
    Set targetRng = Application.Intersect(ActiveSheet.Range("C:C"), ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers))
    
    For Each cell In targetRng
        cell.Value = cell.Value * MyNum
    Next cell
    
End Sub
...
Рейтинг: 0 / 0
14.03.2007, 15:49:38
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34390709
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
vbapro andMegaMПривет vbapro!
А как сделать чтобы умножение происходило только в определенном столбце, например в "С", а не на всем листе?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim cell As Range
Dim targetRng As Range

    MyNum = Application.InputBox("Ââåäèòå ÷èñëî, íà êîòîðîå óìíîæèòü", ,  1 , , , , ,  1 )
    
    Set targetRng = Application.Intersect(ActiveSheet.Range("C:C"), ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers))
    
    For Each cell In targetRng
        cell.Value = cell.Value * MyNum
    Next cell
    
End Sub

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub MUL()
Dim MyNum As Double
Dim cell As Range
Dim targetRng As Range

    MyNum = Application.InputBox("Введите число, на которое умножить", ,  1 , , , , ,  1 )
    
    Set targetRng = Application.Intersect(ActiveSheet.Range("C:C"), ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers))
    
    For Each cell In targetRng
        cell.Value = cell.Value * MyNum
    Next cell
    
End Sub
...
Рейтинг: 0 / 0
14.03.2007, 15:50:38
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34390714
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Спасибо большое. Очень нужная штука
...
Рейтинг: 0 / 0
14.03.2007, 15:51:46
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34393943
S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S
Гость
Спасибо большое! Все работает, только вот если нажать на кнопку <отмена>, то все числа на листе обнуляются.:)
...
Рейтинг: 0 / 0
15.03.2007, 16:13:37
| Ответить | Цитировать | Написать  
Анализ типа ячеек
    #34393988
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
SСпасибо большое! Все работает, только вот если нажать на кнопку <отмена>, то все числа на листе обнуляются.:)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub MUL()
Dim MyNum As Double
Dim cell As Range
Dim targetRng As Range

    MyNum = Application.InputBox("Введите число, на которое умножить", ,  1 , , , , ,  1 )
    
    If MyNum =  0  Then Exit Sub
    
    Set targetRng = Application.Intersect(ActiveSheet.Range("C:C"), ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers))
    
    For Each cell In targetRng
        cell.Value = cell.Value * MyNum
    Next cell
    
End Sub
...
Рейтинг: 0 / 0
15.03.2007, 16:28:04
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Анализ типа ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34390714&tid=2183297]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 240ms
total:  391ms
созд. / загр.: 391ms
x
x
Закрыть


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