文 | 漫想，秋叶优秀学员

说到Excel，你想到的可能就是函数公式，各种数据整理，图表制作，又或者是数据分析。

我一直认为这就是Excel的顶级应用场景了，也经常拿这些「专业术语」，去吓唬秋叶Office训练营小白们。

正所谓无巧不成书，故事最精彩的地方，往往是剧情的反转，前两天我就被反转了一次，而且还是个女生。

玩了10年，我还是第1次看到，身边能有人在Excel画像素画，而且那个人不是我，是一个叫做漫想的女生。

具体是怎么做的呢？我们来听一听，漫想给我们讲的，Excel遇上Python那点事儿。

1- Excel像素画原理

1-读取图片中的RGB值，将其转化成网络色彩，最后还原成RGB值；

2-将经过处理的RGB值存为文本；

3-新建Excel，导入文本值；

4-借助VBA进行填充。

2- Python读取像素值

备注：我的python环境为3.6，我用的IDE是pycharm。

这里如何就不花篇幅介绍如何设置python环境。还没有配的小朋友，可以看这篇文章。

https://zhuanlan.zhihu.com/p/28789759

1.安装pillow模块

PIL（Python Imaging Library）是Python中一个强大的图像处理库，但目前其只支持到Python2.7。pillow是PIL的一个分支，虽是分支但是其与PIL同样也具有很强的图像处理库。

Pillow的文档：https://pillow.readthedocs.io/en/latest/
Pillow的github：https://github.com/python-pillow/Pillow

在windows系统下安装PIL模块：

方法一：pip安装

cmd进入你正在运行的python代码文件夹的lib中，即包含有pip.exe文件的文件夹中，代码为：cd 文件夹位置。例如： cd D:\python\untitled\venv\Scripts

通过以下代码实现安装：

pip install Pillow

验证一下是否安装成功：

python
import PIL

如图就是安装成功了。（我之前安装过了）

方法二：（不建议）下载pillow

下载合适文件后，在文件夹中安装，之前有讲过，只要放对了位置就行。

PIL官方链接：http://pythonware.com/products/pil/

2.Python实现代码

通过PIL来读取图像的RGB值，输出到txt文本中。（代码均有备注）

#coding=utf-8
from PIL import Image #导入之前安装的包
imload = Image.open('4.jpg') #加载图像文件，如果之后要实现其他的，可以换图像文件的名称，注意！！该图片需要在同一文件夹下，否则需要绝对或者相对路径
im = imload.convert("RGB") #转换为RGB的格式
width = im.size[0] #获取宽度
height = im.size[1]	#获取高度
demo = open('rgb_4.txt','a')	#为之后生成的值，生成一个txt文件，a是写入文件的意思
#迭代输出，以行为单位，y在外层
for y in range(height):
  for x in range(width):
    r,g,b = im.getpixel((x,y))	#这里是重点，用getpixel（）方法获取图片像素点的RGB值
    rgb =r,g,b
    demo.write(str(rgb)+ '\t')	#写入文件中，并且rgb之间加入制表符
  demo.write("\n")	#换行则也换行
  demo.close()	#关闭文件

最终，在该python文件下，就可以看到生成的txt文件。

导出的TXT文件如下：

3- EXCEL填充单元格

1.准备TXT文件

因为前面python中生成的TXT，有括号和空格，需要在读取RGB之前替换为空。

– 在【打开】中选择该TXT文件导入。此时会出现，【导入文本向导】，前两步都是默认选项，第三步中选择【文本】的形式显示。这里也可以在导入成功后，全选所有表格，在【开始】选项卡中把【格式】全部换成【文本】。

– 替换查找！！用替换查找把括号去掉！就是CTRL+H，将【（】和【）】替换为空

– 调整列宽和行高为正方形！注意！这里宽度与行高的单位是不一样的，每列的宽度8.43单位，等于64像素。每行高度15点，等于20像素。总之调整像素一样，就是正方形啦。

2.VBA实现RGB填充

右击工作表sheet，选择查看代码，就可以自由的编辑VBA代码了~

VBA代码：

Sub Set_RGB()
Dim r As Range, arr	  #定义r
For Each r In Range("A:AFA")	#注意这里的Range中的“A：AFA”指的是列的位置，这里每次都需要手动修改，所以还是有些麻烦，等过段时间，我再优化一下
  arr = Split(r, ",")	  #利用，来分割RGB值
  r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))	      #CInt的作用是四舍五入后取整，如果要取整的浮点数小数部分恰好是0.5的情况，则向最接近的偶数取整。
  Next
  End Sub

运行VBA代码，可能会出现越界错误9 ，但是没关系，其实已经生成RGB颜色啦！

讲解VBA循环语句

For Each 元素 In 组合
语句1
语句2
语句N
Next [元素]

最后运行代码，并调整EXCEL界面的大小，就可以看到细节啦~

越简单的图，实现起来越快捷，效果也越好呀！图片太大了，电脑有可能带不起来哦！

4- 总结

是不是从没想过EXCEL也可以实现如此功能？

其实只要你敢想，你就做的出来。

多一点耐心，多动手，这份撩妹神器就到手。

如此撩妹神器，不如现在就上手试一试？程序员特有的浪漫~送给你心仪的他/她一副十字绣画吧~

 

我是拉小登，源于Excel，不只是Excel