摘要：带一都ka一ni我酷哇谋一都类带那该斯带阿内嘎阿kei卡阿木NO哟达他嘎一NO苏背呆Woshi地斯酷苏妈呆嘎阿一妈拉巴一缩都奥你耐mu烙嘎噻卡一嘎欧哇鲁妈带娃哈那类鲁科头谋耐搜ho耐嘎那带一大一哭噻路猫又路to摸都拉那一偷ki拉凯嘎那在卡嘎丫一呆娃亚租那ki大口口罗马带猫口娃苏哈卡那ki哦毛ei口闹
阅读全文
摘要：参考：https://www.overleaf.com/learn/latex/Font_typefaces
阅读全文
摘要：adobe acrobat pro如何提取文件中某几个页面 通过 文档”→“提取页面” 来实现！
阅读全文
摘要：51CTO原文地址：http://mcdelfino.blog.51cto.com/all/2058744[转载] 为小7文件夹右键添加“复制到”“移动到”【转】 2012-01-10[原创] Excel VBA 循环“我中毒了~” 2011-10-18[原创] Excel VBA 实现电子钟 2011-10-18[转载] 利用win7自带的远程协助 2011-10-09[原创] win+R system32 中部分程序名称 2011-10-09[原创] ArcGIS相关问题及解决 2011-09-14[转载] 遥感影像下载网址 2011-09-12[原创] ERDAS 9.2安装教程 20.
阅读全文
摘要：GISALL 博客地址：http://www.gisall.com/spacecp.php?action=spaceblogs演示：不同等级城市定义不同字体的标注 2011-12-23GIS到底能在那些类型的职业发展（转） 2011-12-17Excel VBA函数 2011-10-25FireFox插件stylish 2011-10-22word替换实例 2011-10-11ArcGIS中的术语表 2011-10-11Word替换技巧 2011-10-11ArcScan使用心得 2011-10-07ArcGIS10官方教程 2011-10-07相关资料链接 2011-10-07地理信息系统基
阅读全文
摘要：MSDN - Visual Basic：http://msdn.microsoft.com/zh-cn/library/2x7h1hfk.aspxMSDN - VB 语句：http://msdn.microsoft.com/zh-cn/library/865x40k4.aspx原文链接：http://blog.csdn.net/alexbnlee?viewmode=contents用Excel VBA实现多文件夹内文件加入表头 & 遍历文件（2011-11-18 19:17）指数的十六进制很规则（2011-11-17 20:59）Python数据类型——序列(字符串，列表，元组)（20
阅读全文
摘要：原文：http://mcdelfino.blog.51cto.com/2058744/760894一.为小7文件夹右键添加“复制到”“移动到”1. 开始—运行—输入regedit，打开注册表编辑器。2. 找到HKEY_CLASSES_ROOT\-AllFilesystemObjects\shellex\ContextMenuHandlers，在该子项下，右击鼠标，在弹出的菜单中选择【新键】，然后选择【项（K）】，将它命名为“复制到”，然后双击右边的【默认】，在【数值数据】文本对话框中输入 “{C2FBB630-2971-11D1-A18C-00C04FD75D13}”。利用同样方法，新建项，命
阅读全文
摘要：【地理信息系统GIS专业的10个发展方向：】 职业生涯规划中的路径选择，首先要知道自己在哪儿，要去哪儿——这是给自己的所在地和目的地定位。所在地的定位没什么问题，能考上大学的人，差不多都对自己的知识和技能、素质和能力、性格和品格有一定的认识，只是精度不同而已。目的地的定位却是个大问题，大多数人只能笼统地说出找工作、做学问或创业，再想看清晰一点却是难于上青天。窃以为这是很多人迷茫的一个重要的方面。 想当初，从小喜爱地图的我怀着一腔热情报考GIS专业，却也弄不清自己到底想做什么，使得两年的大好时光白白浪费（尽管用传统的衡量“好学生”的标准我可谓是相当成功），加上考研，一共是三年青春向东流，现在..
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/69242071 → 实现标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件。获取文件的FullName表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect)FileFilter：过滤文件Title：标题MultiSelect：可以多选Sub Stop1() Dim fileInformation As String Dim fi As Workbook fileInfor...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6923787→用户自定义数据类型需要使用Type语句Type lianxiren name As String sex As String age As Integer phone As String address As String department As StringEnd TypeSub AddressList() Dim record As lianxiren record.name = "Alex" record.sex =...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6917800数组：定义数组： Dim arr(30 To 50) As Single 定义数组，从30到50，定义为浮点型~ arr(30) = 34.3产生随机数，但是随机数要不同（1到20之间产生10个不同的随机数） Sub sdlkfjl() For i = 1 To 10 Cells(1, i) = Int(1 + Rnd() * 19) '给个随机数 For j = 1 To i - 1 ...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6913565参考：http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspxTextBox事件→ KeyPress事件的语法如下：KeyANSI只是个参数，所以可以改成任何喜欢的名字，每键入一个值的时候，都会触发KeyANSI，通过设置，可以实现限制默写值的键入。→ KeyDown事件 按下触发→ KeyUp事件 松手触发CommandButton事件→ MouseMove事件→ MouseDown事件 按下事件，左右键
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6912319Application.Version 显示Excel的版本号Application.UserName 显示当前用户的用户名Application.StatusBar = "状态栏" 状态栏显示内容Application.StatusBar = False 状态栏不显示内容Application.Wait Now() + TimeValue("00:00:01") DoEvents暂停
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6911204Workbooks(1).NameWorkbooks(1).FullName 工作簿地址加名字Workbooks(1).Path 工作簿地址Workbooks(1).Close SaveChanges:=False 关闭工作簿，并且不保存Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件Workbooks(1).Save 工作簿保存ThisWorkbook.SaveAs Filename:=T
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6910151工作表引用Worksheets(3).Select 这里面的3是Index，就是一个下面的顺序Worksheets("Sheet3").Select 这里面的Sheet3是NameSheet3.Select 这里面的Sheet3是CodeName数组For Each Rng in Range("A1:J10")For Each Sht in WorksheetsFor Each Book in Workbooks添加工作表Worksheets
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6909689Rows.Count 显示所有行的数目Columns.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1:B4"
阅读全文
摘要：来源：http://www.gisall.com/?uid-153242-action-viewspace-itemid-5903 Rows.Count 显示所有行的数目Column.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1:
阅读全文
摘要：来源：http://mcdelfino.blog.51cto.com/2058744/691131 Dim Runtime As Date Sub RunTimer() Runtime = Now() + TimeValue("00:00:01") Application.OnTime Runtime, "my_Procedure" End Sub Sub my_Procedure() Static count As Integer count = count + 1 ...
阅读全文
摘要：来源：http://mcdelfino.blog.51cto.com/2058744/691026Dim Runtime As Date '定义时间变量 Sub RunTimer() Runtime = Now() + TimeValue("00:00:02") '时间显示为增加1秒 Application.OnTime Runtime, "my_Procedure" '在这个指定的时间执行下面的过程End Sub Sub my_Procedure() Range("A1") = Format(Time, &q
阅读全文
