Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Автозаполнение ячеек Добавлено: 08.05.09 11:12  

Автор вопроса:  Bumos
Добрый день! В столбце F проставлены деньги - их нужно перевести в копейки (т.е. с одной ячейкой -
ActiveCell.FormulaR1C1 = "=RC[-1]*100"
получается), Как перевести в копейки диапазон ячеек. До последней заплненной ячейки. Причем количество строк в файлах всегда разное.

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Jasmin



Вопросов: 23
Ответов: 417
  Профиль | | #1 Добавлено: 09.05.09 11:24
  1. LastRow = Columns("F").Rows(65536).End(xlUp).Row  'определяем последнюю ячейку в столбце F
  2. For i = 10 To LastRow
  3.   Range("G" & i).FormulaR1C1 = "=RC[-1]*100"   'переводим в копейки
  4. Next i

Ответить

Номер ответа: 2
Автор ответа:
 Bumos



Вопросов: 2
Ответов: 2
  Профиль | | #2 Добавлено: 12.05.09 08:15
Спасибо большое! ОТЛИЧНО Все работает!!! Как новичек в VBA до такого
  1. Range("G" & i)
самому пришлось бы долго доходить.

Ответить

Номер ответа: 3
Автор ответа:
 Jasmin



Вопросов: 23
Ответов: 417
  Профиль | | #3 Добавлено: 12.05.09 17:48
Пожалуйста.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам