10 расширений для Google Chrome, которые помогут справиться с работой быстрее

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

Переключатель на 4 положения

Два выключателя спарены

https://www.youtube.com/watch?v=SCo_KTUFa78

Отправка листа по электронной почте VBA EXCEL

Sub SendSheetççç()
ThisWorkbook.ActiveSheet.Copy
'   ThisWorkbook.Sheets("Лист1").Copy
With ActiveWorkbook
    .SendMail Recipients:="vasya@pupkin.com", Subject:="тема"
   .Close SaveChanges:=False
End With
End Sub

====================================

Sub SendActiveWorkbook()

Dim name As String
Dim email As String

Set name = Range("C17").Value
Set email = name & "@xxx.com.au"

    ActiveWorkbook.SendMail _
    Recipients:="xxxx@xxx.com.au", email, _
    Subject:="Stock Request" & Format(Date, "dd/mmm/yyyy")
    
End Sub

===================================

Function SendMail()     
Dim y As String     
Dim x As Integer     
y = Sheets(1).Range("M1").Value     
x = Sheets(1).Range("K1").Value     
' Copy the sheet(1)     
ThisWorkbook.Sheets(x).Copy     
' Send Email     
With ActiveWorkbook     
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")     
.Close SaveChanges:=False     
End With     
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value     
End Function  

======================================

Function SendMail()     
Dim y As String     
Dim x As Integer     
y = Sheets(1).Range("M1").Value     
x = Sheets(1).Range("K1").Value     
' Copy the sheet(1)     
ThisWorkbook.Sheets(x).Copy     
' Send Email     
With ActiveWorkbook     
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")     
.Close SaveChanges:=False     
End With     
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value     
End Function  

===========================================

http://www.snb-vba.eu/VBA_Excelgegevens_mailen_en.html

Отправка письма из Excel

https://www.youtube.com/watch?v=x7At5hkOQeQ

Sub SendWorkbook()

    ActiveWorkbook.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

End Sub

 

Sub SendSheet()

    ThisWorkbook.Sheets("Лист1").Copy

    With ActiveWorkbook

        .SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

        .Close SaveChanges:=False

    End With

End Sub




http://www.planetaexcel.ru/techniques/3/48/

VBA отправить почту

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Блок питания 30v 10am

"Как модель? Вполне работоспособная схема. Ток до 10А. Если нужен ток до 20А то вместо транзистора КТ808А нужно установить КТ827А. Напряжение регулируется от 0 до 30в."
http://forum.cxem.net

Автомобильное зарядное на транзисторах

Это автомобильное зарядное устройство может быть использовано для зарядки 12В и 6В аккумуляторов авто или скутера. Если оно использует трансформатор, который может выдать ток 4 — 5А при напряжении в пределах 12,6 — 16V, тогда можно вообще избавиться от переключателя для 6V или 12V батареи.

В этой схеме ток зарядки аккумулятора автоматически ограничивается до 4.2A. Если напряжение на R1 (ток 4A через него) есть 600mV, то транзистор T1 начинает открываться. Избыточный зарядный ток блокируется, поскольку напряжение базы мощных транзисторов делается ограниченным. Разница между приложенным током нагрузки (в коллекторе T4) и реальным напряжением батареи сбалансировано через коллектор-эмиттер T4.

serp1.ru