Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Цитаты c www.Bash.org.ru (off-topic)
 
#1
22.11.2008 02:52:27
Сегодня ночью делать было нечего и я решил написать макрос, который будет вытягивать цитаты с Bash.org в Excel, где их можно будет читать по одной. Просто так, для себя. Я уверен, что таких прог море. Но мне хотелось свою. Может кому будет интересно ) См. файл
 
 
 
#2
22.11.2008 07:56:43
{quote}{login=Pavel55}{date=22.11.08 02:52}{thema=Цитаты c www.Bash.org.ru (off-topic)}{post}Просто так, для себя. Я уверен, что таких прог море. Но мне хотелось свою. Может кому будет интересно ){/post}{/quote}  
 
Классный off-topic. Спасибо, Pavel55. Очень порадовала ваша прога!
 
 
 
#3
22.11.2008 11:54:47
+1 к предыдущему оратору... и ОЧЕНЬ БОЛЬШОЕ СПАСИБО Pavel55!!!!!
 
 
 
#4
23.11.2008 16:13:07
Немного изменил код в макросе, чтобы не появлялась ошибка в определённом случае. Так сказать, новая версия )
 
 
 
#5
23.11.2008 22:21:23
Большущий респект за макрос! теперь можно баш читать прям из экселя - типа работаешь ;)))  
Заметил, что кнопка "Следующая" переходит на след. страницу, если дойти до конца списка, а кнопка "Предыдущая" - не переходит на предыдущую, если быть не на последней странице и на первой цитате.  
А еще бы кнопки перехода сделал внизу в виде стрелочек - вправо-влево, а между ними какую-нибдь кнопку с быстрым переходом к цитате под номером ## (от 1 до 50).  
Это не критика, а идеи для доработки :) Спасибо
 
 
 
#6
23.11.2008 23:06:54
Спасибо. По поводу кнопок понял, будем работать))
 
 
 
#7
24.11.2008 00:33:52
Идея супер! Хотел посмотреть, как сделано, но кода не обнаружил... Где код? =))
 
 
 
#8
24.11.2008 00:59:38
{quote}{login=InsiderHSE}{date=24.11.2008 12:33}{thema=}{post}Идея супер! Хотел посмотреть, как сделано, но кода не обнаружил... Где код? =)){/post}{/quote}  
====  
Код в модуле формы (осмелюсь ответить за автора). Спасибо Павел55, отличный пример
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
 
 
 
#9
24.11.2008 01:04:43
Как где? )) в файле) Код открыт всем интересующимся)    
 
1) Откройте мой файл  
2) нажмите кнопку "Выход" на форме  
3) нажмите Alt+F11  
4) Ctrl+R  
5) в окне Project - VBAProject откройте папку "Forms", там вы увидите модуль формы "MainFrm". Наведите мышку на слово "MainFrm", щёлкните правой клавишей мыши и выберите "View Code". Справа в модуле появится код.    
Никаких паролей я не ставил. Код открыт всем.  
 
P.S. Переход на предыдущую цитату с другого листа на верхней, как просил Haken я уже сделал. Осталось подумать по поводу кнопок, как их разместить на форме. Как сделаю - выложу)
 
 
 
#10
24.11.2008 02:31:04
Новая версия файл (с замечаниями Haken'a)
 
 
 
#11
24.11.2008 15:31:25
Добавил функцию сворачивания окна (минимизация), чтобы окно не мешало работать с другим документом в одно время. Т.е. можно свернуть окно переключиться на другой файл, поработать с ним, а затем развернуть окно и продолжить читать цитаты.
 
 
 
#12
24.11.2008 23:38:46
О, за сворачивание отдельное спасибо :) Хотел сам предложить, смотрю, а уже сделано ;) Я не силен в запросах из инета и в коде пока не разобрался... но почему-то Кнопка "Случайные" выдает случайные только один раз - и они не меняются до перезапуска файла. Может можно как-нибудь поправить?
 
 
 
#13
25.11.2008 00:50:57
да. действительно... надо подумать, как это исправить.
 
 
 
#14
25.11.2008 09:22:28
Pavel55, огромное спасибо! очень интересно-полезный файлик :-)
 
 
 
#15
25.11.2008 23:46:29
Новая версия файла )  
 
1) Добавлена кнопка "По рейтингу" - цитаты с сайта по рейтингу  
 
2) Окно с цитатами теперь будет автоматически сворачиваться, если перейти (мышкой или через Alt+TAB) на другой файл Excel. Т.е. читаете Вы цитаты, тут кто-то проходит мимо вас, вы с помощью Alt+TAB переключаетесь на другой (например, рабочий файл) и окно с цитатами сворачивается вниз, т.е. вы создаёте видимость работы )  Опять возвращаетесь в файл Bash.org - окно восстанавливается и продолжаете читать (ну, или можно развернуть свернутое окно с помощью мыши в вашем рабочем файле)  
 
3) Случайные цитаты - пока не хотят обновляться... бьюсь-бьюсь... никак пока. Т.е. Случайных цитат будет всегда 50 одинаковых и они будут обновляться лишь при закрытии файла и снова открытии его. Почему так происходит - я пока не понял. У меня даже кнопка "Обновить" в Firefox не всегда обновляет случайные цитаты на Баше на странице "Случайные".    
Пытался загружать по одной цитате, т.е. вычислять случайное число в диапазоне 401000 (я думал это количество цитат), но оказалось, что это не порядковые номера цитат (реально цитат на сегодняшний день всего 19238) и поэтому такой фокус не прошёл, т.к. не все сгенерированные числа подпадают под номера цитат.  
Пока, вроде, всё.
 
 
 
#16
06.01.2009 00:25:14
Вот ещё новая версия ) Добавил возможность сохранения понравившихся цитат в личный "Блокнот", чтобы можно потом просмотреть их.
 
 
 
#17
06.01.2009 22:59:55
скоро павел собственный браузер выпустит :)
 
 
 
#18
06.01.2009 23:01:06
ну, это навряд ли )) Всё пытаюсь начать учить Delphi, но никак руки не доходят ))
 
 
 
#19
10.01.2009 00:03:39
Респектище! :)
 
 
 
#20
11.01.2009 11:27:12
С позволения автора :)  
При открытии файла НЕпервым (когда уже открыты какие-то книги) надпись "Идет загрузка" прописывается в последний активный лист в ячейку G8, а не в файл Bash. Добавил в MainModule пару строчек для активации книги и листа:  
 
Sub BashOrg()  
'21/11/2008  
   With ThisWorkbook.Sheets("Bash.org")  
'        .Select  
'        .Range("A4").Select  
       With .Range("G8")  
           With .Font  
               .Bold = True  
               .Name = "Arial"  
               .Size = 10  
               .ColorIndex = 5  
           End With  
           .Value = "Идёт загрузка с сайта! Ждите…"  
       End With  
   End With  
   MainFrm.Show vbModeless  
End Sub  
 
Не знаю, зачем был поставлен выбор ячейки А4 перед всем этим, поэтому строчку закомментил.
 
 
 
#21
11.01.2009 17:43:29
хм, странно, на сколько я знаю, при открытии любой книги - она становится активной и никак иначе. У меня не получилось повторить такую ошибку.  
 
Я изменил код по вашему желанию. Файл прикладываю.
 
 
 
#22
11.01.2009 19:20:53
Я всё понял. Я просто главный модуль поставил на кнопку на панель для быстрого доступа ;) Поэтому при его вызове файл Баша открывался в фоновом режиме, и активной была текущая книга. Правда я один раз попробовал просто с диска открыть, и у меня такая же ошибка получалась (а сейчас и у самого не получается :))  
Всё, спасибо :)
 
 
 
#23
11.01.2009 20:27:32
Не за что )
 
 
 
Страницы: 1
Наверх