Tag: 格式

为什么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”？

Excel VBA – 从格式不正确的date中提取正确的date？

我目前正在学习VBA编程，遇到了以下情况，希望能对你们有所帮助。 理想情况下，不仅仅是寻找解决scheme，还要理解解决scheme的工作方式和原因。 假设有一个数据库可以导出数据的电子表格。 其中一列具有date值，但从导出格式错误。 系统发送date为mm / dd / yyyy hh：mm AM / PM，例如， 04/11/2014 09:24 AM ，但电子表格将其标识为dd / mm / …，表示它进入04作为一天，11作为一个月。 在本专栏中，如果一天在本月12日之前或之中，则该单元格将被格式化为date。 如果一天过了12日，这个单元格将被格式化为一般格式。 我的问题是，我可以编写一个VBAmacros，可以反转date和月份的值，并在新的列中创build正确的date？ 我认为它首先必须确定一个单元格是否被格式化为date，然后以某种方式将date和月份提取到正确的位置，或者将其格式化为一般格式，然后使用不同的代码来提取正确的date。 如果这对于这个社区来说太基础了，还有另一个更适合的社区，我会很乐意在那里重新发布我的问题。 编辑： 在我的评论下面我玩了function，并寻找其他类似的function，可以帮助做我所需要的，切换date值的月份值，到目前为止，我有： 'for dates with general format: 04/14/2014 11:20 AM =DATE(MID(A1,7,4),LEFT(A1,2),MID(A1,4,2)) 'in a column for the date =TIME(MID(A1,12,2),MID(A1,15,2),"00") 'in a column for time, since I may need this 'for […]

在Excel中帮助完成用户表单的VBA代码

我对整个用户表单和VBA是一个新东西，但一直试图弄清楚如何在最后一天左右做一个，之后有很多YouTubevideo和Googlesearch，但我仍然没有find答案。 我从来没有写过任何代码，所以我知道我已经在我的脑海里了。 我在Windows 8笔记本电脑上使用Excel 2013。 我试图build立一个用户input值的基本计算器，select计算，它产生的结果为某人手写日志。 我有一个Excel电子表格中的公式和计算，但是我想要一些比这更专业的东西。 左侧的所有数据（干重，燃油input，燃油输出，发动机起动时间，起动时间和着陆时间）由用户input。 右侧的所有数据（起飞重量，着陆重量，发动机运行时间，飞行时间，耗油量，燃油燃烧）都需要从左侧input的值中计算出来。 我能够find如何做这些button的计算，重置和退出function，甚至已经计算出如何计算发射重量，着陆重量和耗油量。 我很难find代码来计算时间。 到目前为止，这里是我有的代码 – Private Sub CalculateButton_Click() LaunchWeightCalculation = Val(DryWeightEntry.Value) + Val(FuelInEntry) LandingWeightCalculation = Val(DryWeightEntry.Value) + Val(FuelOutEntry) FuelConsumedCalculation = Val(FuelInEntry.Value) – Val(FuelOutEntry) End Sub Private Sub QuitButton_Click() Calculator.Hide End Sub Private Sub ResetButton_Click() Unload Calculator Calculator.Show End Sub Private Sub UserForm_Click() End Sub 这里是我所有的input框名称 – DryWeightEntry […]

如何将date格式更改为月（缩写文本）

我如何将2013年2月25日至2月的合成date更改？ 意思是在这里，它只提取缩写月份。 我尝试使用这个代码，但它并没有工作，它将二月到七月 Sheet1.Range("A2:A9") = Format(Date, "mmm")

适用于Excel的HTML剪贴板格式

我写我的应用程序的导出工具从表中复制几个单元格，并将该单元格粘贴到Microsoft Excel（谷歌文档，libreoffice钙）。 我使用内容types的文本/ HTML我的剪贴板复制单元格背景颜色。 如何标记来源（我的应用程序）中的表格单元格，以不覆盖目标（即Excel中）足够的单元格 示例复制scheme是：（＃是任何值，而不是 – 覆盖值） ###-# -#### —## ##### 现在，如果我只填写空的<td></td> ，当我将表格粘贴到excel中时，单元格将覆盖现有的单元格并将它们清空。 它可以工作，如果我使用内容types的文本/ CSV，因为我可以把许多分隔符（即\t ）没有传递的价值，即： #\t#\t#\t\t\t\t# //some values are omitted #\t#\t#\t#\t\t\t //some values are omitted 是否有可能把表格放入HTML剪贴板？ 表格包含一些空单元格，并且空单元格在粘贴到Excel时不应覆盖非空单元格。

Excel VBA – “mmmm”格式的月份

我需要使用“mmmm”格式的当前和上个月，我发现最好的解决scheme是MonthName(Month(Date)) 。 但是，Excel不断给我： 编译错误：对象必需 这让我疯狂。 我对VBA很新，所以任何人都可以解释我在这里做错了什么？ Sub test() Dim CurrentMonth As Variant Dim PreviousMonth As Variant Set CurrentMonth = MonthName(Month(SetupSheet.Range("C9"))) '<——-HERE Set PreviousMonth = MonthName(Month(SetupSheet.Range("C9") – 1)) … End Sub

Excel：input时间的自动格式时间

我为我的业务input时间和日志，以计算访问我的网站的个别承包商公司的总工作时间。 我们从上午六点半到下午五点。 Excel自动将数据格式化为AM，但12：00-12：59正确地假定为PM。 我需要excel来认识到在12:00到5:00之间的任何时间都是PM。 这将使我无需为每个“超时”键入PM，而这在一年的时间内将会节省我的时间。 我不确定如何做到这一点。 我在猜测一个if / thenmacros吗？

根据现有的格式重新格式化Excel 2010工作表

我从另一个应用程序得到一个excel输出。 不幸的是，它不是我想要的格式。 这些列是固定的，但行，行内容和行格式根据报告内容而有所不同。 问题是，能够“阅读”Excel电子表格的现有格式，对文本进行重新格式化，以及优化“强调等”的最佳方式是什么？ 然后build立我想要的excel？ 我认为这是VBA，但经过一段时间的研究后，我不相信这是答案。 有什么意见？

结果慢自动化

我的excel文件不能正常工作，因为花费1分钟以上的时间总计1 + 2。 我删除了所有有条件的格式，但问题仍然存在。 我也没有使用VLOOKUP公式，因为我读过，也可能会造成麻烦。 该文件位于这里 – LINK 我会为任何forms的反馈gratefull！ G

格式化VBA – 在部分之间添加空格

我有这个代码运行良好，循环通过一个文件夹，打开一个文件，将文件的名称打印到我的主文件 （ 该文件的代码和所有我的最终信息将去 ）列1，打印2列（ 因为我使用End（xlUp）获取列中存在的所有信息 ）从列表2到列3中，并将单元格J1从文件打印到主文件中的列4。 我的问题：只有一个文件的名称，一个J1单元格，但第2列和第3列中有多个条目。我需要将其分隔出来，以便名称和J1打印在每个新条目的顶部。 我附上照片来解释我的意思。 第2列和第3列应该在相应的文件名旁边列出（最好在每个新文件之间有一个额外的空格）。 （ 我用颜色编码，只是为了显示我的意思 ）图片1：它看起来如何（所有的信息都只是倾倒在每一列中）图片2：我想如何看它（文件名是如此水平分布的，所有的信息对应于相同的文件） 输出这些数据的代码也在下面。 非常感谢您给我的任何帮助/指导！ 图片1： 图2： Option Explicit Sub LoopThroughDirectory() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim StartSht As Worksheet, ws As Worksheet Dim WB As Workbook Dim i As Integer Dim LastRow As Integer, […]