Tag: 格式

自动打印1-5行，然后每页6-10等: 我有一个慈善机构将提供感恩节晚餐的750个家庭地址的优秀列表。我需要给150个不同的司机一个5页的家庭。有没有办法在一页上自动打印1-5行，然后在下一页上打印6-10行，直到所有的750个家庭打印出来？尝试使用大的底部边距，但不能一致地工作，因为一些行有关于其他人的家庭的大量文本。

无法使颜色select器在Excel 2010 64位中工作: 您好，我正在努力获取Excel 2010 64位更新的VBA代码。我已经检查了所有，包括StackOverflow这里一个翔实的职位： StackOverflow问题我明白我必须声明PtrSafe并创buildLongPtr和LongLong适用，但我得到一个“编译错误。types不匹配”的“.rgbResult”部分私人职能代码。任何任何和所有的帮助将不胜感激。我的代码如下： Option Explicit #If VBA7 Then #If Win64 Then Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As LongPtr Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Type ChooseColor lStructSize As LongPtr hwndOwner […]

格式化一个图片对象: 我有一个对象，我可以使用下面的代码来select和移动： ActiveWorkbook.Worksheets("Sheet1").Shapes.Range(Array("test")).Select 随后是需要执行的任何方法。我现在试图格式化这个对象，使它没有填充和没有行，但不知道如何做到这一点。我曾尝试录制macros并在线search，但无法find适用于此对象的任何内容。

导入工作表时，date更改为数字格式。 Excel VBA: 任何人都知道如何解决这个问题？在导入数据之前，打开的date似乎很好，这是格式： Release Date Created 24/04/2014 10/03/2014 20:32 但是，在我的工作簿中导入新的工作表后，date会变成下面显示的5位数字。 Release Date Created 41753 41708.85556 如何在导入到我的表单中时解决问题？以下是我的代码导入工作表到我的项目。 Sub ImptSht() Dim altwb As Workbook Dim FilePathalt As String Dim activeWB As Workbook Set activeWB = Application.ActiveWorkbook FilePathalt = "C:\DataSheet\workbook.xls" Application.ScreenUpdating = False Application.DisplayAlerts = False Set altwb = Application.Workbooks.Open(FilePathalt, Local:=True) altwb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count) altwb.Close False activeWB.Sheets("shet").Cells.AutoFilter activeWB.Sheets("shet").Cells.ClearFormats Application.ScreenUpdating […]

用数字和数字对数字值进行四舍五入: 任何食谱的“智能”数字格式公式是“规模意识”，一个Rails的ActionView的distance_of_time_in_words方法？我期望input一个数字，如：1,816,724，见1.8M （或input2,394，见2.4K ）。

Excel以毫秒显示自定义date格式: 我有CSV这样的date 2015-08-04 10:09:25.940 这个值的默认Excel表示是 09:25.9 你能否提供确切的步骤来强制Excel显示一些健全的？

页眉页脚格式和公式: 我想将单元格引用到另一个工作表中，并将其放在中间标题中，并将其格式化为特定的字体和大小。接下来，我想采取正确的标题，并有我的报告的名称作为顶部，具有特定大小的粗体字体，而下面的行有一个单独的大小，而不是粗体。如下所示：合规性报告（这不需要单元格引用，它可以保持不变）。保单date2014 | 2015年9月30日（这个帐户的变化，需要来源范围。）我从这个代码开始： Sub header() With Worksheets("Sheet1").PageSetup .RightHeader = Worksheets("Compliance Report").Range("a99") _ & Chr(10) & Worksheets("Compliance Report").Range("a100") End With End Sub 它用于获取两行数据，但我无法格式化它。如果有更好的select，我不会拘泥于这个公式。

将导入的列从文本字段转换为数字: 我正在寻找一种方法来将文本转换为数字，然后可以在其他公式中进一步使用。我的列看起来很简单： Data1 Data2 1 1 123 1324 1000 1000 … … 我尝试了几种方法： Range("S:S").NumberFormat = "0" Range("T:T").NumberFormat = "0" 或复制一个空单元格，并将其添加到范围： Sheets("Sold_Portfolio").Range("ZZ100000").Copy Sheets("Sold_Portfolio").Range("T3:T100000").PasteSpecial , xlPasteSpecialOperationAd 但是，除了看到正确的types，只显示在Excel底部的计数。任何build议如何正确地将Excel列转换为数字，然后可以由其他公式进一步使用？我的错误是什么？更新在这里你可以find完整的VBA代码： Sub selectFile() Dim wbI As Workbook, wbO As Workbook Dim wsI As Worksheet Set wbI = ThisWorkbook 'sheet where you want to import the sheet in Set […]

在vba excel中的userform中dynamic读取dynamic命名的文本框的语法？: 我dynamic地创build一个名为UserForm1的用户表单。其中，我生成的文本框，将由用户手动填充。之后我想阅读他们的价值，但我不知道如何调用（的价值）的文本框。以下代码用于创build和命名文本框： With UserForm1 'scaling userform .Height = max_width .Width = 600 End With For test1 = 1 To nr_of_zeros + 1 'create textboxes Set ctextbox = Controls.Add("forms.textbox.1", test1) 'creating textbox With ctextbox 'scaling textbox .Height = 20 .Width = 40 .Top = 40 + 25 * test1 .Left = 400 End With […]