Tag: 格式
excel条件格式至less有一个
我需要在Excel中进行条件格式化。 我有5列的数据，其中是或否 ABCDE 1 Yes No No No No 2 No Yes No No No 3 No No No Yes No 我需要标记一行（或者只是一个字段） – if there is more than one Yes in a row – if there is no Yes in a row 如何？
Excel单元格由SQL查询中的大量文本混淆
我有一个SQL查询返回几件事情，包括电子邮件发送的date和时间，以及该电子邮件的正文。 但是，当我将数据复制并粘贴到Excel中时，电子邮件的正文并不停留在一个单元格中，而是占用多个单元格，多次跨越多行。 我最近没有用过文字到列。 有谁知道如何解决这个问题？ 谢谢！
find2个字符之间的任何内容，并在vba格式
我想find一个2个字符之间的文本，并格式化文本只是例子：cell a1 = hello！ 这是testing！ 我只想改变感叹号之间的部分。 Sub Macro2() Dim varFound As Variant, varSearch As Variant Dim strAddress As String, intPos As Integer varSearch = "!*!" Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart) If Not varFound Is Nothing Then strAddress = varFound.Address Do With varFound Do intPos = InStr(intPos + 1, .Value, varSearch, vbTextCompare) If intPos Then […]
Excel – 使用组合（值和格式）条件查找和replace
我想清空并将单元格格式设置为General，以便表单中的所有单元格： 包含“MyText”和 被格式化为百分比 我正在使用查找和replace对话框（CTRL + H），但是： 如果我将“replace为”框留空，则只更换格式; “MyText”还在; 如果我在“replace为”框中写入“SomeText”，则还会执行文本replace以及格式replace 它看起来像我一次不能得到两个replace（空文本和更改格式）。 有没有通配符可用于“replace为：”字段？ 或者任何其他简单的解决scheme呢？ 更新：我试图录制一个macros。 这是文本和格式replace： Application.FindFormat.NumberFormat = "0.00%" Application.ReplaceFormat.NumberFormat = "General" Cells.Replace What:="MyText", Replacement:="nothing", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ ReplaceFormat:=True 但如果我删除replace文本，它只会做格式replace（这是有道理的一点，但这不是我想要实现的） Application.FindFormat.NumberFormat = "0.00%" Application.ReplaceFormat.NumberFormat = "General" Cells.Replace What:="MyText", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ ReplaceFormat:=True
如何在Excel中突出显示不符合确切格式的单元格？
当试图从Access数据库文件导出数据到SQL Server 2012时，我收到错误的数据错误。 经过调查，我发现表和列，这是造成一个错误。 该列包含date“mm / dd / yyyy”格式的数据，而且好像有一些错误的条目。 目前我正在尝试查找错误的数据，但有4000多行数据。 作为出路，我决定使用Excel来使用它的条件格式。 但是，我无法find/创build一个适合我需要的规则。 所以我想问，在我移动寻找别的之前： 有没有一种方法（公式或规则）来突出显示不正确格式的单元格？ 例如，我需要格式“mm / dd / yyyy”，因此01/01/2016将是正确的，而1/1/2016或01/01/16将会突出显示。
导出到Excel – 将DateTime列设置为Date
我的应用程序中有导出到Excelfunction。 程序本身没有问题，但是在导出数据时，它显示DateTime值为dd/MM/yyyy 00:00:00 ，在导入之前在DataGridView上显示它们时，在某些地方显示空单元格。 我需要调整我的导出代码以删除数据的时间部分，并只显示date。 当我在Excel中突出显示单元格时，我将它格式化为dd/MM/yyyy格式的“date”。 我该如何编程？ 我的代码 Dim xlapp As Excel.Application Dim xlWorkbook As Excel.Workbook Dim xlWorksheet As Excel.Worksheet Dim misvalue As Object = Reflection.Missing.Value xlapp = New Excel.Application xlWorkbook = xlapp.Workbooks.Add(misvalue) xlWorksheet = xlWorkbook.Sheets.Add xlWorksheet.Name = "SupplierInformation" xlWorksheet.Cells.NumberFormat = "@" For k As Integer = 1 To dgvExport.Columns.Count xlWorksheet.Cells(1, k) = dgvExport.Columns(k – […]
颜色格式化每隔一行
我能够find堆栈溢出两个代码，但没有得到它给一个浅灰色格式的行，其次是白色的行，帮助将不胜感激，尝试两个代码 Sub Colour(rng As Range, firstColor As Long, secondColor As Long) rng.Interior.ColorIndex = xlAutomatic rng.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=0" rng.FormatConditions(1).Interior.Color = firstColor rng.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)<>0" rng.FormatConditions(2).Interior.Color = secondColor End Sub 'Usage: ' Sub ColourFormatting() Dim rng As Range Dim firstColor As Long Dim secondColor As Long Set rng = Range("A1:E10") firstColor = Pattern = xlSolid: PatternColorIndex = […]
VBA从Excel中的空单元格中删除格式
我需要一个快速的代码来清理所有空单元格的格式。 我已经写了这个代码，但是它太慢了。 有没有办法让它更快？ Sub removeFormatEmpty() 'Declaration of variables Dim sheet As Worksheet Dim rcell As Range For Each sheet In Worksheets sheet.Activate 'Cells.UnMerge For Each rcell In sheet.UsedRange.Cells If rcell.MergeCells = True Then rcell.UnMerge End If If rcell.Value = "" Then rcell.ClearFormats End If Next rcell Next sheet End Sub 这个代码的工作原理，但它慢，因为它需要逐个细胞。 有没有一种方法可以select整个范围除了含有内容的单元格？ 更新：感谢bobajob和jordan的评论我已经能够更新代码，并使其更快，更优化。 这是新的代码： Sub […]
为什么当我使用“Format（string_variable，”###。＃“）”并且string_variable的值被设置为0.0时，VBA会引发“types不匹配”错误
我的股票交易代码格式的价格变化（单个variables）传输到我的手机，并限制无意义数字的数量。 当价格变化为零时，模块引发“types不匹配”错误。 所有非零值工作正常。 我写了一个简单的模块，展现了这种行为。 Sub test_format() Dim test_single As Single, output As String test_single = 0# output = Str(Format(test_single, "###.#")) Debug.Print test_single; output End Sub
该格式不适用于Excel表格
我正在WinformsApplication，在那个应用程序中我有一个网格控件。 在GridControl中，我有一个格式为“F2”的双types列。 当我试图将网格导出为excel时，将显示格式（F2）而不是值（例如55.78）。 但是如果我设置格式为（0.00）而不是（F2）。 它的工作正常 。 请让我知道，为什么“F2”格式不适用？ 或者是否可以通过excel支持“F2”？
