Tag: 全局variables

Excelvariables: 我有以下代码： Sub Strukturkopieren() Dim TZahl As Integer Dim GZahl As Integer Dim MaxZahl As Integer Dim i As Integer Dim j As Integer Dim j2 As Integer Dim g As Integer Dim Startp As Integer Dim Startp2 As Integer MaxZahl = Worksheets("Control").Cells(2, 2).Value For i = 1 To 20 j = 2 * i j2 […]

Excel VBA：dynamicvariables名称: 注意：我仅限于PHP < – > VBA。请不要build议任何需要Excel插件或任何其他语言/方法的东西。我有一个函数连接到指定的URL，提交数据，然后检索其他数据。这很好。我试图写它，所以我可以使用它作为一个通用的函数，我可以使用连接到任何文件，我需要连接到 – 每个将返回不同的数据（可能是用户数据，可能是复杂的计算等）。当它从PHP获取数据时，是否有办法根据收到的数据dynamic设置variables – 即使我不知道接收到的是什么。我可以让PHP以任何格式返回到VBA的string，所以我使用下面的例子：在vba中收到的string： myValue1=Dave&someOtherValue=Hockey&HockeyDate=Yesterday 如果我在PHP中parsing这个，我可以做类似的事情（不准确，只是为了举例）。 $myData = "myValue1=Dave&someOtherValue=Hockey&HockeyDate=Yesterday" $myArr = explode("&",$myData) foreach($myArr as $key => $value){ ${$key} = $value; } echo $someOtherValue; //Would output to the screen 'Hockey'; 我想在VBA中做类似的事情。我收到的string是从一个PHP文件，所以我可以任何格式（JSON等），我只是基本上希望能够在从PHP输出string时定义VARIABLES。这在VBA中可能吗？我有这个function的现在状态很适合连接，如下所示： Function kick_connect(url As String, formdata) 'On Error GoTo connectError Dim […]

将vba中的Datevariables传递给sql语句: 我已经浏览了已经发布的各种不同的情况，但没有一个解决scheme似乎带来了任何的喜悦。我试图将datevariables传递到一个SQL SELECT语句，但我被赋予了有关转换为date/时间的错误或variables没有正确定义的事实，即不正确的语法。同样适用于variables'contractNumber'，但是我期望datevariables完成，相同的将应用于'contractNumber'variables。我曾尝试用“”/“＆/＃”“围绕variables，但没有任何组合似乎工作…. 我使用的代码在下面，“控制”表中的date是标准的英国date – DD / MM / YYYY Sub MEHT() Dim startdate As Date Dim enddate As Date Dim contractNumber As String startdate = Sheets("Control").Range("K8").Value enddate = Sheets("Control").Range("K10").Value contractNumber = Sheets("Control").Range("K13").Value Call ConnectSqlServer End Sub Sub ConnectSqlServer() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sConnString As String ' Create […]

如何在excel中创build一个引用variables: 好吧，我可能没有在标题中解释清楚，但忍耐。我有一个具有多个列表下拉列表的Excel表。这些下拉列表中填充了我用来生成URL的信息。下拉菜单中的数据改变了所述URL的路由参数。这个生成器将被一个营销团队使用。不熟悉作为路由parameter passing的复杂代码的人。我想让发电机更加用户友好。我希望下拉列表具有可以理解的价值。比如对于语言下拉说：英语德语法国但是当select我想要这些项目有不同的价值。像这样：英文= zh-CN 德语= de-DE 法语= fr-FR 有没有一个函数来转换单元格数据来说一些不同的东西？或者创build一个excelvariables？

Excel vlookup绝对和相对引用加上一个variables: 我试图自动化一个过程，包括检查typesX的报告typesY的多个报告。我正在编写一个macros来删除多余的数据，并将数据从列A：O中的报告X和列AB：AF中的报告Y中的数据粘贴起来。 X和Y都可以有不同的长度。我想使用vlookup来检查报告Y（Column AB）在Col O中的匹配，并且返回报告Y的第五列（列AE）中的相应值，或者如果列O中的值没有被发现，返回“失踪！”。如果这是一个单一的使用，我会在Excel中使用下面的公式，并手动自动填充它： =IFERROR(VLOOKUP(O2,AB$2:AE$60,2,FALSE),"MISSING!") 但是我希望能够做到这一点，与VBA中的许多其他任务一起，重复地为许多不同长度的报告。以下是我到目前为止的代码： Range("P2:P" & lastRowX).Formula = _ "=IFERROR(VLOOKUP(O2,AB$2:AE"&lastrowY&",2,FALSE),""MISSING!"")" 其中lastRowX是来自报告X的最后一行数据的整数variables，lastRowY是报告Y的最后一行.VBA甚至不会让我编译它，给我“编译错误：预期：语句结束”。这个代码可以工作，但是它不允许我使用不同长度的Y： Range("P2:P" & lastRowX).Formula = _ "=IFERROR(VLOOKUP(O2,AB$2:AE$60,2,FALSE),""MISSING!"")" 任何想法，我错了或如何做得更好？谢谢！

在Excel中更改10,000个单元格的文件位置: 我在Excel中创build工作簿，并需要它来引用其他工作簿。我从一年中的每一天的大约30个细胞拉动信息。每年的每一天都是一个单独的工作簿。所以，如果我只复制并粘贴每一天的公式，就有超过10,000个单元需要更改。我现在的参考是这样的： ='C:\user\data\year\[day.xlsx]Sheet1'!A1) A1将被30个其他单元replace，并且day.xlsx将被replace为一年中的所有日子。对于我迄今为止所尝试的所有内容，Excel都要求我为每个单元格手动定位每个文件。有什么办法让这个过程比手动更改这些单元格中的每一个的文件名更快？也许能够将文件名中的date设置为将链接到单元格的variables？任何指导将不胜感激。谢谢。

在VBA中将variables连接到string以设置范围: 我有一个特定的代码行的问题： ActiveSheet.Range("A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount) 字母是包含大写字母A到Z的string。我不断收到以下错误： Run-time error '5': Invalid Procedure call or argument 我试图创build一个string“inRange”，并将代码更改为： inRange = "A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount curRange = ActiveSheet.Range(inRange) 但是这没有帮助（因为我认为不会）。有什么build议么？

将单元格值复制到不同的工作簿: 首先，如果这个问题已经在别的地方得到答复，让我道歉。我有一个很好看，但找不到任何帮助我的东西。其次，我相信有一个更简单的方法来做到这一点，但我是新的VBA，我只是试图自我介绍。好的，所以我在工作簿的最后有一张工作表，用于编译上一张工作表中的信息，并且希望将那些全部在第2行的值复制到另一个有networking驱动器的工作簿中。我设法得到这个工作在同一张工作表，但不是另一个工作簿（不使用用户表单）。它返回错误“无效限定符”的行单元格（emptyRow，1.Value – DateRaised.Value 下面是我的代码， Sub CommandButton1_Click() Dim emptyRow As Long Dim DateRaised As Long Dim CustomerName As String Dim SiteAddress As String Dim CallReason As String Dim CustomerOrderNo As Long Dim InvoiceNo As Long Dim CovernoteNo As Long Dim Findings As String Dim ProductType As String Dim Supplier As String […]

vba通过标准countifvariables: 我正在计算使用循环在工作表中K列中出现特定string的行数。用于search的string驻留在Scorecards B2：B8中。计数应该放在下一列C中。我正在尝试将“op_id”中的string传递给countif。当我运行它C列中的所有计数值是0.这是我迄今为止： Dim op_id As String For i = 2 To 8 op_id = Sheets("Scorecards").Cells(i, 2) Sheets("Scorecards").Cells(i, 3) = "=COUNTIF('Raw Data'!K:K, & op_id)" Next i 提前致谢！

声明一个活动的工作簿variablesExcel Vba: （Excel VBA）我将如何声明一个活动的工作簿variables。或一般的工作簿variables。我有一个程序在2个Excel工作簿之间来回翻转，目前我们只是重新打开了这个工作簿。但是，我可以只声明它作为一个variables，所以我可以参考它不重新打开。这会让我的生活变得更轻松。提前致谢！我目前的例子： Dim xlsMatrixUp As String fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls") xlsMatrixUp = fileToOpen Workbooks.Open xlsMatrixUp ActiveWorkbook.Worksheets(4).Activate 'Grabs matrix file 'Goes back to sheet with macro ThisWorkbook.Worksheets(4).Activate ActiveSheet.range("A1").Interior.Color = RGB(128, 128, 128) 'This is off a working if statement Workbooks.Open xlsMatrixUp ActiveWorkbook.Worksheets(4).Activate` 'Returns to matrix and repeats. […]