Tag: excel 2010

拒绝保存好像单元格没有值

我有一个脚本，用于保存基于两个单元格/命名范围（FailReportSN和FailReportDD）的内容的Excel模板。 我的问题是，最终用户并不总是记得在运行下面的save脚本之前将值input到这两个单元格中。 我需要做的是修改我的当前脚本，只保存两个单元格中的值。 Sub saveAsFATPMM() Dim PathMac As String, Path As String, FolderPath As String If Application.PathSeparator = ":" Then FolderPath = "Volumes:Server:Groups:METI:Quality Control:METIman:" PathMac = FolderPath & Sheets("Failure Report").Range("FailReportSN").Text & _ " – FATP – " & Sheets("Failure Report").Range("FailReportDD").Text & ".xlsm" 'Format(Date, "mm-dd-yy") ThisWorkbook.SaveAs Filename:=PathMac, FileFormat:=53, CreateBackup:=True Else FolderPath = "\\server\server\Groups\METI\Quality Control\METIman\" Path = […]

禁止在电子邮件validation公式中使用“@”以外的特殊字符

我有这个公式validationExcel的电子邮件地址： =AND(ISERROR(FIND(" ",[Send Report To],1)),IF(ISERROR(FIND("@",[Send Report To],2)),FALSE,AND(ISERROR(FIND("@",[Send Report To],FIND("@",[Send Report To],2)+1)),IF(ISERROR(FIND(".",[Send Report To],FIND("@",[Send Report To],2)+2)),FALSE,FIND(".",[Send Report To],FIND("@",[Send Report To],2)+2)<LEN([Send Report To]))))) 但是，当我input这个电子邮件ID： sandy,rocks@gmail.com或sandy.rocks@gmail,co.uk时会失败。 任何人都可以修改上面的validation公式，以避免电子邮件地址中的逗号等特殊字符？

将行复制到另一个电子表格上的下一个空闲行上进行更改

首先，对于macros和VBA，我是一个小菜鸟，所以请原谅我，如果我没有意义。 我有一个Excel电子表格，基本上是一个用户列表，他们的手机号码和一些其他位（目前使用AK列），并按行sorting。 我需要的是复制整行的方式，如果我改变一个单元格。 所以，如果我更改用户名，它将该用户的整个行复制到第二张纸上的下一个空白行。 这样做的目的是保持审计线索，让我们看看谁以前使用过一个号码等等。 我发现这一点： 复制行到Excel中的另一个工作表使用VBA这是按预期工作，但我不能为我的生活得到它，复制单元格到下一个空闲行，或B，不覆盖现有的条目。 这是我正在使用的代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Range, rw As Range For Each a In Selection.Areas For Each rw In a.Rows If rw.Row >= 2 Then rw.EntireRow.Copy Sheet2.Cells(2 + (rw.Row – 2) * 3, 1) End If Next rw Next a End Sub 我真的很感激，如果有人可以帮我定制它。 我在Win7上使用Excel […]

在单元格中input数字，并使用2D范围在数组中search该数字

我正在协调帐户，并想知道是否有一个公式/ VBA我可以用来search某些值，因为查找function不起作用？ 例如：input-54.12到一个单元格中，公式/ VBAsearch该数字的数组。 这可能会更好地解释我想要达到的目的，尽pipe比编码更多的是解释： Sub Test() Dim Value As Integer Dim Account As Range Dim Lookup As Boolean Value = Range("D8") Account = Range("E:E") Set Value = A Set Account = B ' IF A is present in B then look up = true ' if look up is true then scroll to cell […]

根据数值突出显示X个单元格

我在Excel中创build一个度假跟踪器。 第一个工作表从SharePoint的数据中提取开始date，结束date和date差异计算。 Sheet1 A2=12/16/2015 B2=12/20/2015 C2=5 第二张是数据的可视化。 它从单元格B1开始并且出去90天。 这是date的字表示。 以下是我使用的公式=UPPER(TEXT(B2,"DDD")) Sheet2 B1=WED C1=THU D1=FRI E1=SAT F1=SUN 下一行总是B2有一个总是今天的date的公式。 从那里我添加一个date，将date增加到90天。 B2=Today()和其他单元=B2+1等等 B2=16 C2=17 D2=18 E2=19 F2=20 我想要做的是在Sheet2突出显示start date和end date 。 例如，老板从12/16/2015年12/20/2015 12/16/2015 12/20/2015至12/16/2015年12/20/2015 12/16/2015 12/20/2015休假。 我需要用红色突出显示Sheet2上的单元格B3-F3 。 从2015年12/17/2015至2015年12/17/2015假期的秘书的细胞以C4-E4.另一种颜色突出显示C4-E4. 这可能需要一些VBA我只需要一个起点。 我尝试使用VLOOKUP来拉取数据，但是使用另一个表格的范围不起作用。 说实话，我不知道这是否是正确的做法。

Excel VBA移动所有图像

我在Excel 2016中使用incrementleft来移动名为“Bullet”的所有图像 码： Worksheets("Fighter Game").Shapes("Bullet").IncrementLeft 18.75 但是代码只是移动了第一个图像。 那么我们如何解决这个问题呢？

在其他工作表中引用下拉列表值

我有一个多个下拉列表，select一个特定的文本值的工作表。 当我在另一个表单中引用这些单元格时，我得到与所选值相对应的数字，而不是数值本身，例如。 我在我的下拉列表中select了一个名称，它是该列表中的第二个值，所以当我引用这个单元格时，在另一个表格中得到“2”。 我已经尝试了价值函数，但无济于事。 我怎样才能显示在这张新表中的实际值，而不是检索列表中的值的数字？ 感谢您的时间。

Excel可以查找变化字段的三个字符

对于我的工作，我创build了一个VBA代码，用于将显示当月采购的报表添加到包含所有帐户和库存的主工作表中。 我需要从采购订单编号中提取该地区，但这取决于采购types。 该地区将始终是6位数字左侧的前三个字符： ABC 123456A。 在这种情况下，我需要提取字母ABC。 但是，这取决于订单的types。 有些订单会在前面的订单号码和一个下划线（如XYZABC_ ABC 123456A）中添加一个子区域。 如果订单是换一个新账户的话，右边的最后一个字母就是A，如果订单是托运的话就是C，但是如果是矫形器和假肢，它会变成OP： ABC 123456OP 我需要一个公式来帮助我具体提取那些在字符数可能不同的情况下在6位之前出现的三字母区域。 请帮忙。

在Excel数据透视表中将不同的SlicerCache分配给切片器

我有两个数据透视表与相同的数据透视表和类似的切片器组。 一些切片器控制两个数据透视表，这意味着例如对于PivotField [月]，共有共享相同的SlicerCache的2个切片器。 现在我需要“不同步”这些切片，以便每个控制它自己的数据透视表。 我不能右键单击切片机，并通过“数据透视表连接”，因为在一个切片机中所做的更改将反映在另一个。 所以我创build了一个新的SlicerCache： ThisWorkbook.SlicerCaches.Add ws.PivotTables(2), "[Month]" 并且想要将这个新的SlicerCache分配给其中一个切片器，但是这两种方法都失败了： oSlicer.SlicerCache = ThisWorkbook.SlicerCaches(38) 'Object doesn't support this property or method oSlicer.SlicerCache.Index = 38 'invalid property assignment 有任何想法吗？ 我知道我可以通过删除和重新创build其中一个切片器来实现这一点，但是它必须以编程方式完成。

Excel 2010 – macros检测单元的特定内部颜色并产生结果

我用一个调用macros的命令button创build了一个Excel电子表格。 该macros通过Microsoft Outlook生成新的电子邮件，提供数据列表，特别是A5到A500的单元格数据，其颜色为RGB（255,255,204）。 但是，我没有得到准确的结果。 macros不是专门捕获指定内部颜色的单元格中的数据，而是从交替颜色的单元格中提供数据。 这可能是我的一个逻辑错误。 这是我目前正在使用的代码： Private Sub btnReport_Click() 'Create Email Message Dim r As Range Dim m As String Set r = ActiveSheet.Range("A5:A500") m = "Hello,<br><br>Here is some information:<br><br>" & _ "<table border=""1"" style=""width:98.7%"" align=""left"" ><tr style=""vertical-align:top;""><td style=""width:9.3%"" nowrap>" & _ "<b>Column 1</b></td><td style=""width:10%"" nowrap><b>Column 2</b></td><td style=""width:10%"" nowrap><b>Column 3</b></td></tr>" For Each r In […]