05 2019 档案

VBA 刷新数据透视表
摘要：Sub pjCount() Dim r As Long r = Sheets("Inquery").[A65536].End(xlUp).Row ActiveSheet.PivotTables("A3").PivotCache.SourceData = _ "Inquery!R2C2:R" & r & "C4" ActiveSheet.Pivot... 阅读全文
posted @ 2019-05-21 16:17 tec2019 阅读(1167) 评论(0) 推荐(0)
改变单元格内容触发事件（转）
摘要：转自EXCELHOME论坛，很实用的事件触发器，在此记下备忘。 阅读全文
posted @ 2019-05-14 17:44 tec2019 阅读(3829) 评论(0) 推荐(0)
VBA锁定指定单元格
摘要：If rs.RecordCount > 0 Then .Range("AF4").Value = pjno MsgBox "This project number does exists Please create a new one !", 16 .Range("A1:AH56").Locked =... 阅读全文
posted @ 2019-05-14 17:41 tec2019 阅读(1028) 评论(0) 推荐(0)
VBA MD5加密算法（转）
摘要：Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShif... 阅读全文
posted @ 2019-05-06 13:55 tec2019 阅读(3493) 评论(0) 推荐(0)
VBA ListView控件使用实例
摘要：功能:ListView控件实现连接数据库实现显示查询数据功能。 图片: 代码： Private Sub CommandButton1_Click() Dim res As String res = TextBox1.Text Call UserFormabc(res) End Sub 'ItemCl 阅读全文
posted @ 2019-05-06 12:06 tec2019 阅读(9476) 评论(0) 推荐(0)