Tag: 格式

Excel表单列不包含date列中的时间但仍显示在DataGridView中使用c＃

我将Excel工作表导入到DataGridView中。 我的Excel表单包含一个date列，其值为12-05-2014。 导入到DataGridView后显示12-05-2014 00:00:00。 让我怎么才能在Windows应用程序DataGridView中显示date不定时

从Excel导出到txt保存特殊的date格式

我一直在使用一个代码来将数据从excel复制到.txt中去除任何不需要的字符，input到另一个应用程序： Public DirRoot As String Public CasNam As String Public Sub Export() Dim intUnit As Integer Dim rngRow As Range Dim rngCell As Range Dim strText As String intUnit = FreeFile DirRoot = "C:\temp\" CasNam = "Test" Open DirRoot & CasNam & ".txt" For Output As intUnit 'End If With Worksheets("Export").UsedRange For Each rngRow In […]

Excel 2010中的条件格式 – 着色行

我试图在Excel 2010电子表格中使用条件格式。 电子表格有七列数据，但格式化只有前三个是相关的。 前两个是date，第三个是input“是”或是空白。 如果以下情况属实，我想要突出显示一行电子表格： 或者今天的date是在A列inputdate之后两天以上，B列是空的，而C列是空的 或者今天的date是B列入date后两天以上，C列是空的。 我试图使用的公式是 OR（AND（（TODAY（） – $ A2）> 2，ISBLANK（$ B2），ISBLANK（$ C2））和（（TODAY（） – $ B2）> 2，ISBLANK（$ C2））） 但在电子表格中没有任何内容。 除了一些基本的例子，我不太熟悉条件格式，所以我试图修改我在互联网上find的公式。 因此，我真的不明白我的公式出了什么问题。 提前感谢您的任何build议。

将文本文件转换为带分隔符和文本格式的列vbscript的excel

我想通过VBScript将.txt文件转换为Excel。 我有一个angular色，我想分隔“|”。 我还想在文本打开之前将列数据格式化为文本。 这是我目前正在使用的减去列数据的格式作为文本。 Const xlDelimited = 1 Const xlOpenXMLWorkbook = 51 xl.Workbooks.OpenText "C:\project\project.txt", , , xlDelimited, , , , , , , True, "|" Set wb = xl.ActiveWorkbook wb.SaveAs "C:\project\project.xlsx", xlOpenXMLWorkbook, , , , False wb.Close xl.Quit 在打开文本文件之前，我需要格式化列数据的帮助。 我不知道如何去做这件事。 在打开文件后，我试图将文本格式设置为文本，导致从零开始的数字数据丢失。 任何帮助将不胜感激。 先谢谢你。

Excel折线图只有唯一的date

我有一组数据如下： Date Amount 8/8/2013 $0.00 8/16/2013 $1.60 8/16/2013 $2.40 8/16/2013 $4.40 8/16/2013 $8.40 8/16/2013 $8.40 8/17/2013 $6.40 8/17/2013 $5.40 8/17/2013 $6.20 8/17/2013 $7.00 8/22/2013 $7.80 8/22/2013 $6.80 8/22/2013 $5.80 8/22/2013 $4.80 我有一个折线图来显示金额随着时间的推移。 我遇到的问题是，图表显示了8/16/2013而不是一个的4个不同的数据点。 我希望图表显示4个数据点，这将是每个唯一date的最终金额，如下所示： Date Amount 8/8/2013 $0.00 8/16/2013 $8.40 8/17/2013 $7.00 8/22/2013 $4.80 我怎样才能得到图表来做到这一点？

减less代表增量0.0625的分数

使用Excel的Mac。 我想要公式将十进制数舍入到分数。 我想要的最小增量是1/16 （我可以很容易地做到这一点），但是我希望在适当的时候自动减less十六分之一到1/8 ， 1/4和一1/2 （这里不做四舍五入）。 只有四舍五入到最接近的十六分之一。 （我有所有的小数四舍五入到最接近的1/16 ） 但是，那么减less分数，例如： 14/16 – 这应该成为7/8 12/16 – 这应该成为3/4 8/16 – 这应该成为1/2 所以最后，我会得到一个大的Excel分数表，有的小到1/16 ，有的大一些。 我将如何做到这一点？

如何通过Excel VBA代码更改通过Outlook发送的电子邮件的字体格式？

我有VBA代码，使用Excel通过Outlook发送一些电子邮件。 它将每个联系人的姓名input到电子邮件正文（亲爱的阿-），将公司名称/发票号码input主题行（公司ABC发票123），为每个联系人附上不同的文件（发票123.pdf ），将邮件标记为高度重要的，请求读取的收据，代表用于发票的辅助电子邮件帐户而不是我的个人电子邮件帐户，将BCC发送到辅助电子邮件，并且在底部添加电子邮件签名以图片。 大部分的代码（如果不是全部的话）来自这个美好的Ron de Bruin网站 。 我粘贴了很多代码来获取我的位置，不知道我是如何设法使其工作的。 我尝试了许多不同的“标签”，试图改变字体格式。 我试着改变Outlook的模板设置，并把代码输出，希望它会input“Outlook默认”字体。 我的代码中有样式标签，但没有太多的效果。 它被设置为Times New Roman Size 18。 作为Times New Roman Size 12的“Dear So-and-so”input。电子邮件正文input为Calibri 13.5。 我的签名input，无论我设置在签名设置。 我希望它是相同的字体，大小，颜色等 Sub Mail_Outlook_With_Signature_Html_1() ' Working in Office 2000-2013 Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim strbody As String Dim cell As Range Dim FileCell As […]

如何格式化Excel中的大数字，用两位有效数字四舍五入

我想在Excel中格式化大数字，只显示两个最重要的数字。 剩余的数字将被补充零。 例： 1234567将显示为1 200 000 和 1234将显示为1 200 使用格式＃＃“000”将显示1234567为1 235 000，但这不是我正在寻找，因为它不缩放到一位数字以下的数字。 像1.2 M这样的解决scheme并不是我所寻找的。 两种示例都应该使用相同的格式。 我不想四舍五入数字，只是围绕显示的值（格式）。

phpexcel风格不应用整张纸

我正在创build一个使用phpexcel库的行，我正在申请一些样式的行 $objPHPExcel->getActiveSheet() ->getStyle('A'.$row.':Q'.$row) ->getFont() ->setSize(14); , $objPHPExcel->getActiveSheet() ->getStyle('A'.$row.':Q'.$row) ->getAlignment() ->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER); 它应用了一些顶部3到4页，但其余的页面这种格式不适用kindly指导任何一个我如何解决这个问题，这对我来说非常重要。

使用vba Userform时格式问题

我以前在Excel中的时钟工作表中打了一个拳头。 在时钟冲的正常function是当我按下button，一个macros通过vba inbulidvariables时间（和date）查找时间（和date），并把它们放在定义的单元格中。 同样的情况发生时，我冲出来，但在这里它也计算每天的工作时间和与flextime运行的平衡 这部分工作正常 我最近想扩展我的程序，所以可以通过vba用户窗体更改特定date的时间（打入或closures），然后重新计算弹性时间平衡。 已经有可能让用户表单find并更改特定date的时间，但是当我尝试重新计算工作时间和弹性时间时，出现格式缺失匹配错误。 在debugging时，我将鼠标hover在variables上，可以看到已更改的单元格被格式化为hh：mm：ss，但现有单元格被格式化为十进制数，即使它们在工作表中显示为时间。 我怎么能格式相似？ Private Sub cmdOK_Click() Dim w1 As Worksheet Set w1 = Sheets("Aktuel måned") numofDateRows = w1.Range("I1").Offset(w1.Rows.Count – 1, 0).End(xlUp).Row 'find last cell with dates For i = 1 To numofDateRows If w1.Range("I" & i) = DTPicker1 Then 'find row with choosen date If chbInd.value = True Then […]