» Excel VBA (часть 2)

virginijus
Можно проще:

Код: Dim i As Integer
For i = 1 To 30
If Cells(i, "A") > 0 Then Range("B1") = Cells(i, "A")
Next

Ув.форумчане, помогите наладить переход в форме по полям ввода.
Есть поле со списком (п1) Если в него введно новое значение, то перейти к п2, а если выбрано из списка, то к п4
определяю метод ввода при выходе из формы в sub обработки события п1_exit и в этой процедуре, в случае ввода из списка, вызываю метод п4.setfocus. В противном случае - ничего не делаю, т.к. по tabindex п2 "идет" следующим.
Заморочка вот в чем. П4 тоже поле со списком (listindex=0, не -1, так надо) и когда выполняется в п1_exit п4.setfocus, тут же п1_exit вызывается снова, доходит до п4.setfocus и тогда только выполняет вход в п4 и ! почему-то сразу выход из него, те происходит событите п4_exit безо всяких манипуляций с п4, хотя они необходимы
Заколебался я с этими событиями... В общем вопрос пока такой, как в зависимости от введенного значения, попадать в нужные поля ввода (устанавливать курсор)?

SAS888 Спасибо, люблю простату, только вот жаль результат - такои же , и показывает на

For i = 1 To 30 эту строчку

а вот так :

Sub aaa()
Dim I, X As Integer
X = 1
For I = 1 To 30
If Cells(I, 1) = "" Then
Else
X = X + 1
End If
Next I
Cells(1, 2) = Cells(X - 1, 1)
End Sub , идет, так мне написал знакомыи, но мне кажетьса, что можно как-то попроще

virginijus,
разве, что так (с проверкой на число и величину). Но это почти не отличается от предложенного выше

Код: Sub aaa()
For I = 1 To 30
If isnumeric(Cells(I, 1)) Then if Cells(I, 1) >0 Then Cells(1, 2) = Cells(I, 1)
Next I
End Sub

Ilyansk Cпасибо, то, что надо, а нелзя-ли все это написать через "A1:A30"? Так было-бы попрощее, хотя и так отлично. Спасибо

как приостановить выполнение макроса в конкретном месте на 1 минуту например, ?

Добавлено:
Взял пример из [more=Help-a Excel]
Код: newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Доброго времени суток!
Подскажите плиз, как можно сделать так, чтобы ВСЕМ ячейкам на текущем листе, которые содержат цифровые значения (при этом формат их может быть как чилсовой так и текстовый) присваивался формат "Accounting" (он же Бухгалтерский), с количеством знаков после запятых=0 и знак валюты тоже "пусто".
При этом формат ячеек с текстом либо с цифровыми значениями которые не являются числами (напр 61.2.3 - бух счета) оставалсь неизмененными)
Пример того что нужно - в файле. На первом листе - что имеем, на втором - как должно быть.
http://slil.ru/25478605
Буду очень признательным за помощь...

Понял. нужно просто вторую часть отдельной функцией реализовать и установить запуск через 15 сек например

vasiliy74
В форме:

Код: Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub

Anton TВсё равно спасибо

Ilyansk
[more=Попробуй так]
Фокус у тебя передаётся на другой элемент, поэтому был введён флаг принудительного перехода на cmb4

Код:
Private toCmb4 As Boolean

Private Sub cmb1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If cmb1.ListIndex > -1 Then
toCmb4 = True 'установим флаг, что нужен фокус на cmb4
cmb4.SetFocus
Else
toCmb4 = False
End If
End Sub

'на этот элемент переходит фокус
Private Sub cmb3_Enter()
If toCmb4 Then
toCmb4 = False
cmb4.SetFocus
End If
End Sub
Private Sub UserForm_Activate()
cmb1.List = Array("One1", "One2", "One3")
cmb4.List = Array("four1", "four2", "four3")
cmb4.ListIndex = 0
End Sub

virginijus

Цитата:

Ilyansk Cпасибо, то, что надо, а нелзя-ли все это написать через "A1:A30"?

во многих случаях в VBA excel можно вместо cells(x,y) применять range("a1"), но с учетом того, что RANGE это диапазон, т.е. позволяет работать сразу с группой ячеек, например менять формат отображения, а cells(x,y) - только с одной, "лично мне так ка-аца"... Да и куда проще? Хотя, Вы правы

Код: For Each c In Range("a1:a30")
If c <> "" And IsNumeric(c) Then Range("b1") = c
Next

Есть вот такой макрос он проходит по шапке (в шапке заданы месяца) и определяет таким образом начальный и конечный столбец области определения для изъятия и замены информации находящейся в ячейках, проблема такого рода ранее ячейки с месяцами были текстовыми, а теперь они в формате дата "Date", и я не знаю как мне переделать функции "Function" так что макрос работал как раньше.

Код: Function ПолучитьЛист(ИмяЛиста) As Worksheet
Dim tmpWSh As Worksheet
On Error Resume Next
Set tmpWSh = ActiveWorkbook.Sheets(ИмяЛиста)
If Err.Number <> 0 Then
Set tmpWSh = ActiveWorkbook.Sheets.Add
tmpWSh.Name = ИмяЛиста
Else
tmpWSh.UsedRange.Clear
End If
On Error GoTo 0
Set ПолучитьЛист = tmpWSh
End Function

Function ЭтоМесяц(ТекстЗнач) As Boolean
Dim AllMonth As String
ЭтоМесяц = False
ТекстЗнач = LCase(ТекстЗнач)
If InStr(1, "янв.08,фев.08,мар.08,апр.08,май.08,июн.08,июл.08,авг.08,сен.08,окт.08,ноя.08,дек.08", ТекстЗнач) > 0 Then
ЭтоМесяц = True
End If
End Function

Function ПолучитьНомерМесяца(ТекстЗнач) As Integer
Dim StartPos As Integer
Dim i As Integer
Dim MonthNumber As Integer
MonthNumber = 0
StartPos = InStr(1, "янв.08,фев.08,мар.08,апр.08,май.08,июн.08,июл.08,авг.08,сен.08,окт.08,ноя.08,дек.08", ТекстЗнач)
For i = 1 To StartPos
If Mid$("янв.08,фев.08,мар.08,апр.08,май.08,июн.08,июл.08,авг.08,сен.08,окт.08,ноя.08,дек.08", i, 1) = "," Then
MonthNumber = MonthNumber + 1
End If
Next i
ПолучитьНомерМесяца = MonthNumber + 1
End Function

Sub Sunnych_current_txt()
' Саныч Макрос
' Макрос записан 5.02.2008 (Sunnych)
Dim SH As Worksheet
Dim iCol As Integer
Dim iStartCol As Integer
Dim iMaxCol As Integer
Dim iRow As Integer
Dim iMaxRow As Integer
Dim vVar1 As Variant
Dim strT1 As String
Dim intOffset As Integer

Set SH = ПолучитьЛист("Лист3")
iStartCol = 0
iMaxCol = Sheets("Лист1").UsedRange.Columns.Count + Sheets("Лист1").UsedRange.Column - 1
For iCol = 3 To iMaxCol
Debug.Print Sheets("Лист1").UsedRange.Columns(iCol).Width
If (Sheets("Лист1").UsedRange.Columns(iCol).Width > 1) And (iStartCol = 0) Then
iStartCol = iCol
Exit For
End If
Next iCol
intOffset = iStartCol - ПолучитьНомерМесяца(LCase(Trim$(Sheets("Лист1").Cells(8, iStartCol).Text)))
For iCol = iStartCol To iMaxCol
Debug.Print Sheets("Лист1").UsedRange.Columns(iCol).Width
If Sheets("Лист1").UsedRange.Columns(iCol).Width > 3 Then
strT1 = Trim$(Sheets("Лист1").Cells(8, iCol).Text)
If ЭтоМесяц(strT1) = False Then
Exit For
End If
SH.Cells(1, ПолучитьНомерМесяца(strT1)).FormulaR1C1 = strT1
SH.Cells(1, ПолучитьНомерМесяца(strT1)).NumberFormat = "[$-419]mmmm yyyy"
End If
Next iCol
iMaxCol = iCol - 1

iRow = 9
Do While Trim$(Sheets("Лист1").Cells(iRow, 1).Text) <> ""
For iCol = iStartCol To iMaxCol
strT1 = Trim$(Sheets("Лист1").Cells(iRow, iCol).Text)
If sText = "" Then
sText = "0"
ElseIf sText = "резерв" Then
sText = "0R"
ElseIf sText = "с 15" Then
sText = "занят с 15"
ElseIf sText = "до 15" Then
sText = "занят до 15"
Else
sText = "1"
End If
SH.Cells(iRow - 7, iCol - intOffset).NumberFormat = ""

Next iCol
iRow = iRow + 1

Loop

For iCol = 1 To SH.UsedRange.Columns.Count
If SH.Cells(1, iCol).Text <> "" Then
iStartCol = iCol
Exit For
End If
Next iCol
SH.Activate
For iCol = 1 To iStartCol - 1
SH.Range(Cells(2, iStartCol), Cells(SH.UsedRange.Rows.Count, iStartCol)).Select
Selection.Copy
SH.Cells(2, iCol).Select
SH.Paste
Next iCol

SH.Select
For iCol = SH.UsedRange.Columns.Count + 1 To 12
SH.Range(Cells(2, SH.UsedRange.Columns.Count), Cells(SH.UsedRange.Rows.Count, SH.UsedRange.Columns.Count)).Select
Selection.Copy
SH.Cells(2, iCol).Select
SH.Paste
Next iCol

SH.Activate
SH.Range(SH.Cells(1, 1), SH.Cells(SH.UsedRange.Rows.Count, SH.UsedRange.Columns.Count)).Select
Selection.Copy

End Sub

Так ведь еще проще. Функция Month(ячейка в формате "Datе") вернет порядковый номер месяца.

Коллеги помогите решить задачу.

Как выставить столбец "С" относительно всех совпадающих строк в столбце "а".

а b c
-------------
1 1 Иванов
1 2 петров
1
2
2
2
1
1

Что бы в итоге получилось:
1 Иванов
1 Иванов
1 Иванов
2 петров
2 петров
2 петров

Друзья! Есть такая проблема. Смастерил в сабже простенькую систему учета, для магазинчика хозтоваров.
Хотелось бы чтоб оператор после ввода чисел в ячейку (незащищенную) не мог ее подкорректировать, то есть после нажатия Ентер ячейка становилась red-only (защищенной). Учет ведеться на защищенных листах. Исходные ячейки не защищенные..

SAS888 я не рублю в VBA по этому и спросил, так как пересмотрел help и не смог разобраться, какой нибудь конкретный пример привести можете/
и в любом случае мне нужно будет использовать функцию
Function Month(Date)

abasov

Цитата:

Как выставить столбец "С" относительно всех совпадающих строк в столбце "а".

Для этого используется функция ВПР. В третьем столбике ставишь так:

=ВПР($A3;B$1:$C$2;2;ЛОЖЬ)

Правда это не VBA

может, тут мне поможете, наведёте на мысль,

Цитата:

как сделать так, чтобы определённый код (часть макроса) выполнялся при нажатии клавиши (любой) на клавиатуре?
а.и:

Цитата: Private Sub ???_???()
Dim i As Integer
Dim j As Integer

Select Case KeyAscii
Case 8, 46
i = 0
j = j + 1
Case 32, 13
i = i + 1
End Select