vba--数组，多个表中的程序合并到一起，设置为一个按钮
Sub ttt()
t = Timer
Application.DisplayAlerts = False
'清空数据
Sheets("买卖4").Select
Range("B2:K15").Select
Selection.ClearContents
Sheets("买卖M").Select
Range("B2:K15").Select
Selection.ClearContents
Sheets("买卖M转录").Select
Range("B2:K15").Select
Selection.ClearContents
Sheets("买卖总").Select
Range("B2:K15").Select
Selection.ClearContents
Sheets("新4").Select
Range("B2:K15").Select
Selection.ClearContents
Sheets("新M").Select
Range("B2:K15").Select
Selection.ClearContents
'切换工作表运行程序
Sheets("买卖4").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With
Sheets("买卖M").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With Sheets("买卖M转录").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With
Sheets("买卖总").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With
Sheets("新4").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With
Sheets("新M").Select
Range("A1:A12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _
xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:A12")
.Header = xlYes
.Apply
End With
'添加数据
Dim a1, b1, c1, d1, e1, f1, a2, b2, c2, d2, e2, f2 As Integer
Sheets("买卖4").Select
'买卖4
arr1 = Sheets("买卖4质").Range("A1:D14")
arr2 = Sheets("买卖4转").Range("A1:I14") For i = 2 To 12 For j = 2 To 14
'买卖4质
If Cells(i, 1) = arr1(j, 1) Then
'400接通量_买卖
Cells(i, 2) = arr1(j, 2) * arr1(j, 4)
'400接听量_买卖
Cells(i, 3) = arr1(j, 2) * arr1(j, 4) * arr1(j, 3)
'400接听率_买卖
On Error Resume Next
Cells(i, 4) = Cells(i, 3) / Cells(i, 2)
End If
'买卖4转
If Cells(i, 1) = arr2(j, 1) Then
'400商机量_买卖
Cells(i, 5) = arr2(j, 2)
'400转录入量
Cells(i, 6) = arr2(j, 7)
'400转录入率
Cells(i, 7) = arr2(j, 3)
'400转带看量
Cells(i, 8) = arr2(j, 8)
'400转带看率
Cells(i, 9) = arr2(j, 4)
'400转成交量
Cells(i, 10) = arr2(j, 9)
'400转成交率
Cells(i, 11) = arr2(j, 5)
End If Next Next For i = 2 To 12 '东南大部
If i < 9 Then
a2 = a2 + Cells(i, 2)
b2 = b2 + Cells(i, 3)
c2 = c2 + Cells(i, 5)
d2 = d2 + Cells(i, 6)
e2 = e2 + Cells(i, 8)
f2 = f2 + Cells(i, 10)
End If
'接通量
Cells(13, 2) = a2
'接听量
Cells(13, 3) = b2
'接听率
Cells(13, 4) = b2 / a2 '400商机量
Cells(13, 5) = c2
'转录入量
Cells(13, 6) = d2
'转录入率
Cells(13, 7) = d2 / c2
'转带看量
Cells(13, 8) = e2
'转带看率
Cells(13, 9) = e2 / c2
'转成交量
Cells(13, 10) = f2
'转成交率
Cells(13, 11) = f2 / c2 '西北大部
If i > 8 Then
a1 = a1 + Cells(i, 2)
b1 = b1 + Cells(i, 3)
c1 = c1 + Cells(i, 5)
d1 = d1 + Cells(i, 6)
e1 = e1 + Cells(i, 8)
f1 = f1 + Cells(i, 10) End If
'接通量
Cells(14, 2) = a1
'接听量
Cells(14, 3) = b1
'接听率
Cells(14, 4) = b1 / a1 '400商机量
Cells(14, 5) = c1
'转录入量
Cells(14, 6) = d1
'转录入率
Cells(14, 7) = d1 / c1
'转带看量
Cells(14, 8) = e1
'转带看率
Cells(14, 9) = e1 / c1
'转成交量
Cells(14, 10) = f1
'转成交率
Cells(14, 11) = f1 / c1
Next '公司
'接通量
Cells(15, 2) = a1 + a2
'接听量
Cells(15, 3) = b1 + b2
'接听率
Cells(15, 4) = (b1 + b2) / (a1 + a2) '400商机量
Cells(15, 5) = c1 + c2
'转录入量
Cells(15, 6) = d1 + d2
'转录入率
Cells(15, 7) = (d1 + d2) / (c1 + c2)
'转带看量
Cells(15, 8) = e1 + e2
'转带看率
Cells(15, 9) = (e1 + e2) / (c1 + c2)
'转成交量
Cells(15, 10) = f1 + f2
'转成交率
Cells(15, 11) = (f1 + f2) / (c1 + c2)
a1 = 0
b1 = 0
c1 = 0
d1 = 0
e1 = 0
f1 = 0
a2 = 0
b2 = 0
c2 = 0
d2 = 0
e2 = 0
f2 = 0
'买卖M
Sheets("买卖M").Select
arr1 = Sheets("买卖M质").Range("A1:C14")
arr2 = Sheets("买卖M转").Range("A1:I14") For i = 2 To 12
For j = 2 To 14
'买卖M质
If Cells(i, 1) = arr1(j, 1) Then
'IM会话数_买卖
Cells(i, 2) = arr1(j, 2)
'IM1分钟响应量_买卖
Cells(i, 3) = arr1(j, 2) * arr1(j, 3)
'IM1分钟响应率_买卖
Cells(i, 4) = arr1(j, 3)
'IM商机量_买卖
Cells(i, 5) = arr2(j, 2)
'IM转录入量_买卖
Cells(i, 6) = arr2(j, 7)
'IM转录入率_买卖
Cells(i, 7) = arr2(j, 3)
'IM转带看量_买卖
Cells(i, 8) = arr2(j, 8)
'IM转带看率_买卖
Cells(i, 9) = arr2(j, 4)
'IM转成交量_买卖
Cells(i, 10) = arr2(j, 9)
'IM转成交率_买卖
Cells(i, 11) = arr2(j, 5) End If Next Next For i = 2 To 12 '东南大部
If i < 9 Then
a2 = a2 + Cells(i, 2)
b2 = b2 + Cells(i, 3)
c2 = c2 + Cells(i, 5)
d2 = d2 + Cells(i, 6)
e2 = e2 + Cells(i, 8)
f2 = f2 + Cells(i, 10)
End If
'IM会话数_买卖
Cells(13, 2) = a2
'1分钟响应量
Cells(13, 3) = b2
'1分钟响应率
Cells(13, 4) = b2 / a2 'IM商机量
Cells(13, 5) = c2
'转录入量
Cells(13, 6) = d2
'转录入率
Cells(13, 7) = d2 / c2
'转带看量
Cells(13, 8) = e2
'转带看率
Cells(13, 9) = e2 / c2
'转成交量
Cells(13, 10) = f2
'转成交率
Cells(13, 11) = f2 / c2 '西北大部
If i > 8 Then
a1 = a1 + Cells(i, 2)
b1 = b1 + Cells(i, 3)
c1 = c1 + Cells(i, 5)
d1 = d1 + Cells(i, 6)
e1 = e1 + Cells(i, 8)
f1 = f1 + Cells(i, 10) End If
'IM会话数
Cells(14, 2) = a1
'1分钟响应量
Cells(14, 3) = b1
'1分钟响应率
On Error Resume Next
Cells(14, 4) = b1 / a1 'IM商机量
Cells(14, 5) = c1
'转录入量
Cells(14, 6) = d1
'转录入率
Cells(14, 7) = d1 / c1
'转带看量
Cells(14, 8) = e1
'转带看率
Cells(14, 9) = e1 / c1
'转成交量
Cells(14, 10) = f1
'转成交率
Cells(14, 11) = f1 / c1
Next '公司
'会话数
Cells(15, 2) = a1 + a2
'1分钟响应量
Cells(15, 3) = b1 + b2
'1分钟响应率
Cells(15, 4) = (b1 + b2) / (a1 + a2) 'IM商机量
Cells(15, 5) = c1 + c2
'转录入量
Cells(15, 6) = d1 + d2
'转录入率
Cells(15, 7) = (d1 + d2) / (c1 + c2)
'转带看量
Cells(15, 8) = e1 + e2
'转带看率
Cells(15, 9) = (e1 + e2) / (c1 + c2)
'转成交量
Cells(15, 10) = f1 + f2
'转成交率
Cells(15, 11) = (f1 + f2) / (c1 + c2)
a1 = 0
b1 = 0
c1 = 0
d1 = 0
e1 = 0
f1 = 0
a2 = 0
b2 = 0
c2 = 0
d2 = 0
e2 = 0
f2 = 0
'买卖M转录
Sheets("买卖M转录").Select arr1 = Sheets("买卖M质").Range("A1:I14")
arr2 = Sheets("买卖M转").Range("A1:I14") For i = 2 To 12 For j = 2 To 14
'IM质量
If Cells(i, 1) = arr1(j, 1) Then
For k = 2 To 9
Cells(i, k) = arr1(j, k)
Next End If
'转录入
If Cells(i, 1) = arr2(j, 1) Then Cells(i, 10) = arr2(j, 3)
End If Next Next Sheets("买卖总").Select
arr = Sheets("买卖总转").Range("A1:I14") For i = 2 To 12 For j = 2 To 14
If Cells(i, 1) = arr(j, 1) Then
'商机量
Cells(i, 2) = arr(j, 2)
'转录入量
Cells(i, 3) = arr(j, 7)
'转录入率
Cells(i, 4) = arr(j, 3)
'转带看量
Cells(i, 5) = arr(j, 8)
'转带看率
Cells(i, 6) = arr(j, 4)
'转成交量
Cells(i, 7) = arr(j, 9)
'转成交率
Cells(i, 8) = arr(j, 5)
End If
Next
Next For i = 2 To 12
'东南大部
If i < 9 Then
a2 = a2 + Cells(i, 2)
b2 = b2 + Cells(i, 3)
c2 = c2 + Cells(i, 5)
d2 = d2 + Cells(i, 7) End If
'总商机量
Cells(13, 2) = a2
'总商机转录入量
Cells(13, 3) = b2
'总商机转录入率
Cells(13, 4) = b2 / a2 '总商机转带看量
Cells(13, 5) = c2
'总商机转带看率
Cells(13, 6) = c2 / a2
'总商机转成交量
Cells(13, 7) = d2
'总商机转成交率
Cells(13, 8) = d2 / a2 '西北大部
If i > 8 Then
a1 = a1 + Cells(i, 2)
b1 = b1 + Cells(i, 3)
c1 = c1 + Cells(i, 5)
d1 = d1 + Cells(i, 7) End If
'总商机量
Cells(14, 2) = a1
'总商机转录入量
Cells(14, 3) = b1
'总商机转录入率
On Error Resume Next
Cells(14, 4) = b1 / a1 '总商机转带看量
Cells(14, 5) = c1
'总商机转带看率
Cells(14, 6) = c1 / a1
'总商机转成交量
Cells(14, 7) = d1
'总商机转成交率
Cells(14, 8) = d1 / a1
Next '公司
'总商机量
Cells(15, 2) = a1 + a2
'总商机转录入量
Cells(15, 3) = b1 + b2
'总商机转录入率
Cells(15, 4) = (b1 + b2) / (a1 + a2) '总商机转带看量
Cells(15, 5) = c1 + c2
'总商机转带看率
Cells(15, 6) = (c1 + c2) / (a1 + a2)
'总商机转成交量
Cells(15, 7) = d1 + d2
'总商机转成交率
Cells(15, 8) = (d1 + d2) / (a1 + a2)
a1 = 0
b1 = 0
c1 = 0
d1 = 0
e1 = 0
f1 = 0
a2 = 0
b2 = 0
c2 = 0
d2 = 0
e2 = 0
f2 = 0 Sheets("新4").Select
'新4
arr1 = Sheets("新4质").Range("A1:D14")
arr2 = Sheets("新4转").Range("A1:I14") For i = 2 To 12 For j = 2 To 14
'买卖4质
If Cells(i, 1) = arr1(j, 1) Then
'400接通量_新房
Cells(i, 2) = arr1(j, 2) * arr1(j, 4)
'400接听量_新房
Cells(i, 3) = arr1(j, 2) * arr1(j, 4) * arr1(j, 3)
'400接听率_新房
On Error Resume Next
Cells(i, 4) = Cells(i, 3) / Cells(i, 2)
End If
'买卖4转
If Cells(i, 1) = arr2(j, 1) Then
'400商机量_新房
Cells(i, 5) = arr2(j, 2)
'400转录入量
Cells(i, 6) = arr2(j, 7)
'400转录入率
Cells(i, 7) = arr2(j, 3)
'400转带看量
Cells(i, 8) = arr2(j, 8)
'400转带看率
Cells(i, 9) = arr2(j, 4)
'400转成交量
Cells(i, 10) = arr2(j, 9)
'400转成交率
Cells(i, 11) = arr2(j, 5)
End If Next Next For i = 2 To 12
'东南大部
If i < 9 Then
a2 = a2 + Cells(i, 2)
b2 = b2 + Cells(i, 3)
c2 = c2 + Cells(i, 5)
d2 = d2 + Cells(i, 6)
e2 = e2 + Cells(i, 8)
f2 = f2 + Cells(i, 10)
End If
'接通量
Cells(13, 2) = a2
'接听量
Cells(13, 3) = b2
'接听率
Cells(13, 4) = b2 / a2 '400商机量
Cells(13, 5) = c2
'转录入量
Cells(13, 6) = d2
'转录入率
Cells(13, 7) = d2 / c2
'转带看量
Cells(13, 8) = e2
'转带看率
Cells(13, 9) = e2 / c2
'转成交量
Cells(13, 10) = f2
'转成交率
Cells(13, 11) = f2 / c2 '西北大部
If i > 8 Then
a1 = a1 + Cells(i, 2)
b1 = b1 + Cells(i, 3)
c1 = c1 + Cells(i, 5)
d1 = d1 + Cells(i, 6)
e1 = e1 + Cells(i, 8)
f1 = f1 + Cells(i, 10) End If
'接通量
Cells(14, 2) = a1
'接听量
Cells(14, 3) = b1
'接听率
Cells(14, 4) = b1 / a1 '400商机量
Cells(14, 5) = c1
'转录入量
Cells(14, 6) = d1
'转录入率
Cells(14, 7) = d1 / c1
'转带看量
Cells(14, 8) = e1
'转带看率
Cells(14, 9) = e1 / c1
'转成交量
Cells(14, 10) = f1
'转成交率
Cells(14, 11) = f1 / c1
Next '公司
'接通量
Cells(15, 2) = a1 + a2
'接听量
Cells(15, 3) = b1 + b2
'接听率
Cells(15, 4) = (b1 + b2) / (a1 + a2) '400商机量
Cells(15, 5) = c1 + c2
'转录入量
Cells(15, 6) = d1 + d2
'转录入率
Cells(15, 7) = (d1 + d2) / (c1 + c2)
'转带看量
Cells(15, 8) = e1 + e2
'转带看率
Cells(15, 9) = (e1 + e2) / (c1 + c2)
'转成交量
Cells(15, 10) = f1 + f2
'转成交率
Cells(15, 11) = (f1 + f2) / (c1 + c2) a1 = 0
b1 = 0
c1 = 0
d1 = 0
e1 = 0
f1 = 0
a2 = 0
b2 = 0
c2 = 0
d2 = 0
e2 = 0
f2 = 0 Sheets("新M").Select
'新M
arr1 = Sheets("新M质").Range("A1:C14")
arr2 = Sheets("新M转").Range("A1:I14") For i = 2 To 12
For j = 2 To 14
'买卖M质
If Cells(i, 1) = arr1(j, 1) Then
'IM会话数_新房
Cells(i, 2) = arr1(j, 2)
'IM1分钟响应量_新房
Cells(i, 3) = arr1(j, 2) * arr1(j, 3)
'IM1分钟响应率_新房
Cells(i, 4) = arr1(j, 3)
'IM商机量_新房
Cells(i, 5) = arr2(j, 2)
'IM转录入量_新房
Cells(i, 6) = arr2(j, 7)
'IM转录入率_新房
Cells(i, 7) = arr2(j, 3)
'IM转带看量_新房
Cells(i, 8) = arr2(j, 8)
'IM转带看率_新房
Cells(i, 9) = arr2(j, 4)
'IM转成交量_新房
Cells(i, 10) = arr2(j, 9)
'IM转成交率_新房
Cells(i, 11) = arr2(j, 5) End If Next Next For i = 2 To 12
'东南大部
If i < 9 Then
a2 = a2 + Cells(i, 2)
b2 = b2 + Cells(i, 3)
c2 = c2 + Cells(i, 5)
d2 = d2 + Cells(i, 6)
e2 = e2 + Cells(i, 8)
f2 = f2 + Cells(i, 10)
End If
'IM会话数_买卖
Cells(13, 2) = a2
'1分钟响应量
Cells(13, 3) = b2
'1分钟响应率
Cells(13, 4) = b2 / a2 'IM商机量
Cells(13, 5) = c2
'转录入量
Cells(13, 6) = d2
'转录入率
Cells(13, 7) = d2 / c2
'转带看量
Cells(13, 8) = e2
'转带看率
Cells(13, 9) = e2 / c2
'转成交量
Cells(13, 10) = f2
'转成交率
Cells(13, 11) = f2 / c2 '西北大部
If i > 8 Then
a1 = a1 + Cells(i, 2)
b1 = b1 + Cells(i, 3)
c1 = c1 + Cells(i, 5)
d1 = d1 + Cells(i, 6)
e1 = e1 + Cells(i, 8)
f1 = f1 + Cells(i, 10) End If
'IM会话数
Cells(14, 2) = a1
'1分钟响应量
Cells(14, 3) = b1
'1分钟响应率
On Error Resume Next
Cells(14, 4) = b1 / a1 'IM商机量
Cells(14, 5) = c1
'转录入量
Cells(14, 6) = d1
'转录入率
Cells(14, 7) = d1 / c1
'转带看量
Cells(14, 8) = e1
'转带看率
Cells(14, 9) = e1 / c1
'转成交量
Cells(14, 10) = f1
'转成交率
Cells(14, 11) = f1 / c1
Next '公司
'会话数
Cells(15, 2) = a1 + a2
'1分钟响应量
Cells(15, 3) = b1 + b2
'1分钟响应率
Cells(15, 4) = (b1 + b2) / (a1 + a2) 'IM商机量
Cells(15, 5) = c1 + c2
'转录入量
Cells(15, 6) = d1 + d2
'转录入率
Cells(15, 7) = (d1 + d2) / (c1 + c2)
'转带看量
Cells(15, 8) = e1 + e2
'转带看率
Cells(15, 9) = (e1 + e2) / (c1 + c2)
'转成交量
Cells(15, 10) = f1 + f2
'转成交率
Cells(15, 11) = (f1 + f2) / (c1 + c2) a1 = 0
b1 = 0
c1 = 0
d1 = 0
e1 = 0
f1 = 0
a2 = 0
b2 = 0
c2 = 0
d2 = 0
e2 = 0
f2 = 0
'格式
Sheets("买卖4").Select '转带看率排序
Range("A1:K12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:K12")
.Apply
End With '400接听率率条件格式
Range("d2:d12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转录入率条件格式
Range("g2:g12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转带看率条件格式
Range("i2:i12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转成交率条件格式
Range("k2:k12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With Sheets("买卖M").Select
'转带看率排序
Range("A1:K12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:K12")
.Apply
End With
'IM1分钟响应率条件格式
Range("d2:d12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM1转录入率条件格式
Range("g2:g12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM1转带看率条件格式
Range("i2:i12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM1转成交率条件格式
Range("k2:k12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With Sheets("买卖M转录").Select
'3日内复聊率
Range("A1:K12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:K12")
.Apply
End With
Range("H2:H12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
Range("I2:I12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
Range("J2:J12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With Sheets("买卖总").Select
'转带看率排序
Range("A1:H12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("F2:F12"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:H12")
.Apply
End With '转录入率条件格式
Range("D2:D12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM1转带看率条件格式
Range("F2:F12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转成交率条件格式
Range("H2:H12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With Sheets("新4").Select '转带看率排序
Range("A1:K12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:K12")
.Apply
End With '400接听率率条件格式
Range("d2:d12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转录入率条件格式
Range("g2:g12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转带看率条件格式
Range("i2:i12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With '转成交率条件格式
Range("k2:k12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With Sheets("新M").Select Range("A1:K12").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("D2:D12"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:K12")
.Apply
End With 'IM响应率_新房条件格式
Range("D2:D12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM加私率_新房条件格式
Range("G2:G12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM转带看率_新房条件格式
Range("i2:i12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With 'IM转成交率_新房条件格式
Range("k2:k12").Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
Application.DisplayAlerts = True
MsgBox Timer - t End Sub
vba--数组，多个表中的程序合并到一起，设置为一个按钮的更多相关文章
- oracle数据库表中，插入数据的时候如何产生一个 字母+数字 编号?
Oracle 语句中“||”代表什么啊? oracle数据库表中,插入数据的时候如何产生一个 字母+数字 编号? 排序的话,用order by来处理即可.比如:cola123a234b999b335s ...
- IOS小技巧——使用FMDB时如何把一个对像中的NSArray数组属性存到表中
http://blog.csdn.net/github_29614995/article/details/46797917 在开发的当中,往往碰到要将数据持久化的时候用到FMDB,但是碰到模型中的属性 ...
- oracle 中从一个历史表中查询最新日期数据插入到另一个表中语句
先从历史表中查询最新的一个语句: select t.id from ( select r.*, row_number() over(partition by r.分组字段 order by r.排序时 ...
- sql语句-如何在SQL以一个表中的数据为条件据查询另一个表中的数据
select *from 表2where 姓名 in (select 姓名from 表1where 条件) 这个就是用一个表的查询结果当作条件去查询另一个表的数据
- 如何使用django操作数据库，向原有表中添加新的字段信息并建立一个多对多的关系？
(注:本人用的pycharm开发工具) 1.在你要添加新字段的app的 models.py 文件中添加需要新增的字段(book表新增authors字段并和author建立多对多关系,author表新增 ...
- mysql根据某个字符串拆分表中的字段，然后赋值给另外一个字段
sql语句示例: UPDATE user_info SET area_code = SUBSTRING_INDEX(telphone,'-',1) SUBSTRING_INDEX函数说明: subs ...
- mysql将一个表中字段A的值赋给另一个表的字段B
# mysql 的修改方法 update table_a a inner join table_b b on b.id=a.id set a.description=b.content; # mssq ...
- 如何把一个表中的部分字段值插入到另一个表中去 这sql吊
Insert into JHAC_TB_CODE(CID,CODE,ADD_TIME,USERID,PRO_CODE,USERNAME) select f_code.FID,f_code.Fcod ...
- 获取当前表中的最大自增id的下一个自增id值
SELECT auto_increment FROM information_schema.`TABLES` WHERE TABLE_SCHEMA='{$db_name}' AND TABLE_NAM ...
- vue中超简单的方法实现点击一个按钮出现弹框，点击弹框外关闭弹框
效果图展示: View层 <template> <div> <div class="mask" v-if="showModal" ...
随机推荐
- 一篇文章让你掌握99%的Python运算符。干货很多，建议收藏！！！
Python 中的运算符是编程中的基础概念,用于执行各种操作和数据计算.以下是一些 Python 中的主要运算符的概述: 运算符 1. 算术运算符 算术运算符语法规则 +:加法 -:减法 *:乘法 / ...
- 1分钟了解什么是SQL聚合函数，一看就懂，一学就会！（AVG(column_name)\COUNT(column_name)\MAX(column_name)\MIN(column_name)\SUM(column_name)）
聚集函数:SQL基本函数,聚集函数对一组值执行计算,并返回单个值,也被称为组函数.聚集函数经常与SELECT语句的GROUP BY子句的HAVING一同使用.但是不可用于WHERE语句中,因为WHER ...
- 动态修改manifest.json
点击查看代码 // h5开发环境 const h5Dev = { baseUrl: 'https://devh5.....' } // h5测试环境 const h5Test= { baseUrl: ...
- AIRIOT大学计划暑期训练营圆满结束，产教融合培养物联网产业人才
为促进物联网产业的纵深发展和创新,推进教育链.产业链与创新链的有机衔接,提高学生理论.实践和创新能力,7月3日-7月28日,由航天科技控股集团股份有限公司(简称"航天科技")开 ...
- 轻松下载k8s.gcr.io，gcr.io，quay.io镜像
目录 一.系统环境 二.前言 三.使用现成的镜像代理仓库下载镜像 3.1 使用阿里云镜像仓库 3.2 使用lank8s.cn镜像仓库 3.3 使用中科大镜像 一.系统环境 服务器版本 docker软件 ...
- AIRIOT智慧变电站管理解决方案
随着社会电气化进程的加速,电力需求与日俱增,变电站作为电网的关键节点,其稳定性和智能化管理水平直接关系到整个电力系统的高效运作.传统变电站管理平台难以适应现代电力系统复杂管理需求,存在如下痛点: 数据 ...
- 【题解】A18747.眼红的同学
题目链接:眼红的同学 题干信息很简单,看到数据量之后就不简单了.在数据量小的时候可以使用双层循环暴力的方法来求答案.显然对于这道题而言O(n^2)是完全过不去的. 前置知识: 使用树状数组求逆序对 会 ...
- SpringMVC在处理Ajax请求后返回void导致前台Ajax回调函数不执行
问题简述 在一次SpringMVC项目中,前台通过Ajax请求,准备修改数据库中的数据.因为Ajax请求只是让后台更改数据,所以Controller方法根本不需要返回给前台任何数据,所以我们将Cont ...
- 和必应对话之mysql分区分表
mysql单表数据量太大 导致查询缓慢问题如何解决 您好,这是Bing.根据网络搜索结果,mysql单表数据量太大导致查询缓慢的问题有以下几种可能的解决方案: 使用索引.索引是一种数据结构,可以帮助数 ...
- mkfs.xfs报错 mkfs.xfs: /dev/new/new_box appears to contain an existing filesystem (ext4). mkfs.xfs: Use the -f option to force overwrite.
在设置逻辑卷文件类型时候报错 mkfs.xfs: /dev/new/new_box appears to contain an existing filesystem (ext4). mkfs.xfs ...