<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>测量协会 - Excel VBA</title>
    <link>https://www.ommcmm.com/forum.php?mod=forumdisplay&amp;fid=23</link>
    <description>Latest 20 threads of Excel VBA</description>
    <copyright>Copyright(C) 测量协会</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Fri, 24 Apr 2026 19:36:17 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://www.ommcmm.com/static/image/common/logo_88_31.gif</url>
      <title>测量协会</title>
      <link>https://www.ommcmm.com/</link>
    </image>
    <item>
      <title>在Excel中将 VBA生成的当前ppt导出为pdf，再让ppt播放。</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=834</link>
      <description><![CDATA[在Excel中用VBA生成ppt之后，想将它先导出为pdf文件，然后再让生成的ppt播放，不如为何，总是不成功。请大侠指教。
    \' 保存PPT并导出每页为图片
    Dim outFolder As String
    Dim pptPath As String
    
    outFolder = ThisWorkbook.path &amp; &amp;quot;\\听默写情况_&amp;quot; &amp;  ...]]></description>
      <category>Excel VBA</category>
      <author>刘汐悦</author>
      <pubDate>Thu, 23 Apr 2026 12:21:00 +0000</pubDate>
    </item>
    <item>
      <title>浮动式图片，嵌入到单元格</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=833</link>
      <description><![CDATA[WPS大会员VBA
浮动式图片,Debug.Print Sht.Shapes.Count&gt;0,嵌入单元格，sht.shapes.count=0




在 WPS 中，想用 VBA 操作图片，就必须用“浮动式图片”。
“嵌入单元格”图片在 WPS VBA 中是“隐身”的，无法被 Shapes或 OLEObjects捕获。
你的代码没错，是 WPS 的 ...]]></description>
      <category>Excel VBA</category>
      <author>虾鱼肥肥</author>
      <pubDate>Thu, 23 Apr 2026 10:27:00 +0000</pubDate>
    </item>
    <item>
      <title>按照某列单元格中数字生成新的列，遇到波浪线就拆分出对应的行数</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=823</link>
      <description><![CDATA[按照某列单元格中的数字生成新的列:  如果遇到波浪线，就把波浪线前后拆分出来，如为4~7，就拆拆成4/5/6/7，然后接着上面第3行，往下填充第4/5/6/7行，该列序号就是4/5/6/7，前一列的内容就填充拆分前有“4~7”字符串的单元格前一列的内容，如附件图片那样 ...]]></description>
      <category>Excel VBA</category>
      <author>光伟</author>
      <pubDate>Thu, 23 Apr 2026 08:17:00 +0000</pubDate>
    </item>
    <item>
      <title>VBA如何操作PowerQuery中的查询表</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=821</link>
      <description><![CDATA[PowerQuery中有几张查询表，现在想用VBA导出，不使用加载到Mode中的方式，直接用ado操作，能不能实现]]></description>
      <category>Excel VBA</category>
      <author>天堂里的死猪</author>
      <pubDate>Thu, 23 Apr 2026 08:13:00 +0000</pubDate>
    </item>
    <item>
      <title>批量删除数据表空值</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=818</link>
      <description><![CDATA[求助大神，批量删除表格里数据大于43行的空值，数据小于43行的保留43行。]]></description>
      <category>Excel VBA</category>
      <author>远山暮霭</author>
      <pubDate>Thu, 23 Apr 2026 06:46:00 +0000</pubDate>
    </item>
    <item>
      <title>求助生成流转卡</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=816</link>
      <description><![CDATA[&amp;#8204;VBA代码需求说明：使用销售订单数据按规则生成流转卡&amp;#8204;
&amp;#8204;一、 核心目标&amp;#8204;
编写VBA代码，将【销售订单】工作表中的销售明细数据，按照【流转卡模板】的格式样式，在【流转卡输出】工作表中批量生成流转卡，每张流转卡间隔2行。
&amp;#8204;二、 基 ...]]></description>
      <category>Excel VBA</category>
      <author>神鰰神</author>
      <pubDate>Thu, 23 Apr 2026 05:25:00 +0000</pubDate>
    </item>
    <item>
      <title>在甲电脑上录制的宏程序如何转移动到另外一台电脑中？</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=813</link>
      <description><![CDATA[在一台电脑上录制的宏程序如何转到另外一台电脑上？]]></description>
      <category>Excel VBA</category>
      <author>糖醋红柿椒</author>
      <pubDate>Thu, 23 Apr 2026 04:43:00 +0000</pubDate>
    </item>
    <item>
      <title>拜托各位大佬，麻烦给个统计包含数字个数的程序</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=810</link>
      <description><![CDATA[具体如附件，多谢]]></description>
      <category>Excel VBA</category>
      <author>小贵州</author>
      <pubDate>Thu, 23 Apr 2026 01:34:00 +0000</pubDate>
    </item>
    <item>
      <title>LockAspectRatio = msoCTrue</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=805</link>
      <description><![CDATA[LockAspectRatio = msoCTrue
结果

LockAspectRatio = msoCFalse
结果






[*]Sub GenerateRightAlignedArrowTextBoxes()
[*]    Dim Pres As Presentation
[*]    Set Pres = Application.ActivePresentation
[*]
[*]    Dim TxtArr(3 To 5)
[*]    Dim boxWidth As  ...]]></description>
      <category>Excel VBA</category>
      <author>达姆</author>
      <pubDate>Wed, 22 Apr 2026 13:35:13 +0000</pubDate>
    </item>
    <item>
      <title>按要求提取数据</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=798</link>
      <description><![CDATA[跪求高手帮忙编写代码，工作中每天都要做附件中从库存中提取数据冻结产品的重复工作，繁琐无味还容易出错]]></description>
      <category>Excel VBA</category>
      <author>满满意意</author>
      <pubDate>Wed, 22 Apr 2026 06:44:25 +0000</pubDate>
    </item>
    <item>
      <title>执行了代码，怎么没效果</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=794</link>
      <description><![CDATA[在Excel中新建了模块，然后写了下列代码。怎么不会执行？谢谢

If Sheet43.Range(&amp;quot;B4&amp;quot;) = &amp;quot;挡板&amp;quot; Then Sheet43.Range(&amp;quot;G4&amp;quot;) = &amp;quot;无元件&amp;quot;
End If]]></description>
      <category>Excel VBA</category>
      <author>孙晓靖</author>
      <pubDate>Wed, 22 Apr 2026 06:26:15 +0000</pubDate>
    </item>
    <item>
      <title>求问usedrange.rows.delete的运行逻辑</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=793</link>
      <description><![CDATA[usedrange.rows.delete删除的不是一整行吗？为什么行高会不变？
代码：   
Dim rng As Range
Dim j As Integer
j = ws.UsedRange.Rows.Count
For i = 1 To j
    Debug.Print ws.Rows(i).Height
Next i
Set rng = ws.UsedRange.Rows
rng.Delete
Debug.Print &amp;quot;---------- ...]]></description>
      <category>Excel VBA</category>
      <author>正阳电脑</author>
      <pubDate>Wed, 22 Apr 2026 05:16:56 +0000</pubDate>
    </item>
    <item>
      <title>花色相同的扑克牌</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=790</link>
      <description><![CDATA[一副扑克牌有54张，至少摸出多少张，才能保证至少有3张牌的花色相同？


如果3张变为p（2]]></description>
      <category>Excel VBA</category>
      <author>枫落雪飘</author>
      <pubDate>Wed, 22 Apr 2026 04:33:18 +0000</pubDate>
    </item>
    <item>
      <title>小学期末考试成绩册</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=787</link>
      <description><![CDATA[最近修修改改，总算是告一段落，基本满足我的需要了。
美中不足：
领导要求班级间学生打乱顺序考试，就是说每个考室的学生要求是多个班级的，例如一1班一个学生，接下一2班的，一3班的……
怎么穿插没有搞定，如果有多少班级就分成多少考室来排的话还好一点，如果一年级 ...]]></description>
      <category>Excel VBA</category>
      <author>飛天白羽</author>
      <pubDate>Wed, 22 Apr 2026 03:19:45 +0000</pubDate>
    </item>
    <item>
      <title>求：代码优化？</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=776</link>
      <description><![CDATA[如题，见附件。

感谢各位大咖老师的帮助！！！]]></description>
      <category>Excel VBA</category>
      <author>李鲁</author>
      <pubDate>Tue, 21 Apr 2026 13:23:08 +0000</pubDate>
    </item>
    <item>
      <title>求助删除表中二维</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=557</link>
      <description><![CDATA[如何删除Excel表中二维码，详细看附件]]></description>
      <category>Excel VBA</category>
      <author>周剑君</author>
      <pubDate>Sun, 19 Apr 2026 11:38:57 +0000</pubDate>
    </item>
    <item>
      <title>绳子计时</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=411</link>
      <description><![CDATA[有n根密度不均匀，长度不一样的绳子，绳子点燃一端燃尽时间都是1小时。

问n根可以精确计时多少种时间？
提示：
1根绳子点燃一端可以计时60分钟；
同时点燃两端可以计时30分钟。
所以是两种。 ...]]></description>
      <category>Excel VBA</category>
      <author>丢了魂的人</author>
      <pubDate>Thu, 16 Apr 2026 10:17:01 +0000</pubDate>
    </item>
    <item>
      <title>VB6写的批量导入WORD或图片工具可用于收集各类文档或孩子错题集或整理相册</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=333</link>
      <description><![CDATA[VB6写的批量导入WORD或图片工具可用于收集各类文档或孩子错题集或整理相册



功能强大的电子书制作软件2633.rar]]></description>
      <category>Excel VBA</category>
      <author>唯爱小雪</author>
      <pubDate>Wed, 15 Apr 2026 09:30:45 +0000</pubDate>
    </item>
    <item>
      <title>解决ListView控件在wps或者64位excel不正常的方法</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=281</link>
      <description><![CDATA[1，win64位系统32位office文件可解决如下问题：

     如果因某些原因，wps或者32位excel无法正常显示listview控件，请下载此文件按提示操作。
     已经测试有效果。。。。。
2、win64位系统64位office 文件
     如果因为一些原因，如excel2016版本64位无法正常显示li ...]]></description>
      <category>Excel VBA</category>
      <author>夏日清荷</author>
      <pubDate>Wed, 15 Apr 2026 05:10:58 +0000</pubDate>
    </item>
    <item>
      <title>VBA 莫名ADO+SQL突然报错</title>
      <link>https://www.ommcmm.com/forum.php?mod=viewthread&amp;tid=282</link>
      <description><![CDATA[25楼有临时解决方案！！！！！

昨天晚上20点多还好好的，23点多，同事告诉我之前的ADO+SQL查询失败，错误代码是

运行时错误 \'-2147467259(80004005)\'：这种对象类型不支持该操作。
今天早上我也出现了这个问题。一开始我以为是源文件发生了变动，对比后发现没问题。然 ...]]></description>
      <category>Excel VBA</category>
      <author>小贵州</author>
      <pubDate>Wed, 15 Apr 2026 05:04:04 +0000</pubDate>
    </item>
  </channel>
</rss>