处理另一个加载项的提示
以下代码是我创建的Excel加载项的一部分，将创建我们打开的当前数据提取的文件名. Sub ExtractSave() ' If InStr(LCase$(ActiveWorkbook.name), "extract") > 0 Then Exit Sub Else Dim MyDir As String, fn As String MyDir = CreateObj
..
excel-2007相关内容
将列中的文本切成60个字符块
我有一个工作表，其中有数千行，只有一列(A). A列中的单元格可以为空，最多可以包含1000个字符.我需要运行一个宏，该宏将遍历A列并将其复制到B列.如果有任何具有任何文本> 60字符的单元格，以将其切成60的块，放入下一列. 我有将文本分成60块的代码，但是我不知道如何复制60下的内容，如果为null则移动到下一行，或者循环遍历行. Sub x() Dim cLength A
..
Excel 2003中的TintAndShade和PatternTintAndShade
我在Excel 2007 vba宏中添加了TintAndShade和PatternTintAndShade.一位同事在Excel 2003中对其进行了尝试，发现这些命令在那里不起作用. 然后如何将以下代码转换为可在Excel 2003中运行的代码? With Selection.Interior .Pattern = xlSolid .PatternColorIndex
..
如何在两个日期之间查找数据
我不经常使用Excel，因此不熟悉复杂的公式. 我有一个这样的Excel 2007工作表: A B C Name leavefrom leaveupto Mathew 07-Mar-13 25-Mar-13 john 12-Mar-13
..
VB6程序无法打开未注册自动化错误库的Excel 2007
我在运行Office 2010 32位的Windows 7 32位计算机上创建了此VB6程序.在具有Office 2013 32位的Windows 8 64位计算机上对其进行了测试，它可以正常工作.在装有Windows 7 64位和Office 2007(仅32位)的计算机上，它在以下代码段中引发错误. 实际错误消息: 运行时错误–2147319779(8002801d)自动化错误，库
..
Excel 2007 MS Query中的多部分标识符错误，但SQL Server 2008中没有
我有以下SQL代码 SELECT pd1.Meter, pd1.BasicPool, pd1.RateClass, pd1.Flowdate, (SELECT upOrDownContract FROM PipelineData pd WHERE pd.id = pd1.sibling) AS Dn
..
Excel中奇怪的ActiveX列表框行为
在Excel 2007 SP3中，我有一个带有多列，多选ActiveX列表框的工作簿.在大多数计算机上，它都能正常工作.但是在一个用户的计算机上，当我从该列表框中读取并将数据从其中写入另一张工作表时，它的字体变小了.每次单击执行任务的命令按钮时，其大小都会再次减小. 我们所有的计算机都在Excel 2007 SP3和Windows 7上.对其他人来说效果很好. 逐步浏览受影响的计算机上
..
如何将Excel相关的BOM表列表内容导入到Excel-VBA中的Excel工作表中?
如何实施电子表格以使其更具动态性和可回收性，以供更多用户使用?通过允许用户浏览并导入2个与Excel相关的BOM表列表文件，并将其从计算机本地驱动器导入到工作表2/3中，然后再运行上述代码以查找差异? 例如:像具有两个CommandButton一样可以将所有excel BOM表数据信息导入到工作表2/3中，而无需对原始文件进行任何更改?在运行任何比较测试之前，是否需要一个重置按钮来删除工作表
..
Tan()返回错误的值
我正在尝试计算三个点之间的角度，我需要使用切线函数tan().奇怪的是VBA返回错误的值. 例如: tan(209)= 0.554309051 但在VBA中: tan(209)= -.696695985548265 我的朋友告诉我有关“规范化"的信息.但我不明白他在说什么以及如何去做.为什么会这样? 解决方案 根据此 VBA使用弧度. 将度转换为弧度((度*
..
创建将Excel行从单个工作表转换为新工作表的宏
我需要创建将Excel行从单张转换为新张的宏. 我有3行标题，然后是大量数据行. 我想将此工作表“部门"中的每一行放入其自己的新工作表中(标题行除外).在创建的每个新工作表上，我希望重复前3行(标题)并复制格式(如果可能的话)，然后从“部门"工作表中选择相应的一行.我还希望将新工作表命名为在A列中输入的值(即下面示例中的吸顶灯或壁灯). 我没有宏观经验，因此无法从以前的答案中获取
..
输入框中的浏览按钮以查找Excel2007 Vba文件
我需要在输入框中使用浏览按钮来查找文件-VBA-EXCEL宏] [1] 需要通过浏览按钮而不是在输入框中键入来查找文件夹路径 有可能吗? | ------------------- | | ------------------- |浏览 通过单击一个单元格，它应该请求文件浏览. 不应手动编辑.我的意思是，我想锁定特定的单元格.并且只能通过宏进行编辑. 解决方案 您可以使用
..
从文本文件导入并运行宏
我正在尝试简单地将测试宏导入到我当前的Excel工作簿中.然后运行宏.我使用的是Excel2007.出现错误: 运行时错误'1004': 无法运行宏"DoKbTest".宏可能 在此工作簿中不可用，或者可能禁用了所有宏. 如果我将一行代码更改为:Set oBook = oExcel.Workbooks.Add，它将正常工作.为什么当我参考ThisWorkbook时，它会失败?
..
Excel 2003宏的Excel 2007行限制
我了解Excel 2003的行数限制为65,536，在Excel 2007中增加到1,048,576. 我的问题是:如果宏以Excel 2003为目标并在Excel 2007中打开，则65,536行的限制是否仍然适用? 谢谢. 解决方案 如果您在2007年工作，则该限制为1,048,576行. 请参见以下示例，以了解破坏您的聚会的情况:
..
重新排列具有完整过滤器的Excel表列
我通过VSTO 3.0遇到了Excel 2007的问题.在我的项目中，我偶尔需要对列进行打乱.通常，这可以正常工作，但我最近发现，当数据被过滤并且拟合的数据不连续时，会出现问题. 例如，使用以下数据集: Ohio Eastern Kentucky Eastern Illinois Central California Pacific Florida
..
使用VBA将公式设置为单元格时，类型不匹配
Worksheets("sheet2").Range("C2").Formula = "=AVERAGEIFS(Sheet1!E:E,Sheet1!A:A," >= "&A2,Sheet1!A:A,"
..
Excel:按指定的列值过滤表行
我有一个表，其中第一列为主键.例如: id value1 value2 1 10 5 2 2 3 3 12 5 .. 我还有第二个要选择的ID列表，其中可以包含重复的ID.例如: selectId 1 2 2 2 5 10 .. 如何“合并"两个表(类似于INNER JOIN)以获得: id val
..
Excel:基于另一列中的值和映射的值求和的值
我有下表 每天组织一次体育活动，参加活动的学生将获得积分.学生每天可以参加活动以获得积分. 根据现有列，我需要计算每个学生的总积分(第一列) 如果在D列中那天我有积分，我可以用SUMIF来解决这个问题，但是由于不是这种情况，我不确定如何将F中需要求和的值纳入其中. 任何帮助将不胜感激. 解决方案 使用此数组公式: =SUM(SUMIFS(F:F,E:E,IND
..
如何通过比较忽略空白匹配的两列来通过条件格式突出显示单元格?
我试图通过比较两列B和C来通过条件格式突出显示单元格 即使两列在同一行上都留有空白，该条件也将忽略空白，仅突出显示匹配的值 所以我写了 =AND(B2=C2,C2"") 请注意，Empy单元格不为空.如果单击空单元格，则会有一个隐藏的IF公式.但是单元格的值为空白. 它不起作用.请帮助 解决方案 解决方案 =AND($B2"",$C2"",$B2=
..
如何获得Intellisense来处理XLAM文件中的UDF?
我在XLAM文件中有一些UDF.当XLAM作为外接程序安装时，Intellisense似乎没有使用这些UDF. UDF本身可以在Excel中正常工作，只是它们没有出现在智能感知中.在这里，我的意思是在工作表上使用智能感知. 解决方案 (无法)无法获得UDF(VBA，XLL等)来提供智能感知.经常向Excel团队建议这样做，这是值得改进的. (请参阅 https://fastexcel
..
如何检查Excel单元格值是否有空格... Excel 2007
我有一个包含一些值的Excel文件.我需要检查单元格值是否包含空格.例如，有时用户会在单元格中写入一些值，但错误地在单元格中按Enter或Space.我想查看单元格值内部是否有空格... 请告诉我该怎么做. 谢谢 解决方案 比方说，我在单元格A1中键入"ABC"(ABC后跟一个空格).这些公式中的任何一个都可以帮助: =LEN(A1)=LEN(TRIM(A1)) =EXACT
..