[求助]请问透视表做好后,如何让各项目自动增加字段

xhp000

AH9CmRMA.rar (3.47 KB, 下载次数: 13)

2008-9-11 19:55 上传

点击文件名下载附件
[求助]请问透视表做好后,如何让字段自动增加到每一个店

透视表做好后,如何让字段自动增加到每一个店.

谢谢.详见附件.做了详细描述.感觉有点

问题:如何实现:自动为A.B.C各店上面都加上店名.
单号.克重.汇总字段,并自动增加温馨提示.谢谢.
还有请问能否实现自动分隔开及打印时自动调整.
以免出现一间店的内容被切分成两页
效果如下:
店名	单号	克重	汇总
A	0809001	10	5
	0809004	21	12
	0809005	2	2
A 计数			3
温馨提示:请收到后回复邮件.谢谢

难度.谢谢.

[此贴子已经被作者于2008-9-12 0:06:37编辑过]

name004

xLU4ycOD.rar (11.04 KB, 下载次数: 12)

2008-9-13 15:26 上传

点击文件名下载附件
我不会word邮件合并，目前基本看看

[此贴子已经被作者于2008-9-13 15:26:22编辑过]

xhp000

QUOTE:

以下是引用xhp000在2008-9-11 19:56:00的发言：

透视表做好后,如何让字段自动增加到每一个店.

谢谢.详见附件.做了详细描述.感觉有点

问题:如何实现:自动为A.B.C各店上面都加上店名.
单号.克重.汇总字段,并自动增加温馨提示.谢谢.
还有请问能否实现自动分隔开及打印时自动调整.
以免出现一间店的内容被切分成两页
效果如下:
店名	单号	克重	汇总
A	0809001	10	5
	0809004	21	12
	0809005	2	2
A 计数			3
温馨提示:请收到后回复邮件.谢谢

难度.谢谢.

感谢您的帮助.可是功能还无法实现.想的效果是生成后,各字段自动增加到各个店名上去.

name004

Sub 分页()
   Dim i As Integer
   For i = 1 To 500
    If Cells(i, 1) = 0 And Cells(i + 1, 1) = 0 Then Exit Sub
    Cells(i, 7).Activate
    ActiveSheet.HPageBreaks(1).Delete
    ActiveSheet.VPageBreaks(1).Delete
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
   Next i
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveWorkbook.Save
 End Sub

运行时错误'9' ，下标越界
这段代码有错误，我请教老师解决以后，就可以解决楼主的问题

[此贴子已经被作者于2008-9-13 15:32:23编辑过]

ldy

呵呵 问我就问错人了，我不用透视表的，这方面比你还菜。

name004

不是用透视表，用透视表反而其他的许多功能不行了。我用的是分类汇总

ldy

Sub Macro2()

On Error Resume Next
    ActiveWindow.View = xlNormalView
    For Each hp In ActiveSheet.HPageBreaks
        hp.Delete
    Next
    For i = 1 To 19
        If Cells(i, 1) = "" Then ActiveSheet.HPageBreaks.Add Cells(i, 1)
    Next
    ActiveSheet.PageSetup.PrintArea = "$A$1:$f$19"
End Sub

[此贴子已经被作者于2008-9-13 16:39:16编辑过]

name004

我运行了，很好。你的思路好得多。还有一点不合楼主的要求，温馨提…谢谢……等等语句应该在每页的最后一行，另：i 应该是不确定的数字，如果楼主地对账单有n行数据？

我的2楼附件中：如果在a行只要出现连续两个空格就是终止的时候。

name004

d12Gsm7H.rar (15.25 KB, 下载次数: 40)

2008-9-13 18:20 上传

点击文件名下载附件
[求助]请问透视表做好后,如何让各项目自动增加字段

基本上成功，有一点点毛病。最后一个客户的"温馨提示……”需要手工插入分业符

Sub 分页()
   Dim i&, j&
    Cells.Select
    ActiveSheet.ResetAllPageBreaks
   For i = 1 To 60000
    If Cells(i, 2) = "" Then Exit Sub
    If Cells(i, 1) = "" Then
    Cells(i, 5).Value = "温馨提示:请收到后回复邮件.谢谢"
    Cells(i, 7).Activate
    ActiveSheet.HPageBreaks.Add Cells(i + 1, 7)
    End If
   Next i
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveWorkbook.Save
 End Sub
Sub 排序汇总()
    Range("A1").Select
    Range("A1:D12").Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range( _
        "A2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
    Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

xhp000

非常感谢．name004的热心帮助．谢谢.