Все выпуски  

EXCEL



EXCEL
2016-10-10 17:22 capetownn
Здравствуйте,
EXCEL
25.500 26.150 25.900 26.100 25.800 26.200 25.500 26.100 25.600 26.050 25.700 26.100 25.800 26.000 25.750 25.900 25.850 26.050

G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA – ПОСЛЕДОВАТЕЛЬНОСТЬ СТОЛБЦОВ
НАДО НАЙТИ МИН-ое значение в ячейках 38-ой
строки столбцов G,I,K,M,O,Q,S,U,W,Y,AA – ,Т.Е. через 1 ячейку
=МИН(G:AA)
– ЭТА ФОРМУЛА НЕ ПОДХОДИТ, т.к. выбираются значения всех столбцов, а надо через 1, начиная со столбца “G”.
PS: в некоторых столбцах 38-ой строки пусто, т.е. не заполнено
Спасибо


Как извлечь данные из Excel в datagridview по двух условиям?
2016-10-12 23:26 kbyte
ИМЕЕТСЯ
База данных в Ексель
База данных строки - 10 000 шт;
столбцы - 10 шт;

ВОПРОС
1. Каким способом оптимально извлечь из Ексель данные по двум условиям в три разные datagridview ?
2. Извлекаются следующие столбцы таблицы:
- ID
- наименование
- кол 
3. Таблица извлекается с заголовками столбцов (по возможности);

КОД

СЦЕНАРИЙ
1. Вносим ID задания.
2. Вносим путь к файлу.
3. Нажимаем кнопку "ИЗВЛЕЧЬ".
4. Данные извлекаются в зависимости от "ID" и "порядковый номер" в соответствующую datagridview.

ПРИЛОЖЕНИЕ
1. Проект.
2. Скрин


RE: Ищем разработчика-программиста в стартап
2016-10-13 16:39 Oaksoft
Добрый день,
Можно узнать немного подробнее о проекте?)
Свяжитесь со мной по скайп, если еще актуально данное предложение. oaksoft.office

VBS+SQL+TiaPortal_Wincc13
2016-10-21 19:58 frantic9966
Господа, всем доброго времени суток. Имеется скрипт:
Sub S07_Show_all_entries_of_a_table(ByRef Database_Name)
'////////////////////////////////////////////////////////////////
' en: The script reads the indicated data record
' de: Das Skript liest den angegebene Datensatz
' Created: 19-07-2012
' Version: v1.0
' Author: HH
'////////////////////////////////////////////////////////////////

'Declaration of local tags - Deklaration von lokalem Variablen
Dim conn, rst, SQL_Table, i, j

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

'Open data source - Datenquelle offnen
conn.Open "Provider=MSDASQL;Initial Catalog=" & SmartTags("szDatabase") & ";DSN="&Database_Name&"" 'DSN= name of the odbc database - DSN= Name der ODBC-Datenbank

'Error routine - Fehlerroutine
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End If


'Select all entries of a table - Alle Eintrage der Tabelle selektieren
SQL_Table = "SELECT * FROM " & SmartTags("szTableName")

'Execute - Ausfuhren
Set rst = conn.Execute(SQL_Table)

'Order the table by the first column - Tabelle nach der ersten Spalte sortieren
SQL_Table = "SELECT * FROM " & SmartTags("szTableName") & " ORDER By " & rst.Fields(0).Name '* = Alle Daten ' * = all data

'Execute - Ausfuhren
Set rst = conn.Execute(SQL_Table)

'Error routine - Fehler Routine
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
'Close data source - Datenquelle schlie?en
conn.close
Set conn = Nothing
Set rst = Nothing
Exit Sub
End If

If Not (rst.EOF And rst.BOF) Then
'Vergleich ob "End of File" oder "Begin of File" ist, wenn nicht wird der Zeiger auf den Ersten Eintrag zurueckgesetzt
'Compare if "End of File" or "Begin of File" exists, if not the pointer will be reset to the first entry

rst.MoveFirst 'reset to 1st entry - auf 1. Eintrag zuruecksetzen

'Definition of local tags - Definiton von loklen Variablen
j=0

'Amount of the entries in the table - Anzahl der Tabelleneintrage
Do
j=j+1
rst.MoveNext
Loop Until rst.EOF

rst.MoveFirst 'reset to 1st entry - auf 1. Eintrag zuruecksetzen Do

'Selection with Arrow Buttons - Auswahl mit den Pfeil-Tasten
If SmartTags("nTab")>=j-6 Then
SmartTags("nTab")=j-6
End If
If SmartTags("nTab")<j-5 Then
For i=1 To SmartTags("nTab")
rst.MoveNext
Next
End If
If SmartTags("nTab")<0 Then
SmartTags("nTab")=0
End If

'Name of the columns - Name der Spalten
SmartTags("szName_1") = rst.Fields(1).Name
SmartTags("szName_2") = rst.Fields(2).Name
SmartTags("szName_3") = rst.Fields(3).Name

For i=1 To 6
'Entries of the table - Eintrage in die Tabelle
If rst.EOF Then
SmartTags("Value_" & i & "_0") = 0
SmartTags("Value_" & i & "_1") = 0
SmartTags("Value_" & i & "_2") = 0
SmartTags("Value_" & i & "_3") = 0
Else
SmartTags("Value_" & i & "_0") = rst.Fields(0).Value
SmartTags("Value_" & i & "_1") = rst.Fields(1).Value
SmartTags("Value_" & i & "_2") = rst.Fields(2).Value
SmartTags("Value_" & i & "_3") = rst.Fields(3).Value
rst.MoveNext
End If
Next

rst.close
Else
ShowSystemAlarm "No entries are available."
End If

'Close data source - Datenquelle schlie?en
conn.close

Set rst = Nothing
Set conn = Nothing

End Sub


Так вот если закоментить строку Set rst = CreateObject("ADODB.Recordset"), то код будет работать но не пойму почему так как согласно данной ссылке(http://www.script-coding.com/ADO.html) методы Move и EOF без создания объекта Recordset работать не могут, т.е. бейсик по идее не должен знать что это такое Move и EOF или я что-то не так понимаю?

Шифрование методом вертикальной перестановки
2016-10-29 20:28 ena-hishka
Здравствуйте.
Подскажите алгоритм для реализации шифрования методом вертикальной перестановки.

В теории это выглядит так:

Фраза: Человек шел домой вечером.
Ключ шифрования: ШИФР123


Ш И Ф Р 1 2 3

ч е л о в е к
ш е л д о м о
й в е ч е р о
м - - - - - -

При записи Цифры-идентификаторы вертикалей идут по-возрастанию, буквы – в алфавитном порядке.

В итоге получаем: ВОЕ-ЕМР-КОО-ЕЕВ-ОДЧ-ЛЛЕ-ЧШЙМ

Подскажите алгоритм реализации на основе которого я могу попробовать написать либо практический ример, если есть возможность, для наглядности.
За два года отсутствия практики разучился думать.

Рассылка/инвайтинг/постинг на форумах, в соц.сетях
2016-10-31 02:54 mariafanny
Рады представить вам обновлённый <b>XRumer 12.0.19</b>,
многофункциональный комплекс для продвижения любого сайта в интернете,
с применением современных SEO и SMM-технологий:

<img>http://seo-topshop.ru/wp-content/uploads/2015/06/xrumer11-1.png</img>

«Google ReCaptcha» — это тот тип капчи, который используется уже как минимум на 30% всех интернет-ресурсов,
и его охват продолжает расти.

Команда Botmaster Labs успешно преодолела данную проблему,
и теперь автоматизация рутинных процессов стала проще,
а расход на платные сервисы распознавания — существенно ниже.

<img>http://seo-topshop.ru/wp-content/uploads/2015/06/xrumer11-4.png</img>

Использование XRumer-а на практике - существенно проще,
чем многие предполагают. Главное - выбор правильной методики
и подходящих баз для работы. Мы будем рады проконсультировать Вас
по актуальным методам продвижения в сети на <b>сегодня</b>.

<img>http://seo-topshop.ru/wp-content/uploads/2015/06/xrumer11-2.png</img>

<b>Как быть тем, кто на «белой стороне силы», кто продвигает качественные сайты, занимается исключительно белым SEO?</b>

Ведь «настоящие качественные бэки можно получить только вручную или за большие деньги»?

Поверьте, далеко не всегда так. На сотнях и тысячах трастовых форумов и блогов XRumer 12.0.19 теперь
позволяет размещаться на полуавтомате — при желании можно включить полуручной режим ввода не только графической капчи, но и текстовой.

Таким образом, Вы экономите уйму времени для регистрации на сверх-посещаемых ресурсах, там где другие программы это сделать не способны.

Ну а для того, чтобы Вашу рекламу не удалил модератор — поможет уникальная система «Антиспам».
Это технология тематически-релевантного постинга, независимо от тематики и языка сайта-реципиента.
Подобной технологии нет ни в одной другой программе мира.


Заинтересованы?
<b>Просто спросите Yandex про Хрумер.</b>

<i>Если Вы это прочли - значит, Хрумер РАБОТАЕТ! ;)</i>

См. также: <a href=http://supernovum.ru/forum/viewtopic.php?f=6&t=1391>Рассылка - Facebook, VKontakte, Odnoklassniki</a>, <a href=http://sib-magic.ru/index.php?topic=285.new#new>Рассылка - форумы, блоги, соц.сети</a>, <a href=http://forum.airsoft-hmao.ru/viewtopic.php?f=52&t=11913>Рассылка/инвайтинг/постинг - форумы, блоги, соц.сети</a>

RE: Требуется помощник начинающий фрилансер
2016-11-01 17:02 iren205
Пишу вам на ваш имеил и не получаю ответа, вакансия уже занята. Могу быть просто помощником, умею конструировать игровые сайты на подобии таких avtomaty-dengi.com

В избранное