原创 Excel自定義格式參數
代碼結構組成代碼碼分爲四個部分，中間用“；”號分隔，具體如下： 正數格式；負數格式；零格式；文本格式 各個參數的涵義 “G/通用格式”：以常規的
2020-02-21 00:21:52
原创 照相機（下）數碼相機
針對傳統相機照相費用高週期長的缺點，照相機廠家又發明了數碼相機。從此，照相機便從德國大拿轉移到了日本大拿，並且是日本越來越大拿了，在數碼相機領域裏
2020-02-21 00:21:52
原创 照相機（上）膠捲相機
照相機從一百多年前發明之時起就是用膠片記載圖像的，一開始膠片都是平板的，隨着照相機技術的不斷改進，平板膠片逐漸變成了可以捲起來的膠片了，於是人們又把照相用的膠片形象地稱爲膠捲。可以說膠捲是照相機的靈魂所在，沒有了膠捲，照相機也就成了沒有
2020-02-21 00:21:52
原创 提取一個單元格中的數字（Excel自定義函數）
Function SHUZI(AA As Range) Dim n As Integer, i As Integer, tem n = L
2020-02-21 00:21:42
原创 教師和教務人員的好幫手【教務助手】升級至3.07
3.07版本新增按關聯列合併多個工作表功能。 點擊下載，提取碼：KSfZbsWV 教務助手軟件是一款輔助軟件（共享軟件），主要集成了教務功能，工作表的合併、連接、拆分功能，工具條功能三大模塊。未註冊版本有部分功能限制，爲了支持軟件業的發展
2018-08-23 12:32:08
原创 全選工作表中的shape對象（自選圖形、任意多邊形、OLE 對象或圖片）
在VBE狀態下，用以下代碼 activesheet.shapes.selectall 可選擇當前活動工作表中所有shape對象，然後就可以對其設置格式或者刪除了。
2018-08-23 12:32:07
原创 提取一個單元格中的文本(非數字)-自定義函數
Function FeiShuZi(aa As Range) Dim n As Integer, i As Integer, tem n = Len(aa.Value) For i = 1 To n If
2018-08-23 12:32:07
原创 用命令終止進程
Win + R，調出運行框輸入cmd，回車 輸入ntsd -c q -pn 程序名或輸入taskkill /f /im 程序名 就可以搞定了
2018-08-23 12:32:07
原创 教師和教務人員的好幫手【教務助手】升級至3.05
教務助手軟件是一款輔助軟件（共享軟件），主要集成了教務功能，工作表的合併、連接、拆分功能，工具條功能三大模塊。未註冊版本有部分功能限制，爲了支持軟件業的發展，歡迎你註冊。 教務助手採用的Excel加載項的技術製作而成，操作界面全在Exce
2018-08-23 12:32:06
1
原创 漢字與字符混合單元格折行的問題
問題： 我想判斷一個單元格中字符（按英文字符計，1個漢字等於2個英文字符）的長度，如果該單元格的字符數超過10個，則剩下的寫到下一行。 如一個單元格內容爲“生五個孩子太多了”，全是漢字很好辦，本單元格寫“生五個孩子”，下一行寫“太多了”就
2018-08-23 12:32:06
1
原创 消除選定區域的重複的數據
清除重複的數據後，數據向上移動，如果選定的多列，向上向右移動（向右不好，以後再改吧） Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim c As RangeOn
2018-08-23 12:32:06
2
原创 Application.EnableEvents =false(true)的理解
Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer iRow = Target.Row Application
2018-08-23 12:32:06
原创 圖片批量縮放工具
買了相機，圖片越來越多，一張最小也有1兆，佔地方,傳輸太慢，於是想縮放所有的照片。在網上搜到了寶玉[寶玉, openlab.net.cn]做的一個圖片批量縮放工具，正好有代碼(哈哈，我偷懶了 在這我謝謝寶玉了)，我在他的基礎上根據自己的
2018-08-23 12:32:05
原创 成績統計、試卷分析、分班--教務人員和老師的好幫手【教務助手】
成績統計、試卷分析、分班--教務人員和老師的好幫手【教務助手】 【教務助手】採用的Excel加載項的技術製作而成，操作界面全在Excel中進行，方便用戶的使用，在安裝完畢後，會在Excel中增加教務助手菜單和教務助手工具條，符合用戶的使用
2018-08-23 12:32:05
2
原创 批量修改單元格中單個字符的顏色（VBA）
Sub 替換單個字符顏色()'選中需要改變顏色的區域後，運行該段代碼Dim rg As Range, i As IntegerFor Each rg In Selection 'On Error Resume Next Fo
2018-08-23 12:32:05