[已解决]数据保存的问题Spreadsheet_listview，请大仙下凡帮看看。

wmw123

请坛里的大师，大侠，高手，神仙，
帮我看看怎么把Spreadsheet_listview里面数据保存到单元格中。

附件在此：
Spreadsheet_listview.rar (17.04 KB, 下载次数: 19)

2014-3-3 10:28 上传

点击文件名下载附件












office2003.可直接运行，
2007.2010.需安装下面的控件包。
这是官方下的，比较大所以分卷上传：
Spreadsheet_listview控件owc10.part01.rar (480 KB, 下载次数: 3)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part02.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part03.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part04.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part05.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part06.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part07.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part08.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part09.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part10.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part11.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part12.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part13.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part14.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part15.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part16.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part17.rar (480 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件
Spreadsheet_listview控件owc10.part18.rar (425.69 KB, 下载次数: 0)

2014-3-2 22:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-3 16:02

1. Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC10.Worksheet, ByVal Target As OWC10.Range)
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4. 
   
5.     Dim rg As OWC10.Range
   
6.     Range(Target.Address).Value = Target.Value
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Private Sub UserForm_Initialize()
    
11.     ListView1.BorderStyle = ccFixedSingle                 '设置边框样式。
    
12.     ListView1.View = lvwReport                            '设置 View 属性为报表型(表格)。
    
13.     ListView1.ListItems.Clear
    
14.     ListView1.ColumnHeaders.Clear
    
15.     With ListView1
    
16.         .ColumnHeaders.Add , , "序号", 30
    
17.         .ColumnHeaders.Add , , "  编号", 45
    
18.         .ColumnHeaders.Add , , "               名称及规格", 220
    
19.         .ColumnHeaders.Add , , "单位", 28
    
20.         .ColumnHeaders.Add , , "   数量", 60
    
21.         .ColumnHeaders.Add , , "   单价", 60
    
22.         .ColumnHeaders.Add , , "   合价", 60
    
23.         .ColumnHeaders.Add , , "    备注", 68
    
24.     End With
    
25. 
    
26.     With Spreadsheet1
    
27.         .EnableEvents = False
    
28.         .Range("a1:k1000").Font.Size = 10
    
29. 
    
30.         .Range("a1:a1000").RowHeight = 11
    
31.         .Range("a1:a1").ColumnWidth = 30 / 7
    
32.         .Range("b1:b1").ColumnWidth = 45 / 6.5
    
33.         .Range("c1:c1").ColumnWidth = 220 / 6.11
    
34.         .Range("d1:d1").ColumnWidth = 28 / 7
    
35.         .Range("e1:e1").ColumnWidth = 60 / 6.4
    
36.         .Range("f1:f1").ColumnWidth = 60 / 6.4
    
37.         .Range("g1:g1").ColumnWidth = 60 / 6.4
    
38.         .Range("h1:h1").ColumnWidth = 60 / 6.4
    
39. 
    
40.         With .Range("a1:a1000")
    
41.             .HorizontalAlignment = xlLeft
    
42.             .VerticalAlignment = xlCenter
    
43.             .NumberFormat = "@"
    
44.         End With
    
45. 
    
46.         With .Range("b1:b1000")
    
47.             .HorizontalAlignment = xlCenter
    
48.             .VerticalAlignment = xlCenter
    
49.             .NumberFormat = "@"
    
50.         End With
    
51. 
    
52.         With .Range("c1:c1000")
    
53.             .HorizontalAlignment = xlLeft
    
54.             .VerticalAlignment = xlCenter
    
55.             .NumberFormat = "@"
    
56.         End With
    
57. 
    
58.         With .Range("d1:d1000")
    
59.             .HorizontalAlignment = xlCenter
    
60.             .VerticalAlignment = xlCenter
    
61.             .NumberFormat = "@"
    
62.         End With
    
63. 
    
64.         With .Range("e1:e1000")
    
65.             .HorizontalAlignment = xlRight
    
66.             .VerticalAlignment = xlCenter
    
67.             .NumberFormat = "0.00"
    
68.         End With
    
69. 
    
70.         With .Range("f1:f1000")
    
71.             .HorizontalAlignment = xlRight
    
72.             .VerticalAlignment = xlCenter
    
73.             .NumberFormat = "0.00"
    
74.         End With
    
75. 
    
76.         With .Range("g1:g1000")
    
77.             .HorizontalAlignment = xlRight
    
78.             .VerticalAlignment = xlCenter
    
79.             .NumberFormat = "0.00"
    
80.         End With
    
81. 
    
82. 
    
83.     End With
    
84. 
    
85.     For i = 1 To Worksheets(1).Cells(65536, 1).End(xlUp).Row
    
86.         Spreadsheet1.Cells(i, 7) = 0
    
87.         For j = 1 To 6
    
88.             Spreadsheet1.Cells(i, j) = Worksheets(1).Cells(i, j)
    
89.             Spreadsheet1.Cells(i, 7) = Spreadsheet1.Cells(i, 7) + Spreadsheet1.Cells(i, 5) * Spreadsheet1.Cells(i, 6)
    
90.         Next j
    
91.         Spreadsheet1.Cells(i, 8) = Worksheets(1).Cells(i, 8)
    
92.     Next i
    
93. 
    
94.     Me.Spreadsheet1.EnableEvents = True
    
95. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你提供一个官方链接吧，这样下得多累。

wmw123

hwc2ycy 发表于 2014-3-2 23:07
你提供一个官方链接吧，这样下得多累。

office2003版自带这个插件，可直接打开请大仙看看。

hwc2ycy

1. Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC10.Worksheet, ByVal Target As OWC10.Range)
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4. 
   
5.     Dim rg As OWC10.Range
   
6.     Range(Target.Address).Value = Target.Value
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Private Sub UserForm_Initialize()
    
11.     ListView1.BorderStyle = ccFixedSingle                 '设置边框样式。
    
12.     ListView1.View = lvwReport                            '设置 View 属性为报表型(表格)。
    
13.     ListView1.ListItems.Clear
    
14.     ListView1.ColumnHeaders.Clear
    
15.     With ListView1
    
16.         .ColumnHeaders.Add , , "序号", 30
    
17.         .ColumnHeaders.Add , , "  编号", 45
    
18.         .ColumnHeaders.Add , , "               名称及规格", 220
    
19.         .ColumnHeaders.Add , , "单位", 28
    
20.         .ColumnHeaders.Add , , "   数量", 60
    
21.         .ColumnHeaders.Add , , "   单价", 60
    
22.         .ColumnHeaders.Add , , "   合价", 60
    
23.         .ColumnHeaders.Add , , "    备注", 68
    
24.     End With
    
25. 
    
26.     With Spreadsheet1
    
27.         .EnableEvents = False
    
28.         .Range("a1:k1000").Font.Size = 10
    
29. 
    
30.         .Range("a1:a1000").RowHeight = 11
    
31.         .Range("a1:a1").ColumnWidth = 30 / 7
    
32.         .Range("b1:b1").ColumnWidth = 45 / 6.5
    
33.         .Range("c1:c1").ColumnWidth = 220 / 6.11
    
34.         .Range("d1:d1").ColumnWidth = 28 / 7
    
35.         .Range("e1:e1").ColumnWidth = 60 / 6.4
    
36.         .Range("f1:f1").ColumnWidth = 60 / 6.4
    
37.         .Range("g1:g1").ColumnWidth = 60 / 6.4
    
38.         .Range("h1:h1").ColumnWidth = 60 / 6.4
    
39. 
    
40.         With .Range("a1:a1000")
    
41.             .HorizontalAlignment = xlLeft
    
42.             .VerticalAlignment = xlCenter
    
43.             .NumberFormat = "@"
    
44.         End With
    
45. 
    
46.         With .Range("b1:b1000")
    
47.             .HorizontalAlignment = xlCenter
    
48.             .VerticalAlignment = xlCenter
    
49.             .NumberFormat = "@"
    
50.         End With
    
51. 
    
52.         With .Range("c1:c1000")
    
53.             .HorizontalAlignment = xlLeft
    
54.             .VerticalAlignment = xlCenter
    
55.             .NumberFormat = "@"
    
56.         End With
    
57. 
    
58.         With .Range("d1:d1000")
    
59.             .HorizontalAlignment = xlCenter
    
60.             .VerticalAlignment = xlCenter
    
61.             .NumberFormat = "@"
    
62.         End With
    
63. 
    
64.         With .Range("e1:e1000")
    
65.             .HorizontalAlignment = xlRight
    
66.             .VerticalAlignment = xlCenter
    
67.             .NumberFormat = "0.00"
    
68.         End With
    
69. 
    
70.         With .Range("f1:f1000")
    
71.             .HorizontalAlignment = xlRight
    
72.             .VerticalAlignment = xlCenter
    
73.             .NumberFormat = "0.00"
    
74.         End With
    
75. 
    
76.         With .Range("g1:g1000")
    
77.             .HorizontalAlignment = xlRight
    
78.             .VerticalAlignment = xlCenter
    
79.             .NumberFormat = "0.00"
    
80.         End With
    
81. 
    
82. 
    
83.     End With
    
84. 
    
85.     For i = 1 To Worksheets(1).Cells(65536, 1).End(xlUp).Row
    
86.         Spreadsheet1.Cells(i, 7) = 0
    
87.         For j = 1 To 6
    
88.             Spreadsheet1.Cells(i, j) = Worksheets(1).Cells(i, j)
    
89.             Spreadsheet1.Cells(i, 7) = Spreadsheet1.Cells(i, 7) + Spreadsheet1.Cells(i, 5) * Spreadsheet1.Cells(i, 6)
    
90.         Next j
    
91.         Spreadsheet1.Cells(i, 8) = Worksheets(1).Cells(i, 8)
    
92.     Next i
    
93. 
    
94.     Me.Spreadsheet1.EnableEvents = True
    
95. End Sub

复制代码

hwc2ycy

代码有个缺点，如果单元格中用了公式，写完后公式全没了。
建议用formula属性。

wmw123

hwc2ycy 发表于 2014-3-3 16:03
代码有个缺点，如果单元格中用了公式，写完后公式全没了。
建议用formula属性。

请帮我看看，为什么在这个控件里面不能用SQL汇总出数据！
spreedsheet汇总.rar (14.82 KB, 下载次数: 18)

2014-3-3 21:21 上传

点击文件名下载附件