Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Три решения
 
:)
Транспортировка данных из Excel
 
Может для простоты попробуете сделать следующим образом:  
 
- в отдельном листе составите в ячейках перого столбца все необходимые строки, которые должны быть в результате в нужном файле    
- данные из листа сохраните в текстовом формате с расширением .doc c помощью метода SaveAs  
- полученный файл будет открываться в Ворде (только нужно будет выбрать кодировку). При сохранении файла по Сохранить как... это файл сохранится уже в настоящем вордовском формате.  
 
Это для простоты. Если же следовать строго поставленной задаче, придется связываться со значительно более сложными методами VBA.
Импорт в текущую книгу
 
Вам и не нужно перемещать лист из книги в книгу.    
 
Эту строку кода:  
   Workbooks.OpenText Filename:=strLineIthem, Origin:=866, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _  
   ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _  
       ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)) _  
       , TrailingMinusNumbers:=True  
 
переделайте в такой:  
 
   Set neww = Workbooks.OpenText(Filename:=strLineIthem, Origin:=866, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _  
   ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _  
       ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)) _  
       , TrailingMinusNumbers:=True)  
 
т.е присвойте открытой книге из импортируемого файла имя объекта.  
 
Далее можно сделать еще проще, чем я сказал раньше.  
 
В начало кода определите переменную  
 
Dim mydata as Variant  
 
А вместо части кода перемещения листа из книги в книгу вставьте это:  
 
'присваиваем массиву значения ячеек открытого файла  
mydata = neww.usedrange    
'присвоение ячейкам первого листа значениям из массива  
ThisWorkbook.Worksheets(1).Cells(1,1).Value = mydata    
'закрываем открытый файл  
neww.Close  
 
дальше по обстоятельствам.
Импорт в текущую книгу
 
Почему бы не сделать приблизительно так:  
 
ActiveWorkbook.ActiveSheet.UsedRange.Copy  
ThisWorkbook.Activesheet.Paste Бла-Бла-Бла  
ActiveWorkbook.Close
Автоматическое перебрасывание данных с одной таблицы в другие по заданным условиям
 
А Вы не пробовали применить возможности сводных таблиц?
поиск значений в таблице excel
 
а так?
поиск значений в таблице excel
 
А послений мой пример не подошел, разве?
"Обьект невозможно перместить за пределы листа" - ???
 
{quote}{login=Гость}{date=19.01.2009 11:46}{thema="Обьект невозможно перместить за пределы листа" - ???}{post}В Excel при  скрывании столбцов выдает ошибку: "Обьект невозможно перместить за пределы листа" - что это значит - ???{/post}{/quote}  
Это значит, что кроме столбцов на листе есть некие объекты, которые при скрытии столбцов Ексел не знает куда девать. Скрыть вместе со столбцами вроде не может, но и где на листе потом эти объекты отразить не может определиться.
Макрос для открытия и закрытия книги.
 
{quote}{login=Новичек.}{date=19.01.2009 11:45}{thema=Макрос для открытия и закрытия книги.}{post}Есть два файла Excel. Книга №1 обновляется из книги №2. Возможно ли сделать так, чтобы при открытии файла №1 сначала открылась книга №2, затем книга№2 закрылась с сохранением и только после этого открылась книга №1 с запросом на обновление связей?{/post}{/quote}  
Ну... если вопрос только в том, чтобы до того, как в №1 можно было что-то делать, должн быть непременно открыт и обработан №2, то можно. На событие Workbook_Open в №1 подвешиваем нужные операции открытия, обработки и закрытия №2 и все.
Вызов картинки из Excel
 
Может стоит попробовать инструктировать Ексел вызывать нужное приложение с нужной командной строкой не по умолчанию, а явным образом? Для этого можно использовать обработчик события Workbook_SheetFollowHyperlink (если работам с нескольких листов) или Worksheet_FollowHyperlink (если с одного листа).
Количество вхождений подстроки в строку
 
{quote}{login=}{date=26.12.2008 12:24}{thema=Количество вхождений подстроки в строку}{post}Подскажите, пожалуйста, как с помощью VBA подсчитать количество вхождений подстроки (или символа) в строку?    
Возможен ли в VBA перебор строки по символам (строка = массив символов)? Если да, то как?  
{/post}{/quote}  
Когда-то давным давно кто-то показал мне такой метод подсчета определенного символа в строке:  
 
k = len(stroka) - len(replace(stroka, simvol, ""))  
 
с таким же успехом можно подсчитать количество вхождений подстроки:  
 
k = (len(stroka) - len(replace(stroka, podstroka, "")))/len(podstroka)  
 
Этот же метод легко реализуется формулой листа.
Извлечение данных и форматирования из закрытой книги
 
{quote}{login=Catcher}{date=22.12.2008 09:20}{thema=Извлечение данных и форматирования из закрытой книги}{post}Подглядел вот такой приём:  
Range("A1").Formula = "='" & iPath & "[" & iFile & "]" & iList & "'!" & "A1"
Range("A1") = Range("A1")  
 
но он извлекает только данные, но не извлекает форматирование (границы, шрифт) из закрытого файла.  
Есть ли возможность извлечь данные и форматрование из без открытия файла?{/post}{/quote}  
"По-моему, нет." (с) Pavel55... - Согласен.  
 
Но зачем?
на винчестере создан файл прямого доступа возможно ли организовать поиск в файле
 
{quote}{login=тол}{date=21.12.2008 07:39}{thema=на винчестере создан файл прямого доступа возможно ли организовать поиск в файле}{post}Type раб заполнено знечениями (Б1-42,Б1-41,Б1-43,Б2-33, и т.д.)10 000 значений  
   текст As String * 5  
End Type  
 
Dim акум As раб  
Open "раб.but" For Random As #1 Len = Len(акум)  
Put #1, начало, акум  
 
может кто знает можно ли организовать поиск внутри файла "раб.but" значения не проверяя каждое по очереди командами Get #1, начало, акум: й=акум.текст:IF й="Б1-43" Then{/post}{/quote}  
Можно загрузить весь файл в строковую переменную и проделать в ней нужный поиск.
Про строки в ворд после копирования их эксел'
 
{quote}{login=Seergy}{date=08.12.2008 07:45}{thema=Re: Re: Re: }{post}  
'1 -  выделит "Р";  
'2 - выделит "Расчёт"; 3 - Выделит "Расчет субсидий"  
'4 и 5 - Выделит "Расчет субсидий" и далее все предложения.  
'6 -все параграфы{/post}{/quote}  
Если ничего из этого не подходит, значит в документе есть какие-то лишние разделители, которые мешают Ворду правильно понять, где кончаются предложения. Или наоборот, каких-то разделителей недостает.  
 
Если причесать текст документа к сторогой структуре не получится, то придется искать не только Расчет субсидий, но и ближайшую точку после этой фразы, чтобы найти конец предложения.
Как отследить изменения определённого диапазона ячеек на лисле?
 
{quote}{login=TSM}{date=08.12.2008 03:33}{thema=Как отследить изменения определённого диапазона ячеек на лисле?}{post}Как с помощью Worksheet_Change отследить изменения определённого диапазона ячеек на лисле? Нужно, чтобы макрос срабатывал только в том случае, если изменились данные в столбцах от F до P.{/post}{/quote}  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Intersect(Target, Range("F:P")) Is Nothing Then Exit Sub  
   код обработчика, действующий только для указанных столбцов  
End Sub
Функция или для "неравно"
 
Можно использовать CASE  
 
Select Case Range("A1")  
Case 1,2,3,4  
Range("A2") = 10  
Case 5,6,7,8,9  
Range("A2")=20  
Case Else  
Range("A2")=0  
End Select
Помогите - Скачивание файла из инета, посредством нажатия на гиперссылку
 
{quote}{login=EDrache}{date=06.12.2008 11:33}{thema=}{post}задача №2 - в исходной таблице заменить гиперссылки с таблиц, лежащих в инете, на скачанные таблицы =)){/post}{/quote}  
Покажите, что уже получилось из того, что никак не получилось.
Помогите с выбором функции для моего примера
 
{quote}{login=}{date=07.12.2008 01:01}{thema=}{post}Ужасно хочется увидеть функцию СУММАПОДИАГОНАЛИ{/post}{/quote}  
А еще было бы не плохо иметь функцию САМПОЙМИЧТОНУЖНО.
Переменная
 
{quote}{login=слэн}{date=06.12.2008 09:39}{thema=}{post}круто..  
а может прямо из иксель к данным обращаться? web-запрос попробовать определить?  
или есть еще средства..{/post}{/quote}  
Человеку нужно получить весь текст каждого копируемого сайта в одной ячейке, поэтому вэб-запрос (который размещает считываемые данные на листе по множеству ячеек) не подходит.  
 
А по поводу цикла... сначала нужно попробовать создать и изучить работу цикла по ячейкам без работы с сайтом, а уж потом в него включить созданное для копирования сайта.
разворот выделенного диапазона
 
{quote}{login=Tired_Tramp}{date=06.12.2008 10:49}{thema=Re: }{post}  
КМК, проще и практичней было бы преобразовать обе схемы в векторную графику, разместить их на одном листе, как нужно, в виде графики и подписать все что нужно либо в ячейках, либо в графических элементах подписей.{/post}{/quote}  
Ячейки, в которых будут размещены данные, будут жестко привязаны к базе данных ACCESS, при изменении в базе, данные автоматически изменяются в схеме. ACCESS не дает графических возможностей изобразить требуемое.{/post}{/quote}  
Непонятно, каких именно графических возможностей нехватает? И причем здесь Акцесс?  
 
Нужна привязка данных в базе даных к элементам схемы? И для этого Вы думаете использовать ячейки Экселя? Если так, то это неудачная идея, на мой взгляд... Ибо фактически, при этом подходе привязка будет возможна только к ячейкам, а сама схема если и сможет быть привязана к этим ячейкам, то для этого потребуется сделать еще что-то... А уж для разворота схемы с использованием формата границ ячеек вновь потребует опять же изобретения нового механизма...  
 
Еще раз скажу, что графические задачи нужно решать с помощью графических же инструментов. Пусть даже не в АвтоКаде (хотя я лично бы подумал именно об этом... просто немного знаком с этим инструментом, который тоже имеет встроенный VBA и может быть настроен на считывание данных из базы данных из Аксесс), пусть даже с использование графических возможностей именно Эксел... Но привязывал бы надписи к графическим элементам, а не форматам ячеек. Установить прямые и динамические связи в режиме реального времени с базой данных в Эксел может быть и не получится, но реализовать периодическое (по какому-нибдуь событию или по времени) обновление всех необходимых надписей, считывая их из базы данных, вполне возможно.
Вычисления в сводной таблице
 
{quote}{login=rosco}{date=06.12.2008 05:06}{thema=Вычисления в сводной таблице}{post}Добрый день  
 
Есть сводная таблица (см прикрепленный файл, пример сделал быстро.. надеюсь что будет понятно). В ней нужно создать вычисляемое поле с такой формулой : заявка2 = заказано(сегодня) + недоделано (вчера) - переделано (сегодня)....   Я не знаю как в сводной таблице получит значение вчерашнего дня в сегодняшнем.....    
 
Надеюсь понятно объяснил...   Спасибо..{/post}{/quote}  
 
Я сомневаюсь, что получится сделать на уровне вычисляемого поля сводной таблицы выборку данных из разных ее полей да еще из разных дат.    
 
Проще эти вычисления сделать в таблице исходных данных для сводной таблицы.
разворот выделенного диапазона
 
Применять границы ячеек Эксел для рисования графики... хм.. в этом есть определенная экзотика... Наверно можно придумать, как в Ворде вести финансовый анализ, а в ПоуэрПойнте реализовать менеджер управления локальной сетью... Но в чем цель? Только в том, чтобы потом иметь возможность вписывать текстовые данные в схему?    
 
Даже если найдется умелец, который пересчитает ширины столбцов и строк по кругу и перевернет границы ячеек перебором по циклу... Однако при совмещении двух схем на один лист встанет почти неразрешимая проблема - как неодинаковые ширины и высоты двух разных схем потом согласовать друг с другом? Я бы не взялся за эту задачу даже за цену в свой месячный оклад. И даже два.  
 
КМК, проще и практичней было бы преобразовать обе схемы в векторную графику, разместить их на одном листе, как нужно, в виде графики и подписать все что нужно либо в ячейках, либо в графических элементах подписей.
Помощь поиска в файле
 
{quote}{login=Jenya}{date=06.12.2008 09:34}{thema=}{post}А меня при изменении макроса появляется ошибка:  
Изменить макрос в скрытой книге невозможно. Воспользуйтексь меню файл, показать.  
 
Как это обойти?{/post}{/quote}  
Нажмите кнопку Войти вместо Изменить в диалоге выбора макроса.
Включение макроса (принудительно)
 
Уверен, что здесь уже были примеры...  
 
Но вот мой вариант... Конечно, стоит дополнить его защитой паролем проекта VBA и, возможно, самой книги.  
 
Тестировал совсем немного. Могут быть и ошибки.
Поиск кодом в диапазоне
 
А без Activate что получится?
Помогите вставить рисунок из указанной папки с помощью макроса
 
{quote}{login=Maks}{date=05.12.2008 04:37}{thema=Re: Re:Re: Re: Помогите вставить рисунок из указанной папки с помощью макроса}{post}Еще вопрос один: Этот макрос работает нормально спасибо большое, но он только выбирает рисунок 55555.jpg ,если в папку вставиш другой рисунок под другим названием вместо рисунка 55555, то оно выдает ошибку,КАК НАПИСАТЬ формулу так чтобы выбирал рисунки любого название с папки Фото {/post}{/quote}  
Вот это уже что-то.  
 
Чтобы выбрать нужный файл можно воспользоваться способом, предлагаемым на странице справки VBA по FileDialog Property.  
 
Скопируйте из раздела справки размещенный там пример и запустите. Далее попробуйте подставить получишийся результат в уже созданный макрос вставки рисунка.
Вставка данных в ячейку (Очень важно для меня )
 
А вот это:  
 
Application.Wihte (Now + TimeValue("0:00:5"))  
 
- загадочная инструкция...    
 
может быть так будет лучше:  
 
Application.Wait (Now + TimeValue("0:00:5"))
Вставка данных в ячейку (Очень важно для меня )
 
{quote}{login=A_c_e}{date=05.12.2008 03:48}{thema=Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: }{post}  
Sub proba()  
 
ReturnValue = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" _  
& " ""http://www.cbr.ru/credit/coinfo.asp?id=450000371""", 1)  
Application.Wihte (Now + TimeValue("0:00:5"))  
SendKeys "^{A}^{С}"  
Windows("Книга1.xls").Activate  
Range("E7").Select  
SendKeys "{F2}+{INSERT}{ENTER}"  
 
End Sub  
 
комп после запуска нафик подвисает)))){/post}{/quote}  
 
Я не думаю, что    
 
Windows("Книга1.xls").Activate  
 
корректная/нужная инструкция в данном контексте (хотя и не должна мешать)  
 
Попробуте до или после (или вместо) нее написать вот это:  
 
Application.Activate  
 
или    
 
AppActivate Application, True
Помогите вставить рисунок из указанной папки с помощью макроса
 
{quote}{login=Maks}{date=05.12.2008 03:47}{thema=Re:Re: Помогите вставить рисунок из указанной папки с помощью макроса}{post}Genyaa помоги{/post}{/quote}  
На вопрос "возможно ли?" - ответ положительный "возможно".  
 
На вопрос "как?" - я предпочту ответить так:  
 
- воспользуйтесь макрорекордером (меню-Сервис-макрос-начать запись)  
- совершите действия по вставке какого-нибудь рисунка на лист книги эксел (Меню-вставка-рисунок-рисунок из файла...)  
- остановите запись макрорекордера  
- Alt+F11  
- в редакторе VBA найдите получившегося макроса  
- запустите его в пошаговом режиме (F8)  
- по мере продвижения от команды к коменде, обращайте внимание на происходящее на листе книги  
- пытайтесь понять, что значит каждая команда и ее параметры  
- сформулируйте возникшие по ходу дела вопросы  
- попробуйте найти ответы на эти вопросы с помощью справки и поиска по форуму  
- вопросы, на которые Вы не смогли найти ответы, опубликуйте здесь.
Помогите вставить (Формула в формуле)
 
{quote}{login=}{date=05.12.2008 03:38}{thema=}{post}не подошло( то же самое, не тянется вниз зараза, зафиксировало эту D5 и никак(({/post}{/quote}  
Не уверен, что разобрался верно... но попробуйте так:  
 
=ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;;;C$1))-ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;;;B$1))  
 
Это формула для ячейки Е5. Ее можно размножить на весь столбец... а может быть и на всю область ячеек с формулами. Проверьте.
Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Наверх