技术手册
文章 标签 系列 关于
技术手册

Excel VBA 添加新工作表

HenryZ  发布于  收录于  系列 Excel手册
  • 默认工作簿中添加表
    Worksheets.Add

同时设置表名称：Worksheets.Add().Name="New Sheet"

  • 指定工作簿中添加表
    myWorkbook.Sheets.Add
名称 必需/可选 数据类型 说明
Before 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之前
After 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之后
Count 可选 Variant 要添加的工作表数。 默认值为 1
Type 可选 Variant 指定工作表类型
  • 如果同时省略 Before 和 After，则新工作表插入到活动工作表之前。
  • Type 可以是下列的 XlSheetType 常量之一: xlWorksheet、 xlChart、 xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。

表示新工作表、图表或宏工作表的 Object 值。

阅读全文
 Excel

Excel VBA 添加新工作簿

HenryZ  发布于 
' 创建工作簿，
Dim newWb As Workbook

'或在另一个应用实例（进程）中创建
Dim newWb as appExcel.Workbook

？
Set newWb = Workbooks.Add

如果要给工作簿命名，只有在保存时，指定文件名。
wb.SaveAs Filename:="NewWB"

阅读全文
 Excel, VBA

Excel VBA 自动计算与刷新的开关

HenryZ  发布于

VBA对单元格数据进行批量修改时，可以暂时关闭自动计算和屏幕刷新，加快代码运行速度。

'关闭屏幕刷新
Application.ScreenUpdating = False
'关闭自动计算（调整为手动计算）
Application.Calculation = xlManual

'启动屏幕刷新
Application.ScreenUpdating = True
'启动自动计算
Application.Calculation = xlAutomatic
'计算——整个工作簿
Calculate
阅读全文

VBA 查找值所在的列号

HenryZ  发布于 
Function FindColOfValue(ws As Worksheet, val As Variant, rowNum As Long, startCol As Long)
    Dim i As Long
    With ws
    For i = startCol To .Range(.Cells(startCol, rowNum), .Cells(startCol, rowNum)).CurrentRegion.Columns.Count()
        If .Cells(rowNum, i).Value = val Then
            FindColOfValue = i
            Exit Function
        End If
    Next
    End With
    
    FindColOfValue = -1
End Function
阅读全文
 Excel, VBA

VBA 查找值所在的行号

HenryZ  发布于 
Function FindRowOfValue(ws As Worksheet, val As Variant, colNum As Long, startRow As Long)
    Dim r As Long
    With ws
    For r = startRow To .Range(.Cells(startRow, colNum), .Cells(startRow, colNum)).CurrentRegion.Rows.Count()
        If .Cells(r, colNum).Value = val Then
            FindRowOfValue = r
            Exit Function
        End If
    Next
    End With
End Function
阅读全文
 Excel, VBA

Python 字典排序

HenryZ  发布于

Sort a dictionary by value
依据字典的值进行排序

newDict = {k: v for k, v in sorted(x.items(), key=lambda item: item[1])}

import operator


# 示例字典
d = {'a': 3, 'e': 4, 'b': 2, 'c': 5, 'd': 1}


# 按 key 排序
def dict_sort_by_key(d: dict):
    sorted_d = sorted(d.items(), key=operator.itemgetter(0))
    return dict(sorted_d)

# 按 value 排序
def dict_sort_by_val(d: dict):
    # sorted_dic = dict(sorted(d.items(), key=operator.itemgetter(1)))
	
	sorted_keys=sorted(dict1, key=dict1.get)
	for k in sorted_keys:
		sorted_dic[k]=d[k]
	
    return sorted_dic


print(dict_sort_by_key(d))
# {'a': 3, 'b': 2, 'c': 5, 'd': 1, 'e': 4}

print(dict_sort_by_val(d))
# {'d': 1, 'b': 2, 'a': 3, 'e': 4, 'c': 5}
阅读全文
 Python