小记：EXCEL + VBA 用户记录：保留一个月的以前的登陆用户

最新推荐文章于 2022-03-28 13:28:28 发布
最新推荐文章于 2022-03-28 13:28:28 发布
阅读量343 收藏 1
点赞数
分类专栏： 小记 文章标签： excel vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/robinalee/article/details/119774299
版权
这篇博客记述了如何使用Excel和VBA编写宏来处理数据，只保留一个月以前的用户登录记录。作者为客户（校友）解决了一个问题，需求包括遍历并删除过期记录，同时保持字母顺序。文章提到了在VBA实现过程中遇到的迭代问题，从最初的遍历删除方案，到多次遍历和高亮以确保正确删除，最终实现了功能。
摘要由CSDN通过智能技术生成

EXCEL VBA filter/delete by date

小记：EXCEL + VBA 用户记录：保留一个月的以前的登陆用户

EXCEL + VBA， 按照一切数据均可处理的原则。 这俩组合给非码工提交使用还是不错的。
今天遇上了一个有意思的case： Excel遍历不符合预期， 不得不多轮遍历处理数据。记录备需。

详情如下：

客户（免费帮忙校友）的需求如下：

数据（输入）

数据表格通过Excel格式存储，仅一页数据， 多列。
首列是名单，title： “User Principal Name”， 其余多列为登陆日期数据， 日期以String存储，如 “7/14/2021”

需求

写一个Excel Micro， 通过运行它， 可以：

  • 直接修改当前表格
  • 遍历所有日期数据，仅保留一个月的以前的登陆用户记录
  • 按照字母序排序

题外话

老实说，提到数据处理，我更喜欢用python。 上次写VBA都是近九年前的旧事了。 但是python需要配置，对于非码工 Excel 的 Micro确实更友好。 按照需求写，不纠结。

VBA代码实现

分段功能

建立变量：上月日期，用于对比


                

                
                
        

        

    




        

            

                    
                      最低0.47元/天 解锁文章
                        
                    
            

        

    

      

        

            

              
                
                  RobinaLi34
                
              
            

            

                关注
              
            

        

        

          
    
            
  • 
              
                
                
                
                
                      0
                
              
              
    点赞
    
            
    • 
            
  • 
              
                
                
                
              
              
    踩
    
            
    • 
            
  • 
              
                
                
                
                
                    1
                
              
              
    
                
    
                  
                    收藏
                  
                
    
              
    
              
    
                
    
                  觉得还不错?
                  
                    一键收藏
                  
                 
                
    
              
    
            
    • 
          
  • 
            
    
              
              
            
    
              
              
              
                    0
              
            
            
    评论
    
          
    • 
          
  • 
          
    • 
          
  • 
            
              
            
              
    
            
              
                
            
    
          
    • 
        

      

      

            

                专栏目录
          










                



	

		

			

				
					
[Excel VBA]如何取得帳號登入時間?

				
			

			

				

					分享实用工具、好书阅读、教育学习与思维概念等等多元化的主题。
				

				

					03-09
					
					472
					
				

			

		

		

			
				
UI in Sheet1authority_list

利用excel建置小型工具是一項有效率的工作方式，除了可供使用者們重覆使用並取得一致性的結果，建置者也不一定需具備高門檻的程式設計背景才能開發excel 工具，例如建置小型資料庫以供團隊成員隨時查詢，一舉兩得。



為了了解使用者的使用狀況，本文將既有的小型資料庫的登入資訊模組進行簡化，並單純以輸入ID資訊為範例，將使用者的登入時間一併...

			
		

	



                

              
                



	

		

			

				
					
excellvba引用计算机用户名,EXCEL VBA 取当前登录 用户名的多种实现方法

				
			

			

				

					weixin_29630465的博客
				

				

					06-20
					
					402
					
				

			

		

		

			
				
EXCEL VBA 取当前登录 用户名的多种实现方法1. 使用WscriptDim wsh As ObjectSet wsh = CreateObject("WScript.Network")Sheet1.Range("a1") = wsh.UserName2. 使用环境变量dim iuseriuser = Environ("username")3.VBA获取excel文件当前用户名的代码 (与...

			
		

	



                


  
              

                


	

		

			

				
					
VB使用公共变量记录登录用户

				
			

			

				

					weixin_39433293的博客
				

				

					01-31
					
					556
					
				

			

		

		

			
				
利用公共变量，我们可以实现在多个模块中引用同一个变量值的功能。
例如，我们在登录界面输入用户名和密码后，可以在主界面显示欢迎用户的标语。


关键技术
如果需要在多个模块中公用一个变量，那么需要利用到标准模块。在标准模块顶部中用public关键词定义的变量，则可以在全局使用。
设计过程
1，建立form1窗体，如下图，该窗体中有2个标签，2个文本框，1个按钮。并将密码对应的文本框的PasswordChar属性设置为"*"。

2，建立form2窗体，如下图，该窗体中只有一个标签。

3，创建一个标准模块，如

			
		

	





	

		

			

				
					
VBA-历史记录批注显示

				
			

			

				

					幻欢子
				

				

					01-12
					
					1108
					
				

			

		

		

			
				
目录



一、操作展示Demo

二、源码剖析

2.1、模块代码

2.2、操作表代码

三、场景应用

四、注意点

五、Demo文件下载链接

一、操作展示Demo





二、源码剖析

2.1、模块代码


' 根据列名查找列号函数
Public Function intFindColumnID(ByVal rowID, ByRef objWorkBook, ByRef obj...

			
		

	



		

			
		



	

		

			

				
					
vba 计算机当前用户,vba统计电脑计算机名和登陆的用户名

				
			

			

				

					weixin_29696999的博客
				

				

					06-18
					
					197
					
				

			

		

		

			
				
Public Sub GetIPT()gipt = Trim(InputBox("请输入所在组，只需输入前面的字母代码即可 A- groupA B-groupB C-groupC D-groupD E-groupD "))strIPT = UCase(gipt)If strIPT = "A" Then GetInfo ("AirBus"): EndIf strIPT = "B" Then GetI...

			
		

	





	

		

			

				
					
工作小记：企业微信 嵌H5页面 用户权限获取匹配.doc

				
			

			

				

					07-13
				

			

		

		

			
				
### 工作小记：企业微信嵌H5页面用户权限获取匹配  #### 一、背景与目的  在当前数字化转型的大背景下，企业越来越多地利用移动互联网技术来提升工作效率和服务质量。其中，企业微信作为一种重要的办公协作平台，在...

			
		

	





	

		

			

				
					
我的日常小记：spring以及mybatis最终源码

				
			

			

				

					06-24
				

			

		

		

			
				
在本项目中，"我的日常小记：spring以及mybatis最终源码" 是一个记录了开发者个人编程经验的项目，主要涉及两个核心框架——Spring和MyBatis。这两个框架是Java开发领域中非常流行的技术栈，广泛应用于企业级后端...

			
		

	





	

		

			

				
					
数据字典-小记及用户部分1

				
			

			

				

					08-08
				

			

		

		

			
				
这些数据元素共同构建了一个全面的用户管理和交互系统，涵盖了用户信息、用户行为（如点赞、关注、收藏、浏览）、文件管理、图床存储、待办事项、链接分享、标签分类以及小记等内容，使得系统能够有效地组织和追踪...

			
		

	





	

		

			

				
					
STM8S+STVD+COSMIC折腾小记STM8S+STVD+COSMIC折腾小记.专为新手准备_rezip.zip

				
			

			

				

					07-16
				

			

		

		

			
				
STM8S+STVD+COSMIC折腾小记STM8S+STVD+COSMIC折腾小记.专为新手准备_rezip

			
		

	





	

		

			

				
					
STM8S+STVD+COSMIC折腾小记STM8S+STVD+COSMIC折腾小记.专为新手准备1_rezip.zip

					
最新发布

				
			

			

				

					07-16
				

			

		

		

			
				
STM8S+STVD+COSMIC折腾小记STM8S+STVD+COSMIC折腾小记.专为新手准备1_rezip

			
		

	





	

		

			

				
					
【VBA研究】利用DateAdd函数取上月或上年同期的日期

					
热门推荐

				
			

			

				

					驽马十驾 才定不舍
				

				

					03-17
					
					1万+
					
				

			

		

		

			
				
作者：iamlaosong

     DateAdd函数返回一个日期，这一日期加上了一个时间间隔。通过这个函数可以计算很多我们需要的日期，比如上月上年同期日期等。
     语法
    DateAdd(interval, number, date) 
    DateAdd 函数语法中有下列命名参数：
    interval  必要。字符串表达式，是所要加上去的时间间隔。它具有好

			
		

	





	

		

			

				
					
vba excel记录查询_记录您的Excel VBA过程

				
			

			

				

					culiao2169的博客
				

				

					08-13
					
					837
					
				

			

		

		

			
				
vba excel记录查询 记录您的Excel VBA过程 (Document Your Excel VBA Procedures)	In a complicated Excel file, you might end up with several code modules, and it's easy to lose track of what's connected to what. Her...

			
		

	





	

		

			

				
					
VBA实现窗口登录

				
			

			

				

					God_68的博客
				

				

					10-29
					
					5540
					
				

			

		

		

			
				
核心代码：

' 窗口事件
Private Sub CommandButton1_Click()    ' 登录
If ComboBox2.Text = "" Or TextBox1.Text = "" Then
MsgBox "请输入账户或密码", 1 + 64, "系统登录"
Else
If 特定用户密码登录(ComboBox2) = TextBox1.Text Then
Unload Me
MsgBox ComboBox2.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词.

			
		

	





	

		

			

				
					
VBA获取代码使用者IP+姓名+电脑编号+使用时间

				
			

			

				

					小韩的博客
				

				

					03-28
					
					2097
					
				

			

		

		

			
				
应用背景：比如说你开发了一个excel工具，想统计一下应用实绩。

（在一段时间内，谁在什么时候使用了该工具。）

最后可以统计一年中，该工具一共被使用多少次。

1.先在D盘新建一个excel（user_log.xlsx）。（名字及存储位置自定义）

2.然后使用下面的代码。


Option Explicit
Sub User_Log_Record()
Dim ip_1$, j, strcomputer, objwmi, coliP, IP, computer_name, i
Workbooks.Ope

			
		

	





	

		

			

				
					
Excel 2010 VBA 入门 141 动态更改功能区控件属性

				
			

			

				

					复行数十步
				

				

					11-25
					
					2359
					
				

			

		

		

			
				
目录

题

码

动态属性

IRibbonUI对象和Invalidate方法

设置IRibbonUI对象

Invalidate的实质

题

   制作一个功能区的按钮为该工作簿制作名为“目录”的报表导航工作表，并且当该导航工作表已经存在时，则按钮显示“更新目录”；反之显示“创建目录”。当单击该按钮时，可以创建或更新目录。

码

    本例实质上是需要按钮（button）控件的label属性能够根据当前工作簿是否含有“目录”工作表而动态显示不同的内容。因而使用其动态属性getLa...

			
		

	





	

		

			

				
					
Excel-VBA基础（12）：VBA中对象、集合、属性和方法

				
			

			

				

					excel  vba  sas python的专栏
				

				

					09-19
					
					2703
					
				

			

		

		

			
				
对象代表应用程序中的元素，类似于汽车中的轮子、发动机等。Excel中也有许多对象，例如：工作簿、工作表、单元格、图表、窗体，或是一份报告。程序中调用对象的任一方法或改变它的属性之前，必须先声明对象。下图是Excel中的4个主要对象及其层次关系。对象集合对象集合是一个包含几个子对象的集合。例如，在Excel中的Workbooks 对象包含了所有已打开的Workbook（工作簿）对象，Workshee...

			
		

	





	

		

			

				
					
VBA-当前登录用户获取

				
			

			

				

					Data_Python_VBA
				

				

					08-26
					
					3197
					
				

			

		

		

			
				
Excel与用户关联，非特定用户无法打开

			
		

	





	

		

			

				
					
生成一个vba，筛选（G，1）排除小记和空白，

				
			

			

				

					02-06
				

			

		

		

			
				
下面是如何生成一个 VBA 程序来筛选（G，1）列并排除小记和空白的示例代码：  Sub FilterBlankAndSubtotal()  'Declare variables  Dim ws As Worksheet  Dim rng As Range  Dim cell As Range    'Set the ...

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值