vba

    0热度

    1回答

    我正在回收旧数据库中的代码。 对于一个人,位于全国各地的一半,我相信可能有一些连接问题。 Public Function BackUpBackend() Dim Source As String Dim Target As String Dim retval As Integer Source = "\\network\backend\accessfil

    1热度

    1回答

    编辑:我想出了自己。我觉得非常愚蠢,但用“结束”取代“退出小组”完美。 背景:我有一个使用“调用”函数在一个Sub中运行多个子的Sub(请参见下面的代码#1)。 Option Explicit Sub MIUL_Run_All() Dim StartTime As Double Dim SecondsElapsed As String 'Remember time when macr

    0热度

    3回答

    我修改的代码,我用来调用多个工作表,&我想用它来调用网址。 Sub OVR_Office_Listing() Dim i As String 'MsgBox prompt:="1st 6 Months of Reports?", Title:="Referral Workbook - Data Entry" i = MsgBox("Continue to OVR Office Di

    -1热度

    1回答

    我正在创建几个用户定义函数(UDF's)。我不够熟练,我可以对我自己写最代码。但是,在某些情况下,我有兴趣了解Microsoft如何处理输入,防范错误并优化性能。 有谁知道在哪里可以找到Microsoft用于编写标准Excel公式的确切Visual Basic语法? 为了说明,下面是我创建模仿VLOOKUP一个UDF,我想它比微软的功能。例如,微软的代码如何分析第一列?它使用单元格循环还是Matc

    0热度

    1回答

    我有3列的表和行的数目不详的和 我需要一个Word文档中设置版式上的其他细胞可以在列1中搜索字符串“Sum”的宏。 如果找到完全匹配,则该宏必须将该行中剩余两个单元格的排版设置为Word中的两个不同的印刷格式,并删除字符串“求和”小区1 该表可以包含字符串的许多实例‘和’,但他们西港岛线alwaye在第一列。 我试过的代码,我对编码技能的缺乏表示歉意,但是我一直在做这个工作,一直工作得很好,直到“

    0热度

    1回答

    我之前发布了另一个与此问题接近的问题,但实际上它有所不同。我有这个VLOOKUP代码,它接受来自用户的输入以获取文件以使用VLOOKUP。它运行在我的一个宏中,当我运行整个事情时,但如果我自己运行private sub,我会在第一个VLOOKUP行上收到错误消息1004。然后我尝试更改代码以使用FormulaR1C1,并且最终使用该版本正常工作。为什么它不能使用我当前的代码,但它在我使用Formu

    -1热度

    2回答

    我已经在网上搜索了这个答案,但是我还没有找到任何东西,并且这让我无法理解,因为我知道解决方案必须简单。 与VLOOKUP类似,我试图检查单个单元格的值的范围,如果范围内的任何单元格匹配,就会返回字面上的任何内容。我不能做相反的事情,因为范围包含许多通配符字符串,而单个单元格是完整的字符串。或者我可以做到这一点,但我不知道如何处理它。 从字面上看,任何帮助或正确的方向点将不胜感激。我已经尝试了许多迭

    0热度

    1回答

    我正在创建用于查看Excel表单的用户表单。我需要搜索特定列以查看用户是否已经查看了该行。如果他们有,单元格将填充“已审核”,如果尚未审核,则会有“未审核”。 每个部门都有自己的Column日志记录,该Row是否已经过审查。即Dept1可能已经审查了该行,而Dept2尚未。 我已经试过类似 With Sheets("ECR") UnReviewedRow = .Range(Depart

    0热度

    2回答

    我在VBA中遇到问题,我想根据组合框值获取文件夹的路径。 看,我有称为“TAG” Excel工作表,其中在他的第一列我有很多的值,像P36300000,C36300001等(图像下方) 我已经创建了一个宏循环浏览表单栏并根据每个单元格值创建一个文件夹。 的“P”是指它的主项,而“C”意味着它是项目的只是一个组成部分。 即,它创建包含P36300000文件夹:3C6300001,C36300002,

    0热度

    1回答

    运行以下代码时,出现错误“运行时错误'1004':应用程序定义或对象定义的错误”。它打破了对标线 Dim cwb As Workbook Dim csh As Worksheet Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx") Set csh = cwb.Sheets("Sheet