用excel treemap工具分析toodledo-VBA篇

May 26, 2010 by     Comments Off on 用excel treemap工具分析toodledo-VBA篇    Posted under: Toodledo应用, 磨炼工具

前文提到用用excel treemap工具分析toodledo其中设置步骤可能要花几分钟时间。考虑到是MS office工具,所以可以用VBA来实现设置过程的自动化。

这样整个过程将便捷许多。
下面来说一下步骤:

1.下载CSV文件,修改为ANSI编码

2.新建一个excel文件,默认的工作薄名称是:sheet1,sheet2,sheet3。将CSV文件中的数据复制到sheet1中。

3.将下面的vba代码放入宏编辑器中。在excel 2007中,在“视图”-“宏”中,点击录制宏。在左下角点击停止按钮。然后点击查看宏,点击编辑。把代码粘帖覆盖原有的代码。你可以设置一个快捷键,比如ctrl+1,来快速执行宏。

4.执行宏。整个过程应该只有几秒钟。

5.在sheet3中,选择数据,点击treemap插件,生成treemap图

Sub Macro1()
'
'默认任务上限是150个
    Sheets("sheet1").Select
    Range("A1:P150").Select

'筛选,默认是当天的任务
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$P$150").AutoFilter Field:=7, Criteria1:= _
        xlFilterToday, Operator:=xlFilterDynamic
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
'将筛选结果复制到sheet2
    Sheets("sheet2").Select
     Range("A1").Select
    ActiveSheet.Paste

   
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:D").Select
    Selection.Cut
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Sheets("sheet3").Select

'调整列的左右位置,以配合treemap插件中列的顺序。筛选后的任务上限默认是30个。
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=sheet2!RC[-2]"
    Range("C1").Select

    Selection.AutoFill Destination:=Range("C1:C30"), Type:=xlFillDefault
    Range("C1:C30").Select
    Selection.AutoFill Destination:=Range("C1:F30"), Type:=xlFillDefault

Range("A1").Select
    ActiveCell.FormulaR1C1 = "=sheet2!RC[9]"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A30"), Type:=xlFillDefault
    Range("A1:A30").Select
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=sheet2!RC[10]"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=-sheet2!RC[10]"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B30"), Type:=xlFillDefault
    Range("B2:B30").Select

End Sub

注意,要把文件保存成xlsm格式,否则vba代码将不被保存。因为office 2007是open xml格式的。另外,要启用宏,否则下次打开文件也无法运行宏。

Comments are closed.

葡挞生活微信公众号


productivelife


您需要通过RSS订阅葡挞吗?

您可以通过订阅Rss来得到更新通知,提高阅读效率(?)。我们推荐下面这些在线订阅服务:

订阅到豆瓣

订阅到鲜果

订阅到有道

您也可以通过 E-mail 来订阅,或者通过手机阅读。


关于葡挞

葡挞是一个群体博客。我们希望通过搜集、整理和自己的思考,来创造一个全面个人管理的体系。

...了解葡挞


251
Unique
Visitors
Powered By Google Analytics

搜索相关网站

uf admissions essay personal narrative essay college admissions custom written essay write custom essays the help theme essay