コンテキストメニューまたは、メニューバーのRubberduckメニューからRefactorを実行することでリファクタリングが行えます。 下記の例では関数名を変更しています。 他にも引数の削除や順番が行えます。 テスト用のモジュールとメソッドの追加方法 Rubberduck→Unit Tests→Test Moduleでテストモジュールを追加、Rubberduck→Unit Tests→Test Methodでテストメソッドを追加します。 テストモジュール中の「'@TestMethod」というコメントが記載された関数がテストメソッドとなります。 テスト実行例 まず以下のようなテストモジュールを用意します。 Option Explicit Option Private Module '@TestModule '@Folder("Tests") Private Assert As Object
GenderEstimate.bas Ӈ�U �ԇ�U Public Function GenderEstimate(ByVal strMK As String, Optional strMF As String = "") As String GenderEstimate = "" strMK = Replace(Replace(Replace(strMK, " ", ""), " ", ""), "「", "") strMF = Replace(Replace(StrConv(strMF, vbHiragana), " ", ""), " ", "") 'デバッグ用。こいつをブレークポイントに持ってきて挙動を確認する 'If strMK Like "理世" Then ' Debug.Print strMK 'End If Select Case True 'ひらがなが2文字以下のもの
この記事は、「Excel VBA Advent Calendar 2017」の10日目の記事です。 時間なくて過去記事でごめんなさい。。。 5年ぶり？、10年ぶり？くらいにExcelVBAでの開発案件がありそうなので事前にできるだけモダンな開発環境を構築してみようと思います。 通常VBAはExcel等のソフト内のエディタ(VBE)で開発し、モジュールの共有化やバージョン管理が難しい開発環境です。そのため今回は、VBE以外の外部エディタを利用したり、GitHubでバージョン管理や差分抽出ができる開発環境を構築できたらと思っています。 ツールについて自分で構築するか、既に良いツールがないか色々と探していたのですが、「text-scripting-vba」というツールが便利そうなので試してみました。詳細についてはText Scripting on VBAに記載されています。 まずはじめに、Exc
最大公約数 ― ２つの数値の最大公約数を返す関数 the greatest common divisor Sub CallTest() Debug.Print 最大公約数(24, 96) End Sub Function 最大公約数(ByVal M As Long, ByVal N As Long) As Long If M <= 0 Or N <= 0 Then Exit Function 'M>=Nに調整 If M < N Then Swap M, N Dim Q As Long, R As Long Do Q = M \ N R = M Mod N If R = 0 Then 最大公約数 = N Exit Function End If M = N N = R Loop End Function Private Sub Swap(A As Long, B As Long) Dim T
VBAの構造体の配列の作り方構造体を作りました。 Public Type XYZ Name As String Address As String End Type としました。そして、 Dim ValueXYZ() As XYZ としました。Name,Addressでは配列で値を保持したいので、 ValueXYZ.Name(1)="ABC" ValueXYZ.Address(2)="DEF" としますと、修飾詞エラーと表示されます。そこで、今度は Name() As String Address() As Stringとして、同じことをやりましたが、同じエラーでした。 どこをなおせば動くようになるでしょうか？
Typeステートメント 構文 [Private|Public] Type varname elementname[([subscripts])] As type End Type キーワードPublicは省略可能です。すべてのモジュールから参照できるユーザー定義型を宣言します。 キーワードPrivateは省略可能です。Typeステートメントを記述したモジュールからのみ参照できるユーザー定義型を宣言します。 varnameには、ユーザー定義型の名前を指定します。 elementnameには、ユーザー定義型を構成する要素の名前を指定します。 subscriptsは省略可能です。配列変数の次元を指定します。 typeには、ユーザー定義型を構成する要素のデータ型を指定します。 解説 ユーザー定義のデータ型を作成します。 Typeステートメントは、プロシージャレベルで使用します。 標準モジュール内で
COMオブジェクトのScriptControlを使うと、VBA上でJScriptが実行出来ます。って事は、VBAでもJSONファイルのパースが出来るんじゃね？と前々から思ってたのを試してみたところ、拍子抜けするくらい簡単に出来ました。 ソース Option Explicit Sub VBA_de_JSON() Const cnsJSONString As String = "{ ""familyname"":""yamada"", ""personalname"":""tarou"" }" Dim sc As Object Dim strFunc As String Dim objJSON As Object Set sc = CreateObject("ScriptControl") sc.Language = "JScript" 'jsonにパースする関数文字列 strFunc = "
VBA（Visual Basic for Applications）に限らず、コーディングをしているときに複数の行をまとめてコメント化したいということがあります。 そんなときにいちいち行の先頭に「'」（シングルクォーテーション）を入力するのは、かなり面倒です。
ExcelでVBAを使うようになり当然VBE（エディタ）の使用頻度も非常に高いわけだが、コイツってマウスのスクロールホイールが効かないのな…orz たったこれだけでもか〜な〜り不便。一般的なエディタで編集しようか、スクロール実現系ソフトを使おうか、などなど思案もしてみたけれど、他のエディタを併用するのは少々面倒、常駐系ソフトは余り増やしたくない、という理由で見送り。そんな対処療法ではなく何か根本的に解決する手段は無いか…と探したら、ちゃんと有ったよ。 VBA Mouse Wheel（Giorgio Brausi さん）というアドインをVBEに組み込んで、ホイールスクロールを有効にする、という方法。“VBA IDE Mouse Wheel add-in”をダウンロードする。ダウンロードしたファイルを展開し、“VBAIDEMouseWheelAddin.dll”をシステムフォルダにコピーする。
VBAコンテンツ Home Excel VBA Excel VBA Tips セル セルが選択されているか判定する アクティブでないシートのアクティブセル 結合セルを調べる 簡単に罫線を引く セルのValue2プロパティ あるセルがセル範囲に含まれるかどうか セル範囲の操作 確実に選択されているセルを操作する 入力されているデータの最終セルを取得する 複数のセルを選択する 特定のセル範囲内を検索する 非表示のセルを検索する すべて検索する 日付を検索する 1と001の問題 Range(左上セル, 右下セル)の使い方 セルの罫線に関すること new オートフィルタ 書き方の基本 文字列で絞り込む 数値で絞り込む 日付で絞り込む 色で絞り込む 作業列で絞り込む 絞り込んだ結果をコピーする 絞り込んだ結果を集計する 絞り込んだ結果の行を操作する オートフィルタの状況を判定する 数式のエラーで絞り
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
