我怎样才能比较两个5,000 +logging列和颜色格式呢? 例如, If value in cell Ax = Bx then cell Cx color = green 。 我可以做到这一行,但手动做5000+logging似乎是疯狂的,我知道还有另一种方式,但我不知道如何! 如果我使用格式画家,它复制该单元格的格式,例如($ A1 = $ B1),我需要$ A4599 = $ B4599等等。
我试图从excel电子表格的列A中的单元格中获取所有数字,但我只是得到我的标题行返回。 我究竟做错了什么? static void Main(string[] args) { var excel = new Microsoft.Office.Interop.Excel.Application(); Workbook workbook = excel.Workbooks.Open(@"C:\Documents\ANIs.xlsx"); Worksheet worksheet = workbook.Worksheets[1]; Range a1 = worksheet.get_Range("$A1"); object rawValue = a1.Value; string Text = a1.Text; foreach (Range item in a1.Cells) { Console.WriteLine("{1}", rawValue, Text); } Console.Read(); }
= IF(A5 =< 8, B5 * .07, IF(A5 > 8 AND A5 =< 15, B5 * .05, IF(A5 > 15 AND A5 < 20, B5 * .03, 00.00))) 我不完全确定为什么我收到和错误。 语法看起来是正确的,不是吗?
首先在这里发表,所以对我很好。 我正试图从网站上下载一个excel文件。 该网站有一个button,可以按下来下载Excel文件。 我看了代码,并能够想出一个URL,如果进入IE直接带我下载“打开/保存”对话框。 然后,我在Excel中使用该url在VBA中,打开下载框要求打开或保存该文件。 我想每次保存文件到相同的名称,因为我将有另一个工作簿查看数据并返回结果。 我知道这个问题已经被问了一百万次,因为我已经search,但没有代码,我已经尝试将工作。 这是我的代码到目前为止 Sub TESTING() 'Need to reference to Microsoft Internet Controls Dim URL As String 'URL = Worksheets("References & Resources").Range("URLMSL") URL = "http://cts/Tacs/OperationDrillExport/76" Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate URL Do While IE.ReadyState <> 4 DoEvents Loop End Sub 该网站是一个内部网站,所以它不会从外面工作,但我会认为代码是相同的任何方式。
所以我想我在这里find了我的问题的答案…但是当我复制并粘贴VBA代码时,在“With range.Find”行中出现“Compile error:Argument not optional”错误。 Sub HighlightWords2() Dim range As range Dim i As Long Dim TargetList TargetList = Array("words") 'put list of terms to find here For i = 0 To UBound(TargetList) Set range = ActiveDocument.range With range.Find .Text = TargetList(i) .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike […]
我有一个Excel工作簿中的VBAmacros,用户日历中用特殊标记创buildOutlook约会。 在添加新的约会之前,它首先删除在物品主体中具有该标签的所有约会。 不幸的是,Outlook.AppointmentItem.Delete函数有时不起作用。 当我打开我的Outlook日历时,我可以看到该项目被删除很短的时间,并立即重新出现。 这只是偶尔发生。 我可以通过使用特定标记两次复制AppointmentItem来强制执行此行为。 然后,只有两个约会将被删除,一个保留在日历中。 任何人都可以解释什么可能导致此行为? Public Sub DeleteAppointment(Starttime As Date, Endtime As Date) Dim myStart As Date Dim myEnd As Date Dim olApp As Outlook.Application Dim oCalendar As Outlook.Folder Dim oItems As Outlook.Items Dim oItemsInDateRange As Outlook.Items Dim oAppt As Outlook.AppointmentItem Dim strRestriction As String Dim olNs As Outlook.Namespace Dim blnCreated As […]
我希望有人能帮助我。 我有一张名为“细节”的另一张电子表格,另一张名为“已对帐”的电子表格。 我在Details中有1000多行,我想剪切E列(我想剪切整行)中所有具有0或者 – 的行,并将其粘贴到Sheet Details中。 如果可能的话,我想复制并粘贴标题从Reconciled到详细信息。 我试过使用这个代码(稍微修改)在另一篇文章中使用 Sub Test() For Each Cell In Sheets("Details").Range("E:E") If Cell.Value = "0" Then matchRow = Cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Reconcile").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Details").Select End If Next End Sub 但是有两个问题。 因为有些值(数字是真的)会被移动,但0.00的值不会被移动,因为它们是四舍五入的(我认为这就是为什么它们没有被移动)。 此外,屏幕更新奇怪,我很抱歉,我不能解释更多。 任何帮助,将不胜感激
最后一个问题得到了如此快速和准确的回答,我想我会再给它一个! 所以在列A中,有一个杂志名称列表。 在C列中有一个广告商的名字列表。 杂志标题和广告客户名称可能会重复,如下所示… 时代杂志(A栏)……..亚马逊(C栏) 时代杂志(A栏)……..亚马逊(C栏) 福布斯(A栏)…….. Google(C栏) 福布斯(A栏)……..亚马逊(C列) 在单元格A1中的一个单独的工作表中,我有一个数据validation下拉列表,前面提到的列C中的广告商名称。 我正在input一个公式,它将查找通过数据validation下拉列表select的广告商名称,并告诉我是或否,以确定他们的名字是否与A列中的特定杂志标题(例如“福布斯”)相关联。 所以在上面的例子中,我希望能够从我的数据validation下拉列表中select广告客户“Google”,看到一个YES,表明他们在福布斯做广告。 希望这是有道理的!
我在这里发现了一个类似的问题( 根据多个标准返回最频繁出现的string的计数 ),但没有看到令人满意的答案。 如果可以的话请帮忙! 我有一个制造商及其产品的清单: MANF …….产品……….公制 的Adobe Photoshop的……用户….. 的Adobe Acrobat中…… ………用户 Microsoft..Office …………设备 Microsoft..Access ………设备 Microsoft..MSDN ………. MSDN命名用户 在另一个表中,我有一个独特的制造商名称列表,我需要能够说出每个制造商最常见的(然后第二个最常见的,希望是)度量标准,如下所示。 Manf ………最常用的度量标准 的Adobe用户……. 微软…设备 在这种情况下,我宁愿不要有一个VBA解决scheme,但如果有必要,将会使用。 我似乎有一些INDEX MATCH尝试,但没有任何工作正确的呢。 谢谢! 编辑:我想另一种方式来寻找答案,发现这个,工作! http://answers.microsoft.com/en-us/office/forum/office_2010-excel/formula-to-return-most-common-value/06383764-3c7d-e011-9b4b-68b599b31bf5?auth=1 任何人都知道如何修改它以find第二个和第三个最常见的值?
我试图自动更新combobox列表。 只有在closures并打开工作簿时,或者在VBA上按下停止button并再次运行macros时,才能正确更新。 我有以下的VBA代码。 Private Sub UserForm_Initialize() Dim cod As Range Dim pro As Range Dim cli As Range Dim ws As Worksheet Dim ws5 As Worksheet Set ws = Worksheets("ListaProductos") Set ws5 = Worksheets("ListaClientes") For Each cod In ws.Range("CodigoProductoLista") With Me.codigo .AddItem cod.Value .List(.ListCount – 1, 1) = cod.Offset(0, 1).Value End With Next cod For […]