» Excel VBA (часть 2)

Ergistael
Конечно Вы правы. Я, видимо, не совсем верно сформулировал исходный вопрос. В моем (частном) случае в ячейках со ссылками формула исключена. Подробнее: в таблице Excel находятся ссылки на ячейки из конкретной книги с конкретных листов. Все дальнейшие действия Excel и макросов имеют дело уже с этими данными. Нужно было лишь подменить имена книг и листов, входящих в ссылку.

Добавлено:
В общем случае все равно приходится "разбирать" строку.

Господа возможно ли макросами и как, если Вам не трудно, решить такую траблу:
Копируем энное кол-во ячеек с гипер ссылками с одного ексель документа в другой надо что бы во втором документе все ссылки вида \\server-main\bla\bla\bla
заменились на \\192.168.168.3\bla\bla\bla...

С Уважением

Ребят подскажите плиз как снять ограничение на кол-во столбцов/строк для работы под новым Excel 2007. Есть add-on который давно не обновлялся, не хочет выводить график в длину больше 255 столбцов, грит дальше нельзя, что исправить?

Dastali
Вот функция для смены

Код:
Public Function ChangeUNC(ByVal UNCString As String, ByVal ipString As String) As String
Dim pos As Long

pos = VBA.InStr(3&, UNCString, "\")
If pos = 0& Then
ChangeUNC = ""
Else
ChangeUNC = "\\" & ipString & VBA.Mid$(UNCString, pos)
End If
End Function

Цитата:

Выход - увеличивать ширину столбца

Так и пришлось поступить: вначале Autofit, а затем увеличение ширин всех колонок на константу или процент от ширины.
Все равно, спасибо!

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

ВОПРОС:

Для визуального отображения хода выполнения макроса решил использовать Label1 на форме, тест которого будет изменяться в процессе выполнения.
пишу

Label1 = X' т.е. значение переменной X

но не вижу (не меняется). На юзерформ Label1 без изменений. Что не так?
СПАСИБО!

Привет! Такой вопрос: можно ли с помощью какого-нибудь свойства/встроенной функции запретить пользователю на форме вводить в поле Textbox буквы, нужно чтоб вводились только цифры.
p.s. форма и вся ерунда находится в экселе, так что я точно по теме...

kalinakrasnay
5555555 уже дал тебе ответ http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=5993&start=500#lt

Цитата:

Label1 = X' т.е. значение переменной X

Попробуйте Label1.Caption= X

SAS888
Ogromnoe tebe SPOSIBO
Kod rabotaet kak nado
SUPER!!!!

Коллеги,

Подскажите, пожалуйста, как защитить лист от редактирования с сохранением возможности отображать и скрывать сгруппированные строки/столбцы (ну, которые под плюсиками)?
Надеюсь, вопрос по теме, ибо стандартными средствами это, похоже, не решается.

Подскажите, пожайлуста.
Нужно создать список акций который котируется на ММВБ и закачивать котировки по выборочным акциям. Как это можно сделать?

toNk

Ctrl + A
меню Сервис - защита - защитить лист

ты это ищещь?

Kins
Если защитить лист таким способом, то независимо от списка разрешений на этом листе невозможно сгруппировать или разгруппировать строки/столбцы.
Мне нужно сохранить эту возможность, при этом запретив пользователям редактировать залоченные области.

Как в одном столбике узнать сколько одинаковых?
Т.е. была такая функция я забыл... что он показывал цифру, в столбике сколько чего...
Есть такое?

Добрый вечер!
В екселе на листбоксе список домов в количестве 40 шт., передается в базы, но в базе всего лишь один дом, а 39 пропущено! Как решить?


Код:
Private Sub CommandButton2_Click()

Dim dbs As Database
Dim aaa As TableDef
Dim rst As Recordset
Dim WS As Worksheet
Dim i As Integer

rw = ListBox1.ListCount
cl = ListBox1.ColumnCount

Set dbs = OpenDatabase("C:\access-excel\db1.mdb") 'Открываем в памяте

Set aaa = dbs.CreateTableDef(TB2.Value) 'В аксессе содзает имя
With aaa
.Fields.Append .CreateField("F", dbText)
.Fields.Append .CreateField("N", dbText)
.Fields.Append .CreateField("O", dbText)
.Fields.Append .CreateField("G", dbText)
.Fields.Append .CreateField("A", dbText)
.Fields.Append .CreateField("D", dbText)
.Fields.Append .CreateField("K", dbText)
.Fields.Append .CreateField("K1", dbText)
.Fields.Append .CreateField("K2", dbText)
.Fields.Append .CreateField("S", dbText)
.Fields.Append .CreateField("R", dbText)
.Fields.Append .CreateField("C", dbText)
.Fields.Append .CreateField("D1", dbText)
End With
dbs.TableDefs.Append aaa

Set rst = dbs.TableDefs(TB2.Value).OpenRecordset(dbOpenDynaset)
With rst
.AddNew
.Fields("F").Value = CStr(Cells(rw, cl - 12).Value)
.Fields("N").Value = CStr(Cells(rw, cl - 11).Value)
.Fields("O").Value = CStr(Cells(rw, cl - 10).Value)
.Fields("G").Value = CStr(Cells(rw, cl - 9).Value)
.Fields("A").Value = CStr(Cells(rw, cl - 8).Value)
.Fields("D").Value = CStr(Cells(rw, cl - 7).Value)
.Fields("K").Value = CStr(Cells(rw, cl - 6).Value)
.Fields("K1").Value = CStr(Cells(rw, cl - 5).Value)
.Fields("K2").Value = CStr(Cells(rw, cl - 4).Value)
.Fields("S").Value = CStr(Cells(rw, cl - 3).Value)
.Fields("R").Value = CStr(Cells(rw, cl - 2).Value)
.Fields("C").Value = CStr(Cells(rw, cl - 1).Value)
.Fields("D1").Value = CStr(Cells(rw, cl).Value)
.Update
.Close
End With

dbs.Close

End Sub

Anton T
Попробуй

Код: Set rst = dbs.TableDefs(TB2.Value).OpenRecordset(dbOpenDynaset)
With rst
For i=0 to rw
.AddNew
.Fields("F").Value = CStr(Cells(i, cl - 12).Value)
.Fields("N").Value = CStr(Cells(i, cl - 11).Value)
.Fields("O").Value = CStr(Cells(i, cl - 10).Value)
.Fields("G").Value = CStr(Cells(i, cl - 9).Value)
.Fields("A").Value = CStr(Cells(i, cl - 8).Value)
.Fields("D").Value = CStr(Cells(i, cl - 7).Value)
.Fields("K").Value = CStr(Cells(i, cl - 6).Value)
.Fields("K1").Value = CStr(Cells(i, cl - 5).Value)
.Fields("K2").Value = CStr(Cells(i, cl - 4).Value)
.Fields("S").Value = CStr(Cells(i, cl - 3).Value)
.Fields("R").Value = CStr(Cells(i, cl - 2).Value)
.Fields("C").Value = CStr(Cells(i, cl - 1).Value)
.Fields("D1").Value = CStr(Cells(i, cl).Value)
.Update
Next i
.Close
End With

kerimchik
Стандартная функция Excel "СчетЕсли".
Следующий макрос, например, подсчитает количество x в столбце A.

Sub CIF()
x = "q" 'x может быть любого типа
MsgBox Application.CountIf(Range("A:A"), x)
End Sub

dneprcomp
хм.. спасибо, попробую.

Добавлено:
dneprcomp
Не получилось выдает ошибку "Application-defined or object-defined error", выдает желтую строку: .Fields("F").Value = CStr(Cells(i, cl - 12).Value)

Anton T
Видимо ListBox индекс начинается с 1. Попробуй
For i=1 to rw

dneprcomp
Вот тоже такая ошибка: "Поле 'Имя.R' не допускает ввод пустых строк", а потом желтую .Update

Цитата:

на этом листе невозможно сгруппировать или разгруппировать строки/столбцы

Попробуй с помощью макроса типа ActiveSheet.Outline.ShowLevels rowLevels:=2, columnLevels:=1.

Timans1

Цитата:

Нужно создать список акций который котируется на ММВБ и закачивать котировки по выборочным акциям

Так пойдет?

Sub MMVB()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.micex.ru", Destination:=Range("A1"))
.Name = "www.micex.ru"
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.AdjustColumnWidth = True
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "105"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.Refresh BackgroundQuery:=False
End With
End Sub

Anton T

Цитата:

Вот тоже такая ошибка: "Поле 'Имя.R' не допускает ввод пустых строк",

В базе при создании разрешить ввод пустых строк

volidol1

Цитата:

Попробуй с помощью макроса типа ActiveSheet.Outline.ShowLevels rowLevels:=2, columnLevels:=1.

Можно поподробней?

SAS888
SAS888
Спасибо

Цитата:

Можно поподробней?

Можно, например, так:
добавить на лист CheckBox-ы для каждого уровня группировки, а далее в зависимости от флага управлять "плюсиками" кодом.
Пример:
Sub Flag1()
Dim ThislName As Boolean
Dim myName As String
Dim s As Shape

For Each s In ActiveSheet.Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then
myName = s.TextFrame.Characters.Text
If myName = "Имя нашего CheckBox" Then
If s.ControlFormat.Value = 1 Then
ThislName = True
Else
ThislName = False
End If
End If
End If
End If
Next

Select Case ThislName
Case True
ActiveSheet.Outline.ShowLevels rowLevels:=2, columnLevels:=1
Case False
ActiveSheet.Outline.ShowLevels rowLevels:=1
End Select
End Sub

volidol1
Спасибо огромное!
Как попробую, отпишусь!

volidol1
Максро работает. Но на защищенном листе все равно не дает раскрыть/скрыть плюсики
Как вариант, добавить в макрос снятие защиты листа до исполнения, и повторную защиту после. Но у меня получается только защита без пароля.

Может кто подскажет макрос на защиту листа с паролем?