WWW.DOCX.LIB-I.RU
БЕСПЛАТНАЯ  ИНТЕРНЕТ  БИБЛИОТЕКА - Интернет материалы
 

«Счет-фактура Пишем в Microsoft Excel следующее: Записываем макрос в VBA Создаем Userform1 и в ней прописываем 4 Label, 4 TextBox и 1 CommandButton (ok). Прописываем код, ...»

Счет-фактура

Пишем в Microsoft Excel следующее:

Записываем макрос в VBA

Создаем Userform1 и в ней прописываем 4 Label, 4 TextBox и 1 CommandButton (ok).

Прописываем код, выполяемый при нажатии на кнопку ОК.

Private Sub CommandButton1_Click()'Ввод наименования товара

Cells(Cells(1, 1).Value, 1).Value = TextBox1.Text

Cells(Cells(1, 1).Value, 2).Value = TextBox2.Text

Cells(Cells(1, 1).Value, 3).Value = TextBox3.Text

Cells(Cells(1, 1).Value, 4).Value = TextBox4.Text

Cells(Cells(1, 1).Value, 5).Value = Cells(Cells(1, 1).Value, 4).Value * Cells(Cells(1, 1).Value, 3).Value

Cells(Cells(1, 1).Value, 7).Value = "20%"

Cells(Cells(1, 1).Value, 8).Value = Cells(Cells(1, 1).Value, 5).Value * Cells(Cells(1, 1).Value, 7).Value

Cells(Cells(1, 1).Value, 9).Value = Cells(Cells(1, 1).Value, 5).Value + Cells(Cells(1, 1).Value, 8).Value

Чтобы выделялись границы ячеек записываю макрос:

'Выделение границы ячеек

For i = 1 To 11

Cells(Cells(1, 1).Value, i).Borders(xlDiagonalDown).LineStyle = xlNone Cells(Cells(1, 1).Value, i).Borders(xlDiagonalUp).LineStyle = xlNone With Cells(Cells(1, 1).Value, i).Borders(xlEdgeLeft)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeTop)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeBottom)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeRight)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlInsideVertical)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlInsideHorizontal)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End WithЧтобы записать сочетание «горячих» клавиш, нужно отредактировать первый макрос:

Sub Макрос2()

'

' Макрос2 Макрос

'

' Сочетание клавиш: Ctrl+й'

Module1.Макрос1Еще раз редактируем его, чтобы прописывалось с помощью макроса

Дополняем кодом:

For i = 8 To 9

Cells(Cells(1, 1).Value, i).Borders(xlDiagonalDown).LineStyle = xlNoneCells(Cells(1, 1).Value, i).Borders(xlDiagonalUp).LineStyle = xlNoneWith Cells(Cells(1, 1).Value, i).Borders(xlEdgeLeft)

.LineStyle = xlContinuous.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeTop)

LineStyle = xlContinuous.ColorIndex = 0

TintAndShade = 0

Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeBottom)

.LineStyle = xlContinuous.ColorIndex = 0

TintAndShade = 0

.Weight = xlThinEnd With

With Cells(Cells(1, 1).Value, i).Borders(xlEdgeRight)

LineStyle = xlContinuousColorIndex = 0

.TintAndShade = 0

.Weight = xlThinEnd With

With Cells(Cells(1, 1).Value, i).Borders(xlInsideVertical)

.LineStyle = xlContinuousColorIndex = 0

.TintAndShade =0





.Weight = xlThin End With

With Cells(Cells(1, 1).Value, i).Borders(xlInsideHorizontal)

LineStyle = xlContinuous.ColorIndex = 0

TintAndShade = 0

.Weight = xlThin End With

Cells(Cells(1, 1).Value, i).Borders(xlInsideVertical).LineStyle = xlNoneCells(Cells(1, 1).Value, i).Borders(xlInsideHorizontal).LineStyle = xlNoneNext iCells(Cells(1, 1).Value + 3, 1) = "Руководитель организции:"

For i = 2 To 3

Cells(Cells(1, 1).Value + 3, i).Borders(xlDiagonalDown).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlDiagonalUp).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlEdgeLeft).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlEdgeTop).LineStyle = xlNoneWith Cells(Cells(1, 1).Value + 3, i).Borders(xlEdgeBottom)

.LineStyle = xlContinuousColorIndex = 0

TintAndShade = 0

Weight = xlThinEnd With

Cells(Cells(1, 1).Value + 3, i).Borders(xlEdgeRight).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlInsideVertical).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlInsideHorizontal).LineStyle = xlNoneNext iCells(Cells(1, 1).Value + 4, 1) = "(индевидуальный предприниматель)"

Cells(Cells(1, 1).Value + 3, 7) = "Главный бухгалтер:"

For i = 8 To 11

Cells(Cells(1, 1).Value + 3, i).Borders(xlDiagonalDown).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlDiagonalUp).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlEdgeLeft).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlEdgeTop).LineStyle = xlNoneWith Cells(Cells(1, 1).Value + 3, i).Borders(xlEdgeBottom)

LineStyle = xlContinuousColorIndex = 0

TintAndShade = 0

Weight = xlThin End With

Cells(Cells(1, 1).Value + 3, i).Borders(xlEdgeRight).LineStyle = xlNoneCells(Cells(1, 1).Value + 3, i).Borders(xlInsideVertical).LineStyle = xlNone Cells(Cells(1, 1).Value + 3, i).Borders(xlInsideHorizontal).LineStyle = xlNoneNext iCells(Cells(1, 1).Value + 4, 7) = "(реквизиты свидетельства о государственной"

Cells(Cells(1, 1).Value + 5, 7) = "регистрации индевидуального предпринимательства)"For i = 7 To 8

Cells(Cells(1, 1).Value + 6, i).Borders(xlDiagonalDown).LineStyle = xlNoneCells(Cells(1, 1).Value + 6, i).Borders(xlDiagonalUp).LineStyle = xlNoneCells(Cells(1, 1).Value + 6, i).Borders(xlEdgeLeft).LineStyle = xlNoneCells(Cells(1, 1).Value + 6, i).Borders(xlEdgeTop).LineStyle = xlNoneWith Cells(Cells(1, 1).Value + 6, i).Borders(xlEdgeBottom)

.LineStyle = xlContinuousColorIndex = 0

TintAndShade = 0

Weight = xlThinEnd With

Cells(Cells(1, 1).Value + 6, i).Borders(xlEdgeRight).LineStyle = xlNoneCells(Cells(1, 1).Value + 6, i).Borders(xlInsideVertical).LineStyle = xlNoneCells(Cells(1, 1).Value + 6, i).Borders(xlInsideHorizontal).LineStyle = xlNoneNext iCells(Cells(1, 1).Value + 7, 7) = "(подпись ответственного лица)"

Создаем строчку «Итого»

Для этого в макросе1 создаем код:

Cells(Cells(1, 1).Value, 7) = "Итого:"

For i = 19 To Cells(1, 1).Value

Cells(Cells(1, 1).Value, 8) = Cells(Cells(1, 1).Value, 8) + Cells(i, 8)

Cells(Cells(1, 1).Value, 9) = Cells(Cells(1, 1).Value, 9) + Cells(i, 9)

Next iПолучается таблица:




Похожие работы:

«2013.01.08. Йога Триада. Введение. Лекция 59. Итак, друзья. Сегодня у нас 8 января 2013 уже теперь года. Меня зовут Вадим запорожцев. Я преподаю йогу. Это у нас лекции по тантра Триаде. Вся архивная информация, где вы можете почерпну...»

«Путь Ильича. – 1989. – 9 сентября (№ 108) Из воспоминаний В. И. РусиноваНЕМЦЫ НЕ ОЖИДАЛИ января 1942 года я был взят в армию, назначен сапером в 1052 полк 301 стрелковой дивизии, которая формировалась в Красноярске. Впервые вступил в бой западнее Северного Донца в мае 1942 года. Был ранен, находился в госпитале в гор. Воронеже. Ко...»

«3594735-11430000 Федеральная служба по надзору в сфере защиты прав потребителей и благополучия человека Управление Федеральной службы по надзору в сфере защиты прав потребителей и благополучия человека по Московской области Территориальный отдел в городах Орехов...»

«Cпортивна розвага Ми малята здоров’ята, любим бігати, стрибати. (ІІ мол. група) Мета: Вчити розгадувати загадки. Розвивати вміння дружно гратися, викликати радісний настрій. Залучати дітей до спільних рухливих ігор. Виховувати почуття взаємодопомоги. Обладнання : 2 м’яча, 4 обруча, прапорці по кількості дітей, кошенятко, цуценя...»

«543433033655Что такое утопление и причины гибели людей на воде С наступлением теплой погоды тысячи граждан отправляются к водоёмам, чтобы искупаться, позагорать, отдохнуть на природе. Но иногда купание для некоторых заканчивается трагически. По данным Всемирной организации здравоохранения, ежегодно в мире гибнет н...»

«Шаг 6. Определение фацетов слотов Слоты могут иметь различные фацеты, которые описывают тип значения, разрешенные значения, число значений (мощность) и другие свойства значений, которые может принимать слот. Например, значение слота название (как в "наз...»

«В Верховном суде Татарстана вынесен приговор участникам бригады "Волочаевские" 23 мая 2014 года в Верховном суде Республики Татарстан присяжные заседатели вынесли приговор участникам бригады "Волочаевские" ОПФ "Хади Такташ" 48-летнему Сергею Тянулину и 42-летнему Илье Алаеву. Они признаны вин...»

«А1. Строение атома1. Количество электронов в атоме равно1) числу протонов2) числу нейтронов3) числу энергетических уровней4) относительной атомной массе2. Ион, в составе которого 16 протонов и 18 электронов, имеет заряд 1) +4       2) -2               3) +2                     4) -43. Внешний эне...»









 
2017 www.docx.lib-i.ru - «Бесплатная электронная библиотека - интернет материалы»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.