EXCEL应用宏的问题
楼主, 原档我已发送给您。下面是宏代码原文， 不知道为什么有中文提显示地方会是乱的.Private Sub Worksheet_Change(ByVal Target As Range)Dim ci As LongDim ei As LongIf Target.Address = "$B$1" Thenci = Range("C65536").End(xlUp).Rowei = Range("E65536").End(xlUp).RowRange("A3:A7").ClearContentsIf [B1] = "" Or WorksheetFunction.CountIf([C:C], [B1]) > 0 Then[A1] = "2?2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"If [B1] = "" Then[A4] = "??óDê?è??ì????3?!"Else[A4] = [B1] & " ê? " & [C1]End If[A4] = [B1] & " 2?ê? " & [C1]If WorksheetFunction.CountIf([D:D], [B1]) <= 5 Then[A1] = "2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"[A5] = [B1] & " ?ú " & [D1] & " ?D3???′?êy <= 5′?(°üà¨?′3???1y)"Else[A5] = [B1] & " ?ú " & [D1] & " ?D3???′?êy′óóú5′?"If WorksheetFunction.CountIf([E:E], [B1]) / WorksheetFunction.CountIf([D:D], [B1]) > 0.8 Then[A1] = "2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"[A6] = [B1] & " ?ú " & [E1] & " ?D3???′?êyó? " & [B1] & " ?ú " & [D1] & " ?D3???′?êy??±è′óóú 80%"Else[A6] = [B1] & " ?ú " & [E1] & " ?D3???′?êyó? " & [B1] & " ?ú " & [D1] & " ?D3???′?êy??±èD?óúμèóú 80%"If Int(Rnd * 11) = 0 Then[A1] = "2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"[A7] = "?aê?10%μ????ê??μ?2é?ù"Else[A1] = "2?2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"[A7] = "?aê?90%μ????ê??μ?2?2é?ù"End IfEnd IfEnd IfEnd IfCells(ei + 1, 5) = [B1]If [A1] = "2é?ù" And WorksheetFunction.CountIf([C:C], [B1]) = 0 ThenCells(ci + 1, 3) = [B1]End IfEnd Sub代码看起来挺乱的， 请看下面的执行效果图:如果你能详细描述一下"导出被审计单位的序时账"的结构.以及双击后要从哪里找到需要的值,要将哪些值放在另一表中的什么位置.代码也许可以写.Range("A3:A7").ClearContentsIf [B1] = "" Or WorksheetFunction.CountIf([C:C], [B1]) > 0 Then[A1] = "2?2é?ù"[A3] = [A1] & "μ?ì??tD??￠:"If [B1] = "" Then[A4] = "??óDê?è??ì????3?!"Else我会VBA但是我不懂会计记账，不太明白你说的：分录的会计记账分录？如果能明白这个，你说的功能是完全能够实现的，很简单。只是不知道，“分录的会计记账分录？”什么意思。我男朋友是excel这方面的高手，你可以请教他。他的百度空间是：ytsword你百度一下就可以了
程控交换技术
资料名称：程控交换技术??辅助说明：本资料包括以下内容：程控交换概述，信令系统，程控交换系统的主要技术指标，c&c08交换机硬件，c&c08程控交换软件，c&c08新功能和业务，c&c08组网，??对未来通信网的展望等内容。??文件大小：3.24?k??下载地址：??
现代交换技术
先过初试啊..过完初试在考虑复试的。复试不怎么看的，..随便提早20天再看看就成，复试主要其实还是面试....复试的考试就是扯淡...总之尽力看，看看概念什么的就好，主要是前几章的内容，就是电路交换、信令之类的。大题我们学校两个大题每年必考一个是bhca的计算，另外个今年是关于半帧法的。
