在 VBA 编程的世界里，我们常常会遇到需要对单元格中的数据进行各种复杂处理的情况。今天，我们就来深入剖析一个名为ae 的函数，它展示了如何巧妙地运用正则表达式以及对单元格数据进行判断和相应的格式设置操作。

Function ae(rng)
    '定义一个名为ae的函数，它接受一个参数rng，通常在VBA编程中，rng可能代表一个单元格区域或类似的对象

    'On Error Resume Next
    '这行代码被注释掉了。如果取消注释，它的作用是当代码运行过程中出现错误时，程序会继续执行下一行代码，而不是中断并显示错误信息。
    '但这种方式可能会隐藏一些潜在的错误，导致难以排查问题，所以一般要谨慎使用

    Set regex = CreateObject("vbscript.regexp")
    '创建一个VBScript的正则表达式对象。通过CreateObject函数创建一个名为regex的对象，用于后续进行正则表达式相关的操作

    With regex
        '进入对刚刚创建的正则表达式对象regex的配置块，在这个块内可以设置正则表达式的各种属性和执行相关操作

        s = "[^一-龥0-9a-zA-Z-:]"
        '定义一个正则表达式模式字符串s。这个模式表示匹配除了中文（一到龥的范围大致涵盖了常用汉字）、数字、英文字母、冒号和减号之外的任何字符

      .Global = True
        '设置正则表达式的全局匹配属性为True。这意味着在进行替换操作时，会对整个目标字符串中所有匹配的部分都进行替换，而不是只替换第一个匹配项

      .Pattern = s
        '将刚刚定义的正则表达式模式字符串s设置为当前正则表达式对象regex的匹配模式，这样后续使用该对象进行操作时就会按照这个模式来匹配字符串

        ma1 =.Replace(Trim(rng), ":")  '文本内的标点符号替换为:
        '调用正则表达式对象regex的Replace方法，对传入的rng参数进行处理。
        '首先使用Trim函数去除rng可能包含的前后空格，然后按照设置好的正则表达式模式，将匹配到的字符（即除了中文、数字、英文字母、冒号和减号之外的字符）替换为冒号，并将结果赋值给ma1变量

        If UBound(Split(ma1, ":")) > 0 Then
            '使用Split函数按照冒号":"对ma1字符串进行分割，得到一个字符串数组。
            '这里判断分割后的数组的上界（UBound）是否大于0，也就是判断是否成功分割出了至少两个部分（因为数组下标从0开始）
            Cells(rng.Row, rng.Column) = Split(ma1, ":")(2)
            '如果满足上述条件，说明分割后有多个部分，这里将取分割后的数组中索引为2的元素（即第三个部分），并将其赋值给与rng对应的单元格。
            '这里假设rng代表一个单元格，通过Cells(rng.Row, rng.Column)来定位到该单元格并进行赋值操作
        ElseIf UBound(Split(ma1, ":")) = 0 Then
            '如果按照冒号分割后的数组上界等于0，说明可能没有成功按照冒号分割出多个部分，接下来进行进一步的判断
            If UBound(Split(ma1, "-")) < 1 Or Len(Split(ma1, "-")(0)) <> 4 Or Len(Split(ma1, "-")(1)) < 1 Then
                '再次使用Split函数，这次按照减号"-"对ma1字符串进行分割。
                '这里判断按照减号分割后的数组的上界是否小于1（即是否没有成功分割出至少两个部分），
                '或者分割后的数组中索引为0的元素（即第一个部分）的长度不等于4，
                '或者分割后的数组中索引为1的元素（即第二个部分）的长度小于1。
                '只要满足其中一个条件，就执行下面的操作
                rng.Interior.Color = vbRed
                '将与rng对应的单元格的内部颜色设置为红色。这里假设rng是一个可以设置单元格格式的对象，通过rng.Interior.Color来设置单元格内部颜色
            Else
                rng.Interior.Color = vbWhite
                '如果不满足上述条件，说明按照减号分割的情况符合某种预期，将与rng对应的单元格的内部颜色设置为白色
            End If
        End If
    End With
End Function

??由于这里篇幅受限，请点击底部的"了解更多"去阅读详细内容！

??应很多读者的要求，本文小姐姐将以一个用户的展厅VR场景为例，详细讲解Unity3d的VR开发在美工阶段的模型预处理、UV2拆分、贴图优化、光影烘焙、后处理与特效制作以及最终作品优化的基本方法和流程，其中涉及Build-in RP（Build-in Rendering Pipeline-内置渲染管道）、URP（Universal Rendering Pipeline-通用渲染管道）、HDRP(High Definition Rendering Pipeline- 高清渲染管道)和PBR（Physically Based Rendering-基于物理渲染）材质的应用，希望本文对使用unity3d进行VR开发但没经验及致力于虚拟展厅制作童鞋们理清思路有所帮助。

作者：xiaoy007

目 录

一、前言

二、开箱

三、晒物，对比

四、使用总结

五、建议

== == ==== ===== ========= =============== ===================== ============== ============

一、前言

前几日，LD的下面这款电动牙刷刷头已经快要刷爆了，而且经历了深圳闻名遐迩的回南天，牙刷背面都长霉了，没法擦干净；

2015年，开启极致趣味跑酷，享受休闲娱乐新体验，广州盈正独家代理《太空小妞》火热上架中。凝聚端游级制作力量Unity 3D引擎技术打造，上演绚丽精彩的宇宙跑酷。独特的美术风格，超精致的3D游戏画面，流畅动作尽享酣畅，快乐停不下来！

一款仅26MB的手游，却上演了华丽逆袭，没错，这并非电视中的“金坷垃”广告，而是来自美国Crescent Moon Games公司的诚意之作《太空小妞》。以精湛的技术为基础、以端游级制作力量为动力，Unity 3D引擎重磅打造，让仅只有26MB大小的《太空小妞》却绽放了令跑酷玩家着迷的玩法体验。基于Unity3D引擎，《太空小妞》带来的不仅仅是画面与运行方面的良好表现，更带来了更加酷爽的操作手感。细看角色跳跃、奔跑，腾挪之间，节奏流畅，动作的反馈效果真实，完全符合现实的物理法则。

如果给“最具幸福感的家电”来个排名，我相信洗碗机绝对能排在第一名。毕竟民以食为天，一日三餐顿顿要洗碗，这是任何家庭都逃不掉的循环。而洗碗机的出现则让我们可以从洗碗中解脱出来，给自己多一点放松的时间。

程序员视频学习网站

哔哩哔哩

哔哩哔哩

对于程序员来说，B站不可只是一个看番、鬼畜、舞蹈等等的一个网站，B站上所拥有的学习资源是非常非常非常丰富的，基本上你可以在这里找到任何你想要的资源（不是你想的资源，狗头），哈哈。

一.需求分析

1.打开一个chrome浏览器
2.输入论坛的网址http://114.116.2.138:8090/forum.php
3.输入用户名admin
4.输入密码123456
5.点击登录
6.输入验证码
7.再点击登录

二.准备工作

2021年检测师《桥隧工程》真题答案

一、单选题(共30题，每题1分，共30分)

1.对混凝土中氯离子含量测定与评定表述不正确的是()。

A.其锈蚀危险受到多种因素的影响，如化深度、混凝土含水率、混凝土质量等。