运营小工具：如何手机快速美观展示课表

暑期已到，需要频繁给老师家长分享课表，课表随时变动，你是如何分享这些课表的呢？

把课表放到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代码的功能。

这样我们就实现了很容易传播漂亮课表的愿望！

步骤如下：