vba debug

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

Workbooks. opentext (filename, origin, startrow, ype, textqualifier, delimiter, tab, semicolon, comma, space, other, otherchar, fieldinfo, textvisuallayout, delimiter, thousandsseparator, delimiter, local) For more information about the meanings of the preceding parameters, see the help of VBA. In actual programming, it is generally not necessary to process these complex parameters. You can use a recording macro to obtain the

use VBA to calculate the number of rows and columns in the WPS table et Excel The number of rows in Excel above each method, and the following is the number of columns in Excel. Method 1: ActiveSheet.UsedRange.Rows.CountActiveSheet.UsedRange.Columns.Count disadvantage: Sometimes it may be larger than the actual number, because if you clear the last few rows (column) data (not the whole row or column), the command still returns Before the value is clea

Download source file: http://lwl0606.cmszs.com/archives/excel-vba-string-function.html To merge strings in Excel, use the function = CONCATENATE (A4, B4, C4) Of course, it can also be A4 B4 C4 The following function can merge strings by group. The first parameter is the grouping column, the second is the grouping content, according to the grouping, the third parameter is the sorting column in the same group, and the fourth parameter is the column to

Transferred from Http://www.cnblogs.com/wangminbai/archive/2008/02/22/1077203.html We all know that pointers can be used in C, but now VB (of course there are VBA) can also be used as pointers. This is an article I have read on the internet for your reference.Think that the East is undefeated, black Cliff secret room battle, only with a embroidery needle fight four Masters alone, no ghost, called the world's first martial arts. If you want to become a

features include:1. compatible with VBA syntax2. Similar to ASP embedded script syntax, and supports 3. Supports functions and process definitions, and adds IIF functions and App objects.4. Access the structure information of the current database through the Schema and Table objects passed in by the software In fact, CodeDG does not automatically generate code. It is mainly a platform for Retrieving Database structure information and parsing and exec

ArticleDirectory Office 2003 and Office XP To allow any automation client to access the VBA object model and run CodeUsers must explicitly grant access permissions to them. To enable access permissions, follow these steps. Office 2003 and Office XP Open the Office 2003 or Office XP ApplicationProgram. On the "Tools" menu, click "macro", and then click "security" to open the "macro security" dialog box. On the reliable sources tab, clic

VBA Each control has a lot of properties, although can be sorted by classification, but because there is no Chinese explanation, some properties do not know how to use, the following are some of the control properties explained, not all, for reference:Whether the control is loaded when General AutoLoad (Excel) opens the workbook. (If it is an ActiveX control, it is ignored.) ）Whether the Enabled (form) control can receive focus and respond to user-gen

The Select and reverse selection of a checkbox can be controlled by VBA, which is common in some interactive reports with the following code:1. Divided into two if judgmentsPrivate Sub checkbox1_click () ' checkbox for Master control, by clicking on it to achieve a full selection or inverse selectionDim B3 as IntegerDim I as IntegerDim B1 as RangeIf Sheets (1). Checkbox1.value Then ' If the first if is judged as a condition of full selectionB3 = Sheet

This post is used to record recorded macros so that you can learn VBA and find previous macros1. Insert a new blank columnHere I have chosen to right-click on column J to select Insert Column, insert, new column becomes column JSuch as:The Sub inserts a new column () ' Insert a new column of macros ' to record the insertion of a new column of macro ' Columns ' ("J:j"). Select selection.insert shift:=xltoright, Copyorigin:=xlformatfromleftorabove

1, VBA traversal to add a reference, runtime2. You cannot open a separate application because the newly opened application is not available when you get to the Picture property of shape. Prompts for automation errors.3. Positioning shape, the width and height of shape is required because it is based on the location of the center point. CellsSRC (visSectionObject, Visrowxformout, Visxformpinx). FormulaUSet the format of the property so there is no good

There are a wide range of inefficient office practices, such as a yearly self-rating. A breakdown of the scores for the Word document, one item per line, each item to fill in the score items and scores, the team leader after the audit into Excel submitted. The main concern is that a list of scores in a Word document is going to be translated into an Excel line, and if a person copies it, pastes it into Excel, copies it, and then transpose it. A lot of people, looks very troublesome. Then wrote a

Show VBA procedure has value and address, pass value is sub xxx (ByVal variable), pass the address to sub XXX (ByRef variable)Difference: A variable that is referenced by a value does not change its initial value after the child procedure that called it is run .My understanding: The variable is stored in the memory address, the pass value passes the variable instead of the address of the variable, so the initial value of the variable is not changed, t

on Avoid replace when Paste (). var p = Doc.Paragraphs.Add ();p. Range.Text = "PLACEHOLDER"; var ishape = Doc.inli Neshapes.addpicture (path); Shapes or InlineshapesishApe. Range.cut ();//ishape.range.select ();//word.selection.cut ();p. Range.Paste ();p opup ("Winword is ready to exit", 6);/* 4. Delete or Save you document */doc.save ();//doc.close (wdsaveoptions.wddonotsavechanges);//doc.saveas ("./t.doc");/* 5. Writes a paragraph */word.quit ();/*************************** Office Excel Appli

Tag:vbaexcel add menu Save the following code to the. Xlam or. XLA (excel97-2003) file. In the ThisWorkbook object, add the Workbook_Open event, which invokes the Start menu procedure. Private Sub Workbook_Open () call Menusetup (True) End Sub '-----------------------------------------------' Add menus and menu item buttons in Excel (add when Excel starts) '-----------------------------------------------public Function menusetup (blsetup As Boolean) Dim myMenu As CommandBarPopup Dim mycontrol

VBA Usage TipsToday, the tutor gave me three tables, a table contains two columns of data, doctor's name, ID card. Table B contains 3 columns of data, Master's name, identity card, mentor name, C table containing a list of data, PhD and master's names. Then ask me to enter the corresponding ID in the second column of table C according to the name appearing in C. At first, I thought about it, and it would be an easy thing to do if Dr. A's name sequence

Iamlaosong1. Quoting methodReferencing ADO related components: Open the VBA Editor and click "Tools"-"References" in the menu. Make sure that the Microsoft Activitex data Objects 2.8 Library and the Microsoft Activitex data Objects Recordset 2.8 library are ticked. After the reference, then declare:Dim CNN as New Connection ' declare linked objectDim rst as New Recordset ' declares Recordset objectHere are the routines: Dim cnn As New Connection Di

I had the exact same problem in Outlook.It seems to occur if you had something that is previously signed in a earlier version of Outlook for the bit.Here are the procedure I used to fix it: Back to all your code/projects etc. Close Outlook. Search for VbaProject.OTM (or whatever file was used to store your projects, there could be more than one)For me it is in [Drive]:\users\[username]\appdata\roaming\microsoft\outlook Move this file to the another location. Open Outlook

1.VBA Common Small Code 001 One-click to create a worksheet directory with hyperlinksSub ml () Dim sht as Worksheet, I, shtname$ Columns (1). ClearContents ' empty column A data cells (1, 1) = "Directory" ' first cell write String ' directory ' i = 1 ' Set the initial value of I to 1. for every sht in worksheets ' loop, each sheet of the current workbook shtname = sht. Name if shtname 　　Data analysis----The use of

First, through fileexists to determine whether the file exists Dim MyFile as Object Set MyFile = CreateObject ("Scripting.FileSystemObject") If myfile.fileexists ("e:dzwebspiclogo.gif") = True Then MsgBox "File exists" Else MsgBox "file does not exist" End If The above code is used in a VBA environment. Or it can be made into a macro. "E:dzwebspiclogo.gif" is a file path and file name that can be modified by itself. Second, by Dir to judge D