3 奔跑的犀牛先生

尚未进行身份认证

中年人,代码初学者

等级
TA的排名 8k+

EXCEL,使用连接符时,改变了原来的显示格式,如何保持原格式的问题----用TEXT() 指定显示格式

群里有人求助的问题 目标列1 目标列2 -34% 845 642 -32% -0.34|-0.32 直接效果 -11% 0.1 0.09 -11% -11.00%|-11.00% 想...

2020-05-15 08:59:34

VBA,将EXCEL的2维数据表转为1行或1列(待优化)

问题和原始数据目的:做EXCEL经常需要把EXCEL表内容(XY2个维度)转为1行或1列 考虑写个小工具,以后可以常用输出行输出列代码1(开始前未做清除,需要手动清除)Sub export_row1()maxr1 = Range("c65535").End(xlUp).Rowmaxc1 = Cells(1, 3).End(xlToRight).Columnk = 1For i = Cells(1, 3).Row To maxr1 ...

2020-05-15 08:40:39

EXCEL,如何对日期按间隔3天进行规律分组

目的,以3天范围为一组思考步骤 date可以直接相减 然后获得取差,差/3 int(差/3) ,也就是整除时,进位1 =1+INT((B3-B$2)/3)

2020-03-23 15:25:12

VBA, 用VBA做的窗体和音乐,图片资源能打包可执行文件吗?比如EXE

目的: 用VBA做的窗体和音乐,图片资源能打包可执行文件吗?比如EXE现在没有找到很合适的方法 网上说法一般都是要VB6,我也没装过VB,也不想那个。。。有那时间不如学python去,尴尬 VBA是因为和EXCEL绑在一起了1 暂时比较凑合的方法:让用户打开EXCEL马上显示窗体。EXCEL的open事件 直接显示窗体,并且隐藏applicationPrivate ...

2020-03-20 10:53:58

【原创】VBA, 用VBA写了一个简单的音乐播放器shell

目标:(现在的2个版本都觉得不太好,需要改进)主要目的为了实现,选歌 根据歌曲进度显示歌词 添加歌曲---计划以后做 下面是UI和歌词数据表1 版本1:需要双击切换歌曲1.1 功能实现,选歌 实现,根据选歌,更换小图,更换背景,播放音乐 实现,根据选歌,滚动显示歌曲名,根据歌曲节奏播放歌词(只有起风了歌词节奏对过)1.2 局限性需要双击...

2020-03-20 00:02:02

VBA, 如何实现文本滚动的效果?

VBA, 如何时间文本滚动的效果?一般来说,从左向右或从右向左的走马灯效果比较常见 还想做一下,上下滚动的效果 这个我自己完全没思考,网上查了很多实现方法,学着实现下Private Sub Label1_Click()End Sub'------------------走马灯------------------------------Pri...

2020-03-19 09:55:30

VBA, 时间的加减乘除运算: 时间的减法需要用 cdate() 转下,时间的乘除好像意义不大

今天做延时显示的时候,用到了时间的运算总结下时间做加减乘除的运算规则和意义看起来时间只适合加减,不适合乘除 时间的加法:直接加,会自动进位为 秒,分,小时 时间的减法,结果是doble类型,要转为时间显示,必须用cdate()转 时间的乘法:只有个除法的意义,得出的数就是double相除 时间的除法:只有个除法的意义,得出的数就是double相除Sub xxx1()...

2020-03-18 21:16:34

VBA,如何做出一个延时执行,且能动态显示延时的秒数呢?

问题:想做出延时执行的效果,同时还显示了经过的时间1 简洁版代码代码Sub test200e() time0 = Timer() For i = 1 To 10 time1 = Timer() Debug.Print i Do Worksheets("sheet4").Labels("la...

2020-03-18 15:53:26

VBA,时间相关,now() date time() timer() 和时间格式化 ( 未完成),以及1899-12-31 时间负数

1 有3个常用时间函数 now() ,date,time()本质上 now()=date + time() now() 包含完整的日期+时间,date是日期和 time() 是时间 如果把时间转为 double 类型,就可以看出 整数部分就是 date ,而小数部分就是 time()Sub daojishi11()Debug.Print Now()Debug.P...

2020-03-15 14:19:56

VBA,实现延时自动执行的各种方法

2.1 时间延迟的方法需要加载新的库,Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) sleep 毫秒数Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Declare Sub Sleep Lib "ke...

2020-03-15 09:59:07

VBA,表单及其控件,如何取得表单控件的名字,大小写注意

1 如何取得表单控件的名字?1.1 问题的由来表单控件和表单的 activeX控件,以及窗体控件不同 表单控件不能直接编写其相关代码,也看不到其属性栏 但是可以直接绑定一个sub 但是问题来了:如何知道表单控件的名字,方便在VBA里设置其属性呢?1.2 所有的表单控件都属于shapes,下面还有子类 scrollbars ,buttons 等对象集合work...

2020-03-14 22:01:27

VBA,窗体和控件的动态效果之一:scrollbar如何实现自动效果

之前只学习了窗体的静态效果 现在考虑 窗体和控件的动态效果srcollbar如何实现自动效果Sub Macro2()'' Macro2 Macro' 宏由 MC SYSTEM 录制,时间: 2012-2-4'' Selection.Verb Verb:=xlPrimary ActiveSheet.ScrollBars.Add(198, 118...

2020-03-14 17:36:07

VBA,如何使用类msgbox的效果,但是让窗口过几秒自动关闭? (未完成)

1 Scripting Host(WSH)的Popup方法--测试不好用?不知道为啥测试不好用 测试情况,也不能显示倒计时秒数,Sub test_sample1()'Scripting Host(WSH)的Popup方法。Dim w1 As ObjectSet w1 = CreateObject("wscript.shell")w1.popUp "3秒自动关闭", ...

2020-03-14 10:59:59

VBA,关于commandButton和toggleButton的应用,如何让button 只能多选1,如何让button 有多种状态(未完成)

commandbutton 如何可以用多个状态?一般来说 UI上按钮一般,有按下,未按下,经过 等多种状态判断 并且可以根据不同状态做外观的改变,大小颜色等等toggleButton 如何能多选1?https://zhidao.baidu.com/question/1959498440279009900.html...

2020-03-14 10:36:47

VBA,如何给listbox设置多列数据 (未完成)

listbox 如何指定多列内容 ?没有columnSource 属性 只有columncount属性 可以在rowsource指定一个区域 设置列宽度,sheListBox1.ColumnWidths = "50;100;50" '实测用两种分隔都可以 "50,100,50"Private Sub UserForm_Initialize...

2020-03-14 10:04:29

VBA,窗体和窗体内的控件大小的自动适配(未完成)

1如何让控件,自适应窗体的大小?Option ExplicitDim w, hPrivate Sub Form_resize()Dim bilih, biliw, ibilih = Form1.Height / hbiliw = Form1.Width / wFor i = 0 To 2Text1(i).Top = Int(bilih * Text1(i).To...

2020-03-14 09:58:39

VBA窗体与音乐播放(未完成)

方法1:在窗体上添加 medieplayer控件窗体的默认控件里没有 音乐控件,需要添加 mediaplayer工具栏上邮件:添加 找到 microsoft mediaplayer音乐控件的播放播放音乐的属性 播放器.url 播放器.controls.play WindowsMediaPlayer1.URL = "C:\...

2020-03-13 20:35:03

VBA,窗体相关的一些问题: frame背景设置为透明需要用API

1 frame如果想设置为透明,但是上面的内容是可见的。frame 本身没有设置 backstyle 属性 如果设置 frame.visible=false ,则整个frame和上面的内容都会不可见如果form本身没有图片背景,只带颜色,那么 Frame2.BackColor = Me.BackColor 如果form 本身带了图片背景,那么要设置 frame 为透明的,...

2020-03-13 20:29:56

VBA,一些基本的系统常用空值关键字辨析:nothing, empty ,null,以及错误值关键字 error的辨析

一 VBA常用的系统空值关键字:nothing ,empty ,null1.1 三者区别empty 有效的空值,如0 "",比较常用 null 无效的控制,比如二选一之外的空 nothing 对象变量的空值, 语法是 object is nothing 而不是用 =nothing1.2 emptynull not...

2020-03-13 12:25:41

VBA,使用find() 和 match() 进行查找时,可能出现的各种错误(我犯的各种错误总结)

最近因为在窗体里要做对工作表sheet的操作,出现了各种低级错误我逐一在这总结下,希望自己反思,并以后引以为戒数据源1 正确的代码Sub test5032()Dim a As Rangein1 = InputBox("请输入一个电影名")Set a = Range("a1:a15").Find(in1)If a Is Nothing Then Ra...

2020-03-12 11:09:06

查看更多

勋章 我的勋章
  • GitHub
    GitHub
    绑定GitHub第三方账户获取
  • 签到新秀
    签到新秀
    累计签到获取,不积跬步,无以至千里,继续坚持!
  • 专栏达人
    专栏达人
    授予成功创建个人博客专栏的用户。专栏中添加五篇以上博文即可点亮!撰写博客专栏浓缩技术精华,专栏达人就是你!
  • 持之以恒
    持之以恒
    授予每个自然月内发布4篇或4篇以上原创或翻译IT博文的用户。不积跬步无以至千里,不积小流无以成江海,程序人生的精彩需要坚持不懈地积累!
  • 1024勋章
    1024勋章
    #1024程序员节#活动勋章,当日发布原创博客即可获得
  • 勤写标兵Lv4
    勤写标兵Lv4
    授予每个自然周发布9篇以上(包括9篇)原创IT博文的用户。本勋章将于次周周三上午根据用户上周的博文发布情况由系统自动颁发。