Tag: excel 2010

VLOOKUP – IF语句 – 列比较 – 是或不需要结果: 最后一个问题得到了如此快速和准确的回答，我想我会再给它一个！所以在列A中，有一个杂志名称列表。在C列中有一个广告商的名字列表。杂志标题和广告客户名称可能会重复，如下所示… 时代杂志（A栏）……..亚马逊（C栏）时代杂志（A栏）……..亚马逊（C栏）福布斯（A栏）…….. Google（C栏）福布斯（A栏）……..亚马逊（C列）在单元格A1中的一个单独的工作表中，我有一个数据validation下拉列表，前面提到的列C中的广告商名称。我正在input一个公式，它将查找通过数据validation下拉列表select的广告商名称，并告诉我是或否，以确定他们的名字是否与A列中的特定杂志标题（例如“福布斯”）相关联。所以在上面的例子中，我希望能够从我的数据validation下拉列表中select广告客户“Google”，看到一个YES，表明他们在福布斯做广告。希望这是有道理的！

将地址栏拆分为三栏，空白: 我有一个客户数据的.xlsx文件，20列宽，约16,000行。列J是Customer address ，但是，此列中的每个条目都是三行： name ， address line 1和address line 2 。许多条目在各行中有一个或多个空格。如何维护其他列中的所有数据，并将J列分成三列（ name ， address line 1和address line 2 ），并允许空白保留为空/ NA / 0？

保护Excel工作簿免于在外部networking中打开: 我有一个Excel工作簿，我需要与我的客户分享，但要确保它不在办公室networking之外打开。如何保护我这样的Excel工作簿？

跳过某些数字的顺序: 在Excel 2010中，我有一个以前使用的序列号列表，我想保留，我需要创build一个以我提供的数字开始的公式，但绕过保留在我的预留名单。序列号和保留清单号码都可以是数千个条目。我保留的序号是：如果我给我的序列起始数字为150，我想我的序列号分配如下：序列跳过数字156和231 。我已经看到了创build自定义列表的方法，但是正好相反。我怎么能做到这一点？

如果范围中的其他人有未来date，则突出显示一个单元格: 我想突出标题中的一个特定单元格，作为表单中未来date的可见指示符，可能是看不见的。数据通常包含400行数据其中一个标头调用包含今天的date（ =TODAY() ），并在条件格式化公式中使用，以突出显示与其他标准匹配的行，并可能有未来的date。这个单元格（L1）是我想标记一个不同的颜色，如果有一个未来的date行。数据并不总是包含未来的date。因此，我想要一个指标，警告如果有一个行包含未来的date（date在D列）。有关如何解决这个问题的任何build议？数据如下所示： Microsoft Office Professional Plus 2010

提示值，然后复制但添加文本: 我写了一个macros，提示用户input名称，然后input数字。这用于填充标题行之后列G中的前3个单元格。我真正需要的macros，然后重复这下三行，但添加10用户input的数字。 Sub Set_Tag() Dim Tag, TagName As String Dim x, TagNum As Integer TagName = InputBox("What is the product tag name? Ex. Apple", "Tag Name") TagNum = InputBox("What is the first product tag #? Ex. 500", "Tag #") Tag = TagName & "_" & TagNum x = Application.WorksheetFunction.CountIf(Range("J:J"), " ") ActiveSheet.Range("G2").Value = TagName […]

在复制行时存在error handling: 跟着我的post如果单元格的值匹配UserForm ComboBox列，然后复制到工作表。我设法让代码工作，移动检查名称，然后移动到正确的工作表。我遇到的问题是检查表单是否存在。如果在combobox的表格和列2中find匹配项，但没有该值的表单，则会崩溃代码。一旦所有的信息被复制到相关的工作表，我希望它显示一个msgbox告诉用户有多less行数据已被复制到相应的工作表。 Dim i As Long, j As Long, lastG As Long, strWS As String, rngCPY As Range With Application .ScreenUpdating = False .EnableEvents = False .CutCopyMode = False End With On Error GoTo bm_Close_Out ' find last row lastG = sheets("Global").Cells(Rows.Count, "Q").End(xlUp).row For i = 3 To lastG lookupVal […]

错误91：对象variables或未设置块variables: 我有以下代码在Excel 2007中正常工作。但是，它在Excel 2010上给出以下错误：错误91：对象variables或未设置块variables。任何想法如何解决？我检查了其他职位没有运气。更新：请注意，如果包含vba代码的工作簿是activeworkbook，代码工作正常。但是我正在做的是打开另一个工作簿，然后按F3（运行此代码）。那是当它失败的时候。所以基本上iif工作簿与代码是积极的，它的工作原理，如果它是另一个工作簿是积极的，它会给出错误。 Sub Process_current_Sheet() Dim WS_Count As Integer Dim i As Integer Dim sheet_name As String WS_Count = ActiveWorkbook.Worksheets.Count nameofworkbook = ActiveWorkbook.Name ' Begin the loop. For i = 1 To WS_Count If InStr(ActiveWorkbook.Worksheets(i).Name, "xxx") > 0 Then sheet_name1 = activeWorkbook.Worksheets(i).Name End If Next i End […]

SUMIF公式几个月: 如果我想总结一个特定的范围取决于它是哪个月，我该怎么办？所以，如果一个范围内的月份与今天的月份相同，那么我希望它总和一个范围。我有这个代码 =IF(TEXT(TODAY();"MMMM")=A:A; SUMIF($B:$B;"X*"; C:C); "") 'SUMIF（$ B：$ B;“X *”; C：C）; “”）`这工作正常，但如果我把“如果”之前没有任何工作。

根据星期几突出显示列: 我正试图做下面的例子的条件格式。我想强调基于星期几的某些列/单元格。例如，如果date是星期二，那么我想要WeHo ， Sunset ， WW ， MB ， Irvine ， BrentW ， Cienega和Hun B列。如果可能的话，我希望将一周中的某一天作为A2单元格中的既定date，因为我们在前一天（星期一工作，但单元格高亮，好像实际date是星期二）一样工作。