vba commands

IamlaosongThe use of VBA programming to automatically read Web page data, during the reading process to close the Web page encountered an error: "Method Quit action IWebBrowser2 failed", unable to execute the Quit method, but the other properties are not a problem, the best solution, the source code is as follows:Sub login3 () Dim ie1 as Object Lineno = [A65536]. End (Xlup). Row ' number of rows for row1 = 2 to Lineno ems_id = Tri

Need to make a VBA macro in recent days, to facilitate the selection of the format date in Excel, the need to add a calendar control, and according to the format of the output, because it is the first time to contact VBA, so query some information, the following for their own process to summarize:1. Create a new Excel document first.2. Add a Calendar control to an Excel document, as follows:Insert a Calenda

Yesterday, colleagues had a need to know the month of the first sale of each item, and the month of the last sale. I want to use what Excel function to solve, but found a half-day did not find the right, and finally through the VBA to solve it.How to use:Excel Tools-Macro-visual Basic Editor right-click in the left column,Insert-ModuleThen enter:1 FunctionLast0 (ByValInt_row as Integer) as Integer2Last0 = -3 Do whileCells (Int_row, Last0) ="" a

Using the following VBA code, you can count a character or a number, or even a string, within a range of data regions, several times, or several, in Excel. The code below is the VBA macro code. Set Myb = CreateObject ("Scripting.Dictionary"): Myb ("number") = "Times" Set rng = Application.inputbox ("Select the area to be counted:", type:=8) ActiveSheet.Cells.Interior.ColorIndex = 0 Rng. Interior.ColorI

memory and help you find errors from your code. Dim Myanswer as String If you declare several variables in one statement, you must include the data type of each variable. A variable is automatically declared as a variant when it is declared with less data type. Dim x As Integer, y As Integer, z as Integer In the following statements, X and y are specified as Variant data types, and only z is specified as a String data type. Dim x, y as integer,z as String If you declare an array variable, you m

To use VBA to close the workbook, use the Workbook.close method, and to exit Excel, use the Application.Quit method.Here are some code examples: Close the active workbook, and if the workbook has changes, prompts to save: Copy Code code as follows: Sub Closeworkbook () Activeworkbook.close End Sub If you want to avoid prompting, add the "SaveChanges" parameter, such as saving and closing the workbook directly: Copy Code

IfCase 8ID (i) = Left (CStr (ID (i) * 9), 1)End SelectNextIf ID (3) + ID (5) > 3 Then FLG = "K"If ID (3) + ID (5) > 8 Then FLG = "U"If ID (3) + ID (5) > Then FLG = "s"If ID (3) + ID (5) > Then flg = "Y"For each S-in IDResult = result SNext ' result = Replace (Join (ID, ""), "", "")Getmyid = result FLGEnd Function(3) Verify the user input function, directly return the Boolean value, why write this instead of directly in the VBA code to determine whe

Testing often encounter the processing of data, such as I want to delete some specific data, the data source is fetched from the Web request, this time may be copied down a lot of content, where we only need certain parts, the author is usually copied to notepad++ processing, combined with regtester tools, But regtest need to export matching data, not directly copied, a little bit of trouble ... So I want to use VBA to write a regular expression extra

Add and remove modules for Excel VBA and insert full process text Method/Step 1, click the Quick Launch bar Excel program icon to enter the Excel interface to select any cell and press ALT+F11 to enter the VBE interface 2, click the menu bar Insert command in the pop-up active menu click the module command 3, another way to insert the module can be in the project Capital Management manager in the mouse click on the white sp

The following content is related to the sections or Section object of VBA programming in Word documents, and you want to help. ActiveDocument.Sections.First ' The first section of the current document ActiveDocument.Sections.First.PageSetup.BottomMargin ' The bottom margin of the page where the first section of the current document is located ActiveDocument.Sections.First.PageSetup.LeftMargin ' The left margin of the page in the first section of th

Function Function DLookup (strFieldName, strTableName, strwhere, objconn) ' Refer to the DLookup function in Access VBA ' Because the environment is different, add the objconn parameter, direct adodb.connection direct redeployment to Dim strSQL Dim RS Set rs = server. CreateObject ("Adodb.recordset") ' Next to call a custom function outside the Checksql () strFieldName = Checksql (strfieldname) If strwhere strwhere = "where" Strwhere End If Strsql= "

Programming below is VB to open the file code: If Dir ("D:\excel.bz") = "Then" Determines whether Excel is open Set xlapp = CreateObject ("Excel.Application") ' Create Excel application class xlapp.visible = True ' Set Excel visible Set xlbook = XlApp.Workbooks.Open ("D:\test.xls") Open Excel workbook Set xlsheet = xlbook.worksheets (1) ' Opens Excel worksheet Activeworkbook.save Xlapp.displayalerts = False xlapp.screenupdating = True xlApp.Quit End If Then open the Excel worksheet,

For the table below, we'll use VBA to automatically enter formulas in C and D two columns and get the results. To write a formula automatically, you have to use a function that is formular1c1. In summary, the Chinese syntax for automatically writing formulas is: A cell that is the reference object. FORMULAR1C1 = "= Formula name (r[row offset]:c[column offset]:r[row offset]:c[column offset]) Below, we first give the above table two kinds of au

VBA Round is based on the silver Connoisseur algorithm (rounds to the nearest even number)Round (1.5) = 2Round (0.5) = 0Implementing Banker Algorithms in Oraclesql> Create or Replace function Bankers_round (val number, rnd_digit number: = 0) return number is2 V_rnd_digit number;3 V_remainder number;4 begin5 V_rnd_digit: = Trunc (Rnd_digit);67 V_remainder: = (Val-trunc (val,v_rnd_digit)) * Power (10,v_rnd_digit + 1);89 If Abs (V_remainder) Ten or (Abs

IamlaosongA very simple function, there are many online generators, there are also gadgets can be downloaded, here with VBA to do one, the results are saved to the current worksheet, simple, fast. The build function can also be used in other programs. The process of implementing a function is to use a variable to hold all the characters used, and then to take different substrings according to the level, and then to generate random numbers, and remove

Manually set up PowerDesigner tables and columns is very troublesome, so think with VBA implementation, reference http://www.pudn.com/downloads447/sourcecode/database/detail1884121.html, as follows:To create a table:Set mdl = ActivemodelSet table = mdl. Tables.createnewTable. Name = "TableName"Table. Code = "Table"To create a column:For all Tab in Folder.tablesDim colSet Col =tab.columns.createnewCol.name= "ColumnName"Col.code= "ColumnName"Col.comment

vbMsgBoxSetForeground 65535 Specify dialog window as foreground window vbMsgBoxRight 524288 The text of the dialog box is right-justified Vbmsgboxrtireading 1048576 Specifies that the elements in the dialog box are displayed from right to left Description(1) The first set of values (0–5) describes the type and number of buttons displayed in the message box, the second set of values (16,32,48,64) describes the style

informationActivesheet. PasteDim N as integerN = baselineStartline1 = n' the starting line for the parent account to Start copying 'Open each subaccount and copy the information to the parent accountFor I = 1 to countWorkbooks. Open filename: = currentpath Arr (I) 'Open the Excel file cyclicallySheets (1). SelectN = baseline'Start from the third line and find the end line of the subaccount InformationWith sheets (1)Do while. cells (n, 1). Text N = n + 1LoopEndStartline2 = n-1 'subaccount copy

Excel2007 is used as an example: "Available macro loading" shortcut -- Alt + T + I Microsoft Visual Basic -- Alt + F11 1: Open the VBA programming window through the shortcut key (Alt + F11; 2: Right-click the corresponding sheet and choose insert-module "; 3: Add the following code to the new "module" to run the sub-process; 1 Function PinYin(Hz As String) 2 Dim PinMa As String 3 Dim MyPinMa As Variant 4 Dim Temp As Integer, i As

Technorati labels: relationship, access, VBA, index, ADO From: julitta korol, "access.2003.programming. By. example. With. VBA. xml. And. asp", by wordware Publishing, Inc. 2005, p212-p220 (1)Primary KeyIs an index with its unique and primarykey properties set to true. There can beOnly one primary key per table. A primary keyUniquely identifies a row in a table. To create new keys, use the key object from t