つらつら Excel VBA

私の備忘録です。

自作関数

ExcelVBA ランダム値を重複なしで取得

Dim DIC As Object, mKey Dim i As Integer, rd As Integer, no As IntegerSet DIC = CreateObject("Scripting.Dictionary")For i = 1 To 52 '連想配列の作成。 DIC.Add i, i Next For i = 52 To 1 Step -1 rd = getRandom(1, i) '1~iの範囲でランダム値を…

Excel VBA 右クリックメニュー作成

■Sheet1に追加 Option Explicit Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim myCB As CommandBar Dim myCBCtrl As CommandBarControl On Error Resume Next CommandBars("User_Short_Menu").Delete On Error GoT…

Excel VBA ファイルパスからファイル名を取り出す案

'ファイルパス、ファイル名+拡張子の状態からファイル名だけを取り出す処理。'[\]でSplitをかけて最後を取得、[.]でSplitをかけて最初を取得すればOKFunction getFileName(file_path) As String Dim temp As String Dim tmp_array2 As Variant, tmp_array1 …