Excel VBA Sample VBA 斜線用のパーツ Excelリボンに登録
'選択範囲の空白とゼロ値に斜線を引く'とりあえず、3000個分Sub myDrawBlankDiagonalLine1() Dim c As Range Dim n As Long For Each c In ActiveWindow.Ra...
kazz
Excel VBA Sample 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 SubSub Sample() Dim res As Boolean res = Se...
Excel VBA Sample VBA ２次元配列の1次元目の要素数を変更
Transpose関数を利用Option Base 1'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-'★2次元配列の1次元目の要素数を増やす (Transpose利用)'*-*-*-*-*...
Excel VBA Sample VBA 全シートの表示
Sub ShowSheet() Dim ws As Worksheet Dim count As Integer count = 0 For Each ws In Worksheets If ws.Visible <> xlSheetVis...
Excel VBA Sample VBA ブックが開かれているか確認
実行用プロシージャSub Sample() Dim fName As String fName = "test.xlsx" If IsOpenBook(fName) Then '処理 End IfEnd Sub処理用プロシージャFuncti...
Excel VBA Sample VBA ファイルの選択ダイアログ
GetOpenFilename(単一ファイル)Sub ファイル選択01() Dim fName As Variant fName = Application.GetOpenFilename(FileFilter:="Excelファイル,*....
Excel VBA Sample VBA 複数の戻り値の受け取りにクラスを使ってみた
クラスモジュール：ResultClass' プロパティの宣言(フィールドの設定)Private pVal As StringPrivate pFlag As Boolean' プロパティ: ゲッターPublic Property Get V...