我是财务管理专业的,自学excel函数,VBA,数据透视表有用吗

Posted 2023-04-17

肯请大家帮忙啊，我真的不知道有没有用，我希望自己学了能够致用，不要浪费了我的时间和精力

绝对有用，真正做了会计或者到会计师事务所做业务，EXCEL功夫是必须的。越精通越好。追问

我现在很纠结一个问题那就是我应该是学习excel03版的还是好10版的呢，现在的10版说实话很好用，但是很多人还是在用03版的

追答

建议你以03版为主，10版新增的部分功能尽量少用。

参考技术A 函数用的不多的，我是内帐的。工作也好几年了，用得比较多点的就是数据透析表，vlookup，老师教的很多财务分析的函数和表格，其实真的没有用到多少。
但是，上海，一些大城市的财务人员，函数用的都很好，我只是中型城市，中小型企业比较占多数，没有那么多集团公司和跨国的。真的，够用了 参考技术B 只要学到手的东西都有用，不管什么东西 只要学到手了就是自己的 参考技术C 有用是肯定的，能够熟悉这些内容可以减少你的工作量，提高工作效率的

通过vba将特定的excel范围导出为jpeg

我是全新的。我想导出一个特定的excel范围作为jpeg，我使用vba。

我也生成了vba代码，但我有一个小问题：当我运行代码时，我在excel表中导出一个jpeg文件，但我想将它导出到资源管理器的特定路径。也许你可以帮忙:)

Option Explicit

Sub Range_To_Image()
  Dim objPict As Object, objChrt As Chart
  Dim rngImage As Range, strFile As String

  On Error GoTo ErrExit

  With Sheets("Tabelle1") 'Tabellenname - Anpassen!

    Set rngImage = .Range("A1:C20")

    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False

    Set objPict = .Shapes(.Shapes.Count)

    strFile = "C:UsersdanielDesktopSales Reporthaus.jpg" 'Pfad und Dateiname für das Bild

    objPict.Copy

    Set objChrt = .ChartObjects.Add(1, 1, objPict.Width + 8, objPict.Height + 8).Chart

    objChrt.Paste
    objChrt.Export strFile
    objChrt.Parent.Delete
    objPict.Delete

  End With

  ErrExit:
  Set objPict = Nothing
  Set objChrt = Nothing
  Set rngImage = Nothing
End Sub

答案

这是宏的修改版本，只需将范围直接复制/粘贴到临时图表中即可导出。

Sub Range_To_Image()
  Dim objChrt As Chart
  Dim rngImage As Range
  Dim strFile As String

  On Error GoTo ErrExit

  With Sheets("Tabelle1") 'Tabellenname - Anpassen!

    Set rngImage = .Range("A1:C20")

    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    strFile = "C:UsersdanielDesktopSales Reporthaus.jpg" 'Pfad und Dateiname für das Bild

    Set objChrt = .ChartObjects.Add(rngImage.Left, rngImage.Top, rngImage.Width, rngImage.Height).Chart

    With objChrt
        .Parent.Activate 'to avoid exporting an empty file
        .ChartArea.Format.Line.Visible = msoFalse 'remove border from chart
        .Paste
        .Export strFile
        .Parent.Delete
    End With

  End With

ErrExit:
  Set objChrt = Nothing
  Set rngImage = Nothing
End Sub