媒体资源管理系统源程序

Sub tianjia_zz() If Sheets("郑州上画").Cells(2, 1).Value = 0 Then MsgBox ("无添加项") Exit Sub Else End If Dim x, y, n, m, l As Long Sheets("郑州").Cells(1, 18) = "=counta(郑州上画!a:a)" For n = 2 To Sheets("郑州").Cells(1, 18) + 1 If Sheets("郑州上画").Cells(n, 1).Value = "" Then MsgBox ("添加成功") Exit Sub Else End If For x = 4 To 600 y = 7 If Sheets("郑州").Cells(x, 2) = Sheets("郑州上画").Cells(n, 1) Then l = 0 For m = 7 To 12 If Sheets("郑州").Cells(x, m) = Sheets("郑州上画").Cells(1, 7) And Sheets("郑州上画").Cells(1, 7).Value <> 0 Then l = l + 1 Else End If Next m If l = 0 Then Do Until (IsEmpty(Sheets("郑州").Cells(x, y).Value)) y = y + 1 Loop If Sheets("郑州").Cells(x, 16) <> "断电" And Sheets("郑州").Cells(x, 13) <> 0 Then Sheets("郑州").Cells(x, y) = Sheets("郑州上画").Cells(1, 7) Sheets("郑州上画").Cells(n, 6) = "可上" ElseIf Sheets("郑州").Cells(x, 16) = "断电" And Sheets("郑州").Cells(x, 13) = 6 Then Sheets("郑州").Cells(x, y) = Sheets("郑州上画").Cells(1, 7) Sheets("郑州上画").Cells(n, 6) = "可上" Else Sheets("郑州上画").Cells(n, 6) = "不可用" Sheets("郑州上画").Cells(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 If Else Sheets("郑州上画").Cells(n, 6) = "与原选点位重复,请重新选择!" End If Else End If Next x Next n End Sub Sub tianjia_qz() If Sheets("郑州上画").Cells(2, 1).Value = 0 Then MsgBox ("无添加项") Exit Sub Else End If Dim x, y, n, m, l As Long Sheets("郑州").Cells(1, 18) = "=counta(郑州上画!a:a)" For n = 2 To Sheets("郑州").Cells(1, 18) + 1 If Sheets("郑州上画").Cells(n, 1).Value = "" Then MsgBox ("添加成功") Exit Sub Else End If For x = 4 To 600 If Sheets("郑州").Cells(x, 2) = Sheets("郑州上画").Cells(n, 1) Then Sheets("郑州").Cells(x, 17) = Sheets("郑州上画").Cells(1, 7) Else End If Next x Next n End Sub Sub tianjia_dd() If Sheets("郑州上画").Cells(2, 1).Value = "" Then MsgBox ("无添加项") Exit Sub Else End If Dim x, y, n As Long For y = 3 To 1000 Sheets("郑州").Cells(y, 16) = "" Next y Sheets("郑州").Cells(1, 18) = "=counta(郑州上画!a:a)" n = 2 For n = 2 To Sheets("郑州").Cells(1, 18) + 1 If Sheets("郑州上画").Cells(n, 1).Value = "" Then MsgBox ("添加成功") Exit Sub Else x = 3 Sheets("郑州").Cells(1, 18) = Sheets("郑州上画").Cells(n, 1) Do Until Sheets("郑州").Cells(x, 2) = Sheets("郑州").Cells(1, 18) x = x + 1 Loop Sheets("郑州").Cells(x, 16) = "断电" Next n End Sub Sub tianjia_zx() Dim x, n As Long n = 2 For x = 4 To 1000 If Sheets("郑州").Cells(x, 13) <> 0 And Sheets("郑州").Cells(x, 16) <> "断电" Then Sheets("郑州上画").Cells(n, 1) = Sheets("郑州").Cells(x, 2) If Sheets("郑州").Cells(x, 15) <> "无超链接" Then Sheets("郑州上画").Select Sheets("郑州上画").Hyperlinks.Add anchor:=Sheets("郑州上画").Cells(n, 1), Address:=Sheets("郑州").Cells(x, 2).Hyperlinks(1).Address End If 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, 13) n = n + 1 Else End If Next x If Sheets("郑州").Cells(x, 2) = "" Then MsgBox ("最新点位生成成功") Else End If End Sub Sub tianjia_QK() Sheets("郑州上画").Cells(1, 7) = "" Sheets("郑州上画").Range("A2:Q1000").ClearContents MsgBox ("清除成功") End Sub Sub tianjia_zdsc() If Sheets("郑州上画").Cells(1, 7).Value = "" Then MsgBox ("无指定客户") Exit Sub Else End If Dim x, y, n, h As Long n = 0 Sheets("郑州").Cells(1, 19) = "=counta(郑州!F:F)" For x = 4 To Sheets("郑州").Cells(1, 19) + 1 For y = 7 To 12 If Sheets("郑州").Cells(x, y) = Sheets("郑州上画").Cells(1, 7) Then Sheets("郑州").Cells(x, y) = "" n = n + 1 Else End If Next y Next x 继续阅读