文/江觅

这不篇散文，也不是什么技术文，它就是一篇七拼八凑而来日记文档。

如果，仔细品，也可以认为是一篇散文。

当然了，如果你经常接触Excel办公软件；如果你是个文字写作爱好者

那么，就不要错过接下来的内容。

曾经年少轻狂，曾经不问世事的胡闹，那是远去的放肆。

高中时期，喜欢阅读，喜欢小说里的各种情景，想象着自己身处那个无比愉悦的世界，整个人生将达到高潮。

这就催生了一种喜好，写作。

特别想勾画出自己的理想世界，在那个世界里，我就是主宰，所有的人或物，都将按照自己的设定的方式来运行。感觉没有比这样的事情更满足了。

后来就发现了，这是个遥不可及的梦，梦醒之后，再也没有想过如此幸福的事情。

这就是说，曾喜欢过写作带来的喜悦，也曾以为可以让这种喜悦永远相伴身边。

但事实却是生无可恋地扔弃了这种想象。

唯独有一种向往，就是不要喜欢太多。

我以为可以主宰整个世界的，却变成了连自己都无法主宰的失落。

写出的每个字里面都散发着一种忧伤的情绪，于是，曾经以为的以为真是不是一件快乐的事情。

这件快乐的事情，没有让我更加努力地实现梦想，却让我变得无比悲伤。

体会到一颗失落的心，在孤寂的夜里有多么落寞之后，就开始用代码来完成一些遥不可及的事情，这件情任由发展的结果就是，做了这个文章写作应用。

这是个不错的工具，但我不会用它，因为它并不是我的最爱。

我还有另一种特别喜欢的工具来让自己变得更加孤独。

然而，这个Excel文件制作的文章写作工具，真的很好用。

因为对于有些人来说，一定有很大帮助。

它可以实现写作和阅读两个功能，至于说里面的还有个发布功能，这是一个没有价值的功能。

很不幸，实在不想在这里介绍这个功能，因为没有做，它还仅仅只是停留在脑海里的一个逻辑概念。

这也就是我不快乐的原因，因为有了一些想象，却不能实现。

这个文档，制作难度其实并没有什么高深技术，然而却是我最喜欢的一个。

因为，爱好。

爱好就是一种麻醉剂，会不计回报地为之奉献。

分类选择框代码

Private Sub ComboBox1_Change()
Dim w As Worksheet
Set w = ThisWorkbook.Worksheets("写作")
Dim AddrFN As String
Dim R As Range, Rw2 As Range
Set Rw2 = w.Range("B2:C" & w.Range("B65535").End(xlUp).Row)
Dim Fnames()
Dim e As Integer
For Each R In Rw2
    If R.Value = Me.ComboBox1.Value Then
        ReDim Preserve Fnames(e)
        Fnames(e) = w.Cells(R.Row, 2).Value
        e = e + 1
    End If
Next R
If UBound(Fnames) >= 0 Then
    With Me.ComboBox2
        .List = Fnames
        .Value = .List(0)
    End With
End If
Set w = Nothing
Set Rw2 = Nothing
End Sub

结尾

写到最后，一般都是给特别喜欢的人来看的，本内容暂不提供下载。

如果希望用些应用，也可能回复一下相关关键字试试，并不一定保证已经建立下载链接。

但是如果需求较大的情况下，一定不会让大家失望。

感谢阅读！