コーディング

VBA

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコード

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコードを紹介します。仕様下記のシートのA列のように文末に余分に改行があるとします。※B列に補足を入れていますこれを以下のシートのように、余分な改行を削除するVBAを考えました。文章の途中の改行は残しつつ、文末の改行だけを消すのです。ソースコードソースコードは以下のとおりです。Option ExplicitSub deleteLineBreak() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Dim CellValue As String CellValue = Worksheets("Sheet1").Cells(i, 1).value '文字数回繰り返す Dim j As Long For j = 1 To Len(CellValue) '最後の文字が改行コードの場合 If Right(CellValue, 1) = vbLf Or Right(CellValue, 1) = vbCr Then '最後の文字以外を格納 CellValue...
2024.08.04 2024.12.12
VBA
PowerShell

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコード

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコードを紹介します。仕様ローカルの任意の場所にPowerShellの*.ps1ファイルと、Excelファイルを格納します。「Book1.xlsx」のA列のセルのフォント名を変更してみます。後でPowerShellの実行前後を比較するため、B列にもA列の内容をコピーしておきます。PowerShell実行前のフォント名は游ゴシックです。これを以下のような別のフォント名に変更させます。セル位置実行前実行後A1游ゴシックＭＳ ＰゴシックA2游ゴシックＭＳ ゴシックA3游ゴシックＭＳ 明朝A4游ゴシックメイリオA5游ゴシック游ゴシックソースコード以下のコマンドとps1ファイルを準備しておきます。コマンドpowershell -ExecutionPolicy RemoteSigned -File "setExcelFontName.ps1"setExcelFontName.ps1$excel = New-Object -ComObject Excel.Application$book = $null$exc...
2024.08.04 2024.12.12
PowerShell
VBA

郵便番号一覧から住所を求めていくREST APIを使ったVBAのサンプルコード(zipcloud版)

郵便番号一覧から住所を求めていく、REST APIを使ったVBAのサンプルコードを公開してみます。使用するWebAPIExcel単体で住所情報検索はできないので、下記「郵便番号検索API」の力を借ります。サービス名郵便番号検索API運営株式会社アイビスURL概要郵便番号検索APIは、日本郵便が公開している郵便番号データを検索する機能をRESTで提供しています。仕様画面仕様表のA列に住所を求めたい「郵便番号」の一覧を入力しています。表の右に住所出力の実行ボタンが配置されています。実行ボタンを押下すると、B列とC列に「住所」と「住所（カナ）」が出力されます。ソースコードSub ボタン1_Click() Dim objXMLHttp As Object, zipArr Dim yubinNo As String Dim splitLine() As String Dim i As Long i = 2 '行番号 Do While Cells(i, 1).value <> "" '入力値からハイフンの削除 yubinNo = Replace(Worksheets("Sheet1").Cells...
2024.08.03 2024.08.05
VBA
PowerShell

Excelのシートの並び順を逆順にするPowerShellのサンプルコード

Excelのシートの並び順を逆順にするPowerShellのサンプルコードを作ってみました。仕様ローカルの任意の場所にps1ファイルと、Excelファイルを格納します。Book1.xlsxを開くと、左から以下の順でシートが用意されています。Sheet1Sheet3Sheet5Sheet2Sheet4Sheet6PowerShellを実行すると、以下のように元の順と逆順に入れ分かるようにします。Sheet6Sheet4Sheet2Sheet5Sheet3Sheet1※あくまで逆順であって、ソートじゃないことに注意ソースコードpowershell本体と、PowerShellを実行するためのコマンドです。コマンドpowershell -ExecutionPolicy RemoteSigned -File "ReserveSheet.ps1"ReserveSheet.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $fals...
2024.08.01 2024.12.12
PowerShell
PowerShell

Wordの古い「97-2003文書(.doc)」を新しい「Word文書(.docx)」の形式にまとめて変換するPowerShellのサンプルコード

Wordの古い「97-2003文書(.doc)」を新しい「Word文書(.docx)」の形式にまとめて変換するPowerShellのサンプルコードを紹介してみようと思います。doc形式？と思われるかもしれませんが、まだまだ古い文書を保有している企業は多いと思いますので、使いどころはあると思います。仕様以下のようにwordの古いファイル形式「*.doc」ファイルが同じディレクトリに格納されているとします。これらを「transWordFiles.bat」バッチをダブルクリックするだけで、新しいWordの形式に変換するという仕様です。※もちろん拡張子だけ変えるとかいうこざかしいことはしません。今回の場合はとりあえず例としてWordファイルを5ファイル用意しました。が、たぶん数百ファイルぐらいは大丈夫なんじゃないかと思います。ソースコードバッチ処理はPowerShellを呼び出すだけです。ポリシーの関係で一回バッチから実行していますが、PCの設定を変更して直接PowerShellの処理を実行しても良いかと思います。transWordFiles.batpowershell -ExecutionP...
2024.05.25
PowerShell
PowerShell

VBAからPowerShellのコマンドを実行するサンプルコード（戻り値を取得しないパターン）

VBAからPowerShellのコマンドを実行するサンプルコードを2パターン作成してみました。この記事ではそのうちの戻り値が不要で取得しないパターンを紹介します。準備事前準備として、VBAからPowerShellコマンドを実行するには以下の設定が必要です。ツールバーから「参照設定」を選択「Windows Script Host Object Model」のライブラリファイルにチェックを入れます。仕様VBAからPowerShellコマンドを呼び出します。テストで実行するPowerShellのコマンドはなんでもよいのですが、ここでは「Rename-Item」にしてみましょう。マクロファイル(xlsm)と同じディレクトリにファイル「File1.txt」を置き、マクロからPowerShell経由でファイル名を変更してみます。マクロを実行したらファイル名が、「File1.txt」から「File2.txt」になります。見出し念のため補足しますが、実現している処理自体はVBAからPowerShellを経由する必要性はありません。マクロからPowerShellを実行する方法をテストするためにやっていま...
2024.05.25
PowerShellVBA
PowerShell

VBAからPowerShellのコマンドを実行するサンプルコード（戻り値を取得するパターン）

VBAからPowerShellのコマンドを実行するサンプルコードを2パターン作成してみました。この記事ではそのうちの戻り値を取得するパターンを紹介します。準備事前準備として、VBAからPowerShellコマンドを実行するには以下の設定が必要です。ツールバーから「参照設定」を選択「Windows Script Host Object Model」のライブラリファイルにチェックを入れます。仕様VBAからPowerShellコマンドを呼び出します。PowerShellのコマンドはなんでもよいのですが、「Get-Date」にして結果をVBAのMsgBox関数で表示してみます。見出し念のため補足しますが、実現している処理自体はVBAからPowerShellを経由する必要性はありません。マクロからPowerShellを実行する方法をテストするためにやっています。ソースコードWScript.ShellのExecメソッドにより、powershellのコマンドを実行しています。execPowerShell.xlsmOption ExplicitFunction execPowerShell(psCmd...
2024.05.25
PowerShellVBA
PowerShell

PowerShellで関数の引数の記述例と実行結果の一覧

以前記事にも書いたのですが、PowerShellの関数の仮引数は丸括弧を使用しません。PowerShellは他の言語と関数への仮引数の記述が違うので、記述例を一覧化して残してみようかと思います。引数の記述例引数なし～引数2つまでのいろいろなパターンを実行結果含めてみました。引数なし引数なしのパターンです。ソースコードfunction doFunction(){ Write-Host "zero"}#引数なしdoFunctionRead-Host実行結果引数1つ引数が1つのパターンです。ソースコードfunction doFunction($a){ Write-Host $a}# 引数 1つdoFunction 1Read-Host実行結果引数2つ(数字と数字)引数が2つのパターンです。ソースコードfunction doFunction($a,$b){ $result = $a * $b Write-Host $result}# 引数 2つdoFunction 2 3Read-Host実行結果引数2つ(数字と文字列)違う型の引数が2つあるパターンです。ソースコードそのまま内容表示でも良いの...
2024.05.09
PowerShell
PowerShell

PowerShellで関数の引数が2つ以上の時に引数がうまく渡されなくてハマったので修正方法の備忘録（ハマった）

PowerShellで関数の引数が2つ以上になると、引数がうまく渡されない現象にしばらくハマっていました。（初心者ですね）PowerShellは他の言語と比べると、関数への仮引数の記述が違います。正しく動作する記述について備忘録として残します。正しく動作しない引数2つ以上のコード(悪い例)まずは悪い例です。ソースコードJavaやそれに類似する言語をかじっている人は、PowerShellでもこんな関数の呼び出しをやりがちです。function doFunction($a,$b){ $result = $a * $b Write-Host $result}# 引数 2つ ※誤りdoFunction (2,3)Read-Host実行結果これだと思った通りに動きません。実行結果すると、2 * 3の計算結果の"6"が表示されるかと思いきや、何も表示されません。構文的には誤りではないので、やっかいなことにエラーも出てこないです。正しい動作する記述例PowerShellでは、仮引数に丸括弧を付けません。　※丸括弧とは()他の言語をやっていると違和感があるのですが、もともとコマンドだと考えると当たり前...
2024.02.04 2024.05.09
PowerShell
PowerShell

Excel上のチェックボックスの状態を変更するPowerShellのサンプルコード（フォームコントロール）

Excel上のフォームコントロールのチェックボックスの状態を変更する、PowerShellのサンプルコードを紹介します。操作対象ExcelファイルPowerShellから操作するチェックボックス入りのExcelファイルです。Book1.xlsx下記画像の1行目3列目のアイコンのチェックボックスを使用しています。細かいことを書くとこんな状態ですがさらっと読めばよいです。オブジェクト名「Check Box 1」～「Check Box 5」の、チェックボックスを5つ追加しています。チェックボックスはグループ化されています。チェックボックスはフォームコントロールです。※ActiveXコントロールではありません。単一のチェックボックスの変更ソースコード「りんご」のチェックボックスについてONにしてみます。「りんご」のオブジェクト名は「Check Box 1」なので、CheckBoxesに「Check Box 1」を指定します。$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$e...
2024.01.22 2024.01.27
PowerShell
次のページ