Добрый день уважаемые подписчики и гости!

Сегодня готовлю сдобные булочки из дрожжевого теста - сахарные плюшки!

Для приготовления мне понадобилось:

Молоко - 250 мл.

Дрожжи свежие - 15 г.

Сахар - 100 г. Соль - 0,5 ч.л.

Ванильный сахар - 10 г.

Яйца - 2 шт.

Масло сливочное - 70 г.(40 г. в тесто и 30 г. для прослойки)

Мука - 500 г. + - 20 г.

Пересеиваем муку, в тёплое молоко добавляем сахар не полную ст.л. из общего количества и крошим дрожжи, перемешиваем и добавляем 1 ст.л. с горкой муки , тоже из общего количества.

Перемешиваем , накрываем салфеткой и оставляем в тёплом месте на 15 мин. чтобы дрожжи начали бродить.

В миску вбиваем 1 яйцо + 1 белок, а желток оставляем смазывать булочки, добавляем весь сахар, ванильный сахар, венчиком хорошо перемешиваем. Берём миску с мукой, посередине делаем луночку, вливаем туда подошедшие дрожжи и яично-сахарную массу.

Все перемешиваем ложкой, а потом рукой собираем тесто в один комочек.

Смазываем поверхность стола маслом, выкладываем тесто из миски и хорошо замешиваем на столе, где- то пару минут, затем расправляем тесто в пласт и частями кладем размягченное масло и вмешиваем его в тесто, где-то в 3-4 этапа, тесто будет делаться более мягким и эластичным. Всего на замес у меня пошло около 8 минут.

Миску смазываем растительным маслом, кладем туда тесто, накрываем салфеткой, ставим в тёплое место и даём подойти ему один час. Затем слегка обминаем и еще оставляем на 30 минут.

Тесто подошло. Выкладываем его на стол, формируем колбаску, делим тесто на 8 равных частей, скатываем колобки, даем им отдохнуть 10 минут.

Каждый колобок раскатываем в прямоугольный пласт, толщиной 3 мм., смазываем размягчённым сливочным маслом и с большей стороны пласта скатываем в рулетик, сильно не уплотняем. Край хорошо защипываем , с торцов тоже защипываем , сгибаем на пополам, швом в середину, склеиваем оба края, чтобы получился красивый кончик, немного приплёскиваем булочку и со стороны сгиба делаем разрез, отступив от другого края 1,5 см. Разворачиваем и получатся сердечко, кладем на противень, застеленный пергаментом и смазанным растительным маслом.

Я выкладывала по 4 булочки, чтобы друг с дружкой не склеились при выпечки.

Смазываем яичным желтком, добавив 1 ст.л. молока и хорошо перемешав.

Даем минут 15 подойти, потом посыпаем сахаром и ставим выпекаться в разогретую духовку до 180° на 25 минут, а там смотрите по своей духовке.

Приятного всем аппетита!

Привет всем! Опробовал тут еще один рецептик, на выходных можете повторить, если захочется.

Итак, нам понадобятся для теста:

220 мл теплого молока

80г сахара

8 гр сухих дрожжей

чайная ложка соли

2 яйца

30 гр растопленного сливочного масла

550-600 гр муки. Почему не точно? Потому как на посыпку стола мукой уйдет какое-то количество, и по тесту смотрите, чтоб не липло к рукам, тогда и норм.

Для начинки:

600 гр творога

лимон

2 пакетика ванилина

80 гр сметаны

50 гр манной крупы

2 яичных белка

100 гр сахара

Итак, начнем, традиционно с теста. В теплое молоко сыплем сахар, соль, размешиваем, оставляем на 15 минут. Далее добавляем масло и яйца, вносим просеянную муку и замешиваем тесто

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

Тем временем перейдем к начинке. В творог вносим сметану, трем цедру вымытого лимона, без фанатизма, чтоб белая часть не попадала, добавляем сок половинки лимона, манку и все это дело пробиваем блендером до однообразной массы, помельче.

В отдельной емкости взбиваем белки и 100 гр сахара, сахар вносим постепенно, нужно, чтоб получилась густая пенная масса, как для безе. У меня не получилась :))

Какая-то шляпа. То ли белки недостаточно холодные (хотя и из холодильника), то ли руки под углом растут. Но что имеем то и смешиваем. Т.е. творог и полученную белковую массу. Тщательно перемешиваем. Тесто как раз готово к работе. Раскатываем в прямоугольный пласт, см в 1,5 толщиной

Делим тесто на 12 частей ножиком: 2 раза чиркаем вдоль и 3 раза поперек. В полученные квадратики выкладываем столовой ложкой начинку, залепляем края в центре:

От 2 белков у нас остались 2 желтка, добавляем к ним столовую ложку молока (но не обязательно), и смазываем тесто:

Выпекаем 20 минут в предварительно разогретой до 180 градусов духовке. Мне больше понравились едва теплые, чем горячие. Холодные тоже ничего. Если не планируете съесть за день, храните в холодильнике, творог все-таки, мало ли что :) Приятного!

Многие знакомы с понятием формата отображения чисел в ячейках. Но не многие знают что данные форматы работают не только в ячейках...

Для начала напомню в кратце о чём речь:

Для любой ячейки можно задать независимый формат отображения. Можно воспользоваться как преднастроенными форматами, так и создать пользовательский формат:

Пользовательский формат может состоять из 4 фрагментов-масок, разделенных точкой с запятой*, где каждый фрагмент применяется в определенном случае:

<ПОЛОЖИТЕЛЬНЫЕ>; <ОТРИЦАТЕЛЬНЫЕ>; <НУЛЕВЫЕ>; <ТЕКСТ>

Три подряд точки с запятой Excel воспринимает как четыре пустых маски для всех четырех возможных случаев, т.е. выводит пустоту при любом значении ячейки.

Не нужно включать все разделы кода в пользовательский числовой формат. Если указано только два раздела, первый используется для положительных чисел и нулей, а второй — для отрицательных чисел. Если задан только один раздел, он применяется для всех чисел. Если нужно пропустить раздел кода и включить раздел, который следует за ним, необходимо оставить точку с запятой для пропускаемого раздела.

Excel использует несколько спецсимволов в масках форматов:

• 0 (ноль) - одно обязательное знакоместо (разряд), т.е. это место в маске формата будет заполнено цифрой из числа, которое пользователь введет в ячейку. Если для этого знакоместа нет числа, то будет выведен ноль. Например, если к числу 12 применить маску 0000, то получится 0012, а если к числу 1,3456 применить маску 0,00 - получится 1,35.

• # (решетка) - одно необязательное знакоместо - примерно то же самое, что и ноль, но если для знакоместа нет числа, то ничего не выводится

• (пробел) - используется как разделитель групп разрядов по три между тысячами, миллионами, миллиардами и т.д.

• [ ] - в квадратных скобках перед маской формата можно указать цвет шрифта. Разрешено использовать следующие цвета: черный, белый, красный, синий, зеленый, жёлтый, голубой.

Любой пользовательский текст (кг, чел, шт и тому подобные) или символы (в том числе и пробелы) - надо обязательно заключать в кавычки.

Естественно вариаций масок гораздо больше, но данный пост не об этом -пользовательский формат общеизвестен.

Примечание: *пользовательские форматы в русской и английской версии офиса не совпадают. Внезапно. Всё мной написанное относится к русской версии.

Данный пост о том, как построить диаграмму вот с такими осями (например):

Как видно - это обычная диаграмма с двумя графиками, построенными по основной и вспомогательным вертикальным осям. И в этом построении нет никакого секрета. А вот сделать так, чтобы подписи левой оси начинались с 4-х, а подписи правой заканчивались на 2000-х нам помогает именно формат чисел подписей осей:

Код формата левой (основной) оси - [>=4] 0 ;;;

Код формата правой (вспомогательной) оси - [<=2000] 0 ;;;

Возможно данный способ кому-то пригодится. Ну а с масками формата - экспериментируйте :)

УПД. Благодарю Yacl за наблюдательность

Сегодня разберём задачку, которая вставала перед каждым пользователем Excel - необходимость построить график функции.

Любой, кто решал эту задачку - действовал следующим способом:

1. Создаётся столбец Х;

2. Создаётся столбец Y,  котором происходит расчёт согласно заданной функции;

3. Выделяются два созданных столбца и вставляется график.

Но это просто и скучно. Есть другой способ. Построить график непосредственно из макроса.

Начнём с простого - у нас есть набор точек соответствия X и Y.

Sub Построй_график_по_точкам()

Dim MyChart As Chart

Set MyChart = ActiveSheet.Shapes.AddChart2.Chart

With MyChart

.SeriesCollection.NewSeries

.SeriesCollection(1).Name = "xlXYScatterSmoothNoMarkers"

.SeriesCollection(1).XValues = Array(0#, 0.5, 1#, 1.5, 2#, 2.5, 3#, 3.5, 4#, 4.5, 5#)

.SeriesCollection(1).Values = Array(0#, 0.4794, 0.8415, 0.9975, 0.9093, 0.5985, 0.1411, -0.3508, -0.7568, -0.9775, -0.9589)

.ChartType = xlXYScatterLines ' Соединение точек прямыми

.SetElement msoElementLegendNone

End With

End Sub

Другие варианты отображения линии графика:

.ChartType = xlXYScatterLinesNoMarkers ' Соединение точек прямыми без маркеров

.ChartType = xlXYScatterSmoothNoMarkers ' Сглаженная линия

Более подробно о типах - тут

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

Как не трудно догадаться - вовсе не обязательно иметь готовый набор данных.

Рассмотрим ситуацию, когда требуется построить два графика на одной диаграмме.

Для упрощения восприятия использую две простые функции линий y1 = x - 20, y2 = x + 20.

Sub Создать_диаграмму()

Dim MyChart As Chart

Dim i As Integer, Xmin As Single, dX As Single, Xmax As Single, _

Ymin As Single, Ymax As Single, dY As Single

Dim X() As Single

Dim Y() As Single

Dim Yp() As Single

Xmin = 0: Xmax = 300: dX = 20 ' Сие больше нужно для осей и оформления

Ymin = 0: Ymax = 160: dY = 20

ReDim X(0 To Xmax - Xmin): ReDim Y(0 To Xmax - Xmin, 1 To 2)

ReDim Yp(0 To Xmax - Xmin)

For i = 0 To Xmax - Xmin Step 1

X(i) = Xmin + i

' Заполнение данных первого графика

Y(i, 1) = X(i) - 20

' Заполнение данных второго графика

Y(i, 2) = X(i) + 20

Next i

' создадим новую диаграмму и зададим ей габаириты

Set MyChart = ActiveSheet.Shapes.AddChart2(, , , , 300, 200).Chart

For i = 1 To 2

For j = 0 To Xmax - Xmin Step 1

Yp(j) = Y(j, i)

Next j

With MyChart

.SeriesCollection.NewSeries

.SeriesCollection(i).XValues = X

.SeriesCollection(i).Values = Yp

.ChartType = xlXYScatterSmoothNoMarkers

End With

Next i

End Sub

При задании новой диаграммы можно задать в том числе и положение диаграммы на листе

AddChart2(Стиль,XlChartType,слева,сверху,ширина,высота,NewLayout)

В итоге получим вот такую диаграмму:

В дальнейшем можно обработать её  как обычную - задать цвета, толщины и т.д. Но можно это сразу поручить нашему макросу:

Sub Создать_диаграмму()

Dim MyChart As Chart

Dim i As Integer, Xmin As Single, dX As Single, Xmax As Single, _

Ymin As Single, Ymax As Single, dY As Single

Dim X() As Single

Dim Y() As Single

Dim Yp() As Single

Xmin = 0: Xmax = 300: dX = 20 ' Сие больше нужно для осей и оформления

Ymin = 0: Ymax = 340: dY = 20

ReDim X(0 To Xmax - Xmin): ReDim Y(0 To Xmax - Xmin, 1 To 2)

ReDim Yp(0 To Xmax - Xmin)

For i = 0 To Xmax - Xmin Step 1

X(i) = Xmin + i

Y(i, 1) = X(i) - 20

Y(i, 2) = X(i) + 20

Next i

Set MyChart = ActiveSheet.Shapes.AddChart2(, , 0, 0, 400, 230).Chart

For i = 1 To 2

For j = 0 To Xmax - Xmin Step 1

Yp(j) = Y(j, i)

Next j

With MyChart

.SeriesCollection.NewSeries

.SeriesCollection(i).XValues = X

.SeriesCollection(i).Values = Yp

.ChartType = xlXYScatterSmoothNoMarkers

End With

Next i

With MyChart

.SetElement (msoElementPrimaryCategoryGridLinesMajor)

' Включаю отображение названия осей

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Расход Go т/ч"

.Axes(xlValue, xlPrimary).AxisTitle.Text = "Давление кгс/кв.см."

' Выключаю отображение легенды

.SetElement (msoElementLegendNone)

' Выключаю отображения заголовка диаграммы

.SetElement (msoElementChartTitleNone)

' Выставляем параметры осей

.Axes(xlCategory).MinimumScale = Xmin

.Axes(xlCategory).MaximumScale = Xmax

.Axes(xlCategory).MajorUnit = dX

.Axes(xlValue).MinimumScale = Ymin

.Axes(xlValue).MaximumScale = Ymax

.Axes(xlValue).MajorUnit = dY

End With

' Оформление гризонтальной оси

MyChart.Axes(xlCategory).Select

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 0)

.ForeColor.TintAndShade = 0

.ForeColor.Brightness = 0

.Transparency = 0

.Visible = msoTrue

.Weight = 1.25

End With

' Оформление вертикальной оси

MyChart.ChartArea.Select

MyChart.Axes(xlValue).Select

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 0)

.ForeColor.TintAndShade = 0

.ForeColor.Brightness = 0

.Transparency = 0

.Visible = msoTrue

.Weight = 1.25

End With

' Оформление горизонтальной сетки

MyChart.Axes(xlValue).MajorGridlines.Select

With Selection.Format.Line

.Visible = msoTrue

.DashStyle = msoLineDash

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 176, 240)

.Transparency = 0

End With

' Оформление вертикальной сетки

MyChart.Axes(xlCategory).MajorGridlines.Select

With Selection.Format.Line

.Visible = msoTrue

.DashStyle = msoLineDash

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 176, 240)

.Transparency = 0

End With

End Sub

По итогу диаграмма будет выглядеть так:

Как не трудно понять, данных, по которым построена диаграмма, на листе нет. И после удаления макроса останется только итоговый результат.

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

Такое построение позволит извлечь данные промежуточного расчёта, построить массово однотипные диаграммы и... и дальнейшее применение зависит только от фантазии.

Ну и всегда есть вариант удивить преподавателя (0_о).