Tag: 标题

在VBA中查找标题: 我有一个函数在VBA中查找标题并select标题下方的列。它工作得很好，除了一个实例，我试图find一个CLIENT作为头的列，并不断select“CLIENT ID作为头（它就在它旁边）的列”我试图把东西放在函数来处理这个，但每次我尝试，它只是失败。任何帮助这个问题将不胜感激！ Function FindHeader(HEADER_NAME As String, sheetName As String) As Range Dim rngHeaders As Range Dim rngHdrFound As Range Const ROW_HEADERS As Integer = 1 Set rngHeaders = Intersect(Worksheets(sheetName).UsedRange, Worksheets(sheetName).Rows(ROW_HEADERS)) Set rngHdrFound = rngHeaders.Find(HEADER_NAME) If rngHdrFound Is Nothing Then MsgBox ("ERROR: Cannot find appropriate header.") Exit Function ElseIf rngHdrFound = "CLIENT" Then 'Handle Client […]

Word – Excel表格标题: 我已经从Excel中添加了一个表格到Word。该表太大，一页，分为两页。现在，当我添加一个标题时，这只会显示在页面1的顶部，而不会显示在页面2上。如何编辑它，以便我可以将类似 "Page1" Table1: Sales (table) *Page2* **++Table1: Sales (continued)++** (table continues)

从Excel列表中生成网页标题: 我在Excel的网站url列中，想要自动检索每个url的网页标题，并将它们放在第二个相应的列。我对VBA没有任何经验，但是想用VBA来做到这一点。有人可以列出一步一步来完成这个步骤？我要粘贴哪些代码？如何将代码指向正确的列来获取URL，以及如何告诉它填充结果的位置？我如何运行代码？我认为这是一个很受欢迎的问题，但是许多人并没有使用现有的文档来解决这个问题，因为他们和我有同样的问题 – 他们不知道如何加载和运行脚本。任何帮助将不胜感激！请尽可能详细。

页眉页脚格式和公式: 我想将单元格引用到另一个工作表中，并将其放在中间标题中，并将其格式化为特定的字体和大小。接下来，我想采取正确的标题，并有我的报告的名称作为顶部，具有特定大小的粗体字体，而下面的行有一个单独的大小，而不是粗体。如下所示：合规性报告（这不需要单元格引用，它可以保持不变）。保单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，我不会拘泥于这个公式。

在行上移调并重复列标题: 我有很多列的列表。我想重复每一行的列标题，并把所有的列只有两个。我从这开始：结果应该是：有没有人有任何想法，如果我能做到这一点？谢谢

Excel 2010中包含创builddate以及最近更新date的vba标题: 我需要在Excel 2010中创build包含创builddate以及最后保存date的标题。这是我迄今为止。我需要的是将创作date放入的作品（以下是我需要帮助的内容。 Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup .LeftHeader = "Date Created " & THIS IS WHAT I NEED HELP WITH .CenterHeader = "" .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy") End With End Sub

使用基于列名称的VBA将数据从一个Excel表复制到另一个（复杂）: 我对VBA很陌生，经过5个小时的观看video和谷歌search，我认为这是太过于我的头…任何帮助，非常感激。所以我有2个Excel工作表：Sheet1和Sheet2。我在Sheet1中有一个Y / N列，如果列=“Y”，那么我想复制该行中与Sheet2中具有匹配列名称的所有数据。 Sheet1 Product Price SalesPerson Date Commission Y/N A $25 John 1/9/15 $3 YB $20 John 1/12/15 $2 NB $15 Brad 1/5/15 $1 Y Sheet2 Price Product Date Salesperson 因此，对于每次Y / N = Y，然后将匹配的数据复制到sheet2，直到sheet1.col1为null（循环）。结果是这样的： Sheet2 Price Product Date Salesperson $25 A 1/9/15 John $15 B 1/5/15 Brad 这些列不合适，数量太多，无法手动input。然后最后但并非最不重要的Y / […]

Gridview – 使用返回数据的第一行作为头: 这是显而易见的，我讨厌问，我能find的唯一类似的问题在StackOverflow有-2评级。但我无法弄清楚，所以这里是：我的代码隐藏（C＃）从Excel电子表格获取数据并将其存储在DataSet中。我的gridivew使用DataSet作为数据源。工作正常，但我的标题名称只是“F1”，“F2”…. 我可以将第一行数据设置为我的GridView标题吗？我不能硬编码我的头，因为Excel文件的格式可以改变，我无法控制。我需要的是我的第一行数据显示为gridview标题。任何帮助？我可以发布我的一些代码，如果有必要，但这似乎是非常通用的问题。任何帮助将非常感激。

VBA从Excel中包括页眉，页脚和脚注在Word中replace: 我有一个Excel文件，我想要search – 通过Excel VBAmacrosreplace到Word文档中的一些数据。有两列：一列是我要查找的内容，另一列是replace文本。这工作正常。问题是，我想要replace头部，脚手架，脚印和注释。我已经尝试了一些代码与互联网的东西，但它不履行其使命…任何帮助？ Sub ReplacetoWord() Dim rngStory As Word.Range Dim lngJunk As Long Dim oShp As Shape Dim name_book As String Dim x As Variant Dim Filename As String Dim wArch As String name_book = ThisWorkbook.FullName x = Split(name_book, Application.PathSeparator) Filename = x(UBound(x)) Sheets("Generate_Report").Select wArch = Range("C3").Text & Range("C2").Text & […]

excel表单子标题作为列: 我对这种挑战是完全陌生的，并不确定任何可用的东西（甚至不知道我必须search什么基础）在下面的Excel表格图像中，“A”列在两个地方标题（行号2,3和9,10）。实际的Excel工作表有六千多行，这样的子标题太多（如果是小文件，我可以手动完成，但超过六千行）挑战： – 我想用“标题”值填充E列，在子标题中填写“模型”的F列。我可以编写任何规则或macros来填充这些列吗？有人能帮我吗？谢谢你的帮助图像链接或以下问候基兰