=СУММЕСЛИ(Лист1!$A:$A;"="&A1;Лист1!$B:$B)/СЧЁТЕСЛИ(Лист1!$A:$A;A1)Cells.Replace What:=Selection.Value
Есть график где X лежит между 1...100 и Y тоже может принимать значения от 1 до 100. Так вот, когда X достигнет 100, то и Y должен быть примерно на уровне 100y = 18.88 * ( ln(x) + ln(2) )
Application.International(xlListSeparator). В первой строке CSV можно задать разделитель sep=;.
Возможно есть способ добавить изображение на конкретную ячейку?Проще привязаться к свойствам ячейки .Top и .Left, чем колдовать с DPI. На VBA это выглядит так:
With ActiveSheet.Pictures.Insert("PATH")
.Top = Cells(5, "D").Top
.Left = Cells(5, "D").Left
End WithPrivate Type GUIDs
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function CLSIDFromProgID Lib "ole32" (ByVal lpszProgID As Long, rclsid As GUIDs) As Long
Public Function IsOLEObjectInstalled(Name As String) As Boolean
Dim mGuid As GUIDs
On Error Resume Next
IsOLEObjectInstalled = CLSIDFromProgID(StrPtr(Name), mGuid) = 0
End Function
Private Sub GetOLEObjects()
Dim msg As String
msg = "Microsoft.ACE.OLEDB.12.0 = " & IsOLEObjectInstalled("Microsoft.ACE.OLEDB.12.0") & vbCrLf
msg = msg & "Microsoft.Jet.OLEDB.4.0 = " & IsOLEObjectInstalled("Microsoft.Jet.OLEDB.4.0") & vbCrLf
MsgBox msg
End SubIf TypeOf Application.ActiveWindow Is Outlook.Inspector Then _
Set obj = Application.ActiveInspector.CurrentItem
If Not obj Is Nothing Then
If Not obj.Subject = NewSubject Then
obj.Subject = NewSubject
obj.Save
End If
End Ifhttps://github.com/<user>/<repository>/commits/<branch>.atom