2022年11月9日星期三
The certificate of 'packages.sury.org' has expired.
2022年11月5日星期六
Upgrade to Debian Version
apt-get update
Upgrade from Debian Jessie 8 to Debian 9
debian 9升级到debian 10
2022年11月4日星期五
怎么把100多个EXCEL文件合并成一个
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
--------------------------------------代码结束--------------------------------------------------------------------
方法二:与方法一步骤一样,这种方法是把所以的表格在一个文件里,但是每个文件是单独的,我们可以用合并计算方法再来计算各个分表的数值
----------------------代码开始--------------------------------------------------
Sub sheets2one()
'定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
--------------------------------------代码结束--------------------------------------------------------------------
2022年11月2日星期三
debian8 最新安装及整理
update-grub
apt-get autoclean
apt-get autoremove
reboot
dpkg -l|grep linux-image
apt-get purge
echo "tcp_bbr" >> /etc/modules-load.d/modules.conf
echo "net.core.default_qdisc=fq" >> /etc/sysctl.conf
echo "net.ipv4.tcp_congestion_control=bbr" >> /etc/sysctl.conf
执行这个保存生效更改。
sysctl -p
VPS提示:
net.core.default_qdisc = fq
net.ipv4.tcp_congestion_control = bbr
关闭bbr
sed -i '/net.core.default_qdisc=fq/d' /etc/sysctl.conf
sed -i '/net.ipv4.tcp_congestion_control=bbr/d' /etc/sysctl.conf
sysctl -p
执行完上面的代码,就使用reboot重启VPS后才能关闭bbr,重启后再用下面的查看bbr状态代码,查看是否关闭了。
reboot
执行下面命令,看到有 tcp_bbr 模块,即说明bbr已启动
lsmod | grep bbr
openwrt 6300V2 USB无法显示的问题
lsusb and fdisk -l There's a method to turn USB power on which is probably not persistent. I hope this will help you. echo 0 > /sys/c...
-
nginx报错nginx: [emerg] bind() to 0.0.0.0:80 failed (98: Address already in use) 仔细参考nginx中文文档发现,发送信号USR2时,自动启动新的可执行文件,再手动启动的话就会报错 本质上也算是一种地址冲...
-
The Vps is too old to get a newer OS from the provider. create /etc/apt/sources.list.d/jessie-backports.list, and fill in the following line...