excel-2013相关内容
我正在将excel工作簿的内容复制到另一个工作簿.我的工作表中有很少的隐藏行,这些行也必须保持隐藏在目标工作簿中.我正在使用以下代码行复制数据: '设置rngCopyRange = wbSource.ActiveSheet.CellsrngCopyRange.Copy 在Win 10 64位,Office 2013 64位或Office 2016 32位组合中工作正常但是在Windows 1
..
我正在尝试从五个AverageIF计算平均值: AVERAGE(AVERAGEIFs1,AVERAGEIFs2,AVERAGEIFs3,AVERAGEIFs4,AVERAGEIFs5) 在AverageIFs2和AverageIFs4中, 我收到的是#DIV/0!.如何从不仅没有错误的AverageIF中计算AVERAGE? 在AverageIf之前添加IFERROR,IF(ISE
..
我正在尝试编写一些VBA,它将在3个单元格中添加标题文本,然后将公式一直填充到最后一行.我已经写了下面的代码,它没有给标题写任何问题,但是当它到达我的第一个 .Formula 时,它会抛出一个 应用定义错误或对象定义错误 需要更改什么才能使该宏成功执行?(这些公式是直接从单元格中的公式中提取的,因此我知道它们至少在“前端"是有效的公式) 函数Gre()范围("E2").选择Activ
..
我是VBA的新手,并且对如何单击Internet Explorer中的href链接有疑问.在源页面上有多个href.我从未遇到过,给我带来了很大的困难!我在这个网站上寻找答案,但决定在这里提问. 在下面,我列出了我拥有的代码,直到遇到问题为止,以及Internet Explorer上的源代码. 我注释掉了我尝试过的内容,并列出了收到的错误. 以下代码: 子()昏暗的我只要网址为
..
我已经实现了帖子中建议的哈希方法: VBA是否具有Hash_HMAC 这是我的实现方式 公共函数BASE64SHA1(ByVal sTextToHash作为字符串)昏暗asc作为对象昏暗的对象昏暗的TextToHash()作为字节昏暗的SharedSecretKey()字节Dim bytes()作为字节设置asc = CreateObject("System.Text.UTF8Enc
..
我在这里拥有的只是我的大数据集的一小部分,其中包含许多下拉列表和功能,它们在计算周围的一切.我只是超出了这张桌子,试图使它变得比以前更自动,但是我坚持使用了绿色的那一部分. 当我想在右侧(右表)添加一些名为 Model Options (模型选项)>而不是 Reserviert (储备库)的新单元格时,应该使用哪个函数,但另一些名称(将是但要在左侧下拉参考单元格( Model )上自动识别它
..
我在名为“设置"的工作表上有一个单元格A1,具有以下文件路径: C:\Users\Arun Victor\Documents\New folder\MASTER.xlsm 同一工作簿上的Sheet1具有一堆链接到MASTER.xlsm中各个单元的单元,如下所示: ='C:\Users\Arun Victor\Documents\New folder\[MASTER.xlsm]Emp
..
我试图将Reachability Set列中的数字与Antecedent Set列同一行中的数字进行比较,并返回Intersection Set列相应单元格中的公用值. 屏幕截图: 解决方案 在Excel 2016(但不是Excel 2013)中,可以使用以下输入数组的公式. =TEXTJOIN(",",TRUE,IFERROR(1/(1/(ISNUMBER(FIND(","&TRI
..
我有这个Excel单元格A2,其内容为USD.EUR[IDEALPRO,CASH,EUR]. 我想使用Excel公式从字符串的最后一部分提取子字符串EUR.我得出的最接近的公式是=RIGHT(A2,4).但是,它返回EUR]. 可以使用什么公式来提取子字符串? 我正在使用MS Excel 2013. 解决方案 如果要搜索的字符串的长度仅为3 bytes,则您的简单公式有效
..
我要打开Excel文件的路径xl \ worksheets \ sheet1.xml. 当我使用Google进行操作时,有一篇文章要求我将Excel文件重命名为.zip,然后将其解压缩并检出结构. 但是,即使我压缩和解压缩Excel文件之后,在提取的文件中也找不到任何这样的XML文件.我只找到.xlsx文件. 更新: 根据提供的答案,我将Excel文件重命名为.zip,而没有实际
..
我正在尝试在Excel中为正在讨论的项目创建摘要页面.工作簿中的每个单独工作表都将包含项目,状态,预期的ROI等内容.工作簿的第一页将总结每个项目的重点,每行一个项目. 这是我拥有的代码,改编自Private Sub Worksheet_Activate() Dim ws As Worksheet, sh As Worksheet, pRng As Range Dim rNum As Int
..
我将一个脚本放在一起,该脚本从给定路径的文件夹和子文件夹中提取文件列表. 在B列中,为找到的每个文件创建一个唯一的增量ID.此ID的格式为超链接. 当用户单击超链接时,它将打开一个对话框,允许用户选择要从服务器保存到本地存储驱动器的文件. 在此帖子 的帮助下,这是我正在使用的代码允许用户选择超链接并保存文件. Private Sub Worksheet_FollowHyperl
..
我正在尝试从工作簿中的几个特定工作表中复制信息,而不是从无关的工作表中复制信息到一个称为“合并"的工作表中.我要从中复制信息的工作表的名称是:摘要,摘要(1)...摘要(n + 1). 另外,我希望将复制的信息粘贴到带有信息的最后一行之后,而不删除标题行. 我使用的代码是来自不同Excel-VBA论坛中各种答案的混合和匹配,因此它不太雅致,并且可能由于我对VBA和整体编码的有限理解而导致很多
..
我想使用VBA对从excel范围选择中发送的电子邮件进行居中对齐,但是我不确定将其放在代码中的哪个位置.有人建议我在范围内添加一列.无论如何,我可以将代码放入VBA中.顺便说一句,我真的是这种语言的新手(就像一个小时前一样).这是我的代码,我是从Microsoft页面获得的: Sub Send_Range() ActiveSheet.Range("D4:L23").Select Activ
..
我正在使用HTML将网站中的数据导出到excel. 对于货币,我正在使用以下课程: .DDD { mso-number-format: '\0022$\0022\#\,\#\#0\.00'; } 当我在excel 2007-2010中打开它时,行为正常. (我看到了带有货币的数字,但是当我编辑单元格时,您可以看到它是一个数字-因此您可以在其上
..
我想做的是将来自多张纸的信息全部合并为一张纸.我看过SO上的其他帖子,但它们似乎对我没有用.我试图做这样的事情: Sub Copy_Data() Dim empt As Long Dim emptmas As Long For s = 2 To 8 Set ws = Worksheets(2) For col = 1 To 25
..
这是我的Excel工作表的视图: 文档概述: 它具有多个列,这些列可能会根据要求而有所不同.每张工作表中始终提供文档ID和文档版本,但是列名称(Ex; Doc ID或ID/Doc Version或Doc#)和列(例如,G列和H列/J列和K列)可能会有所不同. 在这种情况下,文档ID-C列和文档版本-D列可能在每个单元格中包含多个值. 文档ID始终有9位数字(如果Id没有足够的数字
..
我浏览了许多有关UserForm控件循环的文章,但是似乎无法调整我发现的代码以满足我的需要,并且需要一些帮助. 我要弄清楚的情况: 我在一个用户窗体上有44个文本框,其名称均以"ch"开头,例如"chTextBox1" 激活用户窗体时,我需要遍历所有以"ch"开头的文本框,并将这些文本框的背景色更改为基于单元格内部颜色的颜色 下面是我一直在处理的代码,我要么陷入无限循环,要
..
当有人单击工作表中的图片时,我需要执行一个宏.宏的意图是显示有关用户单击的形状的更多信息. 编辑:我还需要在鼠标悬停时显示信息,因此使用了超链接方法. 我遵循了我的宏如下: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) MsgBox "Source: Target.Range.Address "
..
我刚刚进入Excel 2013,并注意到宏的工作方式存在一些差异(因为Microsoft无法独自留下美好的事情). 我一直在长宏的开头使用Application.ScreenUdpdating = False来加快运行时间.通常,在这些情况下,我还使用Application.StatusBar = "random text based on macro"让自己(或其他用户)了解正在发生的事情
..