Excel 写作工具 写小说用它 写心情日记也用它
文/江觅
这不是一篇散文,也不是什么技术文,它就是一篇七拼八凑而来日记文档。如果,仔细品,也可以认为是一篇散文。当然了,如果你经常接触Excel办公软件;如果你是个写字爱好者那么,就不要错过接下来的内容。
曾经年少轻狂,曾经不问世事的胡闹,那是远去的放肆。
高中时期,喜欢阅读,喜欢小说里的各种情景,想象着自己身处那个无比愉悦的世界,整个人生将达到高潮。
这就催生了一种喜好,写作。
特别想勾画出自己的理想世界,在那个世界里,我就是主宰,所有的人或物,都将按照自己的设定的方式来运行。感觉没有比这样的事情更满足了。
后来就发现了,这是个遥不可及的梦,梦醒之后,再也没有想过如此幸福的事情。
这就是说,曾喜欢过写作带来的喜悦,也曾以为可以让这种喜悦永远相伴身边。
但事实却是生无可恋地扔弃了这种想象。
唯独有一种向往,就是不要喜欢太多。
我以为可以主宰整个世界的,却变成了连自己都无法主宰的失落。
写出的每个字里面都散发着一种忧伤的情绪,于是,曾经以为的以为真是不是一件快乐的事情。
这件快乐的事情,没有让我更加努力地实现梦想,却让我变得无比悲伤。
体会到一颗失落的心,在孤寂的夜里有多么落寞之后,就开始用代码来完成一些遥不可及的事情,这件情任由发展的结果就是,做了这个文章写作应用。
这是个不错的工具,但我不会用它,因为它并不是我的最爱。
还有另一种特别喜欢的工具来让自己变得更加孤独。
然而,这个Excel文件制作的文章写作工具,真的很好用。
因为对于有些人来说,一定有很大帮助。
它可以实现写作和阅读两个功能,至于说里面的还有个发布功能,这是一个没有价值的功能。
很不幸,实在不想在这里介绍这个功能,因为没有做,它还仅仅只是停留在脑海里的一个逻辑概念。
这也就是我不快乐的原因,因为有了一些想象,却不能实现。
这个文档,制作难度其实并没有什么高深技术,然而却是我最喜欢的一个。
因为,爱好。
爱好就是一种麻醉剂,会不计回报地为之奉献。
分类选择框代码
Private Sub ComboBox1_Change()Dim w As WorksheetSet w = ThisWorkbook.Worksheets("写作")Dim AddrFN As StringDim R As Range, Rw2 As RangeSet Rw2 = w.Range("B2:C" & w.Range("B65535").End(xlUp).Row)Dim Fnames()Dim e As IntegerFor Each R In Rw2If R.Value = Me.ComboBox1.Value Then ReDim Preserve Fnames(e) Fnames(e) = w.Cells(R.Row, 2).Value e = e + 1 End IfNext RIf UBound(Fnames) >= 0 Then With Me.ComboBox2 .List = Fnames .Value = .List(0) End WithEnd IfSet w = NothingSet Rw2 = NothingEnd Sub
结尾
写到最后,一般都是给特别喜欢的人来看的,本内容暂不提供下载。
如果希望用些应用,也可能回复一下相关关键字试试,并不一定保证已经建立下载链接。
但是如果需求较大的情况下,一定不会让大家失望。
感谢阅读!