表单制作 表单制作教程 收藏 0

市场小白不求人，3分钟搞定活动表单制作，轻松收集

一、首先打开官微中心，选择“表单管理”

二、点开后可以看到表单管理界面，在这里可以创建新的表单或者修改删除已有表单，这里我们选择“新版本编辑器”

三、打开编辑器后，在左侧可以看到能够添加到表单中的组件，这里分为“输入型组件”与“选择型组件”；

四、从组件列表中选择好需要添加的组件后，我们只需要轻轻拖拽至表单中即可完成添加；

五、点击我们添加的组件，在屏幕右方就会出现这个组件的属性设置，包含“组件属性”和“主题样式”两个模块，我们可以在组件属性中修改这一栏的标题、描述、选项类、是否必填、是否唯一等基础信息；

六、返回“官微中心”进入“内容”-“文件”-“上传文件”，上传个人二维码/企业二维码，“复制文件链接”

七、将“复制文件链接”粘贴至“提交跳转地址”，即可实现表单提交后，自动跳转为二维码，客户可扫码添加

八、表单制作完成，先“保存”再“发布”

九、分享二维码或链接

十、分享呈现

表单制作教程：可生成二维码分享，可嵌入公众号文章或菜单使用

表单问卷作为小正方助手的通用功能之一，可用于收集格式统一的数据。你可以通过组合单选、多选、下拉、文本、地址、日期、时间、打分、打卡、多级联动等题型搭建出电子表单，关联到二维码或者公众号上，扫码或点击直接填写表单即可更快速、规范的收集数据。小正方助手表单问卷功能永久无限制开放使用。

下面为大家介绍下表单的制作教程。

先在电脑或手机微信中打开小程序“小正方助手”，在工作台页面点击“表单/问卷”进入表单管理页面。

点击表单管理页面右下角“+”号创建新表单，输入表单标题和简介，点击底部菜单添加题目。

表单编辑完成后，可跳转到表单设置页面，在设置页面可执行开启发布、设置时间、设置主题色、控制答券数、设置消息提醒频率、添加数据管理员等操作，设置完成后确定即可。

表单设置完成后，在表单管理页面点击对应的表单，可生成二维码直接分享或复制路径关联到公众号使用。

生成二维码可选择普通二维码、小程序码、URL Scheme，其中普通二维码与小程序码效果一样，扫码跳转填写表单。URL Scheme可用于外部网页或应用中跳转打开微信填写表单。

小程序中点击表单选择”复制路径”。

1）点击公众平台文章编辑器顶部的“小程序”按钮，点击“去搜索”。

2）搜索“小正方助手”确定后下一步。

3）在填写详细信息界面中，小程序路径填写复制的小程序路径，文字内容填写我们需要展示出来的文字。

4）确定并保存后预览无误再发布文章。

小程序中点击表单选择”复制路径”。

1）首先关联小程序小正方助手：广告与服务 – 小程序管理 – 添加关联小程序 – 公众号管理员扫码确认 – 搜索“小正方助手”关联 。

2）编辑自定义菜单：内容与互动 – 自定义菜单 – 添加新菜单 – 选择跳转小程序“小正方助手” – 粘贴复制的路径。

3）保存发布

表单收集过程中，管理员可在表单管理页面点击对应的表单，点击菜单“数据管理/导出”查看或导出用户答券。

导出Excel后自行处理或分析数据。

从零开始制作仓库出入库报表（实现增、删、改、查）<四>

大家好！前面三节，我们仓库出入库报表实现了出入库增加，库位库存自动生成。这一节，我们来实现出入库报表的查询、删除、修改还有工作表之间的跳转功能。这里，EK已经实现了出入库报表目前需要的功能。我们来看一下效果图。

图1 工作表间跳转

图2 入库单据的增加、查询、修改、删除功能效果图

图3 库位库存功能效果图

图 4 入库效果图

从图1到图4中，演示了出入库表格的大部分内容。图2 只希望能对大家有所帮助。

好了。看完效果图。我们现在接着第三节开始制作。

首先，把主页的表格给修饰一下。如下图：

图5 主页

其中的6个图标，EK是利用EXCEL自带的图形和文本框组合制作的。这里EK给大家演示一个图标的制作过程。后面的大家可以自己制作。如下图。

图6 图标的制作过程

大家可以试着做一下，当然也可以上网搜索图标。这里提供一个方法。

2、在表添加图标和按钮。如下图所示。

图7 添加图标和按钮

3、在模块1 中添加如下代码：

Sub 清空单据信息()

Sheets(\”单据操作\”).Range(\”A4:A15,C4:i15\”) = \”\”

End Sub

Sub 入库单()

Sheets(\”单据操作\”).Range(\”a2\”) = \”入库单\”

Sheets(\”单据操作\”).Range(\”i4:i15\”) = \”\”

End Sub

Sub 出库单()

Sheets(\”单据操作\”).Range(\”a2\”) = \”出库单\”

Sheets(\”单据操作\”).Range(\”i4:i15\”) = \”\”

End Sub

图8 模块1 中添加代码

4、在VBE中添加窗体，列表框,选项按钮2个，命令按钮两个。

设置如下：

窗体名称->UFDJ， caption->单据查询

选项按钮1名称->OB1，caption->入库流水账，value->True

选项按钮2名称->OB2，caption->出库流水账

命令按钮1名称->CB1，caption->单据查询

命令按钮2名称->CB2，caption->关闭

图9 插入用户窗体

双击用户窗体。写入代码：

Dim intnum As Integer

Private Sub CB1_Click()

If ListBox1.ListIndex >= 0 Then

Dim LstStr As String

LstStr = Trim(CStr(ListBox1.List(ListBox1.ListIndex)))

s = InStr(LstStr, \”-\”) + 1

e = InStr(2, LstStr, Left(LstStr, 1))

estr = Mid(LstStr, s, e – s)

MsgBox estr

If Left(LstStr, 1) = \”入\” Then

Call 出入库单据(1, estr)

ElseIf Left(LstStr, 1) = \”出\” Then

Call 出入库单据(2, estr)

End If

Unload Me

End If

End Sub

Private Sub 查询单据(OBNum As Integer)

Dim d As Object

Set d = CreateObject(\”Scripting.Dictionary\”)

If OBNum = 1 Then

hrq = Sheets(\”入库流水账\”).Cells(Sheets(\”入库流水账\”).Rows.Count, 1).End(xlUp).Row \’【入库流水账】第1列最后一行行号

ArrRK = Sheets(\”入库流水账\”).Range(\”A4:H\” & hrq)

For i = 1 To UBound(ArrRK)

d(ArrRK(i, 4)) = \”入库单号-\” & ArrRK(i, 4) & \”入库时间-\” & ArrRK(i, 3) & \”入库类型：\” & ArrRK(i, 8)

Next

Erase ArrRK

ListBox1.List = d.items()

ElseIf OBNum = 2 Then

hcq = Sheets(\”出库流水账\”).Cells(Sheets(\”出库流水账\”).Rows.Count, 1).End(xlUp).Row \’【出库流水账】第1列最后一行行号

ArrCK = Sheets(\”出库流水账\”).Range(\”A4:H\” & hcq)

For i = 1 To UBound(ArrCK)

d(ArrCK(i, 4)) = \”出库单号-\” & ArrCK(i, 4) & \”出库时间-\” & ArrCK(i, 3) & \”出库类型：\” & ArrCK(i, 8)

Next

Erase ArrCK

ListBox1.List = d.items()

End If

End Sub

Private Sub CB2_Click()

Unload Me

End Sub

Private Sub OB1_Click()

Call 查询单据(1)

End Sub

Private Sub OB2_Click()

Call 查询单据(2)

End Sub

Private Sub UserForm_Activate()

Call 查询单据(1)

OB2.Value = False

OB1.Value = True

ListBox1.SetFocus

End Sub

Private Sub UserForm_Initialize()

ListBox1.Font.Size = 12

UFDJ.BackColor = &HFF8080

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Call CB1_Click

End Sub

图10 代码1

图11 代码2

5、 添加模块2 和模块3 如图：

图12 添加模块2和模块3

模块2 中代码：

Sub 显示单据查询窗口()

UFDJ.Show

End Sub

\’单据查询

Sub 出入库单据(ListType As Integer, ByVal ListStr As String)

Dim n As Integer

n = 0

If ListType = 1 Then

Sheets(\”单据操作\”).Range(\”a4:a15,c4:i15\”) = \”\”

Sheets(\”单据操作\”).Range(\”a2\”) = \”入库单\”

hrq = Sheets(\”入库流水账\”).Cells(Sheets(\”入库流水账\”).Rows.Count, 1).End(xlUp).Row \’【入库流水账】第1列最后一行行号

For i = 4 To hrq

If Sheets(\”入库流水账\”).Range(\”d\” & i).Value = ListStr Then

Sheets(\”入库流水账\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”单据操作\”).Range(\”a\” & 4 + n)

Sheets(\”单据操作\”).Range(\”i\” & 4 + n) = i

n = n + 1

End If

Next

ElseIf ListType = 2 Then

Sheets(\”单据操作\”).Range(\”a4:a15,c4:i15\”) = \”\”

Sheets(\”单据操作\”).Range(\”a2\”) = \”出库单\”

hcq = Sheets(\”出库流水账\”).Cells(Sheets(\”出库流水账\”).Rows.Count, 1).End(xlUp).Row \’【出库流水账】第1列最后一行行号

For i = 4 To hcq

If Sheets(\”出库流水账\”).Range(\”d\” & i).Value = ListStr Then

Sheets(\”出库流水账\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”单据操作\”).Range(\”a\” & 4 + n)

Sheets(\”单据操作\”).Range(\”i\” & 4 + n) = i

n = n + 1

End If

Next

End If

End Sub

Sub 单据修改()

Msg = MsgBox(\”是否修改表单？\”, vbInformation + vbYesNo, \”提示\”)

If Msg = vbNo Then

Exit Sub

End If

If Sheets(\”单据操作\”).Range(\”A2\”) = \”入库单\” Then

n = 1

hrq = Sheets(\”入库流水账\”).Cells(Sheets(\”入库流水账\”).Rows.Count, 1).End(xlUp).Row \’【入库流水账】第1列最后一行行号

For i = 4 To 15

If Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) <> \”\” Then

Sheets(\”单据操作\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”入库流水账\”).Range(\”a\” & Sheets(\”单据操作\”).Range(\”i\” & i).Value)

ElseIf Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) = \”\” Then

Sheets(\”单据操作\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”入库流水账\”).Range(\”a\” & hrq + n)

n = n + 1

End If

Next

Sheets(\”单据操作\”).Range(\”A4:A15,C4:i15\”) = \”\”

ElseIf Sheets(\”单据操作\”).Range(\”A2\”) = \”出库单\” Then

hcq = Sheets(\”出库流水账\”).Cells(Sheets(\”出库流水账\”).Rows.Count, 1).End(xlUp).Row \’【出库流水账】第1列最后一行行号

n = 1

For i = 4 To 15

If Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) <> \”\” Then

Sheets(\”单据操作\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”出库流水账\”).Range(\”a\” & Sheets(\”单据操作\”).Range(\”i\” & i).Value)

ElseIf Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) = \”\” Then

Sheets(\”单据操作\”).Range(\”A\” & i & \”:H\” & i).Copy Sheets(\”出库流水账\”).Range(\”a\” & hrq + n)

n = n + 1

End If

Next

Sheets(\”单据操作\”).Range(\”A4:A15,C4:i15\”) = \”\”

End If

End Sub

Sub 删除表单()

Msg = MsgBox(\”是否删除表单？\”, vbInformation + vbYesNo, \”提示\”)

If Msg = vbNo Then

Exit Sub

End If

If Sheets(\”单据操作\”).Range(\”A2\”) = \”入库单\” Then

For i = 15 To 4 Step -1

If Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) <> \”\” Then

Sheets(\”入库流水账\”).Rows(Sheets(\”单据操作\”).Range(\”i\” & i)).Delete

End If

Next

Sheets(\”单据操作\”).Range(\”A4:A15,C4:i15\”) = \”\”

ElseIf Sheets(\”单据操作\”).Range(\”A2\”) = \”出库单\” Then

For i = 15 To 4 Step -1

If Sheets(\”单据操作\”).Range(\”A\” & i) <> \”\” And Sheets(\”单据操作\”).Range(\”i\” & i) <> \”\” Then

Sheets(\”出库流水账\”).Rows(Sheets(\”单据操作\”).Range(\”i\” & i)).Delete

End If

Next

Sheets(\”单据操作\”).Range(\”A4:A15,C4:i15\”) = \”\”

Else

MsgBox \”单据删除错误，请查看标题！\”

End If

End Sub

图12 模块2 中代码1

图13 模块2 中代码2

图14 模块2 中代码3

模块3中代码：

Sub 隐藏()

For Each Sh1 In Worksheets

If Sh1.Name <> \”主页\” Then

Sh1.Visible = False

End If

Next

End Sub

Sub 跳转至主页()

Call 隐藏

End Sub

Sub 跳转至基础信息()

Call 隐藏

Sheets(\”基础信息\”).Visible = True

Sheets(\”基础信息\”).Activate

End Sub

Sub 跳转至入库流水()

Call 隐藏

Sheets(\”入库流水账\”).Visible = True

Sheets(\”入库流水账\”).Activate

End Sub

Sub 跳转至出库流水()

Call 隐藏

Sheets(\”出库流水账\”).Visible = True

Sheets(\”出库流水账\”).Activate

End Sub

Sub 跳转至单据操作()

Call 隐藏

Sheets(\”单据操作\”).Visible = True

Sheets(\”单据操作\”).Activate

End Sub

Sub 跳转至库存跟踪()

Call 隐藏

Sheets(\”库存跟踪表\”).Visible = True

Sheets(\”库存跟踪表\”).Activate

End Sub

Sub 显示全部表格()

For Each Sh1 In Worksheets

Sh1.Visible = True

Next

Sheets(\”主页\”).Activate

End Sub

图15 模块3 中代码

6、在ThisWorkbook中添加代码：

Private Sub Workbook_Open()

Call 隐藏

End Sub

图16 ThisWorkbook添加代码

7、为每个图标和按钮添加指定宏：

图17 图标指定宏

这里只演示了【主页】表中的指定宏。后面的，EK留给大家自己去指定相应的宏。EK给大家准备了一个表格。

图18 图标对应的宏

到这里，从零开始制作出入库表全部已经完成了。如果，有不懂的地方，可以在评论区告诉EK。如果想获得文中的文件，可以关注私信EK数字代表的节数。

最后，感谢小伙伴们的观看，我是EK。如果上述内容能够帮助到你们，希望你们能点赞，关注，评论，转发，你们不清楚的地方我会尽力为大家解答，谢谢大家的支持。我会给大家带来更多关于EXCEL的小技巧。

本文作者及来源:Renderbus瑞云渲染农场https://www.renderbus.com