Excel

Excel

セル内テキストのフォント色を途中で変更※セル内改行を考慮

' ----------------------------------------------------------------' 選択されたセル内のテキストに対し、フォント色を変更する処理'(「:」の前後でフォント色を変更 ※セル内改...
Excel

範囲内で特定文字が含まれるセルの個数をカウント(結合セルを考慮)

' fncCountSubstringOccurrences' この関数は指定されたExcel範囲内で特定の部分文字列が含まれるセルの数をカウントします。' 結合されたセルも個別のセルとしてカウントされます。' 引数:' rngSearch...
Excel

列番号を対応する列のアルファベットに変換する関数

' fncColumnLetter' Excelで列番号を対応する列のアルファベットに変換する関数です。' 引数:' intColumnNumber - 変換する列番号。' 戻り値:' String - 対応する列のアルファベット。Func...
Excel

指定サイズのコメントを追加する

Sub prcAddCommentToCell() ' セルB2に指定された寸法のコメントを追加する Dim cmnExample As Comment Dim shpExample As Shape ' 既存のコメントがあれば削除 On ...
Excel

1行目にオートフィルタを設定、その行を固定

Sub prcSetAutoFilterAndFreezeTopRow() ' Sheet1の1行目にオートフィルタを設定し、その行を固定します。 Dim wks As Worksheet ' Sheet1を設定 Set wks = Thi...
Excel

特定のキーワード(複数)が含まれている行を削除

Sub prcDeleteRowsWithSpecificWordsPartialMatch() ' A列で特定のキーワードを部分一致で含む行を削除します。 Dim wks As Worksheet Dim arrWords As Vari...
Excel

A列全体に対し、特定のキーワードを消去

Sub prcRemoveSpecificKeywordsInColumnA() Dim wks As Worksheet Dim arrKeywordsToRemove As Variant Dim i As Integer ' 使用する...
Excel

指定されたフォルダが書き込み可能かどうかを判断するVBA関数

Function fncIsFolderWritable(ByVal strFolderPath As String) As Boolean ' 変数の宣言 Dim fso As FileSystemObject Dim strTempFi...
Excel

ブックを開かずに対象ブックのシート名リストを配列で取得する関数

要・参照設定:Microsoft ActiveX Data Objects ライブラリFunction fncGetExcelWorksheetNames(strFilePath As String) As Variant Dim cn A...
Excel

文字列末尾の改行削除(「。」の場合を除く)

' 機能概要: 文字列の各行をチェックし、末尾が「。」でない場合に改行を除去' 引数:' strText - 処理する文字列' 戻り値:' String - 条件に基づいて改行が除去された文字列Function RemoveNewlineI...