![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
Hank_Gao
失意坦然,得意淡然
展开
-
VB能够快速解决问题,依然是伟大的工具
十年之后,碰到了一位业界高手,他负责芯片技术支持,自己有个VB6做的工具,控制MCU配置芯片协议栈,很慷慨的把源码和开发板一起给我了,今天花了一天时间,熟悉代码结构,并根据业务需求增加了读APDU list并自动连续发送,同时实现循环,方便压力测试。 突然找到了久违的感觉,晚上可以忙到1点半仍不知疲倦,代码调通那一刻,还是会兴奋的哼着小曲,有了源码,可以访问到任意字...原创 2019-11-09 22:46:49 · 296 阅读 · 0 评论 -
【VBA】复制Range
Sub CopyRange() ThisWorkbook.Sheets("Sheet1").Range("A1:C7").Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("B1") ThisWorkbook.Sheets("Sheet2").Select End Sub原创 2014-05-25 17:45:46 · 4590 阅读 · 0 评论 -
【VBA】VBA定时运行程序
Sub 定时运行程序() MsgBox "单击确定按钮,5s后运行 Main 函数", vbOKOnly, "定时运行程序" Application.OnTime Now + TimeValue("00:00:05"), "Main" '定时5sEnd SubSub Main() MsgBox "此时正在运行 Main", vbOKOnly, "定时运行程序"原创 2014-05-25 17:40:00 · 8705 阅读 · 0 评论 -
【VBA】VBA打开文件选择框、取得文件全路径与文件名
'VBA打开文件选择框、取得文件全路径与文件名Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类转载 2014-05-25 19:05:26 · 21990 阅读 · 0 评论 -
【VBA】VBA实现统计目标范围内重复值次数
Sub f()Set myb = CreateObject("scripting.dictionary"): myb("PICSID") = "出现次数"Set Rng = Application.InputBox("选择统计区域:", Type:=8)ActiveSheet.Cells.Interior.ColorIndex = 0Rng.Interior.ColorIndex = 3原创 2013-11-16 21:30:43 · 7013 阅读 · 0 评论 -
学习VB.NET 变量命名三原则
1、标识符有意义,除非有非常明确的含义,否则不适用缩写2、名字中要包含变量类型3、以一个小写字母开头,后面单词的第一个字母要大写。变量总是使用大小写混合形式,常量则多用大写。举例:原创 2013-09-20 15:12:42 · 1959 阅读 · 0 评论 -
学习VB.NET编程最基本的三个问题
1、什么是对象和属性,他们之间的联系是?对象:将对象看做一个实物或者事物的一种概念。比如说窗体和控件都是对象。属性:属性阐明了与对象相关的或是控制对象行为的信息,例如,对象的名字、颜色、尺寸或者位置。也可以认为属性是描述对象的一些形容词 一般来说,“对象.属性”2、规划和创建VB项目3个步骤是?Step 1,设计用户界面Step 2,设置属性原创 2013-09-20 09:59:47 · 2035 阅读 · 0 评论 -
Using Message Box (MsgBox) in Excel VBA
MsgBox function in VBA displays a message in a window and waits for click on a button.Example of using Yes-No Message Box:Sub MessageBoxExample() Dim iRet As Integer Dim strPrompt As转载 2013-09-10 23:26:42 · 1347 阅读 · 0 评论 -
【VBA】16进制字符串转化为2进制字符串
Function Hex2Bin(TP As String) As String '处理连串的16进制转化为2进制Dim TP2() As StringL = Len(TP)ReDim TP2(1 To L)Dim P As StringP = "" '初始化为空字符串For i = 1 To L TP2(i) = Mid(TP, i, 1)原创 2013-04-26 23:56:03 · 4761 阅读 · 0 评论 -
【VBA】单字节16进制转2进制
Function Hex2BinSingleByte(H As String) As StringH = UCase(H)Dim B As StringSelect Case H Case "0" B = "0000" Case "1" B = "0001" Case "2"原创 2013-04-26 23:53:35 · 1466 阅读 · 0 评论 -
【VBA】二进制转16进制
Function BinToHex(ByVal sBin As String) As String Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111" Dim i As Integer, j As Integer, s As String BinToHex = ""转载 2013-04-25 23:02:50 · 3199 阅读 · 0 评论 -
[VBA]计算宏运行所用时间
Sub 计算宏运行所用时间() Dim tt As Single tt = Timer '宏名字 MsgBox "ok,用时" & Timer - tt & "秒!" End Sub转载 2013-04-15 22:35:04 · 6812 阅读 · 0 评论 -
[VBA]Function Optional integer
如何创建一个自定义函数,其包括可选变量,如果可选变量没有出现,给出默认值,下面是我找了半天,才悟出来的方法,大家指点:Function H(s As String, Optional Index As Integer = -1, Optional I2 As Integer = -1) As VariantIf Index = -1 ThenIndex = 100 'M原创 2013-04-22 23:15:11 · 1962 阅读 · 0 评论