Archive for 9月 18th, 2021

ボタンで右ズレ

土曜日, 9月 18th, 2021
Sub 右ズレ()
    
    Dim rngA, rngB As Range
    
    Set rngA = Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address)    'ボタンの左上セル番地
    Set rngB = Range(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Address).Offset(-1, -1) 'ボタン右下のセル番地

    Application.CutCopyMode = False 'コピーモード解除
    Range(rngA.Address, rngB.Address).Offset(0, 1).Insert (xlShiftToRight)  'ボタンサイズ分挿入して右へシフト

End Sub

コピーモード 解除

土曜日, 9月 18th, 2021

Excel操作
Esc

VBA
Application.CutCopyMode = False ’コピーモード解除

PC スペック 確認

土曜日, 9月 18th, 2021

スタートボタン>Windows管理ツール>システムの情報
コントロールパネル>管理ツール>システムの情報
Win>システムの情報

Win+Pause