Два листа с данными. Сравнить остатки на листе 1 и 2.

[Naturale]

Сообщение от Aleksandr H.

опиши diff глобальной или же передавай ее как параметр

Можно рассчитывать на помощь со 2 заданием? С меня причитается)

[Aleksandr H.]

1 тыц 1
тыц2
2. тыц3

Sub ChartToDocument()
' Set a VBE reference to Microsoft Word Object Library

Dim WDApp As Word.Application
Dim WDDoc As Word.Document

' Make sure a chart is selected
If ActiveChart Is Nothing Then
    MsgBox "Please select a chart and try again.", vbExclamation, _
        "No Chart Selected"
Else
    ' Reference existing instance of Word
    Set WDApp = CreateObject("Word.Application") 
    
    ' Reference active document
    Set WDDoc = WDApp.Documents.Add()
    WDApp.Visible = True
    WDDoc.Activate
    ' Copy chart as a picture
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
        Format:=xlPicture

    ' Paste chart at cursor position
    WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False

    ' Clean up
    Set WDDoc = Nothing
    Set WDApp = Nothing
End If

End Sub

[Naturale]

А как прописать это всё именно в VBA? Это код вывода графика в ворд, если я правильно понял. А как построить сам график в Excel, а затем перенести его, всё это через VBA

Сообщение от Aleksandr H.

1 тыц 1
тыц2
2. тыц3

Sub ChartToDocument()
' Set a VBE reference to Microsoft Word Object Library

Dim WDApp As Word.Application
Dim WDDoc As Word.Document

' Make sure a chart is selected
If ActiveChart Is Nothing Then
    MsgBox "Please select a chart and try again.", vbExclamation, _
        "No Chart Selected"
Else
    ' Reference existing instance of Word
    Set WDApp = CreateObject("Word.Application") 
    
    ' Reference active document
    Set WDDoc = WDApp.Documents.Add()
    WDApp.Visible = True
    WDDoc.Activate
    ' Copy chart as a picture
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
        Format:=xlPicture

    ' Paste chart at cursor position
    WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False

    ' Clean up
    Set WDDoc = Nothing
    Set WDApp = Nothing
End If

End Sub

[Aleksandr H.]

и график в VBA хочешь рисовать?

[Naturale]

Так по заданию, к сожалению (

Сообщение от Aleksandr H.

и график в VBA хочешь рисовать?

[Aleksandr H.]

Нарисуй график вручную и выложи сюда файла, будем посмотреть

[Naturale]

так прописал построение графика, вроде работает, но вывод не получается... Плюс не знаю, как прописать изменение ячеек через VBA

Сообщение от Aleksandr H.

и график в VBA хочешь рисовать?

[Naturale]

Sub 1()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("Лист1!$J$5:$AN$5")

ActiveSheet.ChartObjects(1).Activat e
ActiveSheet.ChartObjects(1).Activat e
ActiveChart.ChartArea.Copy
Set WApp = CreateObject("Word.Application")
WApp.Visible = True
Set Doc = WApp.Documents.Add
WApp.Selection.PasteAndFormat (15)
ActiveChart.Parent.Cut

End Sub

Сообщение от Naturale

так прописал построение графика, вроде работает, но вывод не получается... Плюс не знаю, как прописать изменение ячеек через VBA

[Aleksandr H.]

Сообщение от Naturale

Плюс не знаю, как прописать изменение ячеек через VBA

Range("C4").GoalSeek Goal:=50000, ChangingCell:=Range("E4")

[Naturale]

Да, всё прекрасно работает!
А как сделать вывод в ворд графика, созданного через VBA?
Я пытался по вашему примеру, но там нужно именно выбрать объект, а как сделать его распознавание сразу после создания?

Сообщение от Aleksandr H.

Range("C4").GoalSeek Goal:=50000, ChangingCell:=Range("E4")