Срочно нужен скрипт.

[Oxygen]

К моему великому стыду работать с VBA e MS Excel я не умею совсем, времени разбираться нету. По-этому, если кому не лень киньте готовый скрипт и напишите куда его вставить, с диапазонами я разберусь сама. Задача такая - есть текст " руб." нужно добавить его ко всем ненулевым ячейкам в столбце (т.е. в ячейке уже есть текст, нужно добавлять в его конец). Пыталась делать вручную, но после 500 ячейки решила, что это не выход, когда строк порядка 50000.
Заранее спасибо.

[uhm]

Может, ты в формат ячеек это лучше запишешь? Никакого скрипта, а эффект тот же.

[uhm]

А если скрипт, то:

Код: Выделить всё

For i=1 to число_строк
if Cells(i,1).Value<>"" Then Cells(i,1).Value=Cells(i,1).Value & " руб."
Next i


Можно еще "For Each i in нужный_Range".

[alibek]

Или другой вариант -- во вторую колонку пишешь формулу "=A1 & ' руб.'" и растягиваешь формулу на всю область. После чего выделяешь результат, копируешь и вставляешь как значения.

[Igor_123]

Sub FormatGRN()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 13.05.2005 (!)
'

'
Dim c As Range
For Each c In Selection
If Len(CStr(c.Value)) <> 0 Then
c.Value = c.Value & " грн."
End If
Next
End Sub

Но с форматом проще, согласен

[Oxygen]

С форматом не получится, т.к. эта база потом сохраняется, как текст с табуляцией и скриптом перегоняется скриптом в MySQL и если будут левые символы формата, то могут быть глюки конкретные.

[Igor_123]

Пользоваться, выделяешь диапазон и запускаешь

И опоздал

[uhm]

Ай-яй-яй, а Selection-то у нас не установлен, а комментариев-то у нас про это нету... Да еще и валюта не та...

[Oxygen]

Или другой вариант -- во вторую колонку пишешь формулу "=A1 & ' руб.'" и растягиваешь формулу на всю область. После чего выделяешь результат, копируешь и вставляешь как значения.

Это помогло, вот только, не одинарные, а двойные ковычки пришлось поставить.

Все, спасибо, вопрос закрыт.

[Igor_123]

Почему не установлен, выделяешь диапазон и вперёд.
Я так всегда делаю, когда надо в разных местах сделать такие вещи. Нет привязки к столбцам и строкам.

Это текст коментариев
'
' Макрос1 Макрос
' Макрос записан 13.05.2005 (!)
'


Ну а с валютой, мне такая больше нравиться

[uhm]

Шучу, шучу...

[Igor_123]

Шучу, шучу...

Дык у меня-ж тоже пятница

и спасибо за http://www.windowsfaq.ru/faq/cmdxp/
набрёл случаянно, очень полезно для общего развития