留下买路财2008的个人资料 - RAT

留下买路财2008 留下买路财2008

关注数: 14 粉丝数: 25 发帖数: 2,836 关注贴吧数: 78

请问各位大佬，这个代码有什么问题吗？为什么第一次可以正常使用，取消或多次使用后就会卡住，就是很简单的打开文件夹对话框而已 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择包含Excel文件的文件夹" If .Show = -1 Then FolderPath = .SelectedItems(1) If FolderPath = "" Then Exit Sub End With WPS环境下，可有修改的建议？

像各位大佬们求助，我想知道我这个VBA哪里错了，拜谢 Sub 批量合并() Dim FolderPath As String Dim File As String Dim wbTarget As Workbook Dim wbSource As Workbook Dim wsSource As Worksheet Dim lastRow As Long Dim i As Long Dim fileCount As Integer Application.DisplayAlerts = False With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择包含Excel文件的文件夹" If .Show = -1 Then FolderPath = .SelectedItems(1) If FolderPath = "" Then Exit Sub End With File = Dir(FolderPath & "\*.xls*") Do While File <> "" Set wbTarget = ThisWorkbook Set wbSource = Workbooks.Open(FolderPath & "\" & File) Set wsSource = wbSource.Worksheets("A") lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row For i = 4 To lastRow wsSource.Rows(i).Copy Destination:=wbTarget.Worksheets("A").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Next i Set wsSource = wbSource.Worksheets("B") lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row For i = 4 To lastRow wsSource.Rows(i).Copy Destination:=wbTarget.Worksheets("B").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Next i wbSource.Close SaveChanges:=False fileCount = fileCount + 1 File = Dir() Loop MsgBox "处理了 " & fileCount & " 个Excel文件" End Sub '很简单的功能，就是想批量把目标文件夹里的EXCEL文件表A和表B从第4行到最后一行复制分别到本文件表A和表B的最后一行，执行后能复制过来，但是整个WPS就卡住了，点什么都不行，只能强制关进程，是哪里没写对吗？

各位大佬，能只用公式清除另一个页面的数据吗？因为是WPS的在线文档，不能使用VBA，共享给别人的，需要在一个页面通过操作，清除掉其他2个表的某个区域的数据。比如在sheet1，用公式或者其他非VBA方法，通过什么操作，可以把sheet2表里的A2:C50和sheet3表里的A10:C40区域清空可有方法？？？

大佬们这种表怎么写条件格式给双休自动加底色？求助各位大佬，如图所示，比如表示年份的单元格是A1，怎么写条件格式把全年双休日底色标红色(包括出勤、加班、病假、事假)？

求助，远程连接发生身份验证错误求助，如图所示，远程WIN更新后就经常出现这个错误，账号密码都是对的但就是没法连接，远程电脑重启后可以正常连接，但是隔个几天又会出现此错误。有没有大佬知道这是怎么回事，怎么解决？

求助各位，关于条件格式占位符的问题如图所示，我设置了当F2值为“临时”时，B2自动在单元格值前加“*”号，但是无论怎么设置都不行，只有B2值是数字时条件格式才有效，才会在值前面加*号，B列为常规格式，这是我哪里没搞对吗？另外怎么批量设置条件格式，但分别只对本列有效，就是比如F4为“临时”时，B4值前面加*号，F列其他单元格变化不影响。感谢！

请问哪位大佬知道云听小电视的服务器地址？电视机上的云听小电视，不是bilibili.com ，哪位大佬知道？我想在路由器屏蔽掉

求助，怎么从总表导入数据到分表，并且每次打开分表能自动刷新老年人刚转办公室闲职，每天被各个报表搞得头晕，下面这个问题一直困扰着我。用的是WPS，单位统一使用，去WPS吧问过没解决，这里来试试。描述：每天上班信息部会转一份数据总表给各个办公室，严重怀疑是直接从后台导出来的，数据太多。我的一个任务就是把里面属于各个部门的数据按部门把需要的数据分别列张表打印好后和其他文件分发各个部门办公室。示意表如下：之前我都是先在总表按部门筛选，然后手动把样式一~样式五复制到部门表文件里，每天眼睛都看花了，C+C\C+V按的手都疼。然后单位里的小年轻教我用数据透视表，先在总表做好后一次性复制到部分表文件里，如下：这样确实比原来快不少，但人总是得学会各种更进步（摸鱼）的方法，请教各位怎么从总表导入需要的数据到分表，并且每次打开分表能自动刷新，比方打开部门22表文件，按B1单元格的值把数据源（总表）里属于部门22的样式一~样式五全部导入，但是总么弄也搞不起来啊，都是把全部数据给导入了请救救老年人把，头发都一撮撮的掉了，先行拜谢！

1 下一页