你見過最漂亮的Excel表格什麼樣？

01-22

你見過最漂亮的表格什麼樣，出自誰手？
相關的問題：
怎樣做出乾淨漂亮的excel表格？ - 知乎

漂亮的表格可能會吸引人，但工作用表格還是以簡潔、清晰、易讀、美觀為原則，同時體現出規範性、專業性和審美品味。如果看參考審計、投行的表格，都不是以漂亮為設計出發點的。

我曾經看到過一個表格模板網站，Excel Templates, Calendars, Calculators and Spreadsheets by Vertex42 ，他們表格模板都簡潔清爽、美觀大方，值得參考。即使只是一份簡單的會議簽到表，看起來都很舒服：

更多圖文並茂的表格，已經不是簡單的表格，而是綜合報告：

這個網站的表格模板非常多，不能一一貼出。感謝一位粉絲朋友，曾經協助下載過該網站上的系列表格模板，整理為壓縮包，可以供參考借鑒。下載方式：200個專業設計的精美表格模板 Excel 源文件：http://dwz.cn/5pE01i

先來一個抖機靈的最美Excel，用Excel給漂亮妹子搞一個像素級的油畫。

再來一些實業公司（特別是消費品或者醫藥的MNC）內部的Singleview Dashboard做成Excel，也是相當漂亮的。

然後來一些我的最愛，酷酷的黑白灰，多用在投行或者投資界的Financial Modeling。外行人很難體會到它那種簡約的邏輯之美。

最後來一個超炫的，各商業雜誌（華爾街日報、經濟學人等等）的表格化成Excel都非常經典和漂亮，雖然難度很大，但是可以參考 @劉萬祥ExcelPro 的付費教程。

…更多文章請到數據冰山 - 知乎專欄

…更多回答請看何明科

配色字體什麼的都是皮相，稍有留意和訓練的話，大約一個月就能學會培養出夠用的Excel審美。

一般的實習生教2/3次就能達到四大的平均水準。

對於常年做數據分析的我來說，Excel的美觀只有一個基礎標準：按下Ctrl+A後選擇的範圍能不多不少連續不斷，且可以直接生成數據透視表。

做不到這點的，除非是for disclosure之類的封面/總結類表格——否則，尤其是是作為基礎數據/底層數據/資料庫的話，都是不及格的。

當然是用excel畫女神：

這個是用vbscript在excel里畫的，原理就是讀出bmp的數據，然後逐個像素地描到excel里。每個像素對應一個excel里的一個單元格。下面的代碼可以把你的女神一行行地列印在excel里。由於vb運行得慢，你可以看到女神在excel里一行行被列印出來。

我看樓上 @叛逆者同學畫了個小黃人，可以使用同樣的原理把小黃人畫在excel里，你只需要準備一張小黃人的bmp就可以了。

我的由於是wps，不能支持那麼多單元格。沒有畫完，你們可以在excel上試一下。

附上代碼：

Set objFso = CreateObject("Scripting.FileSystemObject") Rem Set objStream = objFso.OpenTextFile("D:hinusDocsvbs angwei.bmp", 1, True, -2) Set objStream = CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Mode = 3 objStream.Open objStream.loadFromFile "C:hinusDocsvbs angwei.bmp"


dim byte1, byte2, byte3, byte4
byte1 = 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 if
REM file length

dim tmp

tmp = 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 length

length = byte4 * 16777216 + byte3 * 65536 + byte2 * 256 + byte1
REM tow zero

tmp = objStream.read(4)

for i = 1 to lenb(tmp)

	byte1 = ascb(midb(tmp, i, 1))

	if byte1 &<&> 0 then

		msgbox "error with reserved"

    end if

next
REM offset

tmp = 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 offset

offset = byte4 * 16777216 + byte3 * 65536 + byte2 * 256 + byte1
dim biSize

tmp = 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 + byte1
dim biWidth

tmp = 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 + byte1
dim biHeight

tmp = 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 + byte1
rem biPlanes

tmp = 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 if
dim biBitCount

tmp = objStream.read(2)

byte1 = ascb(midb(tmp, 1, 1))

byte2 = ascb(midb(tmp, 2, 1))

biBitCount = byte2 * H100 + byte1
dim biCompression

tmp = 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 + byte1
if biCompression &<&> 0 then

	msgbox "can not handle compressed bmp file"

end if
dim biSizeImage

tmp = 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 + byte1
dim biXPelsPerMeter

tmp = 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 + byte1
dim biYPelsPerMeter

tmp = 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 == 24

tmp = objStream.read(8)
dim img, x, y

img = objStream.read()
if biSizeImage &<&> lenb(img) then

	msgbox "error with image size"

end if
dim oExcel,oWb,oSheet

Set oExcel= CreateObject("Excel.Application")

Set oWb = oExcel.Workbooks.Open("C:hinusDocsvbs	est.xls")
Set oSheet = oWb.Sheets("Sheet1")

for y = 1 to biHeight

	oSheet.Rows(y).RowHeight = 3

next
for x = 1 to biWidth

	oSheet.Columns(x).ColumnWidth = 0.3

next

oExcel.Visible = True
dim index, color, remainder

remainder = (biSizeImage - biWidth * biHeight * 3) / biHeight

for 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

	next

next