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)に記述して使用します


目次へ

小樽雪あかりの路 2018

朝里川温泉会場






運河会場　旧手宮線会場














目次へ

Error制御

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

構文

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

目次へ

Excel 2016 でブックの印刷プレビュー

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"


目次へ

書式設定 表示形式

標準
Selection.NumberFormatLocal = "G/標準"

西暦(和暦)月日曜日
Selection.NumberFormatLocal = "[$-ja-JP]yyyy(gggee)/mm/dd(aaa)"


目次へ