Xo66iT
Тебе нужен кусок программного кода?
Тебе нужен кусок программного кода?
Желательно со всеми элементами управленияСам понял что написАл?
можно ли сделать из UserForm исполняемый файл, то есть чтоб он работал не зависимо от того же Excel.Нет. Но я делал из Delphi. Нормально сопрягается.
Я сделал ComboBox но содержание списка берется из файла Excel, возможно ли сделать чтоб список брался прям из VBAВозможно.
относится к первому вопросу хочется сделать независимую UserForm
Можно воспользоваться сводной таблицей.
Выделяешь твой диапазон.
Далее в меню - Data - Pivot Table (Несколько раз Next. Затем появляется новый лист, перетаскиваешь в столбец диапазон сумм, в строки - диапазон дат)
Попробуй, разберешься
Сам понял что написАл?
Народ, поскажите, пожалуйста, как сделать так, чтобы листы в книге расположились в алфавитном порядке (рассортировать)?
мне нужно, чтобы если в ячейке есть какие-либо данные, то фон у нее и у всех ячеек, расположенных левее ее закрашивался каким-либо цветом.
если в ячейке есть какие-либо данные, то фон у нее и у всех ячеек, расположенных левее ее закрашивался каким-либо цветом
А вот изменить оформление строки или группы ячеек в зависимости от содержания одной из них по мойму не возможно.
Это не баг, это фича
может попробовать натравить на твой файл Office Recovery ???
А как бы мне "починить" мой файлик?
Option Base 1
Dim ard() As String
Sub BubbleSort(pstrArray() As String)
plngMaxItem = UBound(pstrArray)
Dim i As Long
Dim fSwitched As Boolean
Dim strTemp As String
Do
fSwitched = False
For i = 1 To plngMaxItem - 1
If pstrArray(i) > pstrArray(i + 1) Then 'сортируем по возрастанию
fSwitched = True
strTemp = pstrArray(i)
pstrArray(i) = pstrArray(i + 1)
pstrArray(i + 1) = strTemp
End If
Next
Loop While fSwitched
End Sub
Sub Sort()
ReDim ard(Sheets.Count)
For i = 1 To UBound(ard())
ard(i) = Sheets(i).Name
Next i
Call BubbleSort(ard())
For i = 1 To UBound(ard())
Sheets(ard(i)).Move Before:=Sheets(i)
Next
End Sub
Посмотреть в "Правка" -> "Связи..." , где на листе находятся ссылки на другие книги, и если их там быть не должно, исправить формулы.
Страницы: 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
Предыдущая тема: Gentoo Linux