VBA对EXCEL的操作

最新推荐文章于 2024-09-16 09:47:29 发布
最新推荐文章于 2024-09-16 09:47:29 发布
阅读量1.5k 收藏
点赞数
分类专栏： VB 文章标签： vba excel integer string menu air
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/tanyouliang/article/details/7438368
版权 
将下面格式的菜单：
GRX12#								
	-1009							
		w/ Smart Key				REIZ	Powertrain	0
							Engine	1
							ECT	1
							Cruise Control	1
							Chassis	0
							ABS/VSC/TRC	1
							EMPS	1
							Body	0
							Air Conditioner	1
							SRS Airbag	1
							Body	1
							Gateway	1
							Body No.5	1
							Master Switch	1
							Sliding Roof	1
							Combination Meter	1
							AFS	1
							Entry&Start	1
							Power Source Control	1
		w/o Smart Key				REIZ	Powertrain	0
							Engine	1
							ECT	1
							Cruise Control	1
							Chassis	0
							ABS/VSC/TRC	1
							EMPS	1
							Body	0
							Air Conditioner	1
							Immobiliser	1
							SRS Airbag	1
							Body	1
							Gateway	1
							Body No.5	1
							Master Switch	1
							Sliding Roof	1
							Combination Meter	1
							AFS	1
	1009-							
		w/ Smart Key						
			w/ AFS OFF Switch		REIZ	Powertrain	0
							Engine and ECT	1
							Radar Cruise	1
							Chassis	0
							Air suspension	1
							ABS/VSC/TRC	1
							EMPS	1
							VGRS	1
							IPA/Parking Assist Monitor	1
							Body Electrical	0
							Air Conditioner	1
							SRS Airbag	1
							Pre-Crash 2	1
							Main Body	1
							PM1 Gateway	1
							PM2 Gateway	1
							D-Door Motor	1
							P-Door Motor	1
							RL-Door Motor	1
							RR-Door Motor	1
							Master Switch	1
							Sliding Roof	1
							Tilt&Telescopic	1
							Combination Meter	1
							AFS	1
							Entry&Start	1
							Power Source Control	1
							Starting Control	1
							Navigation System	1

处理成下面这样的：（三列）




GRX12#	1	
REIZ	2	
w/ Smart Key	3	
Powertrain	4	
Engine	5	0x07E0
ECT	5	0x07E1
Cruise Control	5	0x17E0
Chassis	4	
ABS/VSC/TRC	5	0x5029
EMPS	5	0x5032
Body	4	
Air Conditioner	5	0x9098
SRS Airbag	5	0x9058
Body	5	0x9040
Gateway	5	0x9840
Body No.5	5	0x9051
Master Switch	5	0x90EC
Sliding Roof	5	0x90AD
Combination Meter	5	0x9062
AFS	5	0x9070
Entry&Start	5	0x90B5
Power Source Control	5	0x90E9
w/o Smart Key	3	
Powertrain	4	
Engine	5	0x07E0
ECT	5	0x07E1
Cruise Control	5	0x17E0
Chassis	4	
ABS/VSC/TRC	5	0x5029
EMPS	5	0x5032
Body	4	
Air Conditioner	5	0x9098
Immobiliser	5	0xD0C1
SRS Airbag	5	0x9058
Body	5	0x9040
Gateway	5	0x9840
Body No.5	5	0x9051
Master Switch	5	0x90EC
Sliding Roof	5	0x90AD
Combination Meter	5	0x9062
AFS	5	0x9070
MARK X	2	
w/ Smart Key	3	
Powertrain	4	
Engine	5	0x07E0
ECT	5	0x07E1
Cruise Control	5	0x17E0
Chassis	4	
ABS/VSC/TRC	5	0x5029
EMPS	5	0x5032
Body	4	
Air Conditioner	5	0x9098
SRS Airbag	5	0x9058
Body	5	0x9040
Gateway	5	0x9840
Body No.5	5	0x9051
Master Switch	5	0x90EC
Sliding Roof	5	0x90AD
Combination Meter	5	0x9062
AFS	5	0x9070
Entry&Start	5	0x90B5
Power Source Control	5	0x90E9
w/o Smart Key	3	
Powertrain	4	
Engine	5	0x07E0
ECT	5	0x07E1
Cruise Control	5	0x17E0
Chassis	4	
ABS/VSC/TRC	5	0x5029
EMPS	5	0x5032
Body	4	
Air Conditioner	5	0x9098
Immobiliser	5	0xD0C1
SRS Airbag	5	0x9058
Body	5	0x9040
Gateway	5	0x9840
Body No.5	5	0x9051
Master Switch	5	0x90EC
Sliding Roof	5	0x90AD
Combination Meter	5	0x9062
AFS	5	0x9070
VBA脚本如下：
Private Sub CreateMenu_Click()
    Dim strModel As String
    Dim strMenu1 As String
    Dim strMenu2 As String
    Dim strMenu3 As String
    Dim strSystem As String
    Dim strProtocol As String
    Dim Level As Integer
    Dim Line As Long
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim i1 As Integer
    Dim i2 As Integer
    Dim k1 As Integer
    Dim k2 As Integer
    Dim num As Long
    Dim cell As Range
    Dim SystemNum As Long
    Dim m1 As Long
    Dim m2 As Long
    Dim m3 As Long
    Dim m4 As Long
    Dim m As Long
    Dim line3 As Long
    Dim menuLevel As Integer
    Dim flag As Integer
    
    Set cell = Sheet2.Range("A65536").End(xlUp)
    num = cell.Row
    Set cell = Nothing
    Set cell = Sheet2.Range("H65536").End(xlUp)
    SystemNum = cell.Row
    Set cell = Nothing
    
    Line = 1
    line3 = 1
    flag = 0
    menuLevel = 1
    Do While (1)
        strModel = Trim(Sheet2.Cells(Line, 1))
        
        j = Line
        Do While (1)
            j = j + 1
            If (Trim(Sheet2.Cells(j, 1)) <> "") Then
                Exit Do
            End If
            If (j > num) Then
                Exit Do
            End If
        Loop
        If (j > num) Then
            Exit Do
        End If
        
        If (j - Line < 5) Then
        
        Else
            i = Line + 1
            If (flag = 0) Then
                flag = 1
                Sheet3.Cells(line3, 1) = strModel
                Sheet3.Cells(line3, 2) = menuLevel
                line3 = line3 + 1
            End If
           'menu1
           If (Trim(Sheet2.Cells(i, 2)) <> "") Then
                Do While (1)
                    k = i
                    Do While (1)
                        k = k + 1
                    
                        If (Trim(Sheet2.Cells(k, 2)) <> "") Then
                            Exit Do
                        End If
                        If (k > j) Then
                            k = j
                            Exit Do
                        End If
                    Loop
                    strMenu1 = Trim(Sheet2.Cells(i, 2))
                    
                    'menu2
                    i1 = i + 1
                    If (Trim(Sheet2.Cells(i1, 3)) <> "") Then
                        Do While (1)
                            k1 = i1
                            Do While (1)
                                k1 = k1 + 1
                                
                                If (Trim(Sheet2.Cells(k1, 3)) <> "") Then
                                    Exit Do
                                End If
                                
                                If (k1 > k) Then
                                    k1 = k
                                    Exit Do
                                End If
                            Loop
                            strMenu2 = Trim(Sheet2.Cells(i1, 3))
                            'menu3
                            i2 = i1 + 1
                            If (Trim(Sheet2.Cells(i2, 4)) <> "") Then
                                Do While (1)
                                    k2 = i2
                                    Do While (1)
                                        k2 = k2 + 1
                                        
                                        If (Trim(Sheet2.Cells(k2, 4)) <> "") Then
                                            Exit Do
                                        End If
                                        
                                        If (k2 > k1) Then
                                            k2 = k1
                                            Exit Do
                                        End If
                                    Loop
                                    
                                    strMenu3 = Trim(Sheet2.Cells(i2, 4))
                                    m4 = i2
                                    Sheet3.Cells(line3, 1) = Sheet2.Cells(m4, 7)
                                    Sheet3.Cells(line3, 2) = menuLevel + 1
                                    line3 = line3 + 1
                                    Sheet3.Cells(line3, 1) = strMenu1
                                    Sheet3.Cells(line3, 2) = menuLevel + 2
                                    line3 = line3 + 1
                                    Sheet3.Cells(line3, 1) = strMenu2
                                    Sheet3.Cells(line3, 2) = menuLevel + 3
                                    line3 = line3 + 1
                                    Sheet3.Cells(line3, 1) = strMenu3
                                    Sheet3.Cells(line3, 2) = menuLevel + 4
                                    line3 = line3 + 1
                                    
                                    Do While (1)
                                        Level = Sheet2.Cells(m4, 9)
                                        If (Level = 0) Then
                                            Sheet3.Cells(line3, 1) = Sheet2.Cells(m4, 8)
                                            Sheet3.Cells(line3, 2) = menuLevel + 5
                                        Else
                                            strSystem = Sheet2.Cells(m4, 8)
                                            Sheet3.Cells(line3, 1) = strSystem
                                            Sheet3.Cells(line3, 2) = menuLevel + 6
                                        End If
                                        
                                        line3 = line3 + 1
                                        m4 = m4 + 1
                                        If (m4 < k2) Then
                                        
                                        Else
                                            Exit Do
                                        End If
                                    Loop
                                    
                                    If (k2 = k1) Then
                                        Exit Do
                                    End If
                                    i2 = k2
                                Loop
                            Else
                                m3 = i1
                                Sheet3.Cells(line3, 1) = Sheet2.Cells(m3, 7)
                                Sheet3.Cells(line3, 2) = menuLevel + 1
                                line3 = line3 + 1
                                Sheet3.Cells(line3, 1) = strMenu1
                                Sheet3.Cells(line3, 2) = menuLevel + 2
                                line3 = line3 + 1
                                Sheet3.Cells(line3, 1) = strMenu2
                                Sheet3.Cells(line3, 2) = menuLevel + 3
                                line3 = line3 + 1
                                
                                Do While (1)
                                    Level = Sheet2.Cells(m3, 9)
                                    If (Level = 0) Then
                                        Sheet3.Cells(line3, 1) = Sheet2.Cells(m3, 8)
                                        Sheet3.Cells(line3, 2) = menuLevel + 4
                                    Else
                                        strSystem = Sheet2.Cells(m3, 8)
                                        Sheet3.Cells(line3, 1) = strSystem
                                        Sheet3.Cells(line3, 2) = menuLevel + 5
                                    End If
                                    
                                    line3 = line3 + 1
                                    m3 = m3 + 1
                                    If (m3 < k1) Then
                                    
                                    Else
                                        Exit Do
                                    End If
                                Loop
                            End If
                            
                            If (k1 = k) Then
                                Exit Do
                            End If
                            i1 = k1
                        Loop
                    Else
                        m2 = i
                        
                        Sheet3.Cells(line3, 1) = Sheet2.Cells(m2, 7)
                        Sheet3.Cells(line3, 2) = menuLevel + 1
                        line3 = line3 + 1
                        Sheet3.Cells(line3, 1) = strMenu1
                        Sheet3.Cells(line3, 2) = menuLevel + 2
                        line3 = line3 + 1
                        
                        Do While (1)
                            Level = Sheet2.Cells(m2, 9)
                            If (Level = 0) Then
                                Sheet3.Cells(line3, 1) = Sheet2.Cells(m2, 8)
                                Sheet3.Cells(line3, 2) = menuLevel + 3
                            Else
                                strSystem = Sheet2.Cells(m2, 8)
                                Sheet3.Cells(line3, 1) = strSystem
                                Sheet3.Cells(line3, 2) = menuLevel + 4
                            End If
                    
                            line3 = line3 + 1
                            m2 = m2 + 1
                            If (m2 < k) Then
                        
                            Else
                                Exit Do
                            End If
                        Loop
                
                    End If  'menu2
                    
                    If (k = j) Then
                        Exit Do
                    End If
                    
                    i = k
                Loop
            Else    'menu1
                m1 = Line
            
                Sheet3.Cells(line3, 1) = Sheet2.Cells(m1, 7)
                Sheet3.Cells(line3, 2) = menuLevel + 1
                line3 = line3 + 1
                Do While (1)
                    Level = Sheet2.Cells(m1, 9)
                    If (Level = 0) Then
                        Sheet3.Cells(line3, 1) = Sheet2.Cells(m1, 8)
                        Sheet3.Cells(line3, 2) = menuLevel + 2
                    Else
                        strSystem = Sheet2.Cells(m1, 8)
                        Sheet3.Cells(line3, 1) = strSystem
                        Sheet3.Cells(line3, 2) = menuLevel + 3
                    End If
                    
                    line3 = line3 + 1
                    m1 = m1 + 1
                    If (m1 < j) Then
                        
                    Else
                        Exit Do
                    End If
                Loop
            End If  'menu1
        End If
        flag = 0
        Line = j
    Loop
End Sub







 







                

        

        

    

  


    

      

        

            

              
                
                  tanyouliang
                
              
            

            

                关注
              
            

        

        

          
      

      

            

                专栏目录
          









                



	

		

			

				
					
PS 宏使用方法记录

				
			

			

				

					abinghui123的博客
				

				

					09-04
					
					3167
					
				

			

		

		

			
				
在使用PS 的过程中，有时不可避免的需要进行重复操作，为减少麻烦，建议学习一手PS的宏使用。5、需要重复操作时，选择相应的动作后，点击播放即可。1、点击窗口-动作，会跳出如下弹窗。有用的话，一键三连喔！4、操作结束后，点击停止。3、进行PS 的操作。

			
		

	



                

              
                



	

		

			

				
					
vb编写简单Photoshop功能

				
			

			

				

					06-20
				

			

		

		

			
				
设计程序实现PhotoShop部分功能。要求：1：必须包括以下功能a、存取图像各像素点RGB值  b、图像的灯光效果   c、图像的反色效果  d、图像的柔化效果  e、图像的锐化效果 。（参考算法说明：教材P164）2：设计下拉式菜单完成功能选择

			
		

	



                


  
              

                


	

		

			

				
					
VBA对EXCEL操作

				
			

			

				

					qq_39023355的博客
				

				

					04-19
					
					561
					
				

			

		

		

			
				
这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片字段匹配成功后A给B中英文字段重新赋值功能2创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能，丰富你的文章UML 图表FLowchart流程图导出与导入导出导入
欢迎使用Markdown编辑器
你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Mar

			
		

	





	

		

			

				
					
VBA访问photoshop并评分的例子

				
			

			

				

					03-01
				

			

		

		

			
				
编写Photoshop评分，除了读取历史记录文件外，对于psd源文档，可以直接通过VBA访问ps来确定源文档是否按要求做。

			
		

	



		

			
		



	

		

			

				
					
VBA SmartArt生成组织结构图

				
			

			

				

					Cory
				

				

					01-22
					
					2497
					
				

			

		

		

			
				
VBA SmartArt生成组织结构图概述原始生成效果查询效果文件
概述
通过Excel的VBA自动生成SmartArt的组织结构图
应用场景：
	1.公司的组织架构
	2.菜单的结构
	3.上下等级关系的一些数据等
带有查询按钮，可以查询数据所在的层级并以红色高亮显示

原始

生成效果

查询效果

文件
Excel文件下载：
https://download.csdn.net/download/weixin_41982957/14920201

...

			
		

	





	

		

			

				
					
Excel之VBA操作

				
			

			

				

					csren11的博客
				

				

					06-27
					
					1871
					
				

			

		

		

			
				
但是 Excel 在打开包含 VBA 代码的工作簿时，在编辑栏上方，显示安全警告，并且可以选择启用代码运行或不启用。如果选择启用，下次打开相同的工作簿，不会出现警告。设置方法：在开发工具选项卡，点击「宏安全性」按钮，弹出信任中心窗口，在左侧列表中，选择「受信任位置」。把一个文件夹添加到 Excel 受信任的位置后，该文件夹下的包含 VBA 代码的工作簿打开时，不会提示安全警告，也无需每次手动开启代码。Excel 提供 4 种宏安全性选项，在开发工具选项卡，点击「宏安全性」按钮，打开信任中心。

			
		

	





	

		

			

				
					
VBA批量操作excel文件

				
			

			

				

					solomomlongquan的博客
				

				

					11-16
					
					4149
					
				

			

		

		

			
				
Sub key()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
        Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃瞎你的狗眼
        Path = "c:\temp\" '把目标文件夹路径赋值给变量，这里的路径可以自己改
        File = Dir(Path & "*.xlsx") '一次找寻路径中的excel.

			
		

	





	

		

			

				
					
python和vba操作excel_对比VBA学Python操作Excel

				
			

			

				

					weixin_32173041的博客
				

				

					01-29
					
					1270
					
				

			

		

		

			
				
关于先学VBA还是先Python，或者作为办公族选什么？这些问题，我已经写了专题，就不再啰嗦！建议先阅读：讨论 | 学习VBA还是Python？但是大家一直还是被Python吸引，所以小编就说一期Python操作Excel吧！大部分教编程的，对Excel相对不是那么熟悉，小编可能使用Excel比较多，所以我们讲解会更多站在Excel用户角度，让大家更好去理解！！Python环境安装方便，只说一点，...

			
		

	





	

		

			

				
					
excel打开并操作CAD(excel-vba实现)

				
			

			

				

					12-19
				

			

		

		

			
				
运行宏实现弹窗打开cad文件并另存

			
		

	





	

		

			

				
					
使用vba对excel2010操作题进行自动判分的实例

				
			

			

				

					01-05
				

			

		

		

			
				
通过vba，结合宏，对中小学信息技术考试中的excel操作题进行自动判分，减轻教师课上负担，提高学生操作能力。本实例包含单元格合并居中、行高设置、公式、函数、图表等5个操作点均可以进行直接判断正误。，vba无加密...

			
		

	





	

		

			

				
					
excel VBA帮助文件.rar_Excel VBA_VBA   excel_VBA，Excel_excel_vba exce

				
			

			

				

					09-20
				

			

		

		

			
				
4. **宏**：宏是一系列VBA命令的集合，可以录制并回放用户在Excel中的操作。录制的宏可以通过VBA编辑器进行修改和优化。  5. **变量和数据类型**：在VBA中，你需要声明变量并指定其数据类型，如Integer, Double, ...

			
		

	





	

		

			

				
					
vba-excel.zip_Excel VBA_VBa_excel_excel application _vba excel

				
			

			

				

					09-22
				

			

		

		

			
				
`Excel.Application`类提供了对Excel工作簿、工作表、单元格等进行操作的方法和属性。例如，`Application.Workbooks.Open`用于打开一个Excel文件，`Worksheets("Sheet1").Range("A1")`则可以访问名为"Sheet1"的工作...

			
		

	





	

		

			

				
					
EXCELVBA.rar_Excel VBA_VBa_excelvba_vba excel

				
			

			

				

					09-23
				

			

		

		

			
				
**接下来，Excel VBA的核心是与Excel对象模型的交互，这包括对工作簿（Workbooks）、工作表（Worksheets）、单元格（Cells）、范围（Range）、公式（Formulas）等对象的操作。例如，`Sheets("Sheet1").Activate`用于...

			
		

	





	

		

			

				
					
VBA EXCEL 工作簿之间相互操作

				
			

			

				

					XWL1992的专栏
				

				

					07-22
					
					2683
					
				

			

		

		

			
				
说明：


各个班级花名册excel工作簿，一个余额汇总工作簿，在余额汇总工作簿中有多个表，每个表代表一个班级中每个学生基本信息和余额情况；为了检测班级花名册中的所有学生在余额统计表中是否都有对应的基本信息和余额统计情况，即班级花名册中的所有学生是否在余额统计表中都存在；

			
		

	





	

		

			

				
					
Excel VBA 的基本使用与代码示例

					
热门推荐

				
			

			

				

					wf824284257的博客
				

				

					02-19
					
					1万+
					
				

			

		

		

			
				

前言
本文整理了 Excel 中 VBA 的常用操作代码示例。
使用了 ms office 2016 。
开始
step.1 新建excel文件
新建excel文件，命名为test.xlsx ,如下图所示。

step.2 启用开发工具
文件-&gt;选项-&gt;自定义功能区，将【开发工具】全打钩后，点击确定。

step.3 VBA调用Excel函数
使用录制宏功能，实现VBA调用Excel...

			
		

	





	

		

			

				
					
python提取pdf表格到excel：拆分、提取、合并

					
最新发布

				
			

			

				

					个人学习记录
				

				

					09-16
					
					522
					
				

			

		

		

			
				
本文介绍使用python提取pdf中的表格到excel中，包含pdf的拆分、pdf提取到excel、合并excel。

			
		

	





	

		

			

				
					
springBoot整合easyexcel实现导入、导出功能

				
			

			

				

					weixin_71454352的博客
				

				

					09-14
					
					579
					
				

			

		

		

			
				
springBoot整合easyexcel实现导入、导出功能

			
		

	





	

		

			

				
					
Python爬虫案例七：抓取南京公交信息数据并将其保存成excel多表形式

				
			

			

				

					m0_74614835的博客
				

				

					09-13
					
					2126
					
				

			

		

		

			
				
header_new = ('线路名称', '线路类型', '运行时间', '参考票价', '公交公司', '最后更新', '公交路线-正向', '公交路线-反向')header = ('线路名称', '线路类型', '运行时间', '参考票价', '公交公司', '最后更新', '公交路线-正向', '公交路线-反向')tynm_list = ['江南线路(1-399)', '江北线路(400-699)', '江宁线路(700-999)']wb.save(r'./公交线路数据.xls')

			
		

	





	

		

			

				
					
VBA操作Excel：从Access到Excel的自动化

				
			

			

				

					
				

			

		

		

			
				
"这篇内容主要介绍了如何使用VBA (Visual Basic for Applications) 对Excel进行操作，特别是通过Access来控制Excel的场景。分享了如何在VBA中创建和操作Excel对象，包括Application对象、Workbook对象、Worksheet...

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

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

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值