» Excel VBA (часть 2)

Olive77

Спасибо.

в своем примере я заменил вставку формулы на вставку значения
а как можно в ячейку к значению добавить формулу
чтобы в ячейке было видно, например: 285*А$8?

Вопрос:
На форме есть MultiPag из, допустим, трех вкладок: "первая", "вторая", "третья" Каким образом запустить выполнение кода при нажатии на какую либо вкладку?
Например, после выбора "третья" (page3) выполнить код:
For X=1 to 100
Next X



Olive77 СПАСИБО ЗА ОТВЕТ!

ol7ca
.FormulaR1C1 -> .Formula

Добавлено:
CEMEH
Private Sub MultiPage1_Click(ByVal Index As Long)
....
End Sub

Olive77


Цитата:

.FormulaR1C1 -> .Formula

Куда это записать?

Range("M9").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(" & Chr(34) & "Commissions" & Chr(34) & ",'[Budget.xls]Statement'!R1C1:R100C107,102,FALSE)"
Selection.Copy
Range("M9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ol7ca
ActiveCell.Formula="=285*А$8"

Olive77

Я прошу прощения, но мне нужно взять результат (число "Х"), полученный в вышеприведенном примере и вставить в ячейку "=Х*А$8"

ol7ca
а поэкспериментировать?


x = Application.WorksheetFunction.VLookup("Communications", Workbooks("Budget.xls").Worksheets("Statement").Range("A1:CZ32"), 102, False)
ActiveCell.Formula = "=" & x & "*A$8"

Olive77

Цитата:

Спасибо.

я бы год над этим экспериментировал-))

Добрый день уважаемые ветераны интелектуального труда , Вопрос:

Есть объединенная область ячеек А1-А6. в этой области записанно некоторе слово, как мне обратиться к этой области по одной ячейке (по А3 или по А6), чтоб я смог скопировать это слово в переменную? Пытаясь сделать так

dim s as string

s = cells (3,1).value


Ровно как и

s = cells (3,1)

Ровно как и

cells (3,1).select
s= selection.value

Я ничего не добился

Неужели только выделяя всю обьединенную область, можно будет добраться до слова в этой области?

Ddashevskiy
В ЛЕВОМ верхнем углу есть поле адрес.
Поставь курсор, сделай активной объед. ячейку и посмотри адрес.
Как правило будет первая левая ячейка.
Т е если объеденить B1:B5 то адрес будет B1

или
S=Range("B1")
или
S=Range(cells(2,1),cells(2,1))

или, наверное, так:
S=cells(2,1)

Объяснил как сумел, я еще не "ветеран" )))

Условие вопроса, было чтоя не могу выбирать к какой row в диапазоне обращаюсь, могу выбирать только одну строку из диапазона

Ddashevskiy
Повторюсь, что я не "ветеран", но на мой взгляд после объединения а1-а5 даннные будут находиться в а1...
Стоит попытаться записать в какую-нить другую ячейку этого объед. диапазона
cells(1,3)="asdfghjjk"
и посмотреть что из этого выйдет.
А потом попробовать ее прочитать
MsgBox range("A3")

Подскажите кто-нибудь, где найти тему по форматированию: как задать шрифт, его размер, цвет и прочее.
В частности, мне нужно вывести результат (число) жирным красным цветом.
Спасибо.

Olive77
Может вы подскажите код textbox который и числами умеет работать
этот код с текстом работает, а с цифрами никак

вот код, который текст признает а цифры нет

Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
Range("A2").AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlAnd
Else
Range("A2").AutoFilter Field:=1
End If
End Sub

Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
Range("B2").AutoFilter Field:=2, Criteria1:="=" & TextBox2.Text & "*", Operator:=xlAnd
Else
Range("B2").AutoFilter Field:=2
End If
End Sub

ol7ca
Для таких задач удобно пользоваться записью макросов
Сервис - макрос- начать запись
Все, что мы делаем на экране то и запишется в код VBA
Потом останавливаем запись, далее Сервис -макрос - изменить и вуаля:

Range("A1").Select' это мы выделили ячейку
Selection.Font.ColorIndex = 3'Сделали ей цвет красным
Selection.Font.Bold = True' и шрифт жирным.

пс
Может спецы еще чего поскажут?

Как сделать, чтобы при открытии формы "календарь" отображалось первое число предыдущего месяца?

maratino
ну, так я уже давно ответил, что мог
http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=8273&start=920
если данные для фильтрации находятся в колонке "А", то добавьте новую колонку, в которой данные из соотвественной ячейки будут пребразованы в текст (используем англ. функцию text())
А затем уже к этой новой колонке применяйте свой фильтр.

Но может, кто чего получше предложит.

Люди. Нужна помощь с автофильтром.
На листе есть массив.
Столбец A содержит даты формата ДД.ММ.ГГГГ
Нужно макросом сделать автофильтр в интервале дат. Пишу:
Selection.AutoFilter Field:=1, Criteria1:=">=" & Begin_date , Operator:=xlAnd, Criteria2:="<=" & End_Date
Автофильтр отрабатывает, то ничего не показывается. Условие в фильтре задано. Вхожу в условие и просто жму "ОК" и все отображается как надо.
Переменные Begin_Date и End_Date имеют формат "Date".
В чем может быть проблема?

Цитата:

Как сделать, чтобы при открытии формы "календарь" отображалось первое число предыдущего месяца?

Вопрос снимаю:

Код: Private Sub UserForm_Initialize()
If Month(Now) = 1 Then
m = 12
y = Year(Now) - 1
Else
m = Month(Now) - 1
y = Year(Now)
End If
Calendar1.Value = "01." & m & "." & y
End Sub

aks_sv

Все твое:

Цитата:

If Month(Now) = 1 Then
m = 12
y = Year(Now) - 1
Else
m = Month(Now) - 1
y = Year(Now)
End If
Calendar1.Value = "01." & m & "." & y

Можно заменить следующим:
Calendar1.Value = DateSerial(Year(DateAdd("m", -1, Date)), Month(DateAdd("m", -1, Date)), 1)

Люди,
помогите исправить файлик.... уже всю голову сломал

В сей форме CheckBoxes открывают новые боксы. Первые несколько работают замечательно, после двух-трех кликов - листбоксы перестают быть активными. То есть кликаю по ним сколько угодно, а они не работают.

Странно, но спасает в этом случае переход на соседний Лист и обратно - тогда опять боксы включаются.


Спасибо.

Как можно сделать этот листбокс активным все время?

Private Sub AddButton2_Click12()

Dim Z2 As Integer
Dim Z3 As Integer
Dim bInserted9 As Boolean


With ListBox_CC
UserForm1.ListBox_CC.Selected(0) = True

For Z2 = 0 To .ListCount - 1
bInserted9 = False
If .Selected(Z2) = True Then
bInserted9 = False
For Z3 = 0 To ListBox_CC2.ListCount - 1
If ListBox_CC2.List(Z3) > ListBox_CC.List(Z2) Then
Exit For
End If
Next Z3
ListBox_CC2.AddItem ListBox_CC.List(Z2), Z3
End If
Next Z2
End With


End Sub

Private Sub AddButtonCC_Click()

Dim K As Integer
Dim L As Integer
Dim bInserted1 As Boolean

With ListBox_CC
For K = 0 To .ListCount - 1
bInserted1 = False
If .Selected(K) = True Then
bInserted1 = False
For L = 0 To ListBox_CC2.ListCount - 1
If ListBox_CC2.List(L) > ListBox_CC.List(K) Then
Exit For
End If
Next L
ListBox_CC2.AddItem ListBox_CC.List(K), L
End If
Next K
End With

End Sub

CEMEH

Спасибо.

Oyger
Спасибо.
А на второй вопрос нет предложений?
Цитата:

Другой вопрос: как вставить в несколько не смежных ячеек выбранную дату на форме "календарь"?

aks_sv
Я не въехал, что это за форма "календарь". Поэтому не представляю как она выглядит. А как давать совет не предстовляя о чем...

Цитата:

Я не въехал, что это за форма "календарь". Поэтому не представляю как она выглядит. А как давать совет не предстовляя о чем...

Не так выразился: на форме элемент управления календарь (в Excel 2003 это Календарь 11.0)

Добавлено:
ссылка

ВОПРОС:

На форму нужно поставить восемь календарей
"Штатные" слишком большие,
Может использовать ComboBox Для даты и месяца? Но тогда надо как то реализовать проверку на корректность даты типа 31 февраля.

Может есть какие нить еще календарики? тоненькие Или всплывающие? Или есть возможность использовать ComboBox с проверкой?

CEMEH
Используй DTPicker или MonthView, а не Calendar. Оба сидят в mscomct2.ocx.

dneprcomp

Цитата:

Используй DTPicker или MonthView, а не Calendar. Оба сидят в mscomct2.ocx.

В Excel 2003 их не нашел, может по другому обзываются?

aks_sv
mscomct2.ocx ставится с Visual Studio 6
http://support.microsoft.com/kb/297381

dneprcomp
Спасибо! С календарем поковыряюсь.

Возник еще вопрос по ListBox
Он состоит из 18 строк и 9 столбцов. С возможностью выделения нескольких значений (поставить галки)
Использоваться он будет на форме как некая информационная таблица. Каким образом в коде VBA выделить, скажем 3,4,5,6 и 7 строки в ListBox? Если ставлю галки на этапе разработки то при запуске программы они исчезают.