| |
|
|
| | Dim xl As Object
Dim row, col
xl.Range("a2:h2").Merge
а как записать ("a2:h2") - с использованием переменных row и col
==============================================================
xl.Range(col, row & ":" & 8, row).Merge?????   | |
| |
| |
| |
|
|
| | xl.Range(xl.cells(1,2),xl.cells(10,2)).merge | |
| |
| |
| |
|
|
| | Спасибо - понял
xl.Range(xl.cells(row, 1), xl.cells(row, 10)).merge | |
| |
| |
| |
|
|
| |
Public Function Set_Sheet_Viborka(Patch_Name As String, Sheet_Name As String)
'Ïå÷àòü ïðîèçâîëüíîé âûáîðêè
Dim MyRst As DAO.Recordset
Set MyRst = CurrentDb.OpenRecordset("Pay_Reestr_QUE", dbOpenDynaset)
If MyRst.EOF Then 'ïðîâåðêà íàëè÷èÿ ïîñòóïëåíèé ïëàòåæåé
' ïî äàííîìó âèäó ïëàòåæà
NET_Postuplenii = Nz(NET_Postuplenii) & vbCrLf & "Íåò ïîñòóïëåíèé " & Sheet_Name
Set MyRst = Nothing
Exit Function 'ïðîâåðêà íàëè÷èÿ ïîñòóïëåíèé ïëàòåæåé
' ïî äàííîìó âèäó ïëàòåæà
End If
Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Add
Set xlSheet = xl.Worksheets(1)
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
xl.Range("a1:h1").Merge
xl.Range("A1").Select
xl.ActiveCell.FormulaR1C1 = "ÊÊÌ - " & Mid(Sheet_Name, 1, 1)
With xl.ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Arial Cyr"
.FontStyle = "îáû÷íûé"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With xl.Selection
.HorizontalAlignment = ActiveCell.xlCenter
.VerticalAlignment = ActiveCell.xlBottom
End With
|
А почему на жирные строчки ругается???? | |
| |
| |
| |
|
|
| |
Public Function Set_Sheet_Viborka(Patch_Name As String, Sheet_Name As String)
'Печать произвольной выборки
Dim MyRst As DAO.Recordset
Set MyRst = CurrentDb.OpenRecordset("Pay_Reestr_QUE", dbOpenDynaset)
If MyRst.EOF Then 'проверка наличия поступлений платежей
' по данному виду платежа
NET_Postuplenii = Nz(NET_Postuplenii) & vbCrLf & "Нет поступлений " & Sheet_Name
Set MyRst = Nothing
Exit Function 'проверка наличия поступлений платежей
' по данному виду платежа
End If
Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Add
Set xlSheet = xl.Worksheets(1)
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
xl.Range("a1:h1").Merge
xl.Range("A1").Select
xl.ActiveCell.FormulaR1C1 = "ККМ - " & Mid(Sheet_Name, 1, 1)
With xl.ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With xl.Selection
.HorizontalAlignment = ActiveCell.xlCenter
.VerticalAlignment = ActiveCell.xlBottom
End With
|
А почему на жирные строчки ругается??????  | |
| |
| |
| |
|
|
| | Может им Range нужен?
Проверь, мемберами каких объектов являются жирные свойства. | |
| |
| |
| |
|
|
| | А нах эти параметры задавать програмно. Они ж вроде по дефолту и так установлены. | |
| |
| |
| |
|
|
| | Спасибо Format!!!!
Пытаюсь суммировать ячейки по вертикали (K5:K8) в ячейку К9
row=9
xl.Range(xl.cells(row, 11), xl.cells(row, 11)).Activate
xl.ActiveCell.NumberFormat = "#,##0.00$"
xl.Range(xl.cells(5, 11), xl.cells(row, 11)).Select
xl.Range(xl.cells(row, 11), xl.cells(row, 11)).Activate
xl.ActiveCell.Formula = "=SUM(" & xl.cells(5, 11) & ":" & xl.cells((row - 1), 11) & ")"
|
не выходит......
xl.ActiveCell.Formula = "=SUM($5$11:$" & (row - 1) & "$11)"
тоже не выходит
========================================================
Читал разъяснения http://www.info-3000.com/vbvba/formulevaleur.php
чё та не врубилси........
==========================================================
А вообще - то что это за инструкции такие жирные
ActiveCell.FormulaR1C1 = "=SQRT(R[-2]C[1])" | |
| |
| |
| |
|
|
| | Конечно оно вот так работает:
xl.ActiveCell.Formula = "=SUM(K5:K" & (row - 1) & ")"
|
может так и оставить??? | |
| |
| |
| |
|
|
| | А вообще - то что это за инструкции такие жирные
ActiveCell.FormulaR1C1 = "=SQRT(R[-2]C[1])"
ЭТО Экселевский так называемый "стиль (формат) ссылок R1C1" - такой формат ссылок позволяет использовать цифры как для строк, так и для столбцов, вместо того чтобы применять буквы для столбцов и цифры для строк (устанавливается в настройках Экселя, в параметрах формул) | |
| |
| |
| |
|
|
| | Спасибо - я так и подозревал....
Вот тока ни как не врублюсь в зависимость этих значков от указываемой ячейки........ | |
| |
| |
