找到
21
篇与
云真
相关的结果
-
CostTools --更新日志 点击下载 CostTools 1.3 测试版 CostTools 1.3 测试 （1）工作表对比：对比同在一个工作簿的两个工作表不同的地方，并用底色标识。 （2）工作簿对比： （3）工作簿合并：合并工作簿 （4）工作簿拆分：拆分工作簿 （5）删除线 应用删线：文字添加删除线 隐藏本行：隐藏含删除线的行或者隐藏不含删除线的行 显示全行：隐藏后恢复显示所有内容 表格还原：还原到原始状态 导出未删除数据：导出画删除线以外的数据到新表 CostTools 1.2 2025.03.21 （1）公式转数值（区域）：选择特定的区域公式转为数值 （2）公式转数值（全表）：不在区分区域，整个表格或者整个工作簿有公式的全部转为数值 （3）常用公式：把常用公式写成按键，需要的时候选择单元格点击插入，不在记公式，配公式帮助文档说明用法。 （4）公式变色（红色）：表格内含公式的单元格文字字体变成红色 （5）公式恢复（黑色）：变色的公式字体恢复为黑色 （6）批量文件夹：批量生成文件夹 （7）批量改名：批量修改文件名 （8）修复部分BUG 造价工具 1.1 2025.03.15 （1）最适合的行高：去掉选择区域的选项，默认调整整个工作表 （2）高清截图：截取表格内容，可以实现长截图 （3）截图批注（本地）：插入本地图片到单元格批注 （4）清理截图（C盘）：清理截图的文件夹 （5）截图批注（测试）：截图，复制后选择单元格插入批注 （6）Excerl工作圈小工具：别人做的工具，以后都放这里 （7）计算式：不需要按钮，未放置，单元格内输入=计算式（）既可调出 （8）版本更新：增加版本更新按钮 造价工具 1.0 2025.03.09 （1）区间字变色：输入计算式【】内备注文字会特别显示 （2）隐藏0值：隐藏单元格内0值 （3）最适合的行高：在原来行高的基础上再次增加自己需要的行高 （4）合并单元格：多行文字合并为一个单元格内 （5）单元格历史动作：记录每一次单元格的修改记录 （6）生成目录：生成工作表目录 （7）帮助：一些简单的操作索引
-
WPS VBA插件简单使用教程（二） 修改代码增加区域选择，文字及括号颜色定义对话框： 完整代码： Option Explicit Function ConvertColor(ByVal colorStr As String, ByRef colorOut As Long) As Boolean Dim arrColor arrColor = Split(colorStr, ",") If UBound(arrColor) <> 2 Then MsgBox "颜色格式错误，请使用R,G,B格式！", vbCritical ConvertColor = False Exit Function End If On Error Resume Next Dim r As Long: r = CLng(Trim(arrColor(0))) Dim g As Long: g = CLng(Trim(arrColor(1))) Dim b As Long: b = CLng(Trim(arrColor(2))) On Error GoTo 0 If r < 0 Or r > 255 Or g < 0 Or g > 255 Or b < 0 Or b > 255 Then MsgBox "颜色数值必须在0-255之间！", vbCritical ConvertColor = False Exit Function End If colorOut = RGB(r, g, b) ConvertColor = TrueEnd Function Sub OptimizedColorAllTextInBrackets() Dim targetRange As Range Dim cell As Range Dim text As String Dim startPos As Long, endPos As Long Dim arrBrackets() As Variant Dim i As Long Dim defaultTextColor As Long Dim bracketTextColor As Long Dim colorInput As String ' 选择处理区域 On Error Resume Next Set targetRange = Application.InputBox("请选择要处理的区域", "区域选择", "F4:K10000", Type:=8) On Error GoTo 0 If targetRange Is Nothing Then Exit Sub ' 过滤空单元格 On Error Resume Next Set targetRange = targetRange.SpecialCells(xlCellTypeConstants) On Error GoTo 0 If targetRange Is Nothing Then MsgBox "所选区域没有内容！", vbInformation Exit Sub End If ' 颜色选择 colorInput = InputBox("普通文字颜色（格式：R,G,B）", "颜色选择", "0,0,0") If Not ConvertColor(colorInput, defaultTextColor) Then Exit Sub colorInput = InputBox("括号文字颜色（格式：R,G,B）", "颜色选择", "0,0,255") If Not ConvertColor(colorInput, bracketTextColor) Then Exit Sub ' 优化性能设置 With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .EnableAnimations = False End With For Each cell In targetRange ' 处理括号着色 text = cell.Value cell.Font.Color = defaultTextColor ' 设置整体文字颜色 If InStr(text, "【") > 0 Then ReDim arrBrackets(1 To Len(text) \ 2) startPos = InStr(text, "【") i = 0 Do While startPos > 0 endPos = InStr(startPos + 1, text, "】") If endPos > startPos Then i = i + 1 arrBrackets(i) = Array(startPos, endPos - startPos + 1) startPos = InStr(endPos + 1, text, "【") Else Exit Do End If Loop If i > 0 Then For startPos = 1 To i With cell.Characters(arrBrackets(startPos)(0), arrBrackets(startPos)(1)).Font .Color = bracketTextColor End With Next startPos End If End If Next cell ' 恢复系统设置 With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True .EnableAnimations = True End With MsgBox "处理完成！共处理 " & targetRange.Count & " 个单元格", vbInformationEnd Sub 自动运行代码： ' Worksheet_Change事件处理Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler Application.EnableEvents = False ' 限制处理范围并提升性能 Dim ProcessArea As Range Set ProcessArea = Me.Range("F4:K10000") ' 仅处理与目标区域有交集的单元格 Dim cell As Range For Each cell In Intersect(Target, ProcessArea) ' 排除空单元格和错误值 If Not IsError(cell.Value) Then ' 移除原有的0值处理逻辑 If InStr(cell.Value, "【") > 0 Then UpdateBracketColor cell, RGB(0, 0, 0), RGB(0, 0, 255) End If End If Next cell ExitHandler: Application.EnableEvents = True Exit SubErrorHandler: MsgBox "处理过程中发生错误：" & Err.Description & vbCrLf & "错误代码：" & Err.Number Resume ExitHandlerEnd Sub ' 优化后的括号处理函数Private Sub UpdateBracketColor(ByVal cell As Range, ByVal defColor As Long, ByVal brkColor As Long) On Error Resume Next ' 防止合并单元格出错 Dim text As String text = cell.Value cell.Font.Color = defColor ' 使用更高效的查找算法 Dim posOpen As Long, posClose As Long posOpen = InStr(1, text, "【") Do While posOpen > 0 posClose = InStr(posOpen + 1, text, "】") If posClose > 0 Then With cell.Characters(posOpen, posClose - posOpen + 1).Font .Color = brkColor End With posOpen = InStr(posClose + 1, text, "【") Else Exit Do End If LoopEnd Sub
-
WPS VBA插件简单使用教程（一） 目的：F4:K10000单元格内中【】内容为红色 一：下载安装WPS VBA插件https://wwgh.lanzn.com/iXNP32ovr6ne 二：输入VBA代码 完整代码如下： Sub OptimizedColorAllTextInBrackets() Dim targetRange As Range Dim cell As Range Dim text As String Dim startPos As Long, endPos As Long Dim arrBrackets() As Variant Dim i As Long ' 设置目标区域（F4:K10000），根据实际需求调整 Set targetRange = Range("F4:K10000") ' 关闭所有可能影响性能的功能 With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .EnableAnimations = False End With ' 遍历目标区域中的非空单元格（减少循环次数） For Each cell In targetRange.SpecialCells(xlCellTypeConstants) text = cell.Value If InStr(text, "【") > 0 Then ' 仅处理包含括号的单元格 cell.Font.Color = RGB(0, 0, 0) ' 重置整个单元格为黑色 ' 使用数组记录所有括号位置（减少多次InStr调用） ReDim arrBrackets(1 To Len(text) \ 2) startPos = InStr(text, "【") i = 0 Do While startPos > 0 endPos = InStr(startPos + 1, text, "】") If endPos > startPos Then i = i + 1 arrBrackets(i) = Array(startPos, endPos - startPos + 1) startPos = InStr(endPos + 1, text, "【") Else Exit Do End If Loop ' 批量设置颜色（减少Characters方法的重复调用） If i > 0 Then For startPos = 1 To i With cell.Characters(arrBrackets(startPos)(0), arrBrackets(startPos)(1)).Font .Color = RGB(255, 0, 0) End With Next startPos End If End If Next cell ' 恢复系统设置 With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True .EnableAnimations = True End WithEnd Sub PS：延伸代码，单元格内出现0值时，单元格为空。 Sub OptimizedColorAllTextInBrackets() Dim targetRange As Range Dim cell As Range Dim text As String Dim startPos As Long, endPos As Long Dim arrBrackets() As Variant Dim i As Long ' 设置目标区域（F4:K10000） Set targetRange = Range("F4:K10000") ' 处理可能存在的空区域错误 On Error Resume Next Set targetRange = targetRange.SpecialCells(xlCellTypeConstants) On Error GoTo 0 If targetRange Is Nothing Then Exit Sub ' 关闭所有可能影响性能的功能 With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .EnableAnimations = False End With For Each cell In targetRange ' 处理0值单元格 If IsNumeric(cell.Value) Then If cell.Value = 0 Then cell.ClearContents GoTo ContinueLoop End If ElseIf cell.Value = "0" Then cell.ClearContents GoTo ContinueLoop End If text = cell.Value If InStr(text, "【") > 0 Then cell.Font.Color = RGB(0, 0, 0) ReDim arrBrackets(1 To Len(text) \ 2) startPos = InStr(text, "【") i = 0 Do While startPos > 0 endPos = InStr(startPos + 1, text, "】") If endPos > startPos Then i = i + 1 arrBrackets(i) = Array(startPos, endPos - startPos + 1) startPos = InStr(endPos + 1, text, "【") Else Exit Do End If Loop If i > 0 Then For startPos = 1 To i With cell.Characters(arrBrackets(startPos)(0), arrBrackets(startPos)(1)).Font .Color = RGB(255, 0, 0) End With Next startPos End If End IfContinueLoop: Next cell ' 恢复系统设置 With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True .EnableAnimations = True End WithEnd Sub 三：输入自动运行代码 完整代码如下： ' 在对应工作表（如 Sheet1）的代码模块中添加以下代码Private Sub Worksheet_Change(ByVal Target As Range) Dim affectedRange As Range Dim cell As Range ' 设置监控区域（与宏中的目标区域一致） Set affectedRange = Me.Range("F4:K10000") ' 检查是否有单元格在监控区域内被修改 If Not Intersect(Target, affectedRange) Is Nothing Then ' 关闭事件和屏幕刷新防止递归和闪烁 Application.EnableEvents = False Application.ScreenUpdating = False ' 遍历所有被修改的单元格并调用处理函数 For Each cell In Intersect(Target, affectedRange) ProcessCell cell Next cell ' 恢复设置 Application.ScreenUpdating = True Application.EnableEvents = True End IfEnd Sub ' 独立函数：处理单个单元格的括号颜色Sub ProcessCell(ByVal cell As Range) Dim text As String Dim startPos As Long, endPos As Long Dim arrBrackets() As Variant Dim i As Long text = cell.Value cell.Font.Color = RGB(0, 0, 0) ' 重置颜色 ' 仅处理包含【的单元格 If InStr(text, "【") > 0 Then ReDim arrBrackets(1 To Len(text) \ 2) startPos = InStr(text, "【") i = 0 ' 记录所有括号位置 Do While startPos > 0 endPos = InStr(startPos + 1, text, "】") If endPos > startPos Then i = i + 1 arrBrackets(i) = Array(startPos, endPos - startPos + 1) startPos = InStr(endPos + 1, text, "【") Else Exit Do End If Loop ' 批量设置颜色 If i > 0 Then For startPos = 1 To i With cell.Characters(arrBrackets(startPos)(0), arrBrackets(startPos)(1)).Font .Color = RGB(255, 0, 0) End With Next startPos End If End IfEnd Sub 四：表格另存为带宏的表格
-
微PE安装系统简易教程 一：系统下载 1.进入网址导航http://wz.yunzhen.pw/#category-8下载系统 （1）1、2、3都是可以下载系统，仅测试过系统库和宋永志的系统。宋永志的系统在使用某些软件的时候会出错，可能是系统修改过的原因，系统库没遇到则完全正常，建议直接下载系统库的系统。 （2）如果系统需要激活，可以连通第四项激活工具一起下载。 2.下载系统前先下载最新版的迅雷，也可以下载我准备的绿色版https://wwgh.lanzn.com/iKLM62l6neyb 3.进入系统库选择自己需要的系统下载，绿色版迅雷下载时无需登录迅雷账号。 二：系统安装 1.前期准备（做启动盘） （1）下载微PE工具箱 （2）制作微PE系统U盘（需要准备一个8G以上的U盘） 把U盘插入电脑，双击下载好的微PE工具箱 （3）点击U盘图标，安装到U盘（ 如果没有U盘可以点击安装到系统，系统重启后会有两个选择，可以直接进入PE。）： （4）各个选项默认即可，点击立即安装进U盘。 （5）关闭杀毒软件（如360、腾讯安全管家、金山毒霸等），制作过程会格式化U盘，要提前备份好U盘内的资料。 （6）制作中，等待制作完成即可。 （7）制作成功后的U盘会变成两个，一个是EFI分区，一个是可以当成普通U盘使用的分区。 （8）最后我们需要把下载的系统镜像文件移动到普通U盘使用的分区，这样启动U盘就制作好了！ 2.安装系统 （1）从U盘启动微PE工具箱安装Windows镜像文件 首先，我们需要把重装系统的电脑关机，然后将制作好的U盘插入重装系统的电脑后按下开机键再反复按F8直到系统出现下图界面（由于每个品牌的电脑进入PE的快捷键和画面都不太一样，这个步骤就省略了，可以自行百度去操作，或者在安装微PE的时候直接安装进系统，前提是电脑可以正常开机）。 （2）进入微PE系统后，双击打开分区工具。 （3）选择系统C盘，点击格式化（别点错了），也可以在我的电脑内格式化一样的。 （4）格式化完成后返回桌面，打开Windows安装器。 （5）第一栏选择存放在U盘中的系统镜像ISO文件，第二、三栏统一选择C盘，最后点击开始安装。 （6）安装完成后，点击重启并拔出插入电脑的U盘，如果没有反应需手动重启，直到电脑出现下图界面就安装成功了！ PS：重启后根据提示一步一步操作，直到安装完成既可。 系统安装完后如果需要扫驱动，可以选择下面其中一个既可，都是免安装版本。 （1）驱动精灵 v9.2（绿色免安装版）：https://wwgh.lanzn.com/i5NtN2l6x1wb （2）驱动总裁+网卡版+2.16.0+单文件 https://pan.baidu.com/s/1exo0NAm_FY0S9Mzi9qWfXw?pwd=8w4v 提取码: 8w4v
-
局域网文件夹共享设置 设置共享文件夹操作步骤1、选择想要共享的文件夹，选择需要共享的文件夹，右键点击该文件夹。从弹出的菜单中选择“属性”。 2、在“属性”窗口中，选择顶部的“共享”选项卡。在“共享”选项卡中，点击下方的“高级共享”按钮。将打开新的窗口，允许更详细地配置文件夹的共享属性。 3、在“高级共享”窗口中，勾选上“共享此文件夹”选项。可以为共享文件夹指定一个分享名称，这将是其他设备上访问文件夹时使用的名称。 4、点击“权限”按钮，配置文件夹的访问权限。添加具体的用户或组，并设置其对文件夹的读写权限。完成权限配置后，点击“确定”按钮保存所有的设置。 5、WIN+R输入自己的IP地址，就可以看到共享文件夹了。（IP输入格式：\\XXX.XXX.X.XX） 6、关闭共享文件【选择文件夹--右键属性--共享--高级共享--共享此文件夹（取消勾选）--确定】 7：如果设置一直不成功，就用软件设置吧，记的关闭杀毒。 下载地址：点击下载软件版 8：映射网盘到我的电脑 PS：如何查看自己的IP地址 在Windows系统中，按下“Win + R”键，输入cmd并按回车，打开命令提示符窗口。输入命令ipconfig，系统会显示网络配置信息，其中包含“IPv4地址”，这就是你的局域网IP地址。
