返回目录:excel表格制作
首先按ctrl+f后出现查找选项框
选择查找选项框中的“选知项”
根据你要选择的范围选择工作表或工道作薄
最后输入你要查找和替换内的内容,点击全部替换就完成了。
另外容,需要注意的是如果你选择的是替换单张工作表里面的内容,你要先选择你所想要查找和替换的范围。
到App Store下载WPS Office,将表格通过WPS Office打开,可以进行修改。
用万能的vba可以实现。举例说明。
有一牛奶站,根据送奶的记录数据做成每天根据每个客户的送奶履历表。代码如下:
Sub 送奶履历表()
Const mYbook = "送奶履历表"
Dim MPATH As String
Dim I, J As Integer
Dim K1, K2 As Integer 'K1记录报表的行号,7a686964616fe59b9ee7ad94337K2记录报表的列号
MPATH = ActiveWorkbook.Path
MBOOK = ActiveWorkbook.Name
Set d = CreateObject("Scripting.Dictionary")
Sheets("送奶记录").Select
I = 2
Do While Len(Cells(I, 2)) > 0
c = Cells(I, 2)
If Not d.Exists(c) Then
d.Add c, Cells(I, 3)
End If
I = I + 1
Loop
I = I - 1
II = Trim(Str(I))
Dim BHK
Dim BH As String
Workbooks.Open Filename:=MPATH & "\" & mYbook
Sheets("报表").Select
Columns("A:AE").Select
Selection.ClearContents
Windows(MBOOK).Activate
K1 = 1: K2 = 1
For Each BHK In d.keys
Set cOnn = CreateObject("ADODB.Connection")
Set RST = CreateObject("ADODB.Recordset")
cOnn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName
BH = BHK
Sql = "SELECT `送奶记录$`.订奶编号, `送奶记录$`.客户电话, `送奶记录$`.客户姓名,`送奶记录$`.商品名称, `送奶记录$`.日期, `送奶记录$`.数量 "
Sql = Sql & "FROM `送奶记录$` `送奶记录$` "
Sql = Sql & "WHERE (`送奶记录$`.订奶编号 =" & "'" & BH & "'" & ") "
Sql = Sql & " ORDER BY " & " `送奶记录$`.日期 "
RST.Open Sql, cOnn, 1, 1
Windows(mYbook).Activate
If Not RST.EOF Then
Cells(K1, 1) = RST.FIELDS(0)
Cells(K1, 5) = RST.FIELDS(1)
Cells(K1, 10) = RST.FIELDS(2)
End If
Do While Not RST.EOF '将送货记录填入送奶履历表中
Cells(K1 + 1, K2) = RST.FIELDS(4)
Cells(K1 + 2, K2) = RST.FIELDS(5)
RST.MoveNext
K2 = K2 + 1
Loop
K1 = K1 + 4
K2 = 1
RST.Close
cOnn.Close
Set RST = Nothing
Set cnn = Nothing
Next BHK
End Sub
送奶记录表格式如下图:
送奶履历表,如图:
如果是图片,点住图片,手机弹出选项“发送给朋友”“收藏”“保存图片”“取消”,选择“收藏”,即可。
如果是表格,点左上角…按钮,“收藏”即可