vba if then statement

This article link: http://www.cnblogs.com/Charltsing/p/TripleDES.htmlAs we all know, the tripledes algorithm that Java uses by default is the Ecb+pkcs#5 fill method. The VB6 algorithm that can be found online is incompatible with this.Is there a simple way to achieve the common use between the two?As you know, C # is capable of implementing the TripleDES algorithm, so you can invoke the static class of. NET in VBA, VBS, and vb6.0 to implement an encry

BackgroundThe business needs to write all the corresponding pages according to the detailed design documentProblemHeavy workload, 11 large tables (dozens of hundreds of fields) time tight 3 days to completeCoreThere is a complete table design that can be edited manually through Excel.New issuesNormal field is not a problem, can increase the workload of the dictionary after a sudden increase, this particularity makes the work difficult and volume of the manual operation of Excel poses a challenge

The analysis of subway subsidence observation data using VBA programming processWhen you're tired of watching the day, you're back looking at hundreds of measurements and reporting. If it's a 35-page report, it's okay to say that if it's a 2000-point report, it will have about 70 pages of reports on a page of paper 30. As the force of the surveyors, but also more bitter force is no settlement data analysis software surveyors, but also more difficult t

The most by a friend set up a part-time operation of the company, but the need for some part-time staff pay, but due to a part-time wage between the 40~60, so the company adopted the principle is more than 200 to carry out, this rule is equivalent to drop the driver, the withdrawal needs more than 200, Then the problem came, in order to better let a large number of part-time staff can, clearly understand the time period in which they earn a lot of money, this time extended a problem, we need to

When you copy Sheet1 to Sheet3, you implement the following method:Worksheets ("Sheet1"). Copy after:=worksheets ("Sheet3") The syntax for using Worksheet.copy is as follows:An expression. Copy ( before, after)Before: inserting before a sheetAfter: inserting after a sheetNote: The above two parameters cannot be specified at the same time, and when none of the two parameters are specified, the sheet will be copied to a new workbook.Resources:Https://msdn.microsoft.com/zh-cn/

Https://github.com/inshua/vba-interpreterHas covered almost all of the features of VB, but the library is not full.VB language itself is relatively backward, grammar also has a lot of improper design. The most serious is that both the function and the array are accessed through (), and the later extended item class members also use (), resulting in a clustered syntax ambiguity. But the form of return results taken by VB language 函数名=结果 is well suited

How to use VBA code to implement automatic daily backup of Excel documents To achieve this "tall yet" features existing Excel features cannot be completed, but also the method of VBA programming. Of course, as you do not understand the VBA code, just follow the steps below to copy and paste. Step 1th: Open the Excel file you want to back up, right-click on the

Fully understand the PageSetup object of page SetupWhen we write VBA code, especially when we do small program development, we often use VBA to setThe options in the page setup, you can also use VBA to achieve some special effects, which requires theUse the Pagesteup object. The PageSetup object contains properties for all page settings (left margin, bottom edgeP

Write the Excel VBA tool to connect and manipulate the MySQL database.System environment:Os:win7 64-bit English versionOffice 2010 32-bit English version1, VBA before the preparation of the connection to MySQLTools--->references. ----> ReferencesTick Microsoft ActiveX Data Objects 2.8 Librarys and Microsoft ActiveX Data Objects Recordset 2.8 Librarys2. Install MySQL ODBC connection serviceDownload Connectio

SUBNBSP;GENEQ () ifselection.startThis article is from the "GONE with the Wind" blog, please be sure to keep this source http://h2appy.blog.51cto.com/609721/1604040Considerations when you use VBA to automatically generate formulas in Word

,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai, 13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan, 13343,sui,13340,sun,13329,suo,13326,"Pinma= Pinma "Ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie, 13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,"Pinma= Pinma "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,1259

SUB constant () const PI = 3.1415926End SubSub variable () Dim A as Integera = 100a = 200End SubSub Applied () const PI = 3.1415926 ' constant A = 20 0 ' variable, without declaring Debug.Print pi * a VBA third lesson constants and variables

Iamlaosong folder inside the image file is saved with a single scan, the file name is the mail number, now want to collect these mail numbers, because the volume is very large, it is not possible to intercept a single, only through the program implementation, assuming that the current worksheet B is placed in the folder of these image files, The following program can be used to tell the message number of these image files: Sub findname () Dim FS, F, F1, FC, Mydir MaxRow = Sheets ("Mail Number").

problem number; m = Mt. FIRSTINDEX:N = Mt. Length45. The preferred drug for each type of leprosy is (E) Set orng = ActiveDocument.Range (m, m + N) ' orng for the dry + option; str = mt.submatches (0) ' Str is the answer to the problem; . Pattern = "([A-E]. )((?:(?! [A-E]. ).) +) "' Match ABCDE option; For each MH in. Execute (orng.text) m = mh. Firstindex:n = MH. Length SetRG = ActiveDocument.Range (Orng.start + M, Orng.start + M + N) ' RG for specific options;

. 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