AWSTemplateFormatVersion: 2010-09-09Parameters:# EnvironmentName:# Type: String# Default: test-environment SelectRegion: Type: String Default: TokyoRegion AllowedValues: - TokyoRegion - OsakaRegion KeyPair: Type: AWS::EC2::KeyPair::KeyName…
Sub diff() Dim r As Range On Error Resume Next Set r = Application.InputBox(prompt:="編集後のセル範囲指定をしてください", Type:=8) r.Select Application.CutCopyMode = False Dim rng As Range Set rng = Application.InputBox(prompt:="編集前シー…
タイトルの通りですが、Visual Studio Code の拡張機能の更新でハマったのでメモします。 以下にログインする。 https://marketplace.visualstudio.com/manage/publishers/ 以下の画像の通りPersonal access tokensをクリック Personal access tokens Person…
dir /ad /b /s [ディレクトリ(C:\とか)] > [保存先(デスクトップとか)] dirは¥¥でいける treeは¥¥いけないので、 いったんnet use x: ¥¥〜 してから tree x: /f > [保存先(デスクトップとか)] 削除は net use x: /delete
Option Explicit Dim myWB As Workbook Dim varArray As Variant Dim myStr As Variant Dim targetFolder As String Dim fso As Object Sub フォルダ指定文字列検索() Application.ScreenUpdating = False Application.EnableEvents = False Call 文字入力 v…
Sub macro3() Dim myRange As Range Dim myObj As Range Dim keyWord As String Set myRange = Range("A1:A12") keyWord = Range("C3") Set myObj = myRange.Find(keyWord, LookAt:=xlWhole) If myObj Is Nothing Then MsgBox "'" & keyWord & "'はありませ…
Sub 一致検索() Dim i As Long '店舗一覧の行数のカウントアップ用 Dim j As Long '転記先の行数のカウントアップ用 Dim k As Long Dim rw As Long '最終行取得用 Sheets("店舗一覧").Activate rw = Cells(Rows.Count, 1).End(xlUp).Row Sheets("店舗ID").Ac…
from tkinter import filedialog typ = [('','*.csv')] dir = r'C:\work' csv_file_name = filedialog.askopenfilename(filetypes = typ , initialdir = dir) print(csv_file_name) import numpy as np data = np.loadtxt(csv_file_name, delimiter = ",", d…
最近、PySimpleGUIにハマってる。 だけど、どう書くか具体的に書いてあるものが少なかったので備忘としてまとめた。 かなりシンプルに書ける。 ↓をコピペすれば動くはず。 あとは自分なりに工夫してください。 ここにないのはOKCancelくらいだけどYesNoと同…
PySimpleGUIのテーマ一覧を出力してみた import PySimpleGUI as sg TL = sg.theme list() 'Black', 'BlueMono', 'BluePurple', 'BrightColors', 'BrownBlue', 'Dark', 'Dark2', 'DarkAmber', 'DarkBlack', 'DarkBlack1', 'DarkBlue', 'DarkBlue1', 'DarkBlue…
import PySimpleGUI as sg #OKのときの処理を定義しておく def submit_func(): print ('OK_func') layout = [[sg.Submit(button_text='OK'), sg.Cancel()]] window = sg.Window('Sample', layout) while True: event, value = window.read() #例外処理とCans…
import PySimpleGUI as sg value = sg.popup_ok_cancel('実行しますか') while True: if value == 'OK': print('なーにー') break elif value =='Cancel': print('やっちまたなぁ') break else: break
短縮記法でOutputsで!Refで取得した値同士を!Joinする方法がわからなかったので自分メモ 論理IDはご自身の環境に合わせて適当に変えてください。 Outputs: AZ: Value: !GetAtt EC2Linux.AvailabilityZone PrivateIp: Value: !GetAtt EC2Linux.PrivateIp Priv…
ドメイン登録とhttps化までやろうと思いましたが思ったより時間がないのでテンプレートの公開までにしておきます。 インストールページでRDSのエンドポイントを使います。 出力欄に表示されています。 出力されたIPに/wp-admin/install.phpでアクセスすればW…
OSをインストールするたびにネットワーク設定に時間がかかるので備忘のために残します。 ※OSのインストールは完了していることが前提。 nmcli con mod ens33 connection.autoconnect "yes" 結局、↑をすればとりあえずローカルPCからSSHできるようになった。 …
sqlite3 /var/lib/grafana/grafana.db.tables.mode list.output user.csvselect * from user;
IEセキュリティがヤバいくらいにうっとおしいのでPowerShellで無効化する方法を探したけど見つからなかったのでメモ function Disable-IEESC{$admin = "HKLM:\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}…
CloudFormationはとっても便利なのですが、VPCからインスタンスまで一つのテンプレート内に書くと、構成がしっかり決まっている場合は問題ないのですが、後から構成を変える場合にはいったん全部消えてしまうことがあり融通がきかない面があります。 そうい…
Azure DevOpsでアカウントを作る ScopesはFull Accessを設定するOrganizationはAll accessible organizationsを設定するアクセストークン(パスワード?)がとても大事なのでどこかにメモっておく vsceをインストールnpm install -g vsce Publisherの設定この途…
Option Explicit Sub houkoku_mail() Dim OL As Outlook.ApplicationDim ML As Outlook.MailItem Set OL = CreateObject("Outlook.Application")Set ML = OL.CreateItem(olMailItem)ML.To = "butyo@kaisya.com" 'ToML.CC = "syatyo@kaisya.com" 'CCML.BCC = …
AWS CFnで基本的な構成を起動させる手順の覚書です。 本当に基本的な構成ですのでセキュリティが甘いなどはご容赦ください。 CFnへログインしてください。 管理者権限が必要です。 キーは作成済みということにしています。 コードはVSCodeで作成しています。…
受信したメールをそのまま返信するのではなく 決まった宛先、CC、件名で送らないといけない場合があります。 いちいち覚えていられればいいのですが 私にはそんなことは不可能なのでＶＢＡに頼むことにしました。 下から４行目の.Bodyをつけると受信したメー…
例によってoutlookVBAです。 受信したメールをフォルダを作成して一緒にその中に保存するVBAです。 エクセルファイルも一緒に保存します。そのエクセルファイルの印刷ヘッダーフッターを少し編集もしています。 Sub fold() dim file_count as string file_co…
Sub Array_Loop()Dim Col As Long, Cnt As LongDim Array_Youso As Variant ' 配列に値を格納Array_Youso = Array("AAA", "BBB", "CCC", "DDD", "EEE") ' 配列の範囲Debug.Print "配列の範囲:"; LBound(Array_Youso) & "～" & UBound(Array_Youso) ' 結果For…
Powershellでメールを送信するコードです。 監視系で使えると思います。 必要事項を適宜変更すればコピペで使えると思います。 $mail.ReplyTo = $replytoはコメントアウトしてもよいかもしれません。 Param([int] $ret)$smtp = "smtp.example.co.jp"$targets…
※OutlookVBA Private Declare PtrSafe Function AddClipboardFormatListener Lib "user32.dll" (ByVal hWnd As LongPtr) As LongPrivate Declare PtrSafe Sub sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Private Declare PtrSafe F…
VBAといえばExcelしかないみたいにExcelVBAのことがたくさん出できますが、 OutlookやPowerPointだってOffice製品なのでVBAがあります。 でも、ほぼ検索できません。 今回、ExcelVBAで動いていたコードをOutlookに移すことになりましたが、 Application.Wait…
#get_dir.ps1 $FilePath = "C:\Users\Admin\cred.sec"$Username = "Admin" $result = Test-Path $FilePath if(!($result)){ $msgBoxInput = [System.Windows.MessageBox]::Show('[.sec]ファイルが見当たりません。credential.ps1を実行しますか？いいえを選…
$a = [Math]::Round($b/$c*100, 2, [MidpointRounding]::AwayFromZero);"空き容量" + [string]$a + "%"
#makeCredential.ps1 $FilePath = "C:\Users\Admin\cred.sec"$Credential = Get-Credential$Credential.Password | ConvertFrom-SecureString | Set-Content $FilePath #get_dir.ps1 $FilePath = "C:\Users\Admin\cred.sec"$Username = "Admin" #.secファイ…
