Excel VBA Sample VBA セルを検索
Findメソッドでセル内を検索するセル範囲内で検索する戻り値：Rangeオブジェクト一致するデータが見つからなかった場合、Nothingを返すRangeオブジェクト.Find(What, After, LookIn, LookAt, Sea...
Excel VBA Sample
Excel VBA Sample Excel VBA Sample VBA 一次元配列のソート
バブルソート隣同士の値を比較、必要があれば入れ替えを繰り返して整列するSub zsBubbleSort1(ByRef dataAry() As Variant) Dim temp As Variant Dim i As Long, j As...
Excel VBA Sample VBA AdvancedFilter
Sub AdvancedFilterSample() Dim dataRng As Range 'データ範囲(見出し要) Dim searchRng As Range '抽出条件範囲(見出し要) Dim copyToRng As Range...
Excel VBA Sample VBA ワークシート操作
ワークシートの追加ワークシートオブジェクト.Add(Before, After, Count, Type)Before：指定シートの前に追加After：指定シートの後ろに追加Count：追加するシート数を指定Type：xlChart、xlW...
Excel VBA Sample VBA 斜線用のパーツ Excelリボンに登録
'選択範囲の空白とゼロ値に斜線を引く'とりあえず、3000個分Sub myDrawBlankDiagonalLine1() Dim c As Range Dim n As Long For Each c In ActiveWindow.Ra...
Excel VBA Sample VBA 斜線
斜線を引くSub zsDrawDiagonalLine() Dim ws1 As Worksheet Dim tRng As Range Dim allRng As Range Dim i As Long, j As Long, k As ...
Excel VBA Sample VBA 配列の中に配列を入れてみた
Sub 配列test() Dim i As Long, j As Long Dim arr1 As Variant Dim arr2 As Variant Dim arrAll(2) As Variant arr1 = Range("A1:...
Excel VBA Sample VBA 戻り値を配列
Function zf配列を戻り値(ByVal dataStr As String) As Variant() Dim returnArr() As Variant Select Case dataStr Case "あ" returnAr...
Excel VBA Sample VBA フォルダ選択ダイアログボックスの表示
実行プロシージャSub Sample() Dim res As Boolean res = SelectFolder 'フォルダ名取得成功時の処理End Sub処理用プロシージャ'******************************...
Excel VBA Sample VBA ２次元配列の1次元目の要素数を変更
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-'★2次元配列の1次元目の要素数を増やす'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-Pu...