VB Эксперт

Popular pages

• VBA/Excel/Access/Word/Excel/Worksheet — VB Эксперт

  <source lang="vb"> Sub InsertChartsAfterWorksheets() Dim myWorksheet As Worksheet Dim myChart As Chart For Each myWorksheet In Worksheets Set myChart = Charts.Add myChart.Move Afte...

• VBA/Excel/Access/Word/Excel/Workbooks — VB Эксперт

  Use For...Next loop through Workbooks <source lang="vb"> Sub Array2() Dim avData As Variant, myWorkbook As Workbook Dim i As Integer avData = Array("North", "South", "E...

• VBA/Excel/Access/Word/PowerPoint/PowerPoint Format — VB Эксперт

  End Sub Check font size <source lang="vb"> Option Explicit Function CheckMinFontSize(objPresentation As Presentation) As Boolean Dim objSlide As Slide Dim objShape As Shape CheckMinFo...

• VBA/Excel/Access/Word/Access/SQL Select — VB Эксперт

  <source lang="vb"> Sub Create_SelectQuery() Dim cat As ADOX.Catalog Dim cmd As ADODB.rumand Dim strPath As String Dim strSQL As String Dim strQryName As String On Error GoTo ErrorHandle...

• VBA/Excel/Access/Word/Access/UsedRange — VB Эксперт

  End Sub Remove extraneous rows and columns and reset the last cell <source lang="vb"> Sub DeleteUnusedFormats() Dim lLastRow As Long, lLastColumn As Long Dim lRealLastRow As L...

• VBA/Excel/Access/Word/Excel/Worksheet Add — VB Эксперт

  <source lang="vb"> Sub Add_Sheet() Dim myWorksheet As Worksheet Dim myWorksheetName As String myWorksheetName = Format(Now, "mmmm_yyyy") For Each myWorksheet In Worksheets If myW...