所属長の確認メンバーの Teamsへの登録メンバーへの周知 アプリの使用方法 レクチャー 導入スケジュール やってもらうこと 案内のメール（アプリ導入・マニュアル添付） メンバーへの周知会議セッティング拠点の主要メンバーへの周知 （Teamsミーティング） …

Sub CsvImport001Management02()'インポート CSV(UTF-8)'項目にカンマ・改行が含まれているデータ Dim i As Integer Dim ado_strem As New ADODB.Stream Dim strLine As String, strLine2 As String Dim tmp As Variant, tmp2 As Variant Dim canma As Strin…

With( { fullName:Split(User().FullName," ") }, Last(fullName).Value &" "& First(fullName).Value & " さん") User().Email //T_勤務管理から該当ユーザー・該当月のデータを全て取得するClearCollect(colWorkTable, Filter(T_勤務管理,User().Email = …

■コンボボックス Items：colCategory ■テキスト Default：“” ■ギャラリー コンボボックスが空白の場合、データは全部表示 コンボボックスまたはテキストで検索したデータを表示 其々に値がある場合、複合も可 //コンボボックス検索 Sort( Search( If( IsBlan…

ローカルファイル保存先 ファイル保存先 ファイル名 済 パス Option Explicit 'sheetDim reSh As WorksheetDim wrSh As WorksheetDim rebk As WorkbookDim wrbk As Workbook 'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As Inte…

WinActorノード命名 入力「社員コード」 入力「社員コード=00001」 クリック「社員コード」 キー送信「Enter」 マッチング「」 状態「」 「サブシナリオ」呼び出し ★TIPS 文字列入力（WIN32）で入力しても、値は入力されるがシステムの動作上、うまく機能し…

file_copy.bat @echo offcd C:/Users/xxxxx/Desktop/pspowershell -NoProfile -ExecutionPolicy Unrestricted ./file_copy.ps1echo 完了しました！pause > nulexit file_copy.ps1 - ショートカット リンク先 C:\Windows\System32\WindowsPowerShell\v1.0\pow…

file_copy.ps1 #ファイルコピー [String]$folderPath = (Get-Location).Path [String]$destFolderpath = $folderPath + "\TEST" [String]$logFilePath = $folderPath + "\log.log" [String]$csvFilePath = $folderPath + "\path.txt" [String]$filterName = …

#OCR #引数：フォルダ py *.py "C:\" #pip install easyocr import os import sys import easyocr if __name__ == '__main__': args = sys.argv print(args[1]) path = os.path.join(args[1], "cap.png") dest_path = os.path.join(args[1], "cap.csv") read…

＜シート＞ 入力規則は使わないようにする リストはり使わないようにする 動的な変数はなるべく 使用せずに設定から値を取るようにする 複雑（長文）な式は使用しない ＜VBA＞ 複雑な公式は使用しない 起動プログラム（ThisWookbook） はなるべく 使用しない…

Sub ExportSrt_101_01(argFldrPath As String, argFileName As String, argTransId As Long) Dim cn2 As ADODB.Connection Dim rss2 As ADODB.Recordset Dim strSql2 As String Dim buf As String Dim bufLine As String Dim lines Dim line As Variant ' Fo…

'データ内にカンマが含まれているCSVファイルの取り込み Sub GetCSVCamma() Dim filePath As String Dim F As Integer Dim strLine As String Dim strField As Variant filePath = "C:\Users\XXX\基準2.csv" F = FreeFile() Open filePath For Input As #F L…

'ファイルを一括でコピー'引数：CopyFileAll(フォルダーパス & "\*.csv", フォルダーパス)Sub CopyFileAll(argTargetWildFilePath As Variant, argDestFolderPath As Variant) Dim objFso As New FileSystemObject With objFso 'ファイルを一括でコピー objF…

'ファイル更新日付チェック。ファイルが更新されていた場合、更新フラグをtrueにする。Sub ChackCreateDate() 'File変数 Dim objFso As New FileSystemObject Dim objFolder As Object Dim objFiles As Object Dim objFile As file Dim objDate As Date Dim …

'クリップボード取得Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call SetClipBoard(ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column)) End Sub Option Explicit'クリップボードPrivate Declare Function OpenClipboard Lib "user3…

Const setSh As String = "メイン" Dim dayStart As DateDim dayEnd As Date'sheetDim reSh As WorksheetDim wrSh As WorksheetDim rb As WorkbookDim wb As Workbook 'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As IntegerDim…

Dim CN As ADODB.Connection Dim day_start As DateDim day_end As Date'sheetDim reSh As WorksheetDim wrSh As WorksheetDim rb As WorkbookDim wb As Workbook 'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As Integer 'パラ…

’データクエリー Sub CreationEvaluationMain() Dim bkName As String bkName = "評価表.xlsm" '更新する Workbooks(bkName).Worksheets("pivot").PivotTables("pivot1").PivotCache.Refresh 'データクエリー Call RequestQuery(bkName) '更新する Workbooks…

'外部関数呼び出しSub DoModuleCreationEvaluation() Dim fileName As String fileName = "外部関数.xlsm" 'ブックオープン Workbooks.Open fileName:=ThisWorkbook.Path & "\" & fileName, ReadOnly:=True ActiveWindow.WindowState = xlMinimized '関数実…

'Sheet Dim reSh As Worksheet Dim wrSh As Worksheet Dim rb As Workbook 'Cells Dim wrRow As Long Dim wrCol As Integer Dim reRow As Long Dim reCol As Integer 'File変数 Dim folderPath As String Dim filePath As String Dim fileName As String Dim…

ファイル名変更ファイル名は同じで拡張子のみ変更 'SheetDim reSh As WorksheetDim wrSh As WorksheetDim rb As Workbook'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As Integer'File変数Dim folderPath As StringDim filePath …

ファイル名変更固定 'SheetDim reSh As WorksheetDim wrSh As WorksheetDim rb As Workbook'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As Integer'File変数Dim folderPath As StringDim filePath As StringDim fileName As Str…