別のブックのVBAを実行する VBA

Dim BookName As String
BookName = "フルパス\Macro001.xls"
Application.Run "'" & BookName & "'" & "!module?.プロシジャー名"

目次へ

Excelでテキストのみ貼り付け （結合セルも対応しています）

結合セルも対応します
コピー元と貼り付け先が違うブックも対応します

モジュールの先頭に Dim GetData に入力します

Public Sub テキストコピー()
Dim 選択セル
選択セル = ActiveCell
MsgBox 選択セル ＆ "がコピーされました"
GetData = 選択セル
End Sub

Public Sub テキスト貼り付け()
ActiveCell = GetData
End Sub

マクロ用のブックを作成して上記ＶＢＡを保存し、クイックアクセスツールバーかリボンに追加してマクロを呼び出す設定にすると便利です

目次へ

選択した範囲の行列番号を取得 セル番地に変換

Public Sub サンプル()

行番号1 = Selection(1).Row
行番号2 = Selection(Selection.Count).Row
列番号1 = Selection(1).Column
列番号2 = Selection(Selection.Count).Column

セル番地1 = Cells(行番号1, 列番号1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
セル番地2 = Cells(行番号2, 列番号2).Address(RowAbsolute:=False, ColumnAbsolute:=False)

MsgBox ("選択範囲は " & セル番地1 & " : " & セル番地2)
End Sub

目次へ

Excelでどの行が選択されているか見やすくする などに使えます 半透明の長方形を使って

指定したオブジェクトをセルカーソールの位置に移動する

挿入→図形から長方形を挿入し行の高さに合わせた半透明の長方形を作成し分かりやすいオブジェクト名にします


Public Sub オブジェクトの移動()
column1 = ActiveCell.Column
row1 = ActiveCell.Row
ActiveSheet.Shapes.Range(Array("作成したオブジェクト名")).Select
Selection.ShapeRange.Left = Cells(row1, column1).Left
Selection.ShapeRange.Top = Cells(row1, column1).Top
Cells(row1, column1).Select
End Sub

クイックアクセスツールバー、リボン、コマンドボタンにマクロを登録するか
Private Sub Worksheet_SelectionChange(ByVal Target As Range)に記述して使用します


目次へ

Error制御

エラーナンバーとエラー内容を表示
Sub AAA()
On Error GoTo myError

構文

myError:
MsgBox "エラー番号:" & Err.Number & " / エラー内容:" & Err.Description & Chr(13) & "メッセージ"
End Sub

目次へ