[征集专题] Excel函数在各行业中的典型应用【可获技术分】阅至683楼

刘泽海

恳请各位大师帮忙，本人不胜感激！
本人在工作中遇到个难题，说来惭愧，认真学习了很长]时间，总是解决不了这个问题。恳请高手助我一臂之力，本人一定感恩戴德！永远铭记在心！
请大师下载看下就明白了。编写VBA时合并条件其实并没有，因为我已经在每张数据工作表中的N453/N454/N455做了个分段小范围的合并（这样做就是避开单个单元格有字符数量的限制，这三个单元格肯定有内容，也不超出限制），请看下合并汇总工作表中的说明。可以不需要求出N450，可以能过一步一步走，（如：分别复制每张工作表中的N453，N454，N455到新的文件文件中，但是一定同时将同一个工作表中的N453，N454，N455的内容连接起来，我的新附件有三个数据表，每个数据表中的N453，N454，N455为文本文件中的一个整的段落，在我的附件中还有其它不相关的工作表，它们并不参加合并计算，但是不参加合并计算的工作表是不能删除的。随着日后数据量的扩大，数据工作表（即要参加合并的工作表）也会越来越来，在编程VBA时，可以设置指定要参加合并的工作表（最多有20个要参加合并的工作表，每个工作表名称不相同）。请大家注意。
最终要求在用记事本程序新建的文本中得到的效果如下：
1234567890AAAAAAAAAA111..........(这前面是个整体的内容无分隔。它的内容=数据表1中N453&N454&N455）
1234567890AAAAAAAAAA111..........(这前面是个整体的内容无分隔。它的内容=数据表2中N453&N454&N455）
1234567890AAAAAAAAAA111..........(这前面是个整体的内容无分隔。它的内容=数据表3中N453&N454&N455）
    有一点要注意效果中，文本中每一行前面都是顶格写，无空格的，文本中每一行就是一张工作表中的整个合并内容，第一行就是第一张数据表中的总合并，第二行就是第二张数据表中的总合并，以此类推！。

[ 本帖最后由 刘泽海 于 2009-10-10 00:25 编辑 ]

刘泽海

已经得到高手的帮助，他帮我解决了合并输出的问题，还有在VBA中要设置指定哪些（最多20个要参加合并计算的工作表，第个工作表的名称不相同）工作表的问题还需要解决。请大侠们帮忙。他的代码如下：
Option Explicit
Private Function IsFD(fn As String) As Integer
    On Error Resume Next
    If Dir(fn, vbNormal Or vbHidden Or vbReadOnly Or vbSystem Or vbArchive) = "" Then
        If Dir(fn, vbNormal Or vbHidden Or vbReadOnly Or vbSystem Or vbArchive Or vbDirectory) = "" Then IsFD = 0 Else IsFD = 2
    Else
        IsFD = 1
    End If
End Function
Private Function IsDocOpened(ByRef Doc As Object) As Boolean
    On Error Resume Next
    IsDocOpened = False
    IsDocOpened = Doc.Windows(1).Visible
End Function



Private Sub CommandButton2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub CommandButton2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub CommandButton2_Click()
Dim i, aa, c, s, s_name, xx, xxx, t_name
t_name = Replace(ThisWorkbook.Name, "xls", "txt")
Open t_name For Output As #1
    c = Worksheets.Count '工作表的个数
    For s = 1 To c
      s_name = Worksheets(s).Name
      xx = Worksheets(s_name).Cells(458, 14).Value
      xxx = Worksheets(s_name).Cells(459, 14).Value
      For i = xx To xxx
          aa = Worksheets(s_name).Cells(i, 14).Value
          Print #1, aa;
      Next i
      Print #1, Chr$(13)
   Next s
Close #1
End Sub

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton2_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)

[ 本帖最后由 刘泽海 于 2009-10-10 00:29 编辑 ]

zhenqiushi

准备把这个贴子的内容学完！

[ 本帖最后由 zhenqiushi 于 2009-10-10 13:25 编辑 ]

dengjq2000

学完这个帖子你可成了高手了！愿你学习快乐！

trustwxq

贴是好贴，就是感觉没有人整理，东西横七竖八的放的很乱！

whz710227

在Excel里，迭代计算一般使用的较少，而且没有实际的案例，偶这个可以帮助更好的理解迭代计算的意义.......


工作表有保护,但无密码!!!

[ 本帖最后由 whz710227 于 2009-12-31 13:04 编辑 ]

wangjguo44

平时公司里经常要计算材料重量（特别是材料仓库），以当时的水平做了一表试用了近一年，今天发给家里xdjm看看，希望能有利于相关人员的日常工作，也请大家斧正。 建议一般使用不要解除保护，避免产生误操作而改动，如实在需要修改，补充资料或了解公式，撤销保护密码为123456。（其中产品专用材为我公司专用，没有删除，仅供参考）
（本贴本来想发在这个主贴下面妄想赚点技术分，结果一不小心作为新帖发到函数与公式版块里了，不好意思这里再发一次）

[ 本帖最后由 wangjguo44 于 2009-10-19 14:10 编辑 ]

scsys1

填写通知书是每一位班主任老师最头疼的事，我做了一个通知书批量打印的小东西，自己用起来很方便。这个通知书可根据需要任意更改，满足你的不同要求，可加入许多很有个性化的东西。如有需要的可通过邮箱联系我：scsys1@163.com

[ 本帖最后由 scsys1 于 2009-10-21 15:14 编辑 ]

scsys1

这是一个成绩条自动套打程序，可以把成绩表填好直接用A4纸张打印，稍稍改动一下即可成为工资条打印程序。

fmlshq

巧了，这两天刚好在想不知论谈有没有从事报关员这个行业，想看看人家是怎样通过EXCEL提高工作效率，今天无意中就发现了这个贴子，
那我也来凑个数
是关于纸板方面重量的问题，首先是根据材质，数量，规格求出总重量的多少，然后再算出每个材质各用了多少，反斜杠后面的是楞别，楞别不同有不同的楞率，每个材质的基重对照表在第二张表


[ 本帖最后由 fmlshq 于 2009-10-22 11:28 编辑 ]