Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по работе форума
Страницы: 1 2 3 4 5 След.
RSS
Тест тегов, пробую научиться польз-ся тегами
 
#1
26.12.2012 21:13:54
Код
Sub ertert()
Dim s, i&
With Range("A2:A6")
    .Replace ",", " ": .Replace ";", " ": .Replace "/", " "
    s = Split(Join(WorksheetFunction.Transpose(.Value), " "))
End With
With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(s)
        If Not .Contains(Val(s(i))) Then .Add Val(s(i))
    Next i
    .Sort: Range("A9").Resize(, .Count).Value = .ToArray
End With
End Sub
 
 
 
#2
26.12.2012 21:17:55
Вроде получилось. Выделяю код, нажимаю кнопку Курсив, потом вручную меняю "I" на "code". Правильно делаю?
И еще, какой тег использовать для спойлера?
 
 
 
#3
26.12.2012 21:32:33
spoiler
----
Только зачем использовать курсив, если на панели есть <...>  такой тег ?
Изменено: R Dmitry - 26.12.2012 21:34:27
Спасибо
 
 
 
#4
26.12.2012 21:34:48
А Value всё равно с квадратиком.
 
 
 
#5
26.12.2012 21:50:14
да.... chr(28),  вносит свои поправки :)))
Спасибо
 
 
 
#6
26.12.2012 21:53:53
Код
И точно, кнопочка же есть!Спасибо

а спойлер так и не нашел  :cry:  
И Value у меня без квадратика

[----]Как будто нашел[/----]
Изменено: nilem - 26.12.2012 21:56:44
 
 
 
#7
26.12.2012 21:55:31
Спойлер ручками ))
 
 
 
#8
26.12.2012 21:57:05
Николай, я уже предлагал спойлер на панель добавить, но пока не добавили, поэтому я пишу ручками
spoiler
Спасибо
 
 
 
#9
26.12.2012 21:57:32
----Еще раз спойлер----

Видимо, что-то у меня с ручками. Юрий, как правильно записать?
Изменено: nilem - 26.12.2012 21:58:28
 
 
 
#10
26.12.2012 21:59:22
Цитата
И Value у меня без квадратика
А в первом сообщение что?
 
 
 
#11
26.12.2012 22:00:25
{spoiler=Нажми меня} UPS!  :)  {/spoiler}
Замени фигурные скобки на квадратные
Изменено: R Dmitry - 26.12.2012 22:01:10
Спасибо
 
 
 
#12
26.12.2012 22:03:18
Нажми меня

а вот картинка с Валью (если прикрепится)
Наверное, не "с Валью", а "с Вальей"  :)
Изменено: nilem - 26.12.2012 22:10:38
 
 
 
#13
26.12.2012 22:04:17
Да заметил еще одну странность в спойлере, иногда когда его добавляешь в пост, он не раскрывается пока не обновишь страницу.
Спасибо
 
 
 
#14
26.12.2012 22:11:35
Цитата
nilem пишет:
а вот картинка с Валью
Ага, а теперь смотрим на код в ПЕРВОМ сообщении. Нет квадратиков?
 
 
 
#15
26.12.2012 22:11:46
... и во время редактирования квадр. скобки заменяются на кракозябры
 
 
 
#16
26.12.2012 22:17:27
Наверное, у меня не только с ручками, но и с глазками ...  :)
Ну, нет квадратиков: точка и Value. А как должно быть?
 
 
 
#17
26.12.2012 22:20:12
И на скрине не видно?
 
 
 
#18
26.12.2012 22:37:08
А на этом?
 
 
 
#19
26.12.2012 22:50:33
Цитата
Юрий М пишет:
И на скрине не видно?
На скрине видно, но реально у меня отображается без квадратов. Также как у RAN.
Видимо, это временно (т.е. квадраты появятся у всех  :) )

Главное, что нашел кнопку с тегом код (почему-то она не "диез", как обычно)
Спасибо
 
 
 
#20
26.12.2012 23:02:52
У вас какие-то машины странные :) И откуда мне знать, что это скрин с экрана, а не из редактора? )))
 
 
 
#21
26.12.2012 23:13:18
Из редактора.
 
 
 
#22
26.12.2012 23:19:36
Во! Есть квадратики! )))
 
 
 
#23
26.12.2012 23:21:10
Наверно эти "квадратики от браузера зависят. У меня в хроме ишаке нет ничего, а опере - лишний пробел. Других в данный момент нет.

зы. пропробую из гугла-хром отпрваить

Код
Sub ertert()
Dim s, i&
With Range("A2:A6")
    .Replace ",", " ": .Replace ";", " ": .Replace "/", " "
    s = Split(Join(WorksheetFunction.Transpose(.Value), " "))
End With
With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(s)
        If Not .Contains(Val(s(i))) Then .Add Val(s(i))
    Next i
    .Sort: Range("A9").Resize(, .Count).Value = .ToArray
End With
End Sub
 
 
 
#24
26.12.2012 23:21:30
Код
End F unction
 
 
 
#25
26.12.2012 23:22:33
Это ещё один пример глюка с кодом: в оригинале End F unction без пробела.
 
 
 
#26
26.12.2012 23:27:29
В гуле все нормально, в опере - с пробелом.
Но в редакторе строки все равно красные...
 
 
 
#27
27.12.2012 01:32:41
что делает тег code абсолютно бесполезным  :)
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#28
27.12.2012 05:47:30
Цитата
бесполезным
поправка: вредным.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#29
27.12.2012 07:58:03
тест
Sub ertert()
Dim s, i&
With Range("A2:A6"  ;)  
.Replace ",", " ": .Replace ";", " ": .Replace "/", " "
s = Split(Join(WorksheetFunction.Transpose(Value), " "  ;))
End With
End Sub

увы.
начальные пробелы и табы в обычном тексте с моноширинным фонтом движок съедает.
Изменено: ikki - 27.12.2012 08:02:32
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#30
27.12.2012 12:53:36
Научите - какими тегами постить код?
Пытался вот тут -
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=192
ничего не получилось с CODE-/CODE... Или поменяли что в консерватории - но у меня всё лепит в одну строку.

Код
Function Проверка&(R As Range, Rng As Range)    
Dim i&    
   With Rng        
      For i = 1 To .Count            
         If R = .Cells(i) Then Проверка = 1: Exit Function        
      Next    
   End With
End F unction
Изменено: Hugo - 27.12.2012 15:39:11
 
 
 
Страницы: 1 2 3 4 5 След.
Наверх