媒体资源管理系统源程序.docx

上传人：飞****2

文档编号：66790242

上传时间：2022-12-21

格式：DOCX

页数：10

大小：10.56KB

( 4.5 )

《媒体资源管理系统源程序.docx》由会员分享，可在线阅读，更多相关《媒体资源管理系统源程序.docx（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Sub tianjia_zz()If Sheets(郑州上画).Cells(2, 1).Value = 0 ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, y, n, m, l As LongSheets(郑州).Cells(1, 18) = =counta(郑州上画!a:a)For n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value = ThenMsgBox (添加成功)Exit SubElseEnd IfFor x = 4 To 600y = 7If Sheets(郑

2、州).Cells(x, 2) = Sheets(郑州上画).Cells(n, 1) Thenl = 0For m = 7 To 12If Sheets(郑州).Cells(x, m) = Sheets(郑州上画).Cells(1, 7) And Sheets(郑州上画).Cells(1, 7).Value 0 Thenl = l + 1ElseEnd IfNext mIf l = 0 ThenDo Until (IsEmpty(Sheets(郑州).Cells(x, y).Value)y = y + 1LoopIf Sheets(郑州).Cells(x, 16) 断电 And Sheets(郑

3、州).Cells(x, 13) 0 ThenSheets(郑州).Cells(x, y) = Sheets(郑州上画).Cells(1, 7)Sheets(郑州上画).Cells(n, 6) = 可上ElseIf Sheets(郑州).Cells(x, 16) = 断电 And Sheets(郑州).Cells(x, 13) = 6 ThenSheets(郑州).Cells(x, y) = Sheets(郑州上画).Cells(1, 7)Sheets(郑州上画).Cells(n, 6) = 可上ElseSheets(郑州上画).Cells(n, 6) = 不可用Sheets(郑州上画).Cel

4、ls(n, 7) = Sheets(郑州).Cells(x, 7)Sheets(郑州上画).Cells(n, 8) = Sheets(郑州).Cells(x, 8)Sheets(郑州上画).Cells(n, 9) = Sheets(郑州).Cells(x, 9)Sheets(郑州上画).Cells(n, 10) = Sheets(郑州).Cells(x, 10)Sheets(郑州上画).Cells(n, 11) = Sheets(郑州).Cells(x, 11)Sheets(郑州上画).Cells(n, 12) = Sheets(郑州).Cells(x, 12)End IfElseSheets

5、(郑州上画).Cells(n, 6) = 与原选点位重复，请重新选择！End IfElseEnd IfNext xNext nEnd SubSub tianjia_qz()If Sheets(郑州上画).Cells(2, 1).Value = 0 ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, y, n, m, l As LongSheets(郑州).Cells(1, 18) = =counta(郑州上画!a:a)For n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value

6、 = ThenMsgBox (添加成功)Exit SubElseEnd IfFor x = 4 To 600If Sheets(郑州).Cells(x, 2) = Sheets(郑州上画).Cells(n, 1) ThenSheets(郑州).Cells(x, 17) = Sheets(郑州上画).Cells(1, 7)ElseEnd IfNext xNext nEnd SubSub tianjia_dd()If Sheets(郑州上画).Cells(2, 1).Value = ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, y, n As LongFor

7、y = 3 To 1000Sheets(郑州).Cells(y, 16) = Next ySheets(郑州).Cells(1, 18) = =counta(郑州上画!a:a)n = 2For n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value = ThenMsgBox (添加成功)Exit SubElseEnd Ifx = 3Sheets(郑州).Cells(1, 18) = Sheets(郑州上画).Cells(n, 1)Do Until Sheets(郑州).Cells(x, 2) = Sheets(

8、郑州).Cells(1, 18)x = x + 1LoopSheets(郑州).Cells(x, 16) = 断电Next nEnd SubSub tianjia_zx()Dim x, n As Longn = 2For x = 4 To 1000If Sheets(郑州).Cells(x, 13) 0 And Sheets(郑州).Cells(x, 16) 断电 ThenSheets(郑州上画).Cells(n, 1) = Sheets(郑州).Cells(x, 2)If Sheets(郑州).Cells(x, 15) 无超链接 ThenSheets(郑州上画).SelectSheets(郑

9、州上画).Hyperlinks.Add anchor:=Sheets(郑州上画).Cells(n, 1), Address:=Sheets(郑州).Cells(x, 2).Hyperlinks(1).AddressEnd IfSheets(郑州上画).Cells(n, 2) = Sheets(郑州).Cells(x, 3)Sheets(郑州上画).Cells(n, 3) = Sheets(郑州).Cells(x, 4)Sheets(郑州上画).Cells(n, 4) = Sheets(郑州).Cells(x, 5)Sheets(郑州上画).Cells(n, 5) = Sheets(郑州).Ce

10、lls(x, 6)Sheets(郑州上画).Cells(n, 6) = Sheets(郑州).Cells(x, 13)n = n + 1ElseEnd IfNext xIf Sheets(郑州).Cells(x, 2) = ThenMsgBox (最新点位生成成功)Exit SubElseEnd IfEnd SubSub tianjia_QK()Sheets(郑州上画).Cells(1, 7) = Sheets(郑州上画).Range(A2:Q1000).ClearContentsMsgBox (清除成功)End SubSub tianjia_zdsc()If Sheets(郑州上画).Cel

11、ls(1, 7).Value = ThenMsgBox (无指定客户)Exit SubElseEnd IfDim x, y, n, h As Longn = 0Sheets(郑州).Cells(1, 19) = =counta(郑州!F:F)For x = 4 To Sheets(郑州).Cells(1, 19) + 1For y = 7 To 12If Sheets(郑州).Cells(x, y) = Sheets(郑州上画).Cells(1, 7) ThenSheets(郑州).Cells(x, y) = n = n + 1ElseEnd IfNext yNext xMsgBox (指定客

12、户删除完毕，共删除 & n & 项)End SubSub tianjia_zdcz()If Sheets(郑州上画).Cells(1, 7).Value = ThenMsgBox (无指定客户)Exit SubElseEnd IfDim x, y, n, h As Longn = 2Sheets(郑州).Cells(1, 18) = =counta(郑州!F:F)For x = 4 To Sheets(郑州).Cells(1, 18) + 1For y = 7 To 17If Sheets(郑州).Cells(x, y) = Sheets(郑州上画).Cells(1, 7) ThenSheet

13、s(郑州上画).Cells(n, 1) = Sheets(郑州).Cells(x, 2)Sheets(郑州上画).Cells(n, 2) = Sheets(郑州).Cells(x, 3)Sheets(郑州上画).Cells(n, 3) = Sheets(郑州).Cells(x, 4)Sheets(郑州上画).Cells(n, 4) = Sheets(郑州).Cells(x, 5)Sheets(郑州上画).Cells(n, 5) = Sheets(郑州).Cells(x, 6)Sheets(郑州上画).Cells(n, 6) = Sheets(郑州).Cells(x, 16)n = n + 1E

14、lseEnd IfNext yNext xIf Sheets(郑州上画).Cells(2, 1).Value = ThenMsgBox (查找不到指定客户)Exit SubElseMsgBox (指定客户查找完毕,共查找到 & n - 2 & 项)Exit SubEnd IfEnd SubSub tianjia_zzbhhd()If Sheets(郑州上画).Cells(2, 1).Value = 0 ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, n As LongSheets(郑州).Cells(1, 18) = =counta(郑州上画!a:a)For

15、 n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value = ThenMsgBox (添加成功)Exit SubElseEnd IfFor x = 4 To 1000If Sheets(郑州).Cells(x, 2) = Sheets(郑州上画).Cells(n, 1) ThenSheets(郑州上画).Cells(n, 2) = Sheets(郑州).Cells(x, 3)Sheets(郑州上画).Cells(n, 3) = Sheets(郑州).Cells(x, 4)Sheets(郑州上画).Cells(n

16、, 4) = Sheets(郑州).Cells(x, 5)Sheets(郑州上画).Cells(n, 5) = Sheets(郑州).Cells(x, 6)Sheets(郑州上画).Cells(n, 6) = Sheets(郑州).Cells(x, 7)Sheets(郑州上画).Cells(n, 7) = Sheets(郑州).Cells(x, 8)Sheets(郑州上画).Cells(n, 8) = Sheets(郑州).Cells(x, 9)Sheets(郑州上画).Cells(n, 9) = Sheets(郑州).Cells(x, 10)Sheets(郑州上画).Cells(n, 10)

17、 = Sheets(郑州).Cells(x, 11)Sheets(郑州上画).Cells(n, 11) = Sheets(郑州).Cells(x, 12)Sheets(郑州上画).Cells(n, 12) = Sheets(郑州).Cells(x, 16)ElseEnd IfNext xNext nEnd SubSub tianjia_zzxc()If Sheets(郑州上画).Cells(2, 1).Value = 0 ThenMsgBox (无下撤点位)Exit SubElseEnd IfDim x, y, n, m, l As LongSheets(郑州).Cells(1, 18) =

18、=counta(郑州上画!a:a)For n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value = ThenMsgBox (下撤完毕)Exit SubElseEnd IfFor x = 4 To 600If Sheets(郑州).Cells(x, 2) = Sheets(郑州上画).Cells(n, 1) Thenm = 0For y = 7 To 17If Sheets(郑州).Cells(x, y) = Sheets(郑州上画).Cells(1, 7) ThenSheets(郑州).Cells(x, y)

19、 = m = m + 1ElseEnd IfNext yIf m = 0 ThenSheets(郑州上画).Cells(n, 6) = 该点位无需要删除的客户ElseEnd IfElseEnd IfNext xNext nEnd SubSub tianjia_zzbhhd1()If Sheets(郑州上画).Cells(2, 3).Value = 0 ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, n As LongSheets(郑州).Cells(1, 18) = =counta(郑州上画!c:c)For n = 2 To Sheets(郑州).Cells

20、(1, 18) + 1If Sheets(郑州上画).Cells(n, 3).Value = ThenMsgBox (添加成功)Exit SubElseEnd IfFor x = 4 To 1000If Sheets(郑州).Cells(x, 4) = Sheets(郑州上画).Cells(n, 3) ThenSheets(郑州上画).Cells(n, 1) = Sheets(郑州).Cells(x, 2)Sheets(郑州上画).Cells(n, 2) = Sheets(郑州).Cells(x, 3)Sheets(郑州上画).Cells(n, 4) = Sheets(郑州).Cells(x, 5)Sheets(郑州上画).Cells(n, 5) = Sheets(郑州).Cells(x, 6)ElseEnd IfNext xNext nEnd Sub

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

20 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 媒体资源管理系统源程序

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：媒体资源管理系统源程序.docx
链接地址：https://www.taowenge.com/p-66790242.html