[已解决]有选择地合并 ...

松儿

再次请求赐教！有选择地合并工作薄中的工作表（内容有更新）.rar (11.15 KB, 下载次数: 15)

2013-3-10 09:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-10 15:15

窗体中按钮的代码改了下，我就不上传附件了，你自己改下。

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer, iSelect As Integer
   
3.     Dim strList As String
   
4.     With Me.ListBox1
   
5.         For i = 0 To .ListCount - 1
   
6.             If .Selected(i) Then strList = strList & .List(i) & ",": iSelect = iSelect + 1
   
7.         Next
   
8.     End With
   
9.     If iSelect > 0 Then
   
10.         strList = Left(strList, Len(strList) - 1)
    
11.         Sheet1.合并 strList
    
12.         MsgBox "合并完成"
    
13.     Else
    
14.         MsgBox "请选择要合并的工作表后再点按钮"
    
15.     End If
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你以前是不是发过类似的？

松儿

hwc2ycy 发表于 2013-3-10 11:16
你以前是不是发过类似的？

以前的那个与这个所求的结果不一样的，期待老师的最佳结果。

hwc2ycy

再次请求赐教！有选择地合并工作薄中的工作表（内容有更新）.rar (18.86 KB, 下载次数: 17)

2013-3-10 13:49 上传

点击文件名下载附件

松儿

hwc2ycy 发表于 2013-3-10 13:50

恳求设计一下有选择合并的窗体，就象上次的那个。比如只合并文学类和哲学类，就可以选择文学类和哲学类……。

hwc2ycy

再次请求赐教！有选择地合并工作薄中的工作表（内容有更新）.rar (24.01 KB, 下载次数: 19)

2013-3-10 15:12 上传

点击文件名下载附件

hwc2ycy

窗体中按钮的代码改了下，我就不上传附件了，你自己改下。

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer, iSelect As Integer
   
3.     Dim strList As String
   
4.     With Me.ListBox1
   
5.         For i = 0 To .ListCount - 1
   
6.             If .Selected(i) Then strList = strList & .List(i) & ",": iSelect = iSelect + 1
   
7.         Next
   
8.     End With
   
9.     If iSelect > 0 Then
   
10.         strList = Left(strList, Len(strList) - 1)
    
11.         Sheet1.合并 strList
    
12.         MsgBox "合并完成"
    
13.     Else
    
14.         MsgBox "请选择要合并的工作表后再点按钮"
    
15.     End If
    
16. End Sub

复制代码