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

Страницы: 1 2 3 4 След.
Как отрубить Welcom Screen при старте Екселя 2010
 
{quote}{login=слэн}{date=01.04.2011 09:21}{thema=}{post}для 2007 было \e{/post}{/quote}  
 
 
Да, Слэн, вы правы, но так:  
================= VBScript ========================  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Return = WshShell.Run("excel /e")  
==================================================  
стартует только фрэйм Екселя.  
 
Пришлось мне создавать объект на VBScript:  
=============VBScript=============================  
Set objExcel = CreateObject("Excel.Application")  
objExcel.Visible = True  
objExcel.Workbooks.Add  
==================================================  
Или, что тоже, на Джава Скрипт:  
=============JavaScript===========================  
var my_xls = new ActiveXObject ( "Excel.Application" );  
my_xls.visible = true;  
var excelSheet = my_xls.Workbooks.Add;  
excelSheet.Worksheets.Add;  
===================================================  
Хотел правда это сделать через командрую строку, ну да ладно.  
 
В идеале мне надо гасить Welcome Sreen офиса на разных машинах и быстро. Может сделать это через реестр? У кого готовый REG файл, поделитесь.  
 
Спасибо
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Как отрубить Welcom Screen при старте Екселя 2010
 
Может в Excel манифесте надо что-то подшаманить. Кто знает отпишитесь. Ладно. Завтра буду разбираться ...
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Как отрубить Welcom Screen при старте Екселя 2010
 
Поясню вопрос, для MS Word быстро стартовать можно так (Windows + R):  
Для Office 2007:  
"C:\Program Files\Microsoft Office\OFFICE12\Winword.exe" /q  
Для Office 2010:  
"C:\Program Files\Microsoft Office\OFFICE14\Winword.exe" /q  
По логике, для Екселя 2010 надо так:  
"C:\Program Files\Microsoft Office\OFFICE14\excel.exe" /q  
Но в последнем случае велкомскрин просматривается. Как его убрать, господа?
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Excel 2010: Отключение запроса на обновление связей с другими источниками данных
 
Для Excel 2010: Файл – Параметры – Дополнительно – Общие – Убирай галку с «Запрашивать об обновлении автоматический связей»
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Разорвать связь WorkSheet Excel & MS Word
 
Кто-то опять начал писать на этот форум под моим Ником. Эээх
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Закрытие формы
 
Зачем событие назначать? Просто вызывай новую процедуру при закрытии формы, или блокируй закрытие ...  
======================================  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  
       
   If CloseMode = 0 Then  
       Cancel = True  
       Call test  
   End If  
       
End Sub  
 
Sub test()  
   MsgBox "Привет, Мир!"  
End Sub
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Гиперссылка на страницу веб с паролем
 
Браузер после ввода Login и Password обновляется. Попробуйте так:  
With WebBrowser1.Document  
   .All("bsu_main_login").Value = Логин  
   .All("pass1").Value = Пароль  
   .All.Item(32).SetActive  
   WebBrowser1.Stop  
   .activeElement.Click  
End With
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Гиперссылка на страницу веб с паролем
 
Для каждого сайта нужно парсить исходный код страницы, например на сайте PlanetaExcel.ru можно программно логинится примерно так: <BR>Dim Логин As String, Пароль As String <BR>Логин = InputBox("Введи логин"): Проль= InputBox("Введи пароль") <BR>WebBrowser1.Navigate "http://www.planetaexcel.ru/forum.php?forum_id=129" <BR>With WebBrowser1.Document <BR>    .All("bsu_main_login").Value = Логин <BR>    .All("pass1").Value = Пароль <BR>    .All.Item(32).SetActive <BR>    .activeElement.Click <BR>End With <BR>В файле пример перехода по гиперссылке для встроенного браузера-контрола. Если надо запускать IE – тогда наверно лучше написать скрипт VBS<BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Линия Тренда - и ЕЕ формула "Проблема?" или "Косяк?"
 
Если я правильно понял, задача Ваша в том, что уравнение отображает только первые пять цифр каждого коэффициента.  
Для решения этой задачи, Вы мышой кликните по уравнению тренда и выберите формат «Числовой» с количеством знаков 30 – тогда будет довольно точно (для полинома 5-ой степени) примерно так:  
0.000000000385173002367489000000x5 - 0.000000206104646753406000000000x4 + 0.000045467718058200200000000000x3 - 0.007466968558428140000000000000x2 + 0.043685677472965900000000000000x + 1 000.180092671130000000000000000000 и т.д.  
 
Графическая интерпретация такого уравнения тоже должна удовлетворять вашим амбициям. Но лучше не занимайтесь «ловлей блох». Смотрите на коэффициент детерминации R^2. Мне кажется, что Вам лучше попробовать получить более простое уравнение.
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Отключение предупреждений при открытии гиперссылок
 

Придется править реестр http://support.microsoft.com/kb/925757

At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Данные в колонтиле
 
Sheets("Поставщик").PageSetup.CenterHeader = Sheets("Отчет").Range("a1")
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Как отрезать яйца?
 
Я бегло почитал этот пост. Может не полностью вник в тему. Но думаю, тут можно попробовать парсить слова. Попробуйте через VBA обратиться к объекту PartOfSpeechList (MS Word).  
 
http://msdn.microsoft.com/en-us/library/aa209839(office.10).aspx
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
как в UserForm поместить изображение (анимацию) .gif ???
 
Инициализируйте ActiveX  
http://support.microsoft.com/kb/827742
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
как в UserForm поместить изображение (анимацию) .gif ???
 
Качайте Gif-контрол (см. аттач) или погуглите gif89.dll. Распакуйте, потом в VBE через Referents – Browse покажите путь к нему (к Gif-контролу). Потом Toolbox – Additional Controls – выбирайте Gif89a и помещаете на форму.  
Останется тока в свойствах данного контрола в поле FileName указать путь к файлу с Gif-анимацией. Потом F5 и будет вам счастье.
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Получить время снимка JPG
 
*_С библиотекой Microsoft Scripting Runtime  
 
////////////////////////////////////////////////////////////­/////////////////  
Sub Test()  
Dim FSO As New FileSystemObject, mFile As File, myPath As String  
Set mFile = FSO.GetFile(myPath)  
   MsgBox "Изменил: " & Format$(mFile.DateCreated) & Chr(13) & _  
       "Сфотографировал: " & Format$(mFile.DateLastModified) & Chr(13) & _  
       "Открывал: " & Format$(mFile.DateLastAccessed)  
 
   Set mFile = Nothing: Set FSO = Nothing  
End Sub  
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\­\\\\\\\\\\\\\\\\\\\
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
как автоматически при открытии файла получить в ячейку листа ip адрес
 
Через Windows Scriping Host
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
возможно ли сделать так, чтобы все линии в файле сразу поменяли цвет?
 
For Each x In ActiveSheet.Shapes  
   x.Line.ForeColor.RGB = RGB(0, 0, 0)  
Next x
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Оффтоп по пятницам кто есть Who на форуме.
 
Ник: Captian_Nemo (на этом сайте в прошлом Novichok_VBA_Minsk)  
Профессия: научный сотрудник  
Уч. степень: кандидат технических наук, 05.20.01  
Под ником Capitan Nemo на форумах:  
http://e-science.ru/forum  
http://forum.exponenta.ru  
http://forum.vingrad.ru  
http://www.programmersforum.ru  
Хобби: VBA, VB, VBScri
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Определение значения
 
{quote}{login=Z}{date=07.10.2009 07:32}{thema=Re: Определение значения}{post}{quote}{login=Captain_Nemo}{date=07.10.2009 07:17}{thema=Определение значения}{post}У меня такая проблема:...{/post}{/quote}  
Проблема? - Нет, проблемы! А если: одинаковые рузельтаты, одинаковое время (а где десятые, сотые?), в чем разница/цы меду кандидатами на золото и пр.....  
ЗЫ Простите великодушно, вы - наш "Captain_Nemo" или новенький?{/post}{/quote}  
 
Этот вопрос задал не я
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Перехват ошибки
 
Честно говоря, я в VB6 код пишу, там из MSFlexGrid (похож на ячейки Excel) нужно данные перехватить и отправить в MSChart. В екселе просто удобнее заготовку кода делать (добираться до нужной формы быстрее) а потом редактировать код под VB6. У меня получилось добиться нужного результата примерно так – сначала перехватил значение X где ошибка прекращается, а потом, прибавив шаг Xstep, строю диаграмму. Навеное, не самый простой способ))))))))))))))))  (код для Excel):  
=======================  
Sub myChartEdit()  
On Error Resume Next  
Xmin = -4: Xmax = 4: Xstep = 0.1  
T = 2.225079: C = 0.0008119139: N = 1.20001  
 
num_x = (Xmax - Xmin) / Xstep  
 
'Предварительное заполнение массива  
ReDim tValues(1 To num_x) As Single  
X = Xmin  
For i = 1 To num_x  
   If IsError(Evaluate(C * (1 + (X / T)) ^ (1 / N))) Then  
           tValues(i, 1) = Empty  
               Xmin = X  
   End If  
X = X + Xstep  
Next i  
Xmin = Xmin + Xstep  
'Новый массив  
num_x = (Xmax - Xmin) / Xstep  
ReDim Values(1 To num_x, 1 To 4) As Single  
X = Xmin  
For i = 1 To num_x  
   Values(i, 1) = X  
   Values(i, 2) = C * (1 + (X / T)) ^ (1 / N)  
X = X + Xstep 'Счетчик  
Range("a" & i) = Values(i, 1)  
Range("b" & i) = Values(i, 2)  
Next i  
End Sub  
=========================  
В любом случае, всем спасибо!
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Перехват ошибки
 
Немного уточню. Нужно что-то типа такой проверки:  
If IsError(C * (1 + (X / T)) ^ (1 / N)) Then Values(i, 1) = Empty
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Перехват ошибки
 
Добрый день. Возникло два вопроса:  
1) Как отследить ошибку (деление на ноль) не используя «On Error Resume Next» (мне нужно перехватить значение, при котором функция имеет действительные решения);  
2) как стереть значение некоторых переменных массива в цикле, т.е. вот так получается стереть ячейки  
Sub tes()  
For i = 1 To 5  
   Range("a" & i) = Empty ‘что то похожее нужно сделать с некоторыми переменными массива  
Next i  
End Sub  
 
 
Sub myChartEdit()  
On Error Resume Next  
Xmin = -4: Xmax = 4: Xstep = 0.1  
num_x = (Xmax - Xmin) / Xstep  
   T = 2.225079  
   C = 0.000119139  
   N = 1.20001  
ReDim Values(1 To num_x, 1 To 4) As Single  
X = Xmin  
For i = 1 To num_x  
       Values(i, 1) = X  
   If X < -2.2 Then Values(i, 1) = Empty  
       Values(i, 2) = C * (1 + (X / T)) ^ (1 / N)  
       X = X + Xstep 'Счетчик  
       Range("a" & i) = Values(i, 1)  
       Range("b" & i) = Values(i, 2)  
Next i  
End Sub
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Как получить список запущенных в системе программ
 
Наверное, это удобнее делать скрипами *.vbs или *.jvs (WSH)  
Но если хотите из VBA, тогда так пробуйте    
============================================  
Sub Test()  
Dim myPrC, myProg  
Set myProg = GetObject("winmgmts:")  
Set myPrC = myProg.ExecQuery("SELECT * FROM Win32_Process")  
For Each x In myPrC  
 Debug.Print x.Name  
 If x.Name = "OUTLOOK.EXE" Then MsgBox "Запущен OUTLOOK!!!"  
Next  
End Sub  
=============================================
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Различность кодировки цвета в формах и ячейках. Как добится соответствия?
 
UserForm1.BackColor = Range("a1").Interior.Color
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
.find не работает ((( не пойму почему
 
Попробуйте в параметрах поиска установить «Область поиска» - «Формулы»
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
связка комбобоксов и текстбокса с накоплением на другом листе
 
___
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
связка комбобоксов и текстбокса с накоплением на другом листе
 
____
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Подписи данных в точечной диаграмме
 
{quote}{login=Sh_Alex}{date=09.08.2009 12:12}{thema=Подписи данных в точечной диаграмме}{post}Можно ли в точечной диаграмме заменить «подписи данных» значениями определенного диапазона, не перебирая их по одному?  
С уважением, Александр.{/post}{/quote}  
 
___________________________________________________  
Если под «… не перебирая их по одному» вы подразумеваете не обращаться к каждой точке в цикле, то вряд ли…    
Ну а если в цикле, тогда примерно так:  
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count  
   .Points(i).HasDataLabel = True  
   .Points(i).DataLabel.Text = Cells(1, i).Value  
Next i  
End With
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
SOS!!! Решение уравнений в Exel
 
Подскажу только верное значение корня x=1,16419.
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
start excel /q
 
разобрался…    
excel /e /s
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
Страницы: 1 2 3 4 След.
Наверх