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

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

【01】选图

最好选择颜色种类较少（不超过10种）且对比较强也就是容易分辨的，不然就算篇幅小操作起来也是很麻烦的。

【02】学习进度

我们可以从临摹简单的像素原画开始。

然后学着将简单的线条图案像素化。

再进阶，将复杂的图形简化成像素画。这个就需要发挥大家的想象力了，把复杂的图案想的越简单越好。

如果你是大（够）触（闲），还可以这样

公众号后台回复【小猪佩奇】获取本期资料包

具体怎么做的？现在来教大家。

请看下面的视频版。

https://www.zhihu.com/video/970233558517956608

流量不足，请看下面的图文版。

打开Excel，首先我们要设置相同行高和列宽，把表格变成适合绘制像素画的小方格。

单击左上角的三角形全选表格。

16版本office的行高列宽后面是没有单位的，但列宽的实际单位大小是行高的10倍。所以我们按照行高10 x列宽1 来设置。

为了能看清像素分布，我们得把图片调成半透明。和PPT一样，先插入一个矩形，右键“设置形状格式”将它填充为图片，然后就可以调整图片透明度，看到网格啦。

原图也要保留一张，用来参考颜色（可惜Excel里没有取色器，只能自己选颜色）。接下来，只需要对照原图给小方格填充色彩就OK~顺序可以从左到右也可以从上到下，怎么方便怎么来。

（敲黑板）重点来啦：

两种快速填色法

1. 按住ctrl连选再填色

2. 填好一个格子之后双击格式刷，

再去点或拖其他的格子

关于如何动起来，一周君是从最原始的翻书动画获得灵感

PPT的切换不就是翻页吗？

咱们复制粘贴一个，稍微改下眼睛和手的方向，就可以得到两个分镜头。

将两个区域复制并“粘贴为源文件”到两个PPT页面的同一位置（可以用alt+f9调出参考线）。借助PPT填充背景，配上表情包文字。

两张图循环播放，一个表情包就完成了！

接下来就到gif录制了。一周君在用的是抠抠视频秀。

操作非常简单，框选区域点击开始，手动切换幻灯片页面即可。

编辑GIF时，一个画面就相当于flash当中的一帧，一个分镜3-4帧，其他的删掉（按住shift可连选）。

一周君每个分镜留了4帧共8帧

接下来请enjoy你的社会人表情包！

如果你没看懂，请往上翻回去看视频

写在最后：

才艺来源于生活。

让我们一起来榨干Office吧！

好了，我溜了~

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

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

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

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

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

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

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

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

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

海纳 · 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:34

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

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

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

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

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

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

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

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

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

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

…更多回答请看何明科

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

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

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

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

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

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

7 个回复

【01】选图

【02】学习进度