yuanfang1992-CSDN博客

原创 Win10 Ubuntu 18.04双硬盘双系统安装 MBR＋BIOS转GPT＋UEFI

参见：https://itbbs.pconline.com.cn/soft/53320637.html写在前面：我的装法是两块硬盘各自装有一个系统。互不干扰。结合UFEI启动的特性，有效避Grub或者winbootmgr互相引导的问题。想选哪个系统，直接在UEFI界面选择所在硬盘就好了。1. 前期准备：两个可引导开机的U盘，一个写入原装Win10系统，一个写入Ubuntu18.04.2...

2018-10-28 10:13:35 2914

原创解决安装ubuntu18.04分区后出现SCSI......第...分区...设备的一个vfat文件系统挂载到/boot/efi失败

答案就是进bios，关闭装有其它系统硬盘的供电。不要问我为什么这样做。实践出真章。在未关闭另一块硬盘时，博主重装ubuntu不下10次，都以失败告终。在网络上搜索找到的答案都不对。完整error message: “SCSI 4(0,0,0), 第一分区（sda)设备的一个vfat文件系统挂截到/boot/efi/失败。” 并要求重新分区。真的是不晓得，在a硬盘上装Ubuntu...

2018-10-28 09:52:25 10602 3

转载 Pi的虚拟内存设置

Creating a Swap FileTo add a swap file: Determine the size of the new swap file in megabytes and multiply by 1024 to determine the number of blocks. For example, the block size of a 64 MB swap ...

2018-09-01 16:32:02 320

原创使用数组

定义与重定义：'定义空的数组，第一次赋值时确定大小Dim Mystr()'定义确实大小的数组Dim Mystr(100,100)'保留数据扩充大小,速度慢不推荐ReDim Preserve MyStr(n)'擦除数组,释放内存Erase arr数组取值：'一维数组取列arr = Application.Transpose(.range()）'一维数组取行...

2018-08-30 12:04:50 302

转载关于安装visio2013提示找不到Office.zh-cn\setup.xml等文件的解决方法

最后找到解决的方法：处理方法如下：1. 下载office2013镜像并挂载；2. 挂载visio 2013镜像并点电击安装；3. 弹出窗口提示找不到xx文件，此时就在弹出的窗口处选择挂载的office 2013位置；4. 可能因找不到多个文件而重复步骤3多次。5. 大功告成。...

2018-08-29 20:32:48 8293

原创 VBA中使用SQL

取出同文件夹下所有表格中相关信息Dim Cnn As Object, MyCat As Object, rst As Object, sql$, SheetName$, f$, ph$, r&, strConn$ph = ThisWorkbook.Path & "\": f = Dir(ph & "*.xls?") '注意写法，创建路径strConn = "Pr...

2018-08-27 16:54:06 14664 1

原创 VBA项目方面小技巧

workbook 关闭并保存修改workbook.close savechanges:=True 删除隐私检查Workbook.RemovePersonalInformation = False打印任意格式文件，只要支持windows右键打印Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecu...

2018-08-27 16:44:28 936

原创 VBA常见对象的操作

拷贝到指定地方Sheets(1).Range.copy destination:=Sheets(2).range拷贝指定range的几种写法 Range("A1:C5").Copy '直接复制源数据（去掉select以提高效率）Range("G7").PasteSpecial Paste:=xlPasteValues '显示参数名方式（标准、易懂）Range("G7").Pa...

2018-08-27 16:42:12 2257

原创常用的几种遍历

遍历文件/文件夹Set Fso = CreateObject("scripting.filesystemobject") '后期绑定Set ff = Fso.getfolder(ThisWorkbook.Path) 'FSO取文件树For Each f In ff.Files '遍历 ''' '核心代码块 '''Next f遍历数...

2018-08-27 16:31:34 271

原创使用字典

'字典声明Set dic = CreateObject("Scripting.Dictionary")If Not dic.exists(Arr(1, col)) Then '查询字典是否存在 dic.Add Arr(1, col), col '新增字典 key + valueElse MsgBox ("BOM中发现重复列名，请删除或改名字先！") GoT...

2018-08-27 16:29:26 198

原创取最大行

Sheets.AutoFilter.ShowAllData '任何情况，一定要先去筛选再取最大行max_row =sheets(1).[a65536].End(3).Row

2018-08-27 16:27:20 234

1.安装transmissionapt-get install transmission-daemon3.启动与关闭sudo /etc/init.d/transmission-daemon startsudo /etc/init.d/transmission-daemon stop2.配置settings.jsonsudo /etc/init.d/transmission-daemon stop ...

2017-08-26 16:09:15 38355

转载禁用和启用windows defender

1. 从打开的“组策略编辑”界面，依次展开“计算机配置”→“管理模板”→“Windows 组件”，从中就可以找到“Windows Defender”项。2. 展开“Windows Defender”项，从右侧找到“关闭Windows Defender”项，鼠标右击从其右键菜单中选择“编辑”项。3. 从打开的“关闭Windows Defender”窗口中，禁用就勾选“已启用”项，启用就勾选"

2017-08-12 21:17:42 6268

yuanfang1992的博客