我有两种内容类型,都有节点标题和文档附件,文档附件字段是不同的名称(来自两种不同的内容类型).
在我看来,我在表格中显示节点标题和文件名.节点标题在一列中都很棒,但是两个内容类型的附件字段显示在两个单独的列中,当应该只有两个列时,总共有三列.每行都有一个文档标题,但现在一个或另一个列总是空白,具体取决于显示的内容类型的文档标题.
如何将这两个字段组合在一起显示在同一列中,使其看起来无缝?知道这些文档来自两种不同的内容类型并不重要.这些是通过更大的分类术语组织的,因此仅仅做两种不同的观点是不可行的.
我知道如何遍历工作簿中的所有工作表,以及如何在到达"结束标志"工作表时退出:
For Each ThisWorkSheet In Worksheets
If ThisWorkSheet.Name = "FlagEnd" Then Exit For
MsgBox "This worksheet name is: " & ThisWorkSheet.Name
Next
Run Code Online (Sandbox Code Playgroud)
但是我无法在'start-flag'工作表上开始循环(或者在start-flag工作表之后的工作表上更好.例如,标记的开始/结束工作表位于一堆其他工作表的中间,所以开始或结束遍历是行不通的.
在'FlagStart'表单之前可能有数百个工作表,所以我真的需要从正确的表单开始.
尝试:
Set ThisWorkSheet = Sheets("FlagNew")
Run Code Online (Sandbox Code Playgroud)
和
For Each Sheets("FlagNew") In Worksheets
Run Code Online (Sandbox Code Playgroud)
想法?
解决方案:Mathias非常接近,但是dendarii与自定义结束索引相距甚远.我实际上已经找到了自己的最终解决方案,但是我想给予赞扬.这是我的最终解决方案:
Private Sub CommandButtonLoopThruFlaggedSheets_Click()
' determine current bounds
Dim StartIndex, EndIndex, LoopIndex As Integer
StartIndex = Sheets("FlagNew").Index + 1
EndIndex = Sheets("FlagEnd").Index - 1
For LoopIndex = StartIndex To EndIndex
MsgBox "this worksheet is: " & Sheets(LoopIndex).Name
' code here
Next LoopIndex
End Sub
Run Code Online (Sandbox Code Playgroud) 有一个已建立的libsyn rss feed,为播客建立了一个新的drupal网站.Libsyn提供了一个玩家但不正确的美学.我可以上传和播放带有音频模块和mp3播放器模块的mp3文件,就像MP3播放器的输出,一个简单的flash播放器,但我不想每周手动移动播客音频文件(mp3).看着使用Feeds自动导入,但是它不起作用,而且在drupal站点上不必要地创建了额外的文件.
只想在drupal页面中使用mp3player modulee的flash播放器,该页面从libsyn rss提要中提供最新的mp3文件.不需要存储或播放多集,只是最新一集.
你会怎么做?
我有一个宏来复制一系列工作表中的每个工作表的摘要行.摘要行使用字体/字体颜色/ bg颜色进行特殊格式化,但是当粘贴到"sumamry工作表"时,它只需粘贴值而不进行格式化.
For LoopIndex = StartIndex To EndIndex
' start in a task sheet
Sheets(LoopIndex).Select
CopiedCells = ActiveSheet.Range("A156:L156").Copy
' now move to Summary sheet
Sheets("Summary Sheet").Select
ActiveSheet.Range("A8").Select
ActiveCell.EntireRow.Insert
ActiveCell.PasteSpecial Paste:=xlPasteValues
' tried variations of: ActiveCell.PasteSpecial paste:=xlValues, operation:=xlPasteSpecialOperationNone
Application.CutCopyMode = False ' clears clipboard
Next LoopIndex
Run Code Online (Sandbox Code Playgroud)
我所做的所有研究都说过PastSpecial,xlValues,xlPasteValues应该可以工作,但没有什么可以去除格式化,不知道我在这里做错了什么.它会粘贴值而不是引用的值,因此这很好.我有一个宏来重置循环中的格式,但我想提高效率.我正在使用Excel 2007.