展开

关键词

VBA76:显示IP地址

使VBA也可以显示IP地址,使下面简单的VBA代码就能做到。 运行后,在立即窗口会打印出IP地址。注:本文整理自vbaexpress.com论坛,有兴趣的朋友可以试试。欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

10320

VBA65: 现多重替换

学习Excel技术,关注微信公众号:excelperfect这是在dailydoseofexcel.com中学到的技术,使一个自定义函数来现冗长的多重替换。 一般会想到使SUBSTITUTE函数,很自然的编写公式为:=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE 此时,可以使VBA编写一个自定义函数来解决。

12010
  • 广告
    关闭

    云加社区有奖调研

    参与社区用户调研,赢腾讯定制礼

  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    VBA53: 快速处理上标

    学习Excel技术,关注微信公众号:excelperfect在数学表达式或者一些物理量纲中,我们经常需要使到上标,如下图1所示。? i,1).Font.Superscript = False End If Next i Next rng 恢复屏幕刷新 Application.ScreenUpdating = TrueEnd Sub代码的图片版如下

    41810

    VBA56: 删除多余空格

    strTemp As String Dim strOutput As String Dim i As Integer Dim strChar As String * 1 如果想将制表符转换成单个空格 使了 ) Then strOutput = strOutput & strChar End If Next i 返回结果 TrimAllSpace = strOutputEnd Function这个函数调了 图1 TrimAllSpace函数代码的图片版如下:?

    82520

    VBA66: 改进的Union函数

    学习Excel技术,关注微信公众号:excelperfect本文学习整理自cpearson.com,改进了VBA内置的Union方法存在的问题。 As RangeSet RR =Applicaiton.Union(Range(A1:A10),Range(B1:B10))将单元格区域A1:A10和B1:B10合并成单个区域,运行代码后的RR代表引区域 cpearson.com提供了两段代码来解决上述两问题。下面的代码接受参数为Nothing。 ResR = Union2(ResR, R) End If Next R End If Next N Set ProperUnion = ResREnd Function注意,ProperUnion过了 Union2过

    26610

    VBA59: 生成一组随机字符

    下面的一段VBA可以生成由一组指定个数的随机字符组成的字符串,你可以将其应到自已的中来创建唯一的ID号或者安全密码。 vCharacters) + 1) * Rnd _ +LBound(vCharacters))) Next i 输出随机产生的字符串 GetRandomString = strEnd Function使下面的来测试

    41010

    VBA58: 判断文件是否存在

    strExists = Dir(FilePath) On Error GoTo 0 If strExists Then FileExists = True End IfEnd Function这是一个通 ,可以在使VBA代码试图打开一个文件前,调该函数判断这个文件是否存在,然后再采取下一步的操作。

    28320

    VBA80:判断文件是否打开

    如果你的项目使Excel文件以外的文件,则应在尝试读取或写入文件之前测试该文件是否已被其他进打开。 如果文件被另一个进打开,则打开它的尝试将失败。如果该文件未在使中,则尝试打开它会成功。一旦打开,文件将立即关闭而不保存。 代码如下:Option Compare Text该函数确定以FileName命名的文件是否被另一个进打开.如果文件已打开,则函数返回 True, 如果文件未打开, 返回False.如果由FileName 文件没被另一户打开. IsFileOpen = False Case 70 访问拒绝错误号 文件已被另一户打开. IsFileOpen = True Case Else 另一错误发生.假设打开.

    20071

    VBA77:生成字符的所有组合

    这是在stackoverflow.com中看到的一段VBA,生成所有7个字符中5个字符的任意组合,有兴趣的朋友可以试试。 代码如下:Public Function DropCH(sIn As String, L As Long) As String Dim ll As Long If L = 1 Then DropCH 图2 要移除重复值,可以运行下面的:Sub DropDuplicates() Dim c As Collection Dim K As Long Dim r As Range Set c = New

    15850

    VBA51: 将图表导出为图片(API版)

    学习Excel技术,关注微信公众号:excelperfect在前面的VBA15和16中,我们给出了两个将Excel图表导出为图片的VBA,详见下面的链接:VBA15:将Excel 图表导出为图片VBA16:将Excel图表导出为图片(增强版)这里给出的来自dailydoseofexcel.com,使Windows API来将Excel图表导出为图片。 var) EmptyClipboard CloseClipboard DeleteEnhMetaFile lng On Error GoTo 0 End IfEnd Sub注意,在运行SaveAsEMF过之前 代码的图片版如下:?欢迎分享本文,转载请注明出处。

    49030

    VBA57: 左对齐或右对齐字符串

    学习Excel技术,关注微信公众号:excelperfect使下面的,可以将字符串使指定字符填充到指定的长度,从而现字符串的左对齐或者右对齐。 代码如下:在文本左侧填充指定的字符使字符串达到指定的长度参数strText: 要执行填充操作的字符串参数iWidth: 字符串要达到的长度参数strFill: 可选,指定填充字符,默认为空格如果参数 strText的文本字符串长度其本身就大于iWidth,那么直接返回strText如果参数strFill指定了多个字符,则使第1个字符填充Function FillInLeft(strText As Left$(strText & _ String(iWidth, strFill), iWidth)将原字符串与指定个数的填充字符形成的字符串连接成一个字符串,然后右截取或左截取指定长度的字符串,从而现填充对齐效果 图2 代码的图片版如下:?

    57420

    VBA75:选择所有的合并单元格

    学习Excel技术,关注微信公众号:excelperfect在使VBA操作单元格时,合并的单元格可能会导致问题,甚至在工作表中进行一些操作时,合并的单元格也可能会导致错误。 如果只有1个单元格则搜索已区域, 否则搜索所选的单元格区域. End IfEnd Sub如果在工作表中仅选择了一个单元格,则查找并选择工作表中所有已单元格中的合并单元格;如果在工作表中选择了多个单元格,则在所选单元格区域中查找并选择合并单元格。

    18440

    VBA67:绘制任意形状和箭头线

    下面是两段于绘制形状的:绘制任意形状;绘制箭头线。 注:由于疏忽,先推送了VBA69,将VBA67和68漏掉了,这两天陆续补上。谢谢有心人“深海”朋友的提醒! 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    17610

    VBA71:统计工作簿中的字符数

    引言:这是在ozgrid.com论坛中看到的一个VBA,特辑录于此,供有兴趣的朋友学习参考。下面的统计工作簿中所有工作表的字符总数,包括其中的文本框中的字符数。 MsgBox Err.Number & : & Err.Description Resume ExitHandler End IfEnd Sub对于下面的示例工作簿,运行CountCharacters过后的结果如下图

    18540

    不知道微信如何推广?最推广技巧

    的变革到市场的反馈来看,微信的功能似乎是为了线下体店量身定制,无论是工具功能属性,还是无需安装下载的特点都是线下体店做推广一种必要手段。 其不然,想要做好推广,我们应该从腾讯产品的自有属性去出发,就是说,完全忘记以前的推广方式,而是以微信为主打渠道,既然微信坐拥9亿以上的户,那么,只要在微信上做足文章,找对推广方法,就不愁没有户 目前的开发者主要是一些网络公司和品牌公司,提供线下服务的体门店 大多都还没有注册。这也就意味着:谁先注册开发,谁就能拥有。 例如一家水果店,做了个,周围微信户在搜索附近的时候,就会发现你们的水果店。或者搜索水果店时,就会出现在户的手机页面上,这样轻而易举的营销非常方便且户觉得有需要,直接打开就行,不需要关注等任何操作,觉得不合适直接关闭就行,这便是设计的“完即走”。另外像QQ群,豆瓣,贴吧,知乎等,都可以作为推广的途径。

    1.4K80

    VBA64: 标识工作表中的名称区域

    下面的一可以将工作表中的命名区域添加红色背景色:Sub SetNameRanges() 声明变量 Dim rngName As Name On Error Resume Next 遍历当前工作簿中的名称 运行SetNameRanges过,结果如下图2所示。?

    14730

    VBA73:厘米、英寸和像素、磅的转换

    excelperfectExcel、PowerPoint和Word使了一种称为磅的测量方法。但是,标准应菜单中的测量单位是厘米或英寸。可以在Excel选项更改默认的测量单位。 图1英寸、厘米、磅的转换从英寸或厘米转换为磅相当简单,因为1英寸等于72磅,1厘米等于28.35磅(四舍五入到数点后2位)。Microsoft提供了两个有的VBA函数来进行转换。 ,但它并不像预期的那样有。 像素的数量取决于各种因素,例如每个监视器使的屏幕分辨率。可以使下面的VBA代码将磅转换为像素。 Application.ActiveWindow.PointsToScreenPixelsY(valuePoints) Debug.Print Y轴像素: &valuePixelsEnd Sub注:本文的整理自

    27620

    VBA60: 替换图表SERIES公式中的字符串

    大家知道,Excel图表的每个系列使的数据都是由SERIES公式来确定的。当我们选取图表中的某个数据系列时,在公式栏中就会显示相应的SERIES公式,但这个公式不是真正的公式,不能输入到单元格中。 Jon Peltier大师编写了一段,可以现这样的功能,代码如Sub ChangeSeriesFormula_ActiveChart() 如果没有活动图表 If ActiveChart Is Nothing ,vbInformation, 没有输入 End IfEnd Sub如下图1所示,需要将图表系列中的C替换成D,运行ChangeSeriesFormula_ActiveChart过,按照提示输入原字符串和新字符串

    38020

    VBA74:将合并单元格转换为跨列居中

    “合并后居中”按钮是Excel界面中一个非常方便的功能,很多人都喜欢使合并单元格。然而,对合并单元格进行一些操作会带来一些问题,Excel会给出下图1所示的提示消息。?图1这往往会让人感到困惑。 其,Excel有一个隐藏着的替代选项,称为“跨列居中”,与合并单元格效果相同,如下图2所示。?图2虽然两者看起来效果不同,但质上是不同的,“跨列居中”不会导致上图1所示的错误信息提示。 图3如果已经有一个包含大量合并单元格的工作簿,如果要一个单元格一个单元格地改变其格式设置,没有必要,因为可以使下面的VBA。 c As Range Dim mergedRange As Range 检查当前是否为工作表 If TypeName(ActiveSheet) Worksheet Then Exit Sub 遍历已使的所有单元格 ,因此,上面的VBA专门设计为不删除任何包含多行的合并单元格。

    20720

    VBA52: 将所有VBA模块导出到另一工作簿

    学习Excel技术,关注微信公众号:excelperfect有时候,我们觉得某工作簿中的代码很有,想将它们移到另一工作簿中。 可以在该工作簿的每个代码模块中单击鼠标右键,在快捷菜单中,使“导出文件”命令(如下图1所示),将模块逐一导出到某个文件夹中,然后,打开想要导入模块的工作簿,在该工作簿的工资源管理器中单击右键,选择导入文件 图1上述过需要重复执行导出导入操作,比较繁琐。 下面的代码一次性将指定工作簿中除导出所在模块外的所有VBA模块导入到指定的另一工作簿:Sub ExportModule() Dim wbExport As Workbook Dim wbImport End Sub你可以将代码中相应的工作簿名称修改为际的工作簿名称。代码的图片版如下:?

    95920

    相关产品

    • 小程序安全

      小程序安全

      小程序安全针对小程序不同业务场景提供包括小程序安全加固、小程序安全扫描、小程序渗透测试功能,通过分析仿冒程序,挖掘风险漏洞、保护核心代码等方法保护小程序业务安全、数据安全,降低客户业务风险和资金损失。

    相关资讯

    热门标签

    活动推荐

      运营活动

      活动名称
      广告关闭

      扫码关注云+社区

      领取腾讯云代金券