Да простит меня админ, буду я OFFTOПить - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Да простит меня админ, буду я OFFTOПить - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Да простит меня админ, буду я OFFTOПить

Да простит меня админ, буду я OFFTOПить

Дата: Пятница, 08.10.2010, 13:51 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 34 ±

Замечаний: 0% ±

=СИМВОЛ(65)&СИМВОЛ(108)&СИМВОЛ(101)&СИМВОЛ(120)&СИМВОЛ(95)&СИМВОЛ(83)&СИМВОЛ(84)
=СИМВОЛ(67)&СИМВОЛ(79)&СИМВОЛ(78)&СИМВОЛ(71)&СИМВОЛ(82)&СИМВОЛ(65)&СИМВОЛ(84)&СИМВОЛ(85)&СИМВОЛ(76)&СИМВОЛ(65)&СИМВОЛ(84)&СИМВОЛ(69)&СИМВОЛ(32)&СИМВОЛ(33)

Ответить

Дата: Пятница, 08.10.2010, 14:21 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Спасибо БОЛЬШОЕ!
0mega, неужели вы это ручками писали с утра? Или всё-таки макросом за 5 минут? biggrin

biggrin

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Пятница, 08.10.2010, 14:33 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 34 ±

Замечаний: 0% ±

Quote (Alex_ST)

неужели вы это ручками писали...

подтвеждаю

P.S.
Если честно, то я боялся что на ставнях другие коды

Ответить

Дата: Пятница, 08.10.2010, 14:47 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Да, 0mega, вот это труд!
Это же уникальная ручная работа!

На моих ХРюшиных форточках всё показало как автор задумал.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Пятница, 08.10.2010, 15:11

Ответить

Дата: Пятница, 08.10.2010, 15:23 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3703

Репутация: 792 ±

Замечаний: 0% ±

365

А мне, чтоб прочитать, пришлось с
=SUBSTITUTE(A1;"СИМВОЛ";"CHAR")
извращаться, потом копировать только значение и дописыввать "=" ! (2Х)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Пятница, 08.10.2010, 15:33 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

=СИМВОЛ(48)&СИМВОЛ(109)&СИМВОЛ(101)&СИМВОЛ(103)&СИМВОЛ(97)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(224)&СИМВОЛ(32)&СИМВОЛ(226)&СИМВОЛ(241)&СИМВОЛ(184)&СИМВОЛ(45)&СИМВОЛ(242)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(232)&СИМВОЛ(32)&СИМВОЛ(236)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(241)&СИМВОЛ(238)&СИМВОЛ(236)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(224)&СИМВОЛ(236)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(227)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(239)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(249)&СИМВОЛ(229)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(253)&СИМВОЛ(242)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(228)&СИМВОЛ(235)&СИМВОЛ(255)&СИМВОЛ(32)&СИМВОЛ(235)&СИМВОЛ(229)&СИМВОЛ(237)&СИМВОЛ(232)&СИМВОЛ(226)&СИМВОЛ(251)&СИМВОЛ(245)&СИМВОЛ(46)

Code

Sub Хитрый_Текст()
    Const txt$ = "Текст"
    Dim i%, ss$
    For i = 1 To Len(txt)
       ss = ss & "&СИМВОЛ(" & Asc(Mid(txt, i, 1)) & ")"
    Next i
    Debug.Print "=" & Mid(ss, 2)
End Sub

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Пятница, 08.10.2010, 15:37 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

+1 Offtop
Народ, а у вас Планета тоже не отвечает уже больше часа или это наши сисадмины опять что-то "подкрутили"?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Пятница, 08.10.2010, 16:00 | Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 34 ±

Замечаний: 0% ±

Quote (Alex_ST)

а у вас Планета тоже не отвечает

у меня висит

Ответить

Дата: Пятница, 08.10.2010, 18:11 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 34 ±

Замечаний: 0% ±

Quote (Alex_ST)

=СИМВОЛ(48)&СИМВОЛ(109)&СИМВОЛ(101)&СИМВОЛ(103)&СИМВОЛ(97)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(224)&СИМВОЛ(32)&СИМВОЛ(226)&СИМВОЛ(241)&СИМВОЛ(184)&СИМВОЛ(45)&СИМВОЛ(242)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(232)&СИМВОЛ(32)&СИМВОЛ(236)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(241)&СИМВОЛ(238)&СИМВОЛ(236)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(224)&СИМВОЛ(236)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(227)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(239)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(249)&СИМВОЛ(229)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(253)&СИМВОЛ(242)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(228)&СИМВОЛ(235)&СИМВОЛ(255)&СИМВОЛ(32)&СИМВОЛ(235)&СИМВОЛ(229)&СИМВОЛ(237)&СИМВОЛ(232)&СИМВОЛ(226)&СИМВОЛ(251)&СИМВОЛ(245)&СИМВОЛ(46)

Во-первых: меня удивляет то, что и кириллица тоже совпала
я был убежден что коды кириллицы совершенно разные
Во вторых: у вас небольшая ошибочка, вернее описочка .
С Вашего разрешения, я немного переделал первоисточник
=ПСТР(A1;18;40)&СИМВОЛ(232)&СИМВОЛ(231)&СИМВОЛ(225)&СИМВОЛ(240)&СИМВОЛ(224)&СИМВОЛ(237)&СИМВОЛ(251)&СИМВОЛ(245)&СИМВОЛ(46)

Ответить

Дата: Пятница, 08.10.2010, 21:57 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Да будет Вам, сударь, прибедняться...
Тоже мне, избранного нашли! Мой макрос прост как 2х2!
Нет! Это именно для ленивых решение! А трудолюбивые выбирают коды ручками по одному из таблицы кодов символов.
Именно трудолюбивые и терпеливые воздвигли пирамиды и создали другие величайшие культурные ценности человечества! biggrin

biggrin

Хотя с другой стороны... Давно ведь известно, что весь технический прогресс человечества - от лени! wacko tongue

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Пятница, 08.10.2010, 22:02

Ответить

Дата: Пятница, 08.10.2010, 23:26 | Сообщение № 11

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 34 ±

Замечаний: 0% ±

Quote (Alex_ST)

Это именно для ленивых решение!

Я тоже хочу быть ленивым
Воьмете меня в ученики ?

Ответить

Дата: Воскресенье, 10.10.2010, 20:22 | Сообщение № 12

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Ну, я же-таки никаких секретов ни от кого не держу.
При этом, согласитесь, комментарии в моих кодах для любых хоть чуть-чуть не очевидных решений есть всегда, а переменные и программы обозваны осмысленными аббревиатурами.
Так что смотрите, разбирайтесь, что не понятно - спрашивайте. Всегда рад помочь.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Воскресенье, 10.10.2010, 20:35

Ответить

Дата: Суббота, 09.04.2011, 15:01 | Сообщение № 13

Группа: Друзья

Ранг: Старожил

Сообщений: 1352

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (Alex_ST)

=СИМВОЛ(48)&СИМВОЛ(109)&СИМВОЛ(101)&СИМВОЛ(103)&СИМВОЛ(97)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(224)&СИМВОЛ(32)&СИМВОЛ(226)&СИМВОЛ(241)&СИМВОЛ(184)&СИМВОЛ(45)&СИМВОЛ(242)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(232)&СИМВОЛ(32)&СИМВОЛ(236)&СИМВОЛ(224)&СИМВОЛ(234)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(241)&СИМВОЛ(238)&СИМВОЛ(236)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(224)&СИМВОЛ(236)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(227)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(239)&СИМВОЛ(240)&СИМВОЛ(238)&СИМВОЛ(249)&СИМВОЛ(229)&СИМВОЛ(44)&СИМВОЛ(32)&СИМВОЛ(237)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(253)&СИМВОЛ(242)&СИМВОЛ(238)&СИМВОЛ(32)&СИМВОЛ(45)&СИМВОЛ(32)&СИМВОЛ(228)&СИМВОЛ(235)&СИМВОЛ(255)&СИМВОЛ(32)&СИМВОЛ(235)&СИМВОЛ(229)&СИМВОЛ(237)&СИМВОЛ(232)&СИМВОЛ(226)&СИМВОЛ(251)&СИМВОЛ(245)&СИМВОЛ(46)

Quote (0mega)

=СИМВОЛ(65)&СИМВОЛ(108)&СИМВОЛ(101)&СИМВОЛ(120)&СИМВОЛ(95)&СИМВОЛ(83)&СИМВОЛ(84)
=СИМВОЛ(67)&СИМВОЛ(79)&СИМВОЛ(78)&СИМВОЛ(71)&СИМВОЛ(82)&СИМВОЛ(65)&СИМВОЛ(84)&СИМВОЛ(85)&СИМВОЛ(76)&СИМВОЛ(65)&СИМВОЛ(84)&СИМВОЛ(69)&СИМВОЛ(32)&СИМВОЛ(33)

Ну вы, блин, даете... А говорите жутко заняты и времени у вас нет... ))))

Я не волшебник. Я только учусь

Ответить

Дата: Суббота, 09.04.2011, 18:54 | Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Вадим, при написании макросов, подобным по сложности тому, которым я сделал эту формулу, бОльшую часть времени занимает придумывание ЧТО можно сделать, а не КАК это сделать.
Когда 0mega подсказал мне такую идею вывода текстов, написание макроса заняло не более 5 минут.
Зато теперь я любому из знакомых любителей Ёкселя оригинальное поздравление-формулу-шутку делаю за 2-3 минуты из которых 99% времени занимает придумывание текста.
Я же говорю, что макросы - это для ленивых. А трудолюбивые всё делают сами своими ручками, затрачивая на это много времени.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Воскресенье, 10.04.2011, 15:17 | Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Quote (Serge_007)

Кстати, мог бы выложить

Серёга, а ты мой пост в этом топике в 15:33 08.10.2010
разве не видел?
С тех пор ничего в макросе я не менял. Так и юзаю при необходимости.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Воскресенье, 10.04.2011, 15:37 | Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

Ну, в готовые решения, ИМХО, это выкладывать ни к чему. А то слишком много народу узнает, что это не Hand Made, а очень просто и шутка замылится, станет не смешной.
Пусть сами по символу побьются вводить те, кто макрос не может написать. Тем такое полученное поздравление результат будет казаться.

А по поводу глобуса...
1. На "Главную" не хожу вообще. На форуме интереснее.
2. Ну, посмотрел. Красиво. Но зачем это нужно? Тем более, что в Google Earth картинка намного крупнее.

Блин... И-нет что-то работает как мигалка biggrin Пока смотрел и вводил пост три раза ребутал модем. Что-то там у провайдера, похоже...

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Воскресенье, 10.04.2011, 15:42 | Сообщение № 17

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Alex_ST)

. На "Главную" не хожу вообще.

А откуда взялись твои комментарии к статьям? Как ты туда попал, минуя главную? По ссылкам на форуме?

Quote (Alex_ST)

На форуме интереснее.

Спасибо.

Quote (Alex_ST)

2. Ну, посмотрел. Красиво. Но зачем это нужно? Тем более, что в Google Earth картинка намного крупнее.

Нужно что бы видеть откуда кто. Нужно ли это в принципе? Не знаю. Поэтому спросил вас.
А картинку можно увеличить до страны. Там кнопки есть.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Воскресенье, 10.04.2011, 18:20 | Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 615 ±

Замечаний: 0% ±

2003

был не совсем точен... Правильнее было бы сказать так:
На "Главную" с целью что-то там посмотреть заходил всего несколько раз.
А вообще-то захожу на "Главную" регулярно но только для того чтобы там залогиниться и сразу уйти в форум.
Это вызвано опять же ленью "топтать батоны", т.к. только на "Главной" при аутентификации возможен ввод пароля в стандартном окне ввода, куда менеджер паролей Лисы сам прописывает юзернэйм и пассворд. В не стандартных маленьких окошках, показываемых движком форума при попытке залогиниться из других мест, Лиса юзернэйм и пассворд не подсказывает sad

sad

А глобус мне "параллелен". Извини, Серж.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Понедельник, 11.04.2011, 08:48

Ответить

Дата: Понедельник, 11.04.2011, 00:47 | Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 1352

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Ну вот, одна ма-аленькая шутка

Quote (light26)

Ну вы, блин, даете... А говорите жутко заняты и времени у вас нет... ))))

и тема уже стала горячей)))
тока не пойму почему ответов в "2*2=?" нету (

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Понедельник, 11.04.2011, 00:48

Ответить

Да простит меня админ, буду я OFFTOПить

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!