teach vba for excel

There's a friend. The A1 cells and B1 cells in the Excel worksheet have two digits, and the two numbers are the same, now you want to find the same number and write to cell C1, find the numbers in the A1 that are not in the B1 and write to cell D1. Find the numbers in the B1 that are not in the A1 and write to cell E1. As in the following worksheet picture: I don't know whether the numbers given are the same rule, that is, the number of

The function of the following code example is to read the contents of an XML file in Excel by using VBA code. Dim rst as ADODB. Recordset Dim Stcon As String, Stfile as String Dim I as Long, J as Long Set rst = New ADODB. Recordset Stfile = "C:dzwebs.xml" Stcon = "provider=mspersist;" With RST . CursorLocation = adUseClient . Open Stfile, Stcon, adOpenStatic, adLockReadOnly, adCmdFile Set. ActiveC

In Excel, using the simple visualization method is difficult to filter by color, so we can only use VBA code to implement it. The following code has the function of hiding the column data of the current cell with the row of the current cell in addition to the first row, the header column of the data. If you have other requirements, please modify the code yourself. Sub Filtercolor () Dim Userow, AC User

[Vb/VBA] SQL operation Excel 1. Add reference (1) Microsoft Active Data Objects 2.8 Library (2) Microsoft ADO Ext. 2.8 for DDL and security 2. Use ADOX to connect to an Excel file Dim cat as ADOX. catalog dim TBL as ADOX. table dim Col as ADOX. column dim cmd as ADODB. command dim RS as recordset set cat = new ADOX. catalog cat. activeconnection = "prov

Sometimes, we want to add a slash header in Excel, but Excel does not provide the function of making slash head, each time to draw a slash manually, very troublesome. Is there a solution? In fact, we can use VBA code can write a function, a key insert Excel slash header. With the command button control in the Control

Mycolumn=target.column Gets the column number of the active cell Myrow=target.row gets the line number of the active cell The name of the worksheet. UsedRange.Rows.Count Specify the total number of rows used by the worksheet The name of the worksheet. UsedRange.Columns.Count Specify the total number of columns used by the worksheet The name of the worksheet. Cells (line number, column number). Value gets the values of a cell on the specified worksheet Worksheets (m). Cells (i, J). Value use

Two Problems of Delphi Excel operations using VBA: 1. Use the Excel column name to obtain the corresponding number of columns. For example, column A is 1st columns, column Z is 26th columns, and column AA is 27th columns. ComplexAlgorithmBecause there are ready-made properties, as follows: Columnnum: = worksheet. cells [1, 'a']. column;Columnnum: = workshee

On the day off, go to excel home to check what you can learn and help you with any questions. I have seen many posts asking for help in traversing files in a specific folder. Some friends said that the Excel version 03 has a filesearch object that can traverse files in the folder. In Version 07, there is no filesearch object and I do not know how to traverse the file. I think what version 03 can do, Version

Here I will directly on the source:Sub Export Txt1 () Dim file as String, arr, I ' defines the name of the text file = Thisworkbook.path "\ New salary table. txt" ' Determines if there is a text file with the same name, there is an antecedent delete if Dir (file The results of the operation are as follows:Above is written from Excel txt, my beam crooked an article is read from TXT and then written to Excel

The Excel workbook you manage has been modified by many people, many of which are often inconsistent, providing VBA code to implement one-click layout of tabular data format, eliminating the manual frequent adjustment of Excel data format.1 Option Explicit2 OptionBase13 4 SubAutoSet ()5 DimI as Integer6 7 fori =1 toSheets.count8 Sheets (i). Activate

Directory Chart Export Chart Format Chart Lengend Chart Protect Chart Title Chart Chart Export 1. Save the chart in Excel to a picture in GIF format on your hard disk Sub ExportChart() Dim myChart As Chart Set myChart=ActiveChart myChart.Export Filename:="C:\Chart.gif", Filtername:="GIF" End Sub Theoretically charts can be saved to any type of picture file that readers can try for themselves. 2. Export a chart in

Excel and VBAProgramDesign, latest news, expected to go public in September Since the summer of, I wrote "Excel and VBA program design", which received support and encouragement from many netizens. I downloaded statistics from the blog garden, more than 52000 downloads have been downloaded [as of 2006.4.14]. Progress: http://maweifeng.cnblogs.com/archive/2006

Today, I wrote an Excel macro. When I create an Excel file based on a template, the content of some cells is automatically filled according to the current machine environment. The writing is clumsy, because you are not familiar with VBA and office events, and you are all looking at help. If you can give me some advice, please leave a message.Private sub workbook

 Principle: The images inside the Excel document are Shape objects that Traverse ActiveSheet's Shapes collection; Sets the corresponding Shape object to the temporary variable; Add the ChartObject object to the current sheet and set the area size of the ChartObject object with the width and height of the shape that was taken previously; Call the Copy method of the Shape object and copy it to the Clipboard; Activates the prev

I used VB6 Enterprise Edition to encapsulate a DLL, which has four VB forms: form1, form2, form3, form4, in VBE of excel 2003, class modules and standard modules in DLL are successfully called with VBA code, but VB forms cannot be called or displayed !!! How should I call it? To display ???The calling process is as follows: Open the excel worksheet and display fo

There are many ways to merge Excel workbooks. Examples of combining workbooks are described in "merging data from multiple workbooks into one Workbook. The following examples are provided for your reference. For example, you need to merge worksheets from multiple Excel workbooks into one workbook. Assume that the workbook to be merged contains two worksheets in "D:/example/data record/Workbook". Now, use a

cylindrical cone ', ' xlconecolclustered ': ' Clustered column-shaped cone ', ' xlconecolstacked ': ' Stacked column cone ', ' xlConeColStacked100 ': ' percent stacked cylindrical cone ', ' xlcylinderbarclustered ': ' Clustered Bar-shaped column ', ' xlcylinderbarstacked ': ' Stacked bar cylinder ', ' xlCylinderBarStacked100 ': ' percent stacked bar cylinder ', ' Xlcylindercol ': ' Three-dimensional cylindrical cylinder ', ' xlcylindercolclustered ': ' Clustered column-shaped cone ', ' xlcylind

A problem that has been trapped for a long time has finally been solved. The requirement is that there are many pivot tables in Excel, the data source for each pivot table is the same, and I want to have one of these pivot tables linked together.For example, I have three pivot tables, and I want to change the month option for three tables to "2014-12". Check to find can only be implemented in VBA.The specific code is as follows: Public Subfilterpivott

SubErrorHandler:If notXmlAttribute is Nothing Then SetXmlAttribute = Nothing End If If notXmlNode is Nothing Then SetXmlNode = Nothing End If If notXmlDoc is Nothing Then Setxmldoc = Nothing End If If notClsmosshelper is Nothing Then SetClsmosshelper = Nothing End Ifapplication.screenupdating=TrueApplication.DisplayAlerts=True MsgBoxErr.DescriptionEnd SubIV: Excel file.Ht

use Excel VBA programming to draw a chair on a form Steps Open Excel and go to the Visual Basic Editor. Insert the module. Module programming. Programming in Module 1, declaring 4 functions, and writing a program that displays a form--"painting." Insert the form. Adjusts the size of the form. The Height proper