我正在MS Access中运行一个处理MS Excel的例程。我正在从工作簿中的所有工作表创建合并报告工作表。只有部分工作表的命名范围为"dockName“。我的例程是用dock名称和相关的工作表名称创建一个数组。在合并的工作表中,我包含了一个码头名称列表和指向其相关工作表的超链接。
下面的代码可以工作,但它遍历工作表两次,我相信有一种更好的方法来获得命名范围为"dockName“的工作表的总数。
' cycle through each worksheet to find out if
' the worksheet has a named ran
我在一个单元格中有一个值,当我双击它时,它会将我带到命名范围Account_Number (驻留在另一个工作表中)并更新该值。
我的问题是,我想调整下面的代码,这样它就可以与Worksheet_FollowHyperlink(ByVal目标作为超链接)事件一起工作。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (ActiveCell.Column = 23 And Not ActiveCell.Value = "") Then
[Acco
我正在尝试创建VBA代码来标识我的工作簿中的命名区域,并为每个区域创建一个超链接。这些超链接需要能够被复制到其他文档。
我发现了两个示例--每个示例都完成了一半的工作,但我在组合它们时遇到了困难:
1)查找并列出范围:
Sub namedranges()
For Each n In ThisWorkbook.Names
i = i + 1
Range("a" & i + 1) = n.Name
Next n
End Sub
2)创建所有工作表的超链接:
Sub CreateLinksToAllSheets()
Dim sh As Worksheet
我正在尝试编写一个宏,一旦“主页”工作表上的引用单元格突出显示为绿色,它将隐藏工作表。
尝试的If语句:
Dim Archive As String
Archive = ActiveSheet.Name
If Sheets("Home").Range("$A:$1).Value = Archive And Sheets("Home") _
.Range("$A:$1).Interior.Color = vbGreen Then
ActiveSheet.Hide
End If
我尝试引用的工作表和单元格具有相同的名称。该单元格超链接到工作表
我正在做一个小项目,但面临着一个小问题。
我的excel工作簿中有大量的工作表,我希望通过超链接访问它们。
例如,我的Excel工作簿中有四个工作表,分别命名为“索引列表”、"Sheet2“、"Sheet3”和"Sheet 4“。我需要所有工作表的列表,但索引表上的索引列表除外,并使用相应的工作表进行超链接。
到目前为止,我已经成功地创建了超链接,但它也创建了一个索引列表表链接。
这是我的代码:
Sub AddLinks()
Dim wksLinks As Worksheet
Dim wks As Worksheet
Di
我目前正在构建一个使用PHP和MySQL发布故事的小型web应用程序。每个故事可以是一篇文章(有很多字段和数据),只是一个超链接/url,只是一张图片,或者是一个具有某些属性的可下载文件(同样有很多字段)。
我的问题是为系统找到最佳的数据库布局。我已经考虑了3种不同的解决方案,它们可能工作,也可能不工作(字段只是一个例子,不要纠结于数据是否应该存储在数据库中):
1)为每种类型制作一个表,并将它们合并。例如:
文章
id | date | title | author | preview | last_edited | category | content
超链接
id | date | ti
我正在创建一个动态超链接,它将过滤另一个工作表(Sheet15)上的表。
我的目标是让用户能够在Sheet3上选择一个单元格,并将这个单元格的值作为另一个工作表上的筛选器。
到目前为止,我的代码如下:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Type = msoHyperlinkRange And Target.Range.Address = "$S$15" Then
Application.ScreenUpdating = False
好吧,所以我在这方面是全新的。工作中的新角色。我收到了excel请求:
双击工作表中的任何单元格将创建一个新工作表。
双击的原始单元现在变成一个超链接,链接到新创建的工作表。
删除此单元格的双击函数,该函数最初是双击。
我真的被困住了。我以前没有用VBA编程。我已经知道了如何在双击下创建一个新的工作表,并且我已经知道了如何超链接。但我不知道如何超链接到一个新创建的工作表,并删除双击功能,从原来的单元格!
这是我所有的..。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boo
我需要在Excel中复制一个工作表,对其进行命名,然后创建一个指向所创建工作表的超链接。复制和命名它不是问题,但我似乎不能得到超链接的工作。有人知道错误在哪里吗? 非常感谢你的帮助。 Kind问候马特 Sub CreateSheet()
Dim wst As Worksheet
Dim strProjectName As String
Sheets("Base").Copy After:=Sheets(Sheets.Count)
Set wst = ActiveSheet
strProjectName = InputBox("
我有一个宏,可以重做我们的BI工具生成的目录页。我这样做的原因是我重命名和使用工作表中的所有选项卡。我想解决两个问题:
1.我试图跳过为第一个工作表生成的超链接
2.我想在每一个创建超链接回到目录的工作表上添加一个超链接(I1)。
Sub listsheets()
Dim i As Integer
i = 2
Sheets("TOC").Select
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
For Each s In She
我已经找到并成功地执行了代码,为工作簿中的每个工作表创建了一个超链接列表。但是,我有隐藏的工作表,不希望隐藏的工作表被包括在超链接列表中。适用于所有工作表的代码是。
是否有一种简单的方法从结果超链接列表中删除隐藏的工作表?
ActiveSheet.Range("P4").Select
Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> sh.Name Then
ActiveCell.Hype
我有以下VBA行,它应该创建指向Excel工作簿中另一个工作表的超链接:
Dim rMyCell As Range
Sheets("All_Tables").Hyperlinks.Add Anchor:=Selection, Address:="Employees!" & rMyCell.Address, _
TextToDisplay:="Link"
通过此代码创建的超链接在单元格描述中的字母之间放置了美元符号(例如:Employees!$A$1)。我该如何摆脱这些美元呢?超链接对它们不起作用。
谢谢