- 博客(33)
- 收藏
- 关注
RSS订阅原创 2个表格对比，筛选、删除数据
2个表格对比，筛选、删除数据Option ExplicitSub search()'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~"'变量声明Dim File_sum, Sum_Workbook, i, j, sum, name_song_3, name_song_5, phone_3, phone_5 '----------------------------------------------------------------- '打开文件
2021-08-09 14:51:52
248
原创 账表计算借贷结果
按照账表格式，计算累计借贷结果。Option ExplicitSub count() Dim my_range, A_sum, B_sum, result_sum, i, flag_a, flag_b, j Dim A_yi, A_qianwan, A_baiwan, A_shiwan, A_wan, A_qian Dim A_bai, A_shi, A_yuan, ...
2019-11-12 10:54:36
289
原创 月日年格式调整
1948-1-211983-02-71988-7-1Sub re_format() Dim i, j, a, B, year, month, day, flag_a, flag_b, temp Set a = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange ...
2019-08-20 11:19:17
911
原创 VBA小仓库
Option ExplicitSub assembly() '日积月累End Sub'本文代码为不同功能模块的合集，旨在为日后快速编写代码提供便利。'第一部分： 打开文件 'File_sum = "E:\code\汇总.xls" 'Set Sum_Workbook = GetObject(File_sum)'第二部分：打开表格'1. Set A_R...
2019-07-22 11:14:06
330
原创 利用VBA筛选重复数据
目标：在重复数据中按照一定规则提取、组合。Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange Set C = Worksheets("Sheet3").UsedRang...
2019-06-17 14:30:02
6579
转载 VBA编程产生不重复随机数（转载）
https://blog.youkuaiyun.com/iamlaosong/article/details/38434179Sub random_test()Dim RndNumber, temp(20), i, k, Maxrec As IntegerDim myRange As Range'Debug.Print Int((30 * Rnd) + 1)Set myRange = Workshe...
2019-06-04 14:39:27
4248
原创 VBA 关键字匹配查找
Option ExplicitSub search()'完成对表格单元格中关键字的匹配查找'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~"'变量声明Dim column_num, row_num, File_sum, Sum_Workbook, search_file, _ temp_Workbook, sheet_num, key_word...
2019-04-24 10:08:32
9856
原创 多个EXCEL文件中给定的单元格值复制、汇总
背景：将多个EXCEL文件中给定的单元格值复制、汇总。不同于以往将一个工作薄中多个表格的复制、汇总，因此，要注意以下几点：获取给定路径下的文件名及其文件个数；打开excel文件的函数调用；Option ExplicitSub copy() Dim i, temp_Workbook, Sum_Workbook, File_sum, File_Dir, myfile '定...
2019-04-12 15:24:33
798
转载 悲剧的与幽默的人生态度——宗白华
悲剧的与幽默的人生态度——宗白华人类社会的法律、习惯、立交，使人们在和平秩序的保障之下，过着一种平凡安逸的生活；使人忘记了宇宙的神秘，生命的奇迹，心灵内部的诡幻与矛盾。近代的自然科学更是帮助近代人走向这条平淡幻灭的路。科学欲将这矛盾创新的宇宙也化作有秩序、有法律、有礼教的大结构，像我们理想的人类社会一样，然后我们更觉安然。然而人类史上向来就有一些不安分的诗人、艺术家、先知、哲学家等，偏要化腐...
2019-02-15 10:27:29
717
转载 自由和科学
自由和科学 爱因斯坦 我知道，要对基本价值的判断进行争论，是一件没有希望的事。比如，如果有人赞成把人类从地球上消灭掉作为一个目标，人们就不能从纯理性的立场来驳倒这种观点。但是如果有某些目标和价值是大家一致同意的，人们就能够合理地来议论达到这些目的的手段。现在，让我们来指出两个目标，凡是读到这篇东西的人...
2019-02-15 10:20:23
417
原创 不同表格查找重复数据VBA
分析两个表格中对应列的重复情况。Sub Match_Dec() '两个表格，表格中的某一列为对应列，查找这两列中的重复记录和差异记录。 Dim ar As Long, br As Long, i As Integer, j As Integer, num As Integer 'ar/br为行数，i为外层循环数控制，j为内层循环数控制 Dim A...
2018-12-25 13:50:54
2936
原创 一些文件操作的函数命令
列出一些IDL中常用的文件操作函数命令。FILE_MKDIR . 语法：FILE_MKDIR, File1 [,… FileN]创建给定目录。若省略绝对路径，则在当前路径下创建。FILE_COPY . 语法：FILE_COPY, SourcePath, DestPath [, /OVERWRITE]语句中的其他关键字详见帮助手册。Rename the file backup.dat ...
2018-12-14 16:38:54
249
原创 查找文本中的关键字
利用IDL完成对文本中关键字的搜索。主要涉及文本读写、字符串函数的使用。后期施工：能否考虑VBA实现相同功能？compile_opt idl2envi, /restore_base_save_filesstart_path = 'D:\LG Files\Code\IDL\'cd, start_pathsave_name = 'D:\LG Files\Code\IDL\Match_r...
2018-12-14 15:47:14
1677
原创 ENVI: Mask_Doit
利用mask_doit函数，实现批量裁剪。compile_opt idl2 start_path = 'F:\Temporary\data\LC8 Results\' cd,start_path out_path = 'F:\Temporary\data\LC8 Results\ENVI_clip\temp\ROI\' Files = FILE_Search(star...
2018-12-14 13:59:08
1180
原创 对文件的操作
利用IDL，完成给定情况的文件操作。本例中，主要使用 File_delete 命令 ;程序背景：基于文件名，对不同文件夹下的同名文件进行识别，删除多余的文件 ;程序编写于2017.9.29 ;---------------------------------- save_name = 'F:\Temporary\test\Result.txt' openw, lun_1,save...
2018-12-13 16:50:32
238
原创 ENVI: Layer Stacking
利用 envi_layer_stacking_doit 实现波段融合。可考虑用面向对象的编程方式去重新编码（暂时复制以前的代码）。compile_opt idl2 envi, /restore_base_save_files start_path = 'F:\Temporary\data\LC8 Results\ENVI_clip\temp\ROI\' cd,start...
2018-12-13 16:36:22
6101
原创 图像的一些常见操作
现将新浪博客中以前的施工记录转移至此，一是狡兔三窟，以备万一；二是重新梳理、编辑，温故知新。波段合成组合情况根据实际需要，参看传感器的波段设置情况。a. 利用 Arcgis toolbox 中的 Composite Bands工具。不用在意波段组合的排列顺序，在组合之后的Properties-Symbology中调整。b.利用 ENVI+IDL中 Layer Stacking命令。暂...
2018-12-11 16:51:14
222
原创 日期和时间函数
通过循环，在满足指定日期、时间的情况，进行相应的操作。Option ExplicitSub printout_temp() Dim i As Long Dim temp As String '日期判断' Do Until Date = "2018-12-7"' Debug.Print Date' Loop' Debu...
2018-12-07 16:40:35
151
原创 WorkSheets的仓库
Sub PrintOut_temp() 'Worksheets("Sheet2").Select Worksheets("Sheet1").PrintPreview 'Worksheets("Sheet1").PrintOut Copies:=1 Debug.Print Now '当前时间 '遍历所有工作表' Dim i As Int...
2018-12-07 14:35:18
183
原创 VBA事件响应的小仓库
一些可能以后会用到的事件响应片段。Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone ' '所选中区域的第一个单元格，所在行列，进行操作' Rows(Target.Row).Interior.ColorIndex = 20'...
2018-11-19 11:50:37
460
原创 使用内置函数计算Range内的数据
Max,Min,Average, SumOption ExplicitSub function_test() Dim i As Long, j As Long, num As Long, r As Long, c As Long Dim myArray() Dim myRange As Range '声明 '遍历Range，将符合要求的数据存...
2018-11-13 16:10:37
608
1
原创 分门别类
根据给定列的记录，进行分门别类。当然，对于类别不多的情况，EXCEL直接筛选，复制粘贴更直观、快捷吧。Option ExplicitSub Classify() Dim r As Long, c As Long, i As Integer Dim wu_liu As Long, gao_sheng As Long, gui_hua As Long Dim long_f...
2018-11-12 16:12:52
863
原创 查找重复行，并标记
目的：查找重复行，并标记出来。有意思的地方在于，不同于以前处理的简单双重循环，这里需要在外层循环进行限定（num = num + 1），以避免冗余运算。Option ExplicitSub Lookup() Dim r As Long, c As Long, i As Integer, j As Integer, num As Integer, _ Delete_nu...
2018-11-12 15:59:46
2624
原创 VBA 复制
Option ExplicitSub Copy_Paste_1() '' '通过对话框打开文件：' '方法一：'' Dim a As Boolean'' a = Application.FindFile'' If a = True Then'' MsgBox "Excel文件打开成功！", vbOKOnly'' Else...
2018-10-19 09:35:35
873
原创 VBA 删除或插入行列
Option ExplicitSub Row_Column_1() Dim r As Long, c As Long, i As Integer, num As Integer, str As String Dim myRange As Range Dim myFon As Font Set myRange = ActiveSheet.UsedRang...
2018-10-18 08:54:28
10115
原创 VBA 单元格字体设置
Sub Font_1() Dim r As Long, c As Long, i As Integer, num As Integer, str As String Dim myRange As Range Dim myFon As Font Set myRange = ActiveSheet.UsedRange myRange.ClearFormats ...
2018-10-15 16:31:05
5229
原创 VBA学习第二课
Option ExplicitSub Temp()Dim r As LongDim myRange As RangeSet myRange = Range(“L7”).End(xlDown)myRange.Selectr = Range(“L7”).End(xlDown).RowMsgBox “共计” & r & “行”’ r赋值这一句能效率的得到总行数，值得借鉴学...
2018-10-12 16:34:50
312
原创 VBA的第一次程序汇总
Option ExplicitSub Resize_1()Dim myRange As Range'Set myRange = ActiveSheet.UsedRange'Set myRange = Range(“A2”).Resize(5, 6)'myRange.Select'MsgBox "当前选择的单元格区域地址为： " & myRange.Address'在原区域的基...
2018-10-11 09:09:24
346
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人