本月博客排行
-
第1名
龙儿筝 -
第2名
johnsmith9th -
第3名
wy_19921005 - zysnba
- sgqt
- lemonhandsome
年度博客排行
-
第1名
宏天软件 -
第2名
青否云后端云 -
第3名
龙儿筝 - gashero
- wallimn
- vipbooks
- benladeng5225
- wy_19921005
- fantaxy025025
- qepwqnp
- e_e
- 解宜然
- zysnba
- ssydxa219
- sam123456gz
- javashop
- arpenker
- tanling8334
- kaizi1992
- xpenxpen
- gaojingsong
- wiseboyloves
- xiangjie88
- ranbuijj
- ganxueyun
- sichunli_030
- xyuma
- wangchen.ily
- jh108020
- lemonhandsome
- zxq_2017
- jbosscn
- Xeden
- luxurioust
- lzyfn123
- zhanjia
- forestqqqq
- johnsmith9th
- ajinn
- nychen2000
- wjianwei666
- hanbaohong
- daizj
- 喧嚣求静
- silverend
- mwhgJava
- kingwell.leng
- lchb139128
- lich0079
- kristy_yy
最新文章列表
AboveAverage 对象 (Excel)
AboveAverage 对象 (Excel)
Sub AboveAverageCF()
' Building data for Melanie
Range("A1").Value = "Name"
Range("B1").Value = "Number"
Range("A2&q ...
VBA 禁止在某个sheet中使用键盘Delete键
1.按Alt+F11打开VBA编辑窗口
2.双击要禁止delete的sheet,例如sheet1
3.在右边的编辑区的最上面加入下面的函数声明
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
对该sheet追加change事件
Private Sub W ...
VBA 在指定目录及其子目录中的excel文件中检索指定的文字列
效果图:
对应的代码入下:
对应的代码入下:
Sub getColumn()
Dim work1 As Workbook
Dim path, keyWord As String
Dim fileContent As String
Dim unFoundCol As String
' 指定检索的目录
pat ...
VBA 删除有颜色的行
Dim lecNum As Integer
Dim lecturelastRow As Integer
lecturelastRow = ActiveWorkbook.Sheets("sheeet1").UsedRange.Rows.Count
For lecNum = 0 To lecturelastRow
'将第二列是红 ...
使用ADODB将Excel中Sheet页另存为UTF8编码CSV
Public Sub WriteCSV()
Set wkb = ActiveSheet
Dim fileName As String
Dim MaxCols As Integer
fileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
If fileNam ...
将Excel里所有的Sheet页同时另存为单独的UTF8编码的CSV文件
结合前两篇高手代码,拼出以下代码:
Public Sub WriteCSV()
Dim sheet_name, bookPath, fileName As String
Dim sheet_count,i As Integer
sheet_count = Sheets.Count
bookPath = ThisWorkbook.Path
bookPath = bookPath ...
将Excel里所有的Sheet页同时另存为单独的CSV文件
Sub ExcelToCsvMain()
'检查工作薄中有多少个工作表
Dim i, sheet_count, sheet_name As String
sheet_count = Sheets.Count
'msgbox sheet_count
For i = 1 To sheet_count
sheet_name = Sheets(i). ...
vba 抓取 统计用区划和城乡划分代码 到 电子表格
需要 用 到 统计用区划和城乡划分代码 数据,可以 国家统计局的是一个个页面,需要把数据爬出来。
哎,想当年VBA 写了那么多东西,现在连定义数组,变量赋值都忘了怎么弄,无奈边写边查,总算整出来一个能用的代码。
------------------------------------------------------------------------------------ ...
vba regexp
[2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html]
[2010-08-08:http://www.excelpx.com/thread-137472-1-1.html]
数据验证经常出现的情况是,需要验证和处理大量的文本内容,有时候需要查找字符串,有时候要按条件替换,并且这些待处理的问题还是 ...