» Excel VBA (часть 2)

Напишите мне макрос!

Я прекрасно понимаю, что подобная форма не приветствуется в этой теме но...
Для изучения современных языков программирования нужна Хорошая(!) литература. А я ее так и не нашел. Авторы лезут в какие то дебри, прыгают с одной темы на другую так и не сумев донести до читателя суть написанного. (Книги должен писать писатель, а не программист)!

Итак Задача: Надо из текстового поля в форме вставить значение в столбец А в первую непустую ячейку по нажатию кнопки.
Испробывал свой способ, испробовал способы из темы
пробовал циклы, операторы If then Y=Y+1 все ГЛЮЧИТ!!!

Что такое Dim ? Как поставить метку на которую ссылается оператор условия?
Короче труба! авторы книжулек либо не знали о чем пишут, либо слишком много знают, поэтому пишут не то.

ПС
Раньше программировал, и довольно лихо. На Бэйсике. На компах с процом Z80
И литература была не то что сегодняшняя!

Короче накипело.
Извиняюсь за флейм. Выходные убил на х. И результат=0

Добавлено:
Вот как это выглядит на нормальном бэйсике
10 Dim A%(10,1000): Rem значком % заменил обозначение текстовой переменной какой нужен, той нет на клавиатуре.
20 For Y=0 to 1000
30 If A%(0,y)<>"" then 50
40 Input "Введите очередное значение" А%(0,Y)
50 Next
60 Print "Все, база заполнена, свободного места нет"
70 End

SERGE_BLIZNUK

Цитата:

Set w1 = ThisWorkbook.Worksheets("Work") 'Nazvanie lista, na kotorom vvodatsay dannye'
Set w2 = ThisWorkbook.Worksheets("DB") 'Nazvanie lista, kuda budem kopirovat'
w1.Activate
...
Range(Cells(i, 1), Cells(i, 10)).Copy w2.Cells(j, 1)

Так не правильней?

Код: Range(Cells(i, 1), Cells(i, 10)).Copy Destination:=w2.Cells(j, 1)

nick7inc
Спасибо, я понял как правельно With использовать, а про завершение ошибкой не подумал а что если закрыть и открыть файл? в случае ошибки? начнуться считать? а вообще то ошибку надо придумать, понять так сказать, как может быть такое что макрос не выполинтся?



Добавлено:
есть вопрос про for как сделать шаг через один? Ну если не считать if чётные не чётные...
например

Код: For c1 = index_start To index_finish

Всем привет! Принимайте в свои стройные ряды! Надеюсь, буду активно поститься вместе с вами.
И вот сразу вопрос: МОЖНО ЛИ сделать так, чтобы книга работала в многопользовательском режиме? То есть, чтобы одновременно с рабочей книгой по сети работало несколько пользователей. Причем, чтобы каждый из них мог бы вносить в нее изменения. чтобы программа не сообщала, что мол книга уже используется, так что юзай ее теперь только для чтения.

DavidKATS

ответил Вам там, где положено - ответ в теме Excel FAQ (часть 3)

Добавлено:

vasiliy74
Цитата:

For c1 = index_start To index_finish
но нужно слеать не с1= 1,2,3,4,5... а с1=1,3,5,7,... или с1=1,4,7,10,13... в таком духе можно ли задать шаг?

два варианта:
1) есть цикл while ... wend
i=1
while i<=1000
i = i + 3
wend

2) если так хочется через For (ну, или если какие-то действия нужны для каждого i )- то можно так
For i = 1 To 1000
If (i Mod 3) = 1 Then
... тут действие при i=1,4, 7, 10.... (т.е. где остаток от деления на 3 равен 1)
End If
Next i

vasiliy74
СУПЕР!!!! ОГРОМНОЕ СПАСИБО!
Иду брать "0/5" надо это дело отпраздновать!!

Вопрос:
Какую галку надо поставить, чтобы ListBox можно было крутить колесом мышки?
(испробовал вроде все, единственное, что смог сделать это изменить вид указателямышки)


Добавлено:
И еще:
Что не так?

If OptionButton1 = 1 Then A = "Первое"
If OptionButton2 = 1 Then A = "Второе"
If OptionButton3 = 1 Then A = "Третье"
If OptionButton4 = 1 Then A = "Четвертое"
If OptionButton5 = 1 Then A = "Пятое"
If OptionButton6 = 1 Then A = "Шестое"
If OptionButton7 = 1 Then A = "Седьмое"
Cells(Lastrow, 8).Value = A
Я не знаю, каким образом из семи OptionButton выбрать значение и вставить его в ячейку. У меня что то не то с синтаксисом... Если вместо "Первое", "второе" ... написать "1". "2". "3" (с кавычками) то значение подставляется, а если оставить слова то пустота (ошибки не выдает) Может надо в начале как нить объявить переменную А, что дескать она текстовая?

Пока возможный вариант такой:
Cells(Lastrow, 8).Value = OptionButton1.Value
Cells(Lastrow, 9).Value = OptionButton2.Value
Cells(Lastrow, 10).Value = OptionButton3.Value
Cells(Lastrow, 11).Value = OptionButton4.Value
Cells(Lastrow, 12).Value = OptionButton5.Value
Cells(Lastrow, 13).Value = OptionButton6.Value
Cells(Lastrow, 14).Value = OptionButton7.Value

А потом эти столбы скрыть и в другом столбце добавить формулу если ИСТИНА то "первое" и так далее. Но я думаю, есть более простой вариант

Добавлено:
И еще открытый вопрос:
Как TextBox сделать, что бы писать не в одну строку, а переносилось по словам?

Добавлено:
Ответ на последний вопрос будет таким: В свойствах элемента TextBox надо MultiLine перевести в True!
(метод Научного Стыка рулит)

Добавлено:
И еще:
Какой синтаксис у If then ? (особенно, если два оператора после then)

В коде CommandButton1 записал вот так:
If ListBox1.Column(0) = 0 Then UserForm1
ругается )))
То есть, если из списка не выбрано значение то переходим на UserForm1 т.е. вводим все заново (остальные введенные данные из формы никуда не делись) А еще, перед переходом поставить MsgBox "дескать про выбрать из списка забыли"


Добавлено:

Цитата:

есть вопрос про for как сделать шаг через один?

Мне еще рано быть советчиком, но в старые добрые времена в Basic-е цикл For Next можно было снабдить мулькой step (т.е. шаг) И синтаксис выглядел так:

For X=0 to 1000 step 2
.....
next

Т.е цикл от 0 до 1000 с шагом 2
Есть ли эта мулька в VBA - не знаю,
...... посмотрел, мулька эта есть. смотри книжульку в шапке темы "Первые шаги с Excel VBA" Шаг №22.
..... испытал, синтаксис правильный, работает.

Цитата:

For X=0 to 1000 step 2

ая-я-яй... позор мне... Ну, разумеется, шаг же можно задавать!!!!!!!
вот к чему приводит долгое программирование на Дельфи...
в своё оправдание хочу сказать, что предложенные мною способы тоже рабочие...


Цитата:

объявить переменную А, что дескать она текстовая

ну, это не проблема.
dim A As String

вот только мне кажется, что у вас проблема не в этом!
что даст прямое присвоение
Cells(Lastrow, 8).Value = "Test Only"
появится в столбце H текст?
Может для столбца/ячейки задан формат (например, числовой)?


Цитата:

Какой синтаксис у If then

If <условие> Then
<оператор>
...
<оператор>
[Else
<оператор>
...
<оператор>]
End If
в [] то, что может быть опущено...

CEMEH

Цитата:

If OptionButton1 = 1 Then A = "Первое"
If OptionButton2 = 1 Then A = "Второе"
If OptionButton3 = 1 Then A = "Третье"
If OptionButton4 = 1 Then A = "Четвертое"
If OptionButton5 = 1 Then A = "Пятое"
If OptionButton6 = 1 Then A = "Шестое"
If OptionButton7 = 1 Then A = "Седьмое"
Cells(Lastrow, 8).Value = A

ИМХО, рациональней в таком случае сделать один ComboBox с семью вариантами, чем клепать 7 OptionButton. Нет?
Тогда код можно было бы упростить до Select Case либо вообще до:
Cells(lastrow,8) = Combobox.Value


Цитата:

В коде CommandButton1 записал вот так:
If ListBox1.Column(0) = 0 Then UserForm1
ругается )))
То есть, если из списка не выбрано значение то переходим на UserForm1 т.е. вводим все заново (остальные введенные данные из формы никуда не делись) А еще, перед переходом поставить MsgBox "дескать про выбрать из списка забыли"

Во-первых, чтобы показать форму, надо использовать метод Show.
Во-вторых, ListBox сейчас помню смутно, но по-моему такое условие проверяет первую колонку на равенство нулю..
Что значит "если не выбрано значение"? Если ListBox пустой?

SERGE_BLIZNUK
спасибо сделал через mod

The okk Ура! The okk вернулся!!! С возращением!!!! Отдыхал?... ;-))

сорри за оффтоп.

SERGE_BLIZNUK
Привет. Да так - и отдыхал и работал.
Меня тут оказывается помнят, что не может не радовать

фот решил написать функцию для фифо, и чего то он ругается на первое next говорит что next c1 используется без for
[more=code]

Код:

Public Function Realized(operation As Range, rate As Range) As Long

On Error GoTo Err

If operation.End(xlDown).Value >= 0 Or operation.Row <> rate.Row Then
GoTo Err
End If

Dim index As Byte
Dim c1 As Range
Dim in_r As Range
Dim finish As Long
Dim sum_minus As Single
Dim start_cell As Long
Dim finish_cell As Long
Dim ostatok As Single
Dim minus As Single

minus = operation.End(xlDown).Value
Set in_r = operation

index = 1
For Each c1 In rate
If c1 < 0 Then
sum_minus = c1 + sum_minus
Else
If index = 1 Then
in_r(index, 3) = c1
Else
in_r(index, 3) = c1 + in_r(index - 1, 3)
End If
in_r(index, 2) = c1
index = index + 1
Next c1
finish = index - 1

index = 1
For Each c1 In in_r.Cells
If in_r(index, 3) - sum_minus + (-minus) > 0 Then
start_cell = index
Exit For
End If
Next c1
For Each c1 In in_r.Cells
If in_r(index, 3) - sum_minus > 0 Then
finish_cell = index
Exit For
End If
Next c1

Realized = 0
ostatok = -minus
For c1 = start_cell To finish_cell
If c1 < 0 Then
Else
If ostatok > in_r(c1, 1).Value Then
ostatok = ostatok - in_r(c1, 1).Value
If c1 = strt_sell Then
Realized = (in_r(c1, 3).Value - sum_minus + (-minus)) * in_r(finish, 2).Value - (in_r(c1, 3).Value - sum_minus + (-minus)) * in_r(c1, 2).Value + Realized
Else
Realized = ostatok * in_r(c1, 2).Value - ostatok * in_r(c1, 2).Value + Realized
End If
Else
If c1 = strt_sell Then
Realized = (in_r(finish, 3).Value - sum_minus + (-minus)) * in_r(finish, 2).Value - (in_r(c1, 3).Value - sum_minus + (-minus)) * in_r(c1, 2).Value + Realized
Else
Realized = ostatok * in_r(finish, 2).Value - ostatok * in_r(c1, 2).Value + Realized
End If
End If
End If
Next c1


Exit Function
Err:
Realized = ""

End Function

vasiliy74

Цитата:

он ругается на первое next говорит что next c1 используется без f

потерял одно End If (перед next c1)


Цитата:

Тема про цвета у кого есть возможность код вот так раскрашивать

похоже на работу какого-то документатора - программа, которая на вход получает исходный текст - на выходе - либо красиво оформленный код (типа как на рисунке), либо блок-схемы и т.п....



Добавлено:
например, по поиску нашёл - Doc-O-Matic версия 3 - система документирования исходных текстов...

SERGE_BLIZNUK
спасибо что помог с моим первым затыком, их там ещё тьма пока вроде получается отлаживать жудкий код

Добавлено:
Public Function Realized(operation As Range, rate As Range) As Long

On Error GoTo Err

If operation.Row <> rate.Row Then
GoTo Err
End If

Dim index As Byte
Dim c1 As Range
Dim in_r As Range
Dim finish As Long
Dim sum_minus As Single
Dim start_cell As Long
Dim finish_cell As Long
Dim ostatok As Single
Dim minus As Single

Set in_r = operation

index = 1
For Each c1 In rate.Cells
in_r(index, 2).Value = c1 вот тут вылетатет! не осилил это потомучто проецируется прям в таблицу? не может создать так просто столбец 2?


index = index + 1
Next c1

vasiliy74

Цитата:

For Each c1 In rate.Cells
in_r(index, 2).Value = c1 вот

я не знаю, ЧТО ты хочешь сделать, но ты, наверное, хотел так:
For Each c1 In rate.Cells
in_r(index, 2).Value = c1.Value

vasiliy74
хм.. честно говоря, не совсем понял, что ты хочешь сделать.

Цитата:

считается она как разница между курс * на кол-во приобретения –курс * на кол-во продажи

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

vasiliy74

Цитата:

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

угу. Именно! Телепаты всё опять в отпуске ;-)))
Причём рекомендую сделать нескольно вариантов с разными вариантами курсов и количества, сделать расчёт ручками и расписать, как и что считается
(можно прямо в том же листе описать словами, можно в ячейку записать, опять же ручками, что на что умножается и из чего вычитается...)
я алгоритм по макросу восстановить НЕ СМОГ.

Хотя по описанию ("полученную разницу от реализации по методу первый пришел первый ушёл") - интуитивно чувствую, ЧТО Вам надо получить...

Как в Excel добавить свой пункт в контекстном меню? Это, скорее не в VBA, может кто подскажет где?

SERGE_BLIZNUK
конечно в первую очередь, я так и сделал, на листе всё разложил по полочкам потом написал алгоритм и записал его в код, а синтаксисом у меня проблемы это 99% всех моих ошибок... как правило отлаживаю синтаксис, нужно бы подучить, но что то всё время выделить жалко
суть алгоритма заключается в том чтобы скинуть всё во временный массив и там произвести расчёты, выложить не могу потомучто доступа нет но примерно обяснить попробую...
1 у нас есть столбец с кол-вом. где по знаку - мы понимаем что продаём а свё что положительное то покупаем.
2 цель нашего расчёта найти тот приход из которого мы будем так сказать продавать
3 ищем ячейки следующим образом:
3.1 сторим дополнительный столбец в значения которого заводим сумму всех покупок по текущею стороку (назавём её столбец сумм). например:
12 12

vasiliy74

Цитата:

основня проблема в том что я незнаю как содать временные переменные с которыми буду работать

Цитата:

как правельно в теле функции передать значения во временные переменные для расчётов..

Какие переменные нужны, одиночные или массив? Если заносить таблицу, то нужен массив:

Код: Dim AA (1 TO 20) as Double ' - для чисел с плавующей точной, двойная точность
Dim BB (1 TO 20) as Long ' - для целых больших чисел

The okk
ComboBox??? А х.. ее знает...
OptionButton нагляднее....
Возможно... Однако не плохой опыт для дальнейших разработок. А я то где ошибся? Что не так записал? надо присвоить пременной А одно из семи возможных значений в зависимости от OptionButton... Как это сделать? Теория = если OptionButton1=1 то переменная="первое", если OptionButton2=1 то переменная="Второе"
Собственно говоря синтаксис If Then

Цитата:

If <условие> Then
<оператор>
...
<оператор>
[Else
<оператор>
...
<оператор>]
End If

Надо пологать, что после Then, else надо писать с новой строки? А значки "[", "]"??
А что значит End if?

Цитата:

ну, это не проблема.
dim A As String

Что это значит? переменная А - текст? А просто, с первой строки (без этого объявления)я не могу написать Let А= "Вася Пупкин"? Выдаст ошибку?


Цитата:

Что значит "если не выбрано значение"? Если ListBox пустой?

Нет, листбокс заполнен, но при выполнении программы я не тыкал в него мышкой (не выбирал из него значение)

Цитата:

Во-первых, чтобы показать форму, надо использовать метод Show.

Тогда спрошу проще:
Если выбранное значение (не выбрано) листбокс ="" тогда вывести на экран сообщение "Выберите из списка" и вернуться назад для выбора значения из листбокс.

Вообще бы почитать хороший справочник по по VBA... (русский)

CEMEH
Цитата:

Надо полагать, что после Then, else надо писать с новой строки? А значки "[", "]"??
А что значит End if?

1) ВНИМАТЕЛЬНЕЕ читайте сообщения! Цитирую сам себя:
"в [] то, что может быть опущено... "
разжевываю - квадратными скобочками я обозначил необязательные элементы, т.е. то, что может быть убрано (опущено)...

2) очень, очень, очень рекомендую открыть данный топик -
Версия для печати и почитай примеры чужого кода. Поверьте, что процентов на 80% того, что я знаю и умею в VBA, это благодаря чтению/анализу чужого кода...

3) End if - это завершение условной конструкции. Подумайте сами, ведь нужно же компилятору языка узнать, что закончилась ветка, которую нужно выполнять при соблюдения условия if <условие> then.
В синтасисе языков программирования существует только нескольк способом указать, какой блок попадает в if then - либо операторные скобки (в Pascal/Delphi - begin ... end,
в Си,Java - { .. } ... ) либо завершающий оператор, который указывает, что всё, баста, веточка закончилась. в данном случае это и есть end if


Цитата:

Цитата: ну, это не проблема.
dim A As String

Что это значит? переменная А - текст? А просто, с первой строки (без этого объявления)я не могу написать Let А= "Вася Пупкин"? Выдаст ошибку?

1

SERGE_BLIZNUK
Во первых - ОГРОМНОЕ СПАСИБО!!! за помощь в познании языка программирования
99,9% я беру с форума, остальное - с книг.
Цитата:

это выдаст ошибку, если в опциях VBA у вас стоит обязательно требовать описания переменных (меню Tools - Options - [ ] Require Variable Declaration)

Нет. я такую опцию не ставил, и сегодня попробовал:
Фамилия = Range("C65536")
Имя = Range("D65536")
Отчество = Range("E65536")
Адрес = Range("F65536")
Телефон = Range("G65536")
НомерКолонны = Range("H65536")
Должность = Range("I65536")
Однолиц = Range("J65536")
Образование = Range("K65536")
ВидДвижения = Range("L65536")
Выз = Range("M65536")
ГрДоп = Range("N65536")
Класс = Range("O65536")
ТалонБД = Range("P65536")
ТалонТБ = Range("Q65536")
ПоследнийКИП = Range("R65536")
СобеседТЧ = Range("S65536")
Дрожд = Range("T65536")
Дпост = Range("U65536")
НазначДвиж = Range("V65536")
НазначДолжн = Range("W65536")
Дувол = Range("X65536")
СлМед = Range("Y65536")
СлПсих = Range("Z65536")
СлЭБ = Range("AA65536")
СлТБ = Range("AB65536")
СлОТ = Range("AC65536")
Прим = Range("AD65536")
ВидТяги = Range("AE65536")

И все прекрасно фунциклирует и потом эти переменные (русские) очень даже хорошо вставляются в нужные ячейки.


C If then разберусь позже

А теперь!
ПлюсАдин тому, кто подскажет, как в VBA сделать автозаполнение в поле для ввода текста


пс Завтра на служебном принтере распечатаю "версию для печати", буду осваивать....

Цитата:

А теперь!
ПлюсАдин тому, кто подскажет, как в VBA сделать автозаполнение в поле для ввода текста

Плюсадин уходит ко мне! Эта мулька есть в ComboBox

Задача другого плана:
1. Есть список работников предприятия, строка - работник (табельный, фамилия, имя, должность) и т д по столбцам.
Есть форма, в которой ComboBox-ы табельный, фамилия, должность.
Каким образом сделать, что бы после набора табельный, фамилия сама подставилась, и наоборот?

2. А еще лучше - несколько ComboBox-ов, в которых раскрывающийся список будет уменьшаться, в зависимости от выбора в других ComboBox. Т е если я выбрал в ComboBox-е должность "бригадир" то в ComboBox-е "фамилии" вылезут только фамилии бригадиров.

Хотя бы первую задачку решить.

Заранее Спасибо!



Добавлено:
Как написать?

А = номер выбранной строки из ComboBox1

(не выбранное значение, а именно номер строки)
Заранее благодарен!

Наконец-то данных из Аксес в Екселе, передачи очень быстрые ))
Этот код в екселе:

Код:
Sub Test()

Dim XL As Object
Dim WB As Workbook
Dim WS As Worksheet
Dim sql As String

Set XL = CreateObject("excel.application")
XL.SheetsInNewWorkbook = 1
Set WB = XL.Workbooks.Add
Set WS = WB.Worksheets(1)
sql = "SELECT * FROM Артемовская"
Call TXLOut(sql, 1, 1, 1, 1, False)
WB.Close False
XL.Quit
End Sub


Public Function TXLOut(sql As String, Optional ByRef x As Long = 1, Optional ByRef y As Long = 1, Optional ByRef n As Long = 1, Optional ByRef m As Long = 1, Optional Headers As Boolean = True) As Worksheet
Objects Library
Dim a As Variant
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim c() As Variant
Dim i, j, l, k As Integer
rs.Open sql, "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\1.mdb;", adOpenForwardOnly, adLockOptimistic
a = rs.GetRows()
ReDim c(UBound(a, 2), UBound(a, 1))
For k = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
c(j, k) = a(k, j)
Next j
Next k
n = UBound(a, 2) + 1
m = UBound(a, 1) + 1
Range(Cells(y, x), Cells(n + y - 1, m + x - 1)) = c
If Headers Then
Range(Cells(y, x), Cells(n + y - 1, m + x - 1)).Rows(1).Insert
For j = 0 To m - 1
Cells(y, j + x).Value = rs.Fields(j).Name
Next j
End If
rs.Close
Exit Function
whoops:
Resume Next
End Function

The Bat! Что он из себя предстовляет,ваши советы о нем!

Ой, не в той теме написал ))

Вопрос закрыт. Спасибо.

Привет, авторитеты! Я в VBA новичок. Подскажите, как в VBA выполнить функцию ВПР или СУММЕСЛИ. т.е. надо найти значение на пересечении конкретных строк и столбцов а затем это значение вставить на пересечении конкретных строк и столбцов в другом файле. спасибо.