どれもフォルダを開く処理。エラー処理を忘れないこと。 ThisWorkbook.FollowHyperlink folderPath CreateObject("WScript.Shell").Run folderPath shell "explorer " & folderPath, vbNormalFocus ' ファイルを選択した状態でフォルダを開く。フルパスであ…

GetDetailsOf。作成日付や更新日付、アルバムやアーティスト、ビットレート等々のプロパティ情報を取得する。 '参照設定 'Microsoft Shell Controls And Automation Sub プロパティ取得() Dim fso As Object, file As Object Set fso = CreateObject("Script…

円と弧円の組み合わせで描く。魔方陣や放射状の線、幾何学模様は中心を決めて描くとキレイ。 円を描く中心と半径を決めてオートシェイプを作る。 Option Explicit '線のデフォルトカラーと太さ。 Const LINE_BOLD As Long = 5 Const LINE_COLOR As Long = vb…

CHOOSE(インデックス、値1、値2、、、)インデックスは整数で1から指定する。指定した～番目の値が返る。 Excel2003では29個、Excel2007以降では254個まで。値部分にSUMとか式を入れ込んだりして複雑なものが作れる。 'エクセル数式 =CHOOSE(4, "A", "B", "C"…

mp3タグが文字化けしないよう、文字コードが調べたかった。 最初の3バイトが「ID3」で21バイト目が「01」ならOK！とやるだけでよかった。 それだけでよかったのに、、、なんか長いのが出来た。 独学なので勘弁。 Option Explicit Sub メイン処理() Dim mp3b …

必要なものを作っていく。 16進数と2進数の10進数変換マイナスや小数点以下の数値、エラーを考慮せずに作ったので取扱注意。 '16進数を2進数に変換 Function HexToBin(sHex As String) As String Dim rtnStr As String: rtnStr = "" Dim i As Long, tmp As S…

以前まとめた同記事でエフェクト効果の定数対応表が間違っていた上に、図のエフェクト定数を検索するとGoogle検索のトップに出るというやらかしをしてしまい、前の記事は削除しました。私も他のブログを鵜呑みにしてコピペしただけなんですぅー！なんて言い…

オートシェイプを作るたびに名前を配列に格納し、最後に配列からグループ化。 Dim myShape As Shape Dim arrName() As String Set myShape = オートシェイプを作る処理01 Call ShapeNameArray(arrName, myShape.Name) '～略～ Set myShape = オートシェイプ…

このようにしたい。 文字を円状に変形させる手順は、図形の書式＞文字の効果＞変形＞円。 オートシェイプの円を作成して直接文字を追加して文字を円状に変形させるとこうなる。内側すぎる。物足りない。 円とは別にワードアートを同じサイズで作ってみる。惜…

ステータスバーにプログレスバーぽいヤツを作った！小文字のLはカッコいい気がする！ GIF見れない人用 よく見る■のパターン 以下ソース。 Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) Sub ステータスバーのテスト() 'ThisWorkbook.Activat…

改ページはページの開始位置。 HPageBreaksとVPageBreaksがある。多分片方しか使わない。 '改ページ ActiveSheet.HPageBreaks.Add Range("A10") ActiveSheet.VPageBreaks.Add Range("B15") '改ページと解除 ActiveSheet.Range("F9").PageBreak = xlPageBreak…

セルのデータを左右回転、行列の入れ替え、右上を基準にした反転、180度回転、ランダムに再配置するヤツをまとめた。関数化してません。A1に作ってある表を回転してA20に吐き出します。 90度回転シリーズ。左へ90度回転、右へ90度回転、行列の入れ替え（左上…

Sub 行と列を入れ替えて貼り付け() Selection.Copy Range("D1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True Application.CutCopyMode = False End Sub Sub 反転して出力() Dim r As Range Set r = Selection '選択箇所 Dim arr ar…

数式で出すと漢字以外のフリガナも全部出る。 =PHONETIC(A1) 以下VBA。まずは表示から。 Selection.Phonetics.Visible = True 'フリガナ表示 Selection.Phonetics.Visible = False 'フリガナ非表示 フリガナの設定。漢字も設定できた。 Selection.Characters…

A1内の文字に設定されている書式を他にもコピーしたい。 ネットで検索すると255文字だか256文字を超えた場合に書式が壊れるとか何とか出てきますが、そこまでテストしません。数文字でもおかしくなります。Excelは表計算ソフトです。自己責任。 Sub 選択部に…

全部書式を削除したい。 Selection.ClearFormats 'セル書式のクリア 以下画像のような文字の書式は、セル書式のクリアでは消えない。同じ理由で他セルからのセル書式上書きでも消えない。 文字の書式は、文字自体を上書きしてしまえば消える！・・・たぶん消…

オートシェイプを自分で自由に書ける！ Sub 波線作成テスト() Dim myShape As Shape Dim ffb As FreeformBuilder Dim r As Range Set r = Range("A3") Set ffb = Shapes.BuildFreeform(msoEditingAuto, r.Left, r.Top) Dim i As Integer For i = 1 To 3 Set …

VBEでコーディングする際、入力候補はドットやCtrl+Spaceを押すと出てくる。以上。

ド忘れしてたのでメモ。￥ 商 Mod 余り Debug.Print 10 / 3 '3.33... Debug.Print 10 ￥ 3 '3 Debug.Print 10 Mod 3 '1 Debug.Print Int(10 / 3) '3 Debug.Print Fix(10 / 3) '3 Debug.Print Int(-10 / 3) '-4 Debug.Print Fix(-10 / 3) '-3 以上。

こんなの作りたい。アーチェリー！ 円の中心位置と直径から図形のサイズを計算してオートシェイプを作成。 Sub テスト() Dim 中心点Left As Integer Dim 中心点Top As Integer 中心点Left = Range("E15").Left 中心点Top = Range("E15").Top Dim 直径 As Int…

文法エラーにならない。怖い。 If 1 < 2 < 3 Then Debug.Print "1.True" End If If 3 < 2 < 1 Then Debug.Print "2.True" End If If True > True > True Then Debug.Print "3.True" End If 順番に一つ一つ比較する。 1の例。1 2の例。3 3の例。Int(True)は-1…

順番は保証されてない模様。以下、確認用コード。 Set セル範囲 = Range("A1:E2") For Each v In セル範囲 Debug.Print v Next 二次元配列 = セル範囲 For Each d In 二次元配列 Debug.Print d Next テスト表 ＼ABCDE 112345 2678910 実行結果 セル範囲の出…

Ctrl+Aで取得できる範囲から、Offsetで一行下げて、Resizeで一行減らす処理。 起点は何も考えずC7にしました。 Dim セル範囲 As Range With Range("C7").CurrentRegion Set セル範囲 = .Offset(1).Resize(.Rows.Count - 1) End With 以上。

配列をセルに出力する際、一次元配列は横方向に出力される。シート横方向の限界サイズで一次元配列を作成して出力してみた。 Excel2007以降では16,384列もあるが一瞬で終わる。 Option Base 0 Sub 一次元配列の出力テスト() Dim lastColumn As Long lastColu…

エクセルの乱数は疑似乱数。セルに以下の数式を入れると出る。 =RAND() '0～1の間で乱数を生成 以下、VBA用。シード値については触れません。 Sub Test1() Randomize '乱数ジェネレータを初期化 Debug.Print Rnd '0～1の間で乱数を生成 End Sub 整数用の乱数…

日曜日～土曜日。1～7の数値に対応。セルに以下の式を入力。曜日や数値が出せる。 =TEXT(NOW(),"(aaa)") '(日)～(土) =TEXT(NOW(),"aaaa") '日曜日～土曜日 =WEEKDAY(NOW()) '1～7 セルの書式設定のユーザー定義でも出せる。aaa、(aaa)、ddddなどを設定。 VB…

メゾッドやプロパティをテキストで指定して実行や取得ができる。 用途が思いつかない・・・ CallByName(object,procname,calltype,[args()]) calltype 値定数 1vbMethod 2vbGet 4vbLet 8vbSet 使用例 total = WorksheetFunction.Sum(Range("A1:B5")) total =…

範囲を指定するならRangeを使う。Cellsは範囲指定ができない。 変数を使って動的な処理を行うならCellsを使う。固定セルならRangeを使う。 人に見せるなら上記を守る。 CellsとRangeを使い分ける。（私は出来てない） よくあるパターンから。 Dim r As Range…

Do While～Loopと全く一緒。 互換性のために残っている模様。Doを使いましょう。 Sub test1() Dim i As Long i = 0 While i < 10 i = i + 1 Wend Debug.Print i '10 i = 0 Do While i < 10 i = i + 1 Loop Debug.Print i '10 i = 0 Do Until i >= 10 i = i +…

こんなの書いた。範囲拡大するだけ。 Sub test1() Dim rng As Range Set rng = Range("A1") With rng Set rng = .Resize(, 2) '列数拡大(1→2) Set rng = .Resize(3) '行数拡大(1→3) End With Debug.Print rng.Address End Sub .Resize(, 2)で列数が2に変わっ…