w_dexu的博客

ListView控件数据操作三、取得列表中的某列某行的数据在使用ListView完成数据显示时，还需要得到其中的部分数据，以便实现交互式操作，下面的函数，可以实现这一功能。函数代码取得指定的ListView控件的某一列某一行的数据，支持字段名和列号，支持多字段。Public Function GetLvData(Lv As Object, Optional Fies, Optional RowNum As Integer = 0)Dim sp() As StringDim i As Integ

ListView控件数据操作二、通过代码在窗体上添加控件ListView控件在不同电脑里的版本不是完全一致的，经常会因为版本不同，导致窗体上的控件不能使用，如果能够实现在窗口加载时自动添加控件，就要很好的解决这个问题。下面的代码就可以实现这个功能，可以很方便的在窗口设计时使用。函数代码给ListView添加数据，数据可以为数组或单行数据（逗号分隔）ListView控件数据操作系列未完，待续！——专注办公软件的二次开发及培训，你有问题，我有思路！——微博、微信、CSDN同号：w_dexu。

表格操作系列九、函数代码代码数据表样子调用例子代码表格操作系列未完，待续！——专注办公软件的二次开发及培训，你有问题，我有思路！——微博、微信、CSDN同号：w_dexu。——转载请注明出处！扫码加微信...

表格操作系列八、对表格或数组进行或列求和函数代码代码数据表样子调用例子代码表格操作系列未完，待续！——专注办公软件的二次开发及培训，你有问题，我有思路！——微博、微信、CSDN同号：w_dexu。——转载请注明出处！扫码加微信...

表格操作系列六、对表格或数组进行或列求和在做报表时，经常会需要对取得的数据进行行或列的求和汇总操作，下面的代码可以完成对数组的行或列的求和操作，也适用于对格的指定区域进行求和汇总。函数代码代码数据表样子调用例子代码表格操作系列未完，待续！——专注办公软件的二次开发及培训，你有问题，我有思路！——微博、微信、CSDN同号：w_dexu。——转载请注明出处！扫码加微信...

表格操作系列六、取得表格指定名称列的全部数据下面的代码，可以实现对表格整列数据的提取，也可以仿造此原理实现整行数据的提取。列名称需要在第一行，支持使用列名字母或是首行标题名引用列。函数代码Public Function GetColumnByFie(Fie As String, Optional sh As String = "当前表") As Variant'取得某一列的数据Dim col As String'On Error GoTo errIf sh = "当前表" Or sh =

表格操作系列五、对表格或数组进行或列求和在做报表时，经常会需要对取得的数据进行行或列的求和汇总操作，下面的代码可以完成对数组的行或列的求和操作，也适用于对格的指定区域进行求和汇总。函数代码Public Function SumArrRow(Arr, 列, Optional WithArr As Boolean = True)'默认带数组数据Dim i As IntegerDim j As IntegerDim sp() As StringDim dic As ObjectDim LB A

表格操作系列四、字段名与字段别名的获取在使用数据库编程时，经常需要在别名与字段名之间做一些操作，字段名一般使用英文字符，别名一般使用中文字符，这样就可以满足显示与数据库操作两不误的需要。但是在写代码时，使用别名，数据库又不认，使用字段名写代码又不太方便，两者兼顾时容易出错。下面的代码，可以很好的实现字段名与别名之间的操作。将字段名与别名存储在一个表中，按列存好，可以在编程时先行定义，这样也可以避免在使用时出现混乱。在写代码时，可以使用别名对字段名进行自动引用，具体见以下函数。单字段操作Public

表格操作系列三、在配置表中获取变量初始值在程序启动时，需要初始化一些参数，或是在执行过程中，取得一些变量或是字段的配置参数。这些数据可能存储在某一个表中，为了能够方便的获取这些数据，编制了下面的这个函数，可以很方便的取得初始值。函数代码Public Function GetFiesVal(Fies As String, Optional Sh As String = "INI", Optional FiesColName As String = "字段", Optional ValColName A

表格操作系列二、在指定的区域内添加行或删除行在一些表格操作中，已经画好了每页的表格，并且做好了设定，可以实现每一页的页面下好打印在一个整页里，这就需要在编辑时的增加或是删除行时，不破坏原有的排版设置，可以实现内容的移动，而非表格的变化，下面的函数即可以实现这一功能。样例是一个工艺过程卡片的例子，有固定的表格，只需要在使用时添加内容即可，使用下面的代码进行增加或删除行时，不会影响编制等最后一行的位置，避免设置好的页面发生变化。以下代码仅提供一些思路，可以根据自己的表格样子，做适当调整，以满足编辑要求。

表格操作系列一、利用字段名获取表格中对应列的数据在利用VBA操作表格时，经常需要提取其中的某些数据，为了能够轻松完成操作和，而不用每次都写复杂的代码，编制了下面的函数，支持单列的字段名和列号，以及多列的字段名来获取相应的数据，可以方便的使用。函数代码Public Function GetSheetDatas(Fie, Optional WithFie As Boolean = False, Optional Sh As String = "ActiveSheet")Dim Rng As Range

按用户名决定列的隐藏与显示表格中录入以下数据确定按钮代码如下前几天，发一了个使用隐隐藏来做权限管理的例子，今天给出一个精简版的，供大家参考。表格中录入以下数据B1单元格利用有效性增加下拉列表，为用户名，B2单元格为待输入的密码。EFG三列为配置的基础数据，输入密码正确后，隐藏列中的几列就会隐藏。B5单元格取出了电脑用户名，有兴趣的人可以按此用户名为直接确定B1单元格的用户。确定按钮代码如下Sub 确定()Dim cols() As String ActiveSheet.Unprot

判断Excel单元格是否处于编辑状态以下是平时收集到的一个判断表格单元格是否处理编辑状态的代码，记不住是从哪弄的，转给大家，供学习参考。'//取得类名Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long'//设置钩子函数Public Decla

在表格中显示形位公差符号需求效果自动实现代码需求有的时候，需要在表格中或是在文档中显示机械制图方面的形位公差符号，实现这些特殊符号的良好显示并不是一件容易的事，有时使用图片插入，操作麻烦，显示效果不了是很好。下文介绍了如何在表格中实现形位公差符号的显示，并且可以使用宏代码来实现辅助输入。效果下面这个图片即是显示的效果，使用了GDT这个字体后，输入正常的小写英文字母，即会出现各种形位公差符号。一般来讲，安装AutoCAD后，电脑中都会有这个字体。自动实现现在有一个问题，就是如何出现A1单元格中的

单元格内容自动累积到指定列分行保存需求功能描述效果需求在日常工作中，经常需要更新表格内容，但希望更新的内容覆盖原有内容，并且最好是能够把更新的时间一并记录。这个加载宏良好的解决了这个问题，在INI配置里，设置好当前列和累积列后，即可以实现在当前列中输入的内容，自动累积在累积列里，逐行记录全产历史内容，给记录更新带来很大方便。功能描述在INI表中的任意列中设置好当前列和累积列（第一行写表头）执行加载宏，在当前表中即可以使用内容累积功能，当在当前列的某一行中输入内容，完成后，累积列中即会出现日期+刚

根据点选单元格位置，自动设定冻结窗格位置函数代码部分时候需要表格中的不同部分内容实现滚动，而另一部分不动，并且会根据需要自动调整滚动和固定的位置，下面的代码可以实现点选不同的行时，实现不同的滚动范围，有兴趣的可以进行试用，并根据自己的需求，调整其中固定/滚动的位置。函数代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As RangeApplication.EnableEvents = False'Appl

模拟打印事件实现打印前后处理页面变量声名工作表打印函数在有一些页面的打印时，需要根据页面内容做一些签字、盖章等体现审批、权限的操作，这些东西不希望公开给操作的人员，仅由系统根据数据状态进行处理，下面的函数即可以实现在打印前显示图片，打印后又隐藏的操作，也可以修改某一单元格中打印和显示的内容。变量声名'在模块中声名全局变量Public isRealPrint As Boolean工作表打印函数Private Sub Workbook_BeforePrint(Cancel As Boolean)