运营小工具：如何手机快速美观展示课表
暑期已到，需要频繁给老师家长分享课表，课表随时变动，你是如何分享这些课表的呢？
把课表放到excel中，然后截屏发过去：
excel
把课表放到word中，然后截屏发过去：
word
放到markdown中，然后截屏发过去：
| 日期 | 时间 |
|---|---|
| 8月1日 | 8点 |
| 8月3日 | 10点 |
| 8月5日 | 15点 |
| 8月9日 | 10点 |
| 8月13日 | 18点半 |
| 8月17日 | 10点 |
| 8月20日 | 8点 |
比较之后，可以看出markdown出来的表格更加适应手机的宽度看起来更舒服
那么markdown如何来写表格呢，编码如下
|日期|时间|
|---|---|
|8月1日|8点|
|8月3日|10点|
|8月5日|15点|
|8月9日|10点|
|8月13日|18点半|
|8月17日|10点|
|8月20日|8点|
可以看出列与列之间用竖线“|”（shift+、）来分割
用三个-来分割表头和表本体
| 表头 | 表头 |
| ---- | ---- |
| 单元格 | 单元格 |
| 单元格 | 单元格 |
Markdown虽然表现起来很美观简洁，语法也非常简单，但是也有如下缺点：
- 与传统表格相比，输入繁琐
- 不利于存储查询，没有excel表格直观
这里介绍一种俩全其美的办法
Sub 数据整理()
With Sheet1
Dim brr As String
maxrow = Sheet1.Range("a65536").End(xlUp).Row
maxcolumn = Sheet1.Range("iv1").End(xlToLeft).Column
brr = "|"
For i = 1 To maxrow
For j = 1 To maxcolumn
brr = brr & .Cells(i, j) & "|"
Next j
If i = 1 Then
'表头标识需要动态形成，根据列数做出变量
brr = brr & Chr(10) & gettitle(maxcolumn) & Chr(10) & "|"
End If
' Debug.Print brr
If i > 1 Then brr = brr & .Cells(i, j) & Chr(10)
If i < maxrow And i > 1 Then brr = brr & "|"
Next i
' Debug.Print brr
PasteClip (brr)
End With
End Sub
Function PasteClip(str As String)
On Error GoTo line1
Dim myClip As Object
Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With myClip
'网页原始数据放入剪贴板中
.SetText str '变量
.PutInClipboard
MsgBox "源代码已经复制到剪贴板中"
line1:
MsgBox str
End With
End Function
Function gettitle(maxcolumn)
gettitle = "|---"
For i = 1 To maxcolumn - 1
gettitle = gettitle & "|---"
Next i
gettitle = gettitle & "|"
End Function
上面是一段vba代码，实现了从excel表格转换markdown代码的功能。
这样我们就实现了很容易传播漂亮课表的愿望！
步骤如下：
打开下面的链接 表格转markdown ,并下载。
-
将excel表格中的宏安全性调整为最低
「选项」→「信息」→「安全警告」→「信任中心设置」→「宏设置」→「启用所有宏」，然后确定即可。
-
在表格左上角录入课表，点击按钮，此时代码已经复制到黏贴版。
ps：mac电脑此时会弹出代码，自行复制即可
在百度搜索栏搜索 简书
用微信或者qq快速登陆
点击右上角写文章
左下角设置默认编辑器为markdown
image
- 点击新建文章，进入预览模式
分屏页面
- 左侧点击右键粘贴刚才的代码，左侧就会出现课表，然后可以用qq等工具截图到微信等通信工具中
对比
- 看看最后的效果
 1
|
 2
|
|---|
字迹清晰，观看美观，收官！
