Tag: excel

如果连接到Azure的Excel工具保存在OneDrive上，我的团队是否必须连接到ODBC？: 我在OneDrive上托pipe一个Excel工具，并与我的团队分享。我想locking它作为只读，以确保我的团队不能删除它。每次他们想要使用Excel工具时，他们都需要在本地下载一个新文件。这个Excel工具将从Azure中提取数据。他们每次想要使用从OneDrive下载的Excel工具时是否需要连接到ODBC，或者是否已经连接到Azure数据库？

PowerPivot中的SUMIFtypes函数: 我对Excel非常熟悉，但是对于PowerPivot来说是非常新的。我有一个数据集，其中包括每个赛季每个NBA球员的比赛日志，我想要一个新的列来计算一个球员在一个特定的夜晚总分钟数。在Excel中，这将是一个简单的SUMIF： [Minutes] if [Team] = [@Team] and [Date] = [@Date] 如何在PowerPivot中处理这个问题，或者在将数据导入PowerPivot之前，我需要做些什么？

用户窗体combobox: 我有一个用户窗体有一个combobox和一个文本框。 TextBox需要为ComboBox的值做一个查找，但是如果该值存在于列表中，如果不存在，我不想在TextBox中出现任何东西，所以用户可以input新的信息。这是我有多远： Private Sub TextBox1_Enter() If cbocolor.Value <> "" Then Dim evalStr As String Dim check As Variant evalStr = WorksheetFunction.VLookup(cbocolor.Value, worksheets("CONTACTS").Range("allcontacts"), 2, False) check = Evaluate(evalStr) If VarType(check) = vbError Then TextBox1.Value = "Enter new info" Else var1 = WorksheetFunction.VLookup(cbocolor.Value, Worksheets("CONTACTS").Range("allcontacts"), 2, False) TextBox1.Value = var1 End If

没有看到Excel VBA的PDF字段: 我的任务是创build一个Excel工具，将数千个PDF数据导入到Excel中。我已经安装了Adobe Acrobat X Professional，它似乎工作正常。我正在使用Excel 2007。我在这里find示例代码： http : //khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/ 并稍微修改它，以提示我浏览到PDF文件，并设置“Adobe Acrobat 10.0types库”的引用，我想这个代码： Sub Main() Dim AcroApp As Acrobat.CAcroApp Dim theForm As Acrobat.CAcroPDDoc Dim jso As Object Dim text1, text2 As String Set AcroApp = CreateObject("AcroExch.App") Set theForm = CreateObject("AcroExch.PDDoc") Dim strFullPath As String strFullPath = Application.GetOpenFilename() theForm.Open (strFullPath) 'theForm.Open ("C:\temp\sampleForm.pdf") Set jso = […]

在表格内到期的账单总和: 在我之前的问题中，我问了如何根据今天的date自动告诉我下一个账单何时到期。这里是链接：显示即将到期的date 。一旦我编制了这些账单，假设我在表A2：C4中有一系列账单，在这个系列中我包括了types，到期金额和到期日。我需要学习如何生成一个公式，该公式显示了在B6：D6中列出的工资支付date之间到期的账单总和。我有一个图像，显示了我想要完成的一些东西。我想要做的是在单元格C8中，我需要具有单元格B6和C6之间的date的公式的公式。包括唯一的账单应该是签证，所以25美元到期。但是，一旦我得到了报酬，下一个付款date将是11/6/15，我将需要支付美国运通卡账单和万事达卡账单，因此在C8单元中需要显示50美元。我知道有一种方法可以做到这一点，但是当我试图弄清楚的时候，我的脑子会受到伤害。

如何使用日志触发事件（发送确认）发送通知邮件: 有没有办法使用日志上的消息触发通知我能够parsing并发送警告和错误的电子邮件？如果有logging失败，我也正在查看数据映射器的错误或警告，因为我已将错误input策略参数设置为宽松。我相信我应该可以打电话给某个class级。有什么想法吗？

将.txt转换为嵌套文件夹中的.xls: 我find了一个Python脚本来将.txt转换为.xls，并且它正在工作：将多个制表符分隔的.txt文件转换为多个.xls文件： import glob import csv import xlwt import win32com.client as win32 for filename in glob.glob("C:\Users\MSI\Desktop\Python Lab\AGR\\*.txt"): spamReader = csv.reader((open(filename, 'rb')), delimiter='|',quotechar='"') encoding = 'latin1' wb = xlwt.Workbook(encoding=encoding) sheet=xlwt.Workbook() sheet = wb.add_sheet('sheet 1') newName = filename for rowx, row in enumerate(spamReader): for colx, value in enumerate(row): sheet.write(rowx, colx, value) wb.save(newName.replace('.txt','.xls')) print "Done" 但是，它只能转换文件path，但不能转换嵌套文件夹中的任何文件。我如何修改它以包含嵌套的文件夹？

用双“For”循环标记区域: 我正在尝试执行以下操作：我想将不同区域（以黄色标记）存储在一个string中。第一个黄色区域是F7：G8，第二个是I7：J8等，使得该串变为：“F7：G8，I7：J8，L7：M8，F10：G11，I10：J11，L10：M11”。所以在这个例子中，我有三个区域在右边，两个在下面。右边和下边的区域数量可能会有所不同，所以我想要编码，我只需要指定向右和向下的区域。请注意，第一个区域始终是F7：G8，所以我可以使用它作为参考。现在，在下一个区域之前跳过的列数可能会有所不同，并且在下一个区域之前跳过的行数可能会有所不同。所以我需要考虑。我有以下的VBA代码： Sub test() ' ' test Makro ' ' Dim i As Integer, j As Integer k = 2 'areas downwards' l = 3 'areas rightwards' Dim area As String Let area = "F7:G8" 'first area, always the same' Dim Upper_letter As String Let Upper_letter = "F" Dim […]

在文本框中使用逗号: 如果我为我的文本框使用下面的代码，当我input数字1,000,000并提交它与我的命令button它显示范围（“F1IMPG1”）为1 。 Range("F1IMPG1").Value = Val(txtF1IMP1.Value) 如果我不使用逗号，它会正确显示为1,000,000 。有人知道为什么这可能是？

如何正确地写下面的嵌套For Each循环？: 所以，我有一个数据sorting问题。本质上，我必须排第2行的单元格在第1行的近似值之下。数据通常会显示为：但是我要求Row2的数据在它的Row1对象的近似值（在1.2之内）被sorting，如下所示：我相信最好的办法是创build一个For Each循环的嵌套集合，如下所示： Dim F As Range Dim Q As Range For Each F In Range("A1:C1") For Each Q In Range("A2:C2") If Q.Cell.Value <= (F.Cell.Value + 1.2) Then F.Offset(1, 0).Value = Q.Cell.Value Exit For End If Next Q Next F 虽然这已被certificate是具有挑战性的我的意图是反复检查Row1的值，并且，如果在Row2中find了具有必要条件的值，请将其置于Row1中的对应项下。代码已经暂停，但是，由于“运行时错误'438'：对象不支持此属性或方法”。如何正确编写代码以避免这样或类似的错误？非常感谢！如果您有任何改进build议，请随时提出build议。最好，