none
請問"如何用VB2008在excel中設定群組?" RRS feed

  • 問題

  • 請問"如何用VB2008在excel中設定群組?"
    我用錄製巨集的code如下
                XlsSheet2.Activate()
                XlsSheet2.Rows(Fid2 & ":" & Fid1 + Fid2).select()
                NativeWindow.SmallScroll(Down:=30) ''這邊跑不過去,不知道該如何改
                With XlsSheet2.Outline
                    .AutomaticStyles = False
                    .SummaryRow = Excel.XlSummaryRow.xlSummaryAbove
                    .SummaryColumn = Excel.XlSummaryColumn.xlSummaryOnRight
                End With
                XlsSheet2.Rows.Group()
                NativeWindow.SmallScroll(Down:=-27) ''這邊跑不過去,不知道該如何改
    麻煩各位解答,感激!!
    2009年12月4日 上午 06:39

解答

  • NativeWindow.SmallScroll(Down:=30)  中的 SmallScroll 是捲動視窗

    您直接拿掉看看,應該不會影響你的程式
    • 已標示為解答 Jayce_Lin 2009年12月4日 上午 07:11
    2009年12月4日 上午 06:56
    版主

所有回覆

  • NativeWindow.SmallScroll(Down:=30)  中的 SmallScroll 是捲動視窗

    您直接拿掉看看,應該不會影響你的程式
    • 已標示為解答 Jayce_Lin 2009年12月4日 上午 07:11
    2009年12月4日 上午 06:56
    版主
  • 我把它拿掉可以跑
    但是excel沒有出現"+"可以摺疊的東西出現
    麻煩你了!!謝謝。
    2009年12月4日 上午 06:58
  • Hi,
    對不起,我知道問題在哪裡了
    XlsSheet2.Rows(Fid2 & ":" & Fid1 + Fid2).group()
    我剛剛沒有選擇哪幾個ROW要成為群組
    XlsSheet2.Rows.Group() ''這是錯的
    很感謝你的解答,謝謝。
    2009年12月4日 上午 07:11