你见过最漂亮的 Excel 表格什么样？

你见过最漂亮的表格什么样，出自谁手？

相关的问题：

刘万祥ExcelPro · 2018-9-24 00:52:30

漂亮的表格可能会吸引人，但工作用表格还是以简洁、清晰、易读、美观为原则，同时体现出规范性、专业性和审美品味。如果看参考审计、投行的表格，都不是以漂亮为设计出发点的。

我曾经看到过一个表格模板网站，Excel Templates, Calendars, Calculators and Spreadsheets by Vertex42 ，他们表格模板都简洁清爽、美观大方，值得参考。即使只是一份简单的会议签到表，看起来都很舒服：

更多图文并茂的表格，已经不是简单的表格，而是综合报告：

这个网站的表格模板非常多，不能一一贴出。感谢一位粉丝朋友，曾经协助下载过该网站上的系列表格模板，整理为压缩包，可以供参考借鉴。下载方式：200个专业设计的精美表格模板 Excel 源文件：http://dwz.cn/5pE01i

何明科 · 2018-9-24 00:52:32

先来一个抖机灵的最美Excel，用Excel给漂亮妹子搞一个像素级的油画。

再来一些实业公司（特别是消费品或者医药的MNC）内部的Singleview Dashboard做成Excel，也是相当漂亮的。

然后来一些我的最爱，酷酷的黑白灰，多用在投行或者投资界的Financial Modeling。外行人很难体会到它那种简约的逻辑之美。

最后来一个超炫的，各商业杂志（华尔街日报、经济学人等等）的表格化成Excel都非常经典和漂亮，虽然难度很大，但是可以参考 @刘万祥ExcelPro 的付费教程。

…更多文章请到数据冰山 - 知乎专栏

…更多回答请看何明科

晴明 · 2018-9-24 00:52:34

配色字体什么的都是皮相，稍有留意和训练的话，大约一个月就能学会培养出够用的Excel审美。

一般的实习生教2/3次就能达到四大的平均水准。

对于常年做数据分析的我来说，Excel的美观只有一个基础标准：按下Ctrl+A后选择的范围能不多不少连续不断，且可以直接生成数据透视表。

做不到这点的，除非是for disclosure之类的封面/总结类表格——否则，尤其是是作为基础数据/底层数据/数据库的话，都是不及格的。

海纳 · 2018-9-24 00:52:35

当然是用excel画女神：

这个是用vbscript在excel里画的，原理就是读出bmp的数据，然后逐个像素地描到excel里。每个像素对应一个excel里的一个单元格。下面的代码可以把你的女神一行行地打印在excel里。由于vb运行得慢，你可以看到女神在excel里一行行被打印出来。

我看楼上 @叛逆者同学画了个小黄人，可以使用同样的原理把小黄人画在excel里，你只需要准备一张小黄人的bmp就可以了。

我的由于是wps，不能支持那么多单元格。没有画完，你们可以在excel上试一下。

附上代码：

Set objFso = CreateObject("Scripting.FileSystemObject")Rem Set objStream = objFso.OpenTextFile("D:\hinusDocs\vbs\tangwei.bmp", 1, True, -2)Set objStream = CreateObject("ADODB.Stream") objStream.Type = 1objStream.Mode = 3objStream.OpenobjStream.loadFromFile "C:\hinusDocs\vbs\tangwei.bmp"dim byte1, byte2, byte3, byte4byte1 = ascb(midb(objStream.Read(1), 1, 1))byte2 = ascb(midb(objStream.Read(1), 1, 1))if byte1 <> asc("B") or byte2 <> asc("M") then msgbox "error with file flag"end ifREM file lengthdim tmptmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))dim lengthlength = byte4 * 16777216 + byte3 * 65536 + byte2 * 256 + byte1REM tow zerotmp = objStream.read(4)for i = 1 to lenb(tmp) byte1 = ascb(midb(tmp, i, 1)) if byte1 <> 0 then  msgbox "error with reserved"    end ifnextREM offsettmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))dim offsetoffset = byte4 * 16777216 + byte3 * 65536 + byte2 * 256 + byte1dim biSizetmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biSize = byte4 * 16777216 + byte3 * 65536 + byte2 * 256 + byte1dim biWidthtmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biWidth = byte4 * 16777216 + byte3 * &H10000 + byte2 * &H100 + byte1dim biHeighttmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biHeight = byte4 * 16777216 + byte3 * &H10000 + byte2 * &H100 + byte1rem biPlanestmp = objStream.read(2)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))if byte2 <> 0 or byte1 <> 1 then msgbox "error with biPlanes"end ifdim biBitCounttmp = objStream.read(2)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))biBitCount = byte2 * &H100 + byte1dim biCompressiontmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biCompression = byte4 * &H1000000 + byte3 * &H10000 + byte2 * &H100 + byte1if biCompression <> 0 then msgbox "can not handle compressed bmp file"end ifdim biSizeImagetmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biSizeImage = byte4 * &H1000000 + byte3 * &H10000 + byte2 * &H100 + byte1dim biXPelsPerMetertmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biXPelsPerMeter = byte4 * &H1000000 + byte3 * &H10000 + byte2 * &H100 + byte1dim biYPelsPerMetertmp = objStream.read(4)byte1 = ascb(midb(tmp, 1, 1))byte2 = ascb(midb(tmp, 2, 1))byte3 = ascb(midb(tmp, 3, 1))byte4 = ascb(midb(tmp, 4, 1))biYPelsPerMeter = byte4 * &H1000000 + byte3 * &H10000 + byte2 * &H100 + byte1' pallete is not used when biBitCount == 24tmp = objStream.read(8)dim img, x, yimg = objStream.read()if biSizeImage <> lenb(img) then msgbox "error with image size"end ifdim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("C:\hinusDocs\vbs\test.xls")Set oSheet = oWb.Sheets("Sheet1")for y = 1 to biHeight oSheet.Rows(y).RowHeight = 3nextfor x = 1 to biWidth oSheet.Columns(x).ColumnWidth = 0.3nextoExcel.Visible = Truedim index, color, remainderremainder = (biSizeImage - biWidth * biHeight * 3) / biHeightfor y = 0 to biHeight - 1 for x = 0 to biWidth - 1  index = (biHeight - 1 - y) * ((biWidth) * 3 + remainder) + x * 3 + 1  byte1 = ascb(midb(img, index, 1))  byte2 = ascb(midb(img, index + 1, 1))  byte3 = ascb(midb(img, index + 2, 1))    color = byte1 * &H10000& + byte2 * &H100& + byte3  oSheet.Cells.item(y+1, x+1).interior.color = color nextnextobjStream.close

在 C 盘新建目录hinusDocs/vbs/，然后存到这个目录下面的，保存成drawexcel.vbs，同一个目录下还得有女神的bmp文件，我们是照着这个bmp去画的。

然后新建一个空白的excel表，叫"test.xls"，双击这个drawexcel.vbs运行就可以了。

德州的猫 · 2018-9-24 00:52:37

不知道有没有偏题。当年去北大观赛，北大全国MBA全国企业模拟竞技那个……大部分基本还是拿excel模型做底的。

当时同校师兄是上届冠军，和浙大一哥哥之前拜了师，他当届冠军好像。当时热情比较高，老师就让我扛个摄像机去拍摄了……全场各种excel模型……不能再强。当时师兄基本把北大各赛区模型的函数推出来了，后续我们一直用他的模型。在数学小白看来简直是神。

之后这个全校曾经的最大社团就交给我啦……能力一般，没发扬特别光大。

excel模型漂亮不在于表面，在于之后的数学和逻辑体现，当年的小白进全国赛区，和大家天天熬夜拼搏简直不能再热血啦。

之后我认识的大神们去做淘宝的做淘宝，推软件的，搞商业的……

其实感觉很可惜。在北大安排的住处和全国各地的大神们交流打招呼时，觉得世界应该就是我们的吧。

只有我还活在excel的世界里，做着很日常的工作，但偶尔能发挥神迹，把一切手工都变成自动化，这种时候才感觉自己还有当年的一点热血。

excel其实是另一种word，作家在word里创作，我们在excel里创造世界。