VBA simple macro programming of Excel

Hello everyone , I meet you again , I'm your friend, Quan Jun .

Excel And VBA Simple macro programming

excel It is a classic data analysis tool , It contains many built-in functions , But the actual situation is sometimes much more complicated , and excel Macro programming of provides the function of user-defined functions , There is just a teacher who needs help to do some data analysis , I just learned , Here are my study notes . I use excel2013. If there is any discrepancy, please refer to .

List of articles

• Excel And VBA Simple macro programming
  • 1、 preparation
  • 2、VBA Programming
    • 2.1 Module declaration
    • 2.2 Variable declaration and assignment
    • 2.3if-else structure
    • 2.4 Loop structure
    • 2.5 Comparison operator
    • 2.6 notes
  • 3、 Common functions
    • 3.1 Get table data
    • 3.2 Copy cells and keep the original cell column width
    • 3.3 Set cell 、 Color of a row or column
    • 3.4 Get the number of useful columns and rows of the table
  • 4、 Debugging operation

1、 preparation

• Open the development tools panel （excel By default, the main tab of does not have a development tool tab ）

file -> Options -> Custom ribbon ->

At this time, the main tab has a development tool item

• Get into vba edit

Click on visual basic Get into

stay VBAProject Right click -> Insert -> modular An edit file appears, as shown in the following figure

Then you can write vba Code .

2、VBA Programming

2.1 Module declaration

   Similar to a program , A module should have a main program entry, that is, module declaration , Such as Sub sname() ··· ··· End Sub

2.2 Variable declaration and assignment

   The declaration format is ： Dim ‘ Variable name ’ As ‘ Variable type ’    Such as Dim i As Integer Dim str As String    The assignment format is ： i = 3 str = “hello world!”    Direct equal sign assignment

data type	Defining symbols	remarks
character string	String
integer	Integer	-32768~32767
Long integer numbers	Long	-2147483648~2147483647
Single precision floating point numbers	Single	Accuracy of 6
Double precision floating point numbers	Double	Accuracy of 14
Date type	Date
Boolean type	Boolean
Variant	Variant	Universal type , Avoid using
Object type	Object	Not in depth
enum

Enumeration type data definition format ： Public|Private Enum Variable name    member 1[= Constant expression 1]    member 1[= Constant expression 1]   ··· ··· End Enum for example ： Public Enum WorkDays    Sunday    Monday    Tuesday    Wednesday    Thursday    Friday    Saturday End Enum

2.3if-else structure

If ······ Then
  ······
ElseIf ······ Then
  ······
Else
  ······
End If

Copy

2.4 Loop structure

Do While ······
  ······
Loop
For i = 0 To 100 Step 1
  ······
Next i

Copy

Jump out of for The loop can be used Exit For

2.5 Comparison operator

name	Operator
be equal to	=
It's not equal to	<>
Less than	<
Less than or equal to	<=
Greater than	>
Greater than or equal to	>=
string matching	Like

2.6 notes

  VBA Single line comments in are in single quotation marks ' identification

3、 Common functions

3.1 Get table data

• For the first i That's ok j Column cell data Sheets(‘ Table name ’).Cells(i,j).Value
• For the first i Row data Sheets(' Table name ').Rows(i)
• For the first j Column Sheets(' Table name ').Columns(j)
• Get a piece Range("a1:b60")

3.2 Copy cells and keep the original cell column width

Sheets(name_1).Cells(i, k).copy
Sheets(name_result).Cells(i,k).PasteSpecial xlPasteColumnWidths

Copy

3.3 Set cell 、 Color of a row or column

Sheets(name_1).Rows(i).Interior.ColorIndex = 3'
Sheets(name_1).Rows(i).Font.ColorIndex = 1
Sheets(name_1).Cells(i,j).Interior.ColorIndex = 3'
Sheets(name_1).Cells(i,j).Font.ColorIndex = 1

Copy

3.4 Get the number of useful columns and rows of the table

irows1 = Sheets(name_1).UsedRange.Rows.Count
icolumns1 = Sheets(name_1).UsedRange.Columns.Count

Copy

4、 Debugging operation

Shortcut key	function
F8	Run sentence by statement
Shift+F8	Run process by process
Ctrl+F8	Run to the cursor
F9	Add a breakpoint at the cursor
debugging -> Add monitoring	Add monitoring

Publisher ： Full stack programmer stack length , Reprint please indicate the source ：https://javaforall.cn/130843.html Link to the original text ：https://javaforall.cn