Выделить все объекты в EXCEL
ActiveSheet.DrawingObjects.Select
Архивы автора: kos20
Макрос для обработки выписок Сбербанка
Sub УдалитьПустыеЯчейки() ‘ i = 12 ‘Начальная позиция для удаления пустых строк, кторые не содержат дату в ячейке С t = Timer Application.ScreenUpdating = False For i = 12 To 2900 If IsDate(Range(«C» & i).Value) = False Then Range(i & Продолжить чтение Макрос для обработки выписок Сбербанка
Удалить пустые ячейки
Sub dsdsds() i = 1 For Each r In Range(«C1:C100») If IsDate(r) = False And IsEmpty(r) = True Then Range(i & «:» & i).Delete i = i + 1 Next End Sub
C#: Добавить на текущий лист заголовок
string[] Header = { «Sno», «Product Code», «Product Name», «Quanity», «Price», «Total» }; Excel.Worksheet sht = Globals.ThisAddIn.Application.ActiveSheet as Excel.Worksheet; Excel.Range myHeader = sht.get_Range(«A1», «F1»); myHeader.Value2 = Header; myHeader.Columns.AutoFit();
Преобразование даты к формату ГГГГ.ММ.01
‘——————————————————————————————— ‘Функция осуществляет поиск в массиве Rng значения, которые содержатся в массиве RngFind ‘Если значение найдено (по маске), то возвращает найденное значение, если нет, то пустую строку. ‘——————————————————————————————— Function GetNameInRng(ByVal Rng As Range, RngFind As Range) On Error GoTo Next_ Продолжить чтение Преобразование даты к формату ГГГГ.ММ.01
Автовысота в MergeCells
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ‘ Auto adjust cell size for comment fields Dim RowHt As Single, MergeWidth As Single Dim C As Range, AutoFitRng As Range Dim CWidth As Single, NewRowHt As Single Static OldRngAdd As String Dim Продолжить чтение Автовысота в MergeCells
err
непредвиденная ошибка при выполнении задачи «VerifyClickOnceSigningSettings».System.IO.FileNotFoundException: Не удалось загрузить файл или сборку «Microsoft.VisualStudio.Tools.Applications.Hosting, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a» либо одну из их зависимостей. Не удается найти указанный файл.Имя файла: ‘Microsoft.VisualStudio.Tools.Applications.Hosting, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’ в Microsoft.VisualStudio.Tools.Applications.Hosting.CodeGeneration.VerifyClickOnceSigningSettings.Execute() в Microsoft.Build.BackEnd.TaskExecutionHost.Microsoft.Build.BackEnd.ITaskExecutionHost.Execute() в Microsoft.Build.BackEnd.TaskBuilder.d__26.MoveNext()Предупреждение: регистрация привязки сборок Продолжить чтение err
Ribbon + COM
https://msdn.microsoft.com/en-us/library/aa338202(v=office.12).aspx <
Обновление данных в Word
Public Sub changeSource() Set MyRange = ActiveDocument.Content MyRange.Find.Execute FindText:=»», ReplaceWith:=Format(Date, «dd/mm/yyyy»), Replace:=wdReplaceAll Dim dlgSelectFile As FileDialog ‘FileDialog object ‘ Dim thisField As Field Dim selectedFile As Variant ‘must be Variant to contain filepath of selected item Dim newFile As Variant Продолжить чтение Обновление данных в Word
C# получить список файлов в папке
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.IO; //using System.IO.StreamReader; using System.Threading; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object Продолжить чтение C# получить список файлов в папке