Форумы-->Форум для внеигровых тем-->
1|2
| Автор | Макросы в Excel. VBA, Подскажите. |
|---|
формат переменной задается с помощью dim в самом начале
as integer - как число
as variant - как текст | Если надо посчитать вхождение каждой цифирки:
m - массив нумерация желательно с 0 до 9, если 1-10 то использовать lid+47
For j = 1 To 100
schetchik = 0
For i = 1 To 100
dannoe = Worksheets("Лист1").Cells(i, j)
chislosimvolov = Len(dannoe)
For k = 1 To chislosimvolov
for lid = 0 to 9
simvol = Left(Right(dannoe, chislosimvolov - k + 1), 1)
If (asc(simvol) = lid+48) Then m[lid]=m[lid]+1
next lid
Next k
Next i
Worksheets("Лист2").Cells(1, j) = schetchik
Next j
вместо asc() возможно ord()/chr(), я реально вбашные функции не помню. но суть думаю ясна. | для Lucky_ID:
#2301darksetik
[>] [ц]
20 2010-08-09 15:13:46
chr() эврика..то, что надо))
Я думаю он уже нашел ответ ) | для Lucky_ID:
chr() отлично подошла. цикл просто вставляю в аргумент и всё. (аргумент 48 соотвествует символу 0, 49 - символу 1 и т.д.)
Всем спасибо!)) |
1|2К списку тем
|
