vba setfocus

. Section Returns the index of the cell ' s section. Read-only. Shape Returns the Shape object that owns a Cell, characters, Row, or section object or that's associated with a Hyperlink or OL Eobject object or with the Hyperlinks collection. Read-only. Stat Returns status information for a object. Read-only. Style Gets The style that contains a Cell object. Read-only. Units

Problem: As shown, group by Lon,lat, then transpose.Sub admin () Dim conn, xRs, xFd Set conn = CreateObject ("ADODB". Connection ") Conn. Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ "Extended properties= ' Excel 8.0;hdr=yes;imex=1 ';" _ " Data source= " thisworkbook.fullname Set xRs = CreateObject (" ADODB. RecordSet ") sSQL =" Transform Sum ([tas_t]) Select [lon], [lat] from [sheet1$a:d] Group by [LON], [lat] Pivot [yea R] " Xrs.open sSQL, Co

-json JSON Parser class and a simple example project from here:Download Vbjson.zipRelease history18th April: Initial Release23rd April: Added JSON file Parser button to the sample project and a simple error list to show parsing errors rather than using Err.Raise26th April:* Improved JSON parser error handling* Added//And/* * * Comment support* Added an early implementation of a simple scripting system called Jsonscript18th July:* Changed Vbjson.cls to Json.bas Module to make it a singleton* Fixe

Write to open and close multiple workbooks with Excel VBA, and the appropriate code is as follows: 1, open the specified workbook Dim wb As Workbook Set wb = "File path and filename" Workbooks.Open filename:= WB 2. Close all workbooks and save Workbooks.close 3, open a number of work-thin program code: Sub Openworkbooks () On Error Resume Next Dim Selectfiles as Variant ' Show open File dialog box Selectfiles = Application.getopenfilename

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 first raw data is the same as the previou

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. ActiveConnection = Nothing End With With ActiveShe

How to make an Excel file that is limited to open on a computer and other computers cannot open the Excel file. This has to be done with the help of VBA code. Just add the following code to the event that the workbook opens. Private Sub Workbook_Open () application.screenupdating = False On Error GoTo 100 Workbooks.Open Thisworkbook.path "/validation. XLS " Activeworkbook.close False Exit Sub 100: MsgBox "You have no right to use the docume

The Unload statement is used in VBA state. Its function is to unload a form or control from memory. Unload syntax Unload Object Where object is the name of the Form object or control array element to unload. Description It is necessary to unload a form or control when the memory is otherwise used, or if you need to reset the form or control's properties to an initial value. The Query_unload event procedure occurs before the form is unloaded, foll

The function of the following code is to select the current page of the Word document, and note that it is the current page, the page where the insertion bar is located, not the full text. Dim Currentpagestart as Long, currentpageend as Long, myRange as Range Dim currentpage As Integer, Pages as Integer On Error Resume Next CurrentPage = Selection.Information (wdActiveEndPageNumber) Pages = Selection.Information (wdnumberofpagesindocument) Currentpagestart = Selection.goto (What:=wdgotopag

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 Userow = Cells.specialcells (xlCellTypeLastCell).

'divides a positive number by Y to return an integer or fractionFunctionRFs (ByValX as Integer) as String Ifx =0 ThenRFs=0 Exit Function End If DimDiv_result, Div_remain, y, I as Integery=144Div_result= x \y Div_remain= XModyIfDiv_remain =0 ThenRFs= x/yExit Function Else DimZ as Integer IfDiv_remain > Y ThenZ=yElseZ=Div_remainEnd If fori = Z to 2 Step-1 IfDiv_remainModi =0 andYModi =0 Then IfDiv_result >0 ThenRFs= Di

(b_date1), b_date1) ' using DATEADD function Fetch January 1 e_date2 = DateAdd ("M",-1, e_date1) ' use DATEADD function to take the same period last month E_date3 = DateAdd ("M", -12, E_date1) ' Use the DATEADD function to take the same period of the previous year e_date3 = DATEADD ("yyyy",-1, e_date1) ' using DATEADD function to take the same yearNote that when taking the same period of the previous month, if the current date is grea

'Bulk Substitution charactersSubTest ()DimI as Integer fori =2 to theIfCells (I,3). Value ="is activated" ThenCells (i,3). Value ="Active"End IfNextEnd SubSubTest ()DimRowsnum, I, J, Equalrowsnum as Integer 'declaring VariablesRowsnum = ActiveSheet.UsedRange.Rows.Count'get the number of rows fori =3 toRowsnum'traverse the total number of rowsIfCells (I,1). Value = Cells (i +1,1). Value ThenJ= j +1Else forEqualrowsnum =1 toJ'appends a value to the specified column. Append the same column to

In Excel, you create the hyperlink code in bulk (connect to sheet in the current document), and in column B in Sheet1, you create a series of hyperlinks that are the other sheet in this document, such as creating a macro under Sheet1 code as follows.SUB Macro 1 ()Dim Temp, Temp2Dim I, Jj = 1For i = 5 to 74temp = "' G" J "'! A1 "Temp2 = "G" JRange ("B" i). SelectActiveSheet.Hyperlinks.Add anchor:=selection, address:= "", Subaddress:=temp, texttodisplay:= "G" Jj = j + 1NextEnd SubIn the first

1 SubChazhi ()2 'thisworkbook.worksheets ("Solvee"). Active3 DimPtotalrows as Integer, Startrows as Integer4 DimP, E, PX, ex () as Double, Gs, Pxtotalrows as Integer5Startrows =4 'row label for data start6Ptotalrows = Range ("A3"). End (Xldown). Row'data P column non-empty total rows7Pxtotalrows = Range ("C3"). End (Xldown). Row'' data px column non-empty total number of rows8 ReDimEx1 toPxtotalrows-startrows +1)'redefine the required array size for e9p = Range (Cells (Startrows,1), Cells (Ptot

Toolsxlsm files to be cracked, Excel2010, Hex EditorSteps1. Modify the. xlsm suffix to. zip2. Use the compression software to open, enter the XL directory to find the Vbaproject.bin file, extract it out3. Use the hex software to open the Vbaproject.bin file, find DPB Replace with DPX, save the file, re-compress, modify the suffix name. zip for. xlsm4. Use Excel to open the. xlsm file, development tools, view the code, pop up the error box, and click Yes or OK. Right click on the VBAProject, open

The following wapp is a predefined Word document engineering variable. The following code modifies word paragraph indents, paragraph spacing, line spacing, paging, and so on through VBA code. Paragraph format setting WApp.Selection.ParagraphFormat.LeftIndent = wapp.centimeterstopoints (float. Parse ("0"))//left Indent WApp.Selection.ParagraphFormat.RightIndent = wapp.centimeterstopoints (float. Parse ("0"))//Right Indent WApp.Selection.ParagraphF

Anonymous sources close to Microsoft said today that Office 2013 for Windows RT Edition will be available later this year or early next year with arm tablets, which is the first time Microsoft has faced flat-panel publishing office. However, this version has been decided to cancel a number of functions, including macros, Third-party add-ins, and VBA support are discarded, and the reason for this decision is not to affect the battery endurance and reli

The VBA code contains variables, operators, and statements. Variables play a role in the code to cross and join. Variables are created as appropriate to the object and data type, to initialization, and then the operator to calculate or execute the statement modification, to complete the process of mutual exchange. The key word for declaring a variable is dim, whose syntax is Dim [WithEvents] varname[([subscripts])] [as [new] type] [, [WithEvents] va

Json:javascript Object Notation (JAvaScript Object Notation) Similar to XML, in the form of text (saved in a text file or a string, for example), such as:JSSTR = {"Department": "History department", "Class": "Class", " student":[ {"name": "Zhang San", "Age": 25, "gender": "Male"}, {"name": " John Doe "," age ": 20," gender ":" Male "}, {" name ":" Xiaoming "," Age ": 20," gender ":" Female "} ] }