原创 VBA編程產生不重複隨機數（轉載）
https://blog.csdn.net/iamlaosong/article/details/38434179 Sub random_test() Dim RndNumber, temp(20), i, k, Maxrec A
2020-06-16 09:50:46
1
原创 VBA小倉庫
Option Explicit Sub assembly() '日積月累 End Sub '本文代碼爲不同功能模塊的合集，旨在爲日後快速編寫代碼提供便利。 '第一部分： 打開文件 'File_sum = "
2020-06-16 09:50:46
2
原创 賬表計算借貸結果
按照賬表格式，計算累計借貸結果。 Option Explicit Sub count() Dim my_range, A_sum, B_sum, result_sum, i, flag_a, flag_b, j
2020-02-22 11:50:46
原创 月日年格式調整
1948-1-21 1983-02-7 1988-7-1 Sub re_format() Dim i, j, a, B, year, month, day, flag_a, flag_b, temp Se
2019-08-22 22:43:50
1
原创 利用VBA篩選重複數據
目標：在重複數據中按照一定規則提取、組合。 Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange
2019-06-18 00:13:52
1
原创 VBA 關鍵字匹配查找
Option Explicit Sub search() '完成對錶格單元格中關鍵字的匹配查找 'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~" '變量聲明 Dim column_num, row_num
2019-04-25 07:20:30
原创 多個EXCEL文件中給定的單元格值複製、彙總
背景：將多個EXCEL文件中給定的單元格值複製、彙總。不同於以往將一個工作薄中多個表格的複製、彙總，因此，要注意以下幾點： 獲取給定路徑下的文件名及其文件個數（本例中不需要）； 打開excel文件的函數調用； Option Exp
2019-04-12 23:56:20
原创 悲劇的與幽默的人生態度——宗白華
悲劇的與幽默的人生態度——宗白華 人類社會的法律、習慣、立交，使人們在和平秩序的保障之下，過着一種平凡安逸的生活；使人忘記了宇宙的神祕，生命的奇蹟，心靈內部的詭幻與矛盾。 近代的自然科學更是幫助近代人走向這條平淡幻滅的路。科學欲將這矛
2019-02-16 16:29:37
15
原创 自由和科學
自由和科學 愛因斯坦 我知道，要對基本價值的判斷進行爭論，是一件沒有希望的事。比如，如果有人贊成把人類從地球上消滅掉作爲一個目標，人們就不能從純理性的立場來駁倒這種觀點。但是如果有某些目標和價值是大家一致同意的，人們就能夠合理地來
2019-02-16 16:29:26
原创 不同表格查找重複數據VBA
分析兩個表格中對應列的重複情況。 Sub Match_Dec() '兩個表格，表格中的某一列爲對應列，查找這兩列中的重複記錄和差異記錄。 Dim ar As Long, br As Long, i As In
2018-12-25 21:47:22
原创 日期和時間函數
通過循環，在滿足指定日期、時間的情況，進行相應的操作。 Option Explicit Sub printout_temp() Dim i As Long Dim temp As String '
2018-12-16 21:04:55
原创 一些文件操作的函數命令
列出一些IDL中常用的文件操作函數命令。 FILE_MKDIR . 語法：FILE_MKDIR, File1 [,… FileN] 創建給定目錄。若省略絕對路徑，則在當前路徑下創建。 FILE_COPY . 語法：FILE_COPY
2018-12-16 21:04:55
3
原创 VBA事件響應的小倉庫
一些可能以後會用到的事件響應片段。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone
2018-12-16 21:04:45
原创 圖像的一些常見操作
現將新浪博客中以前的施工記錄轉移至此，一是狡兔三窟，以備萬一；二是重新梳理、編輯，溫故知新。 波段合成 組合情況根據實際需要，參看傳感器的波段設置情況。 a. 利用 Arcgis toolbox 中的 Composite Ban
2018-12-16 21:04:44
原创 VBA學習第二課
`Option Explicit Sub Temp() Dim r As Long Dim myRange As Range Set myRange = Range(“L7”).End(xlDown) myRange.Select r
2018-12-16 21:04:44