小编Kir*_*ngs的帖子

Drupal Views将2列合并为1?

我有两种内容类型,都有节点标题和文档附件,文档附件字段是不同的名称(来自两种不同的内容类型).

在我看来,我在表格中显示节点标题和文件名.节点标题在一列中都很棒,但是两个内容类型的附件字段显示在两个单独的列中,当应该只有两个列时,总共有三列.每行都有一个文档标题,但现在一个或另一个列总是空白,具体取决于显示的内容类型的文档标题.

如何将这两个字段组合在一起显示在同一列中,使其看起来无缝?知道这些文档来自两种不同的内容类型并不重要.这些是通过更大的分类术语组织的,因此仅仅做两种不同的观点是不可行的.

union drupal views drupal-fields

7
推荐指数
1
解决办法
1万
查看次数

如何循环工作表的子集?

我知道如何遍历工作簿中的所有工作表,以及如何在到达"结束标志"工作表时退出:

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)

excel vba worksheet excel-vba

7
推荐指数
1
解决办法
4万
查看次数

如何从libsyn rss feed播放音频播客文件?(drupal的)

有一个已建立的libsyn rss feed,为播客建立了一个新的drupal网站.Libsyn提供了一个玩家但不正确的美学.我可以上传和播放带有音频模块和mp3播放器模块的mp3文件,就像MP3播放器的输出,一个简单的flash播放器,但我不想每周手动移动播客音频文件(mp3).看着使用Feeds自动导入,但是它不起作用,而且在drupal站点上不必要地创建了额外的文件.

只想在drupal页面中使用mp3player modulee的flash播放器,该页面从libsyn rss提要中提供最新的mp3文件.不需要存储或播放多集,只是最新一集.

你会怎么做?

flash audio rss feeds drupal

7
推荐指数
1
解决办法
1644
查看次数

vba excel如何粘贴没有字体/颜色/ bg颜色格式的值

我有一个宏来复制一系列工作表中的每个工作表的摘要行.摘要行使用字体/字体颜色/ 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.

excel vba paste

3
推荐指数
1
解决办法
7万
查看次数

标签 统计

drupal ×2

excel ×2

vba ×2

audio ×1

drupal-fields ×1

excel-vba ×1

feeds ×1

flash ×1

paste ×1

rss ×1

union ×1

views ×1

worksheet ×1