| |
お世話になっております。
昨日1つ問題を解決して頂いたばかりで、誠に申し訳ないのですが、
もう1度お知恵を拝借できないでしょうか。
やりたいことは、複数のシート間での列の挿入の同期です。
(Sheet1に列を挿入したら、他のシートの同じ位置にも列を挿入したい。)
右クリックのメニューに項目を表示し、項目のクリックから
動作させたいと考えております。
右クリックのメニューに、項目の追加はできております。
重要な中身のコードは、Webで検索しよさそうなものを発見したので
そちらを拝借したいと思うのですが、コードが標準モジュール用ではなく、
「ThisWorkbook」に記述する用なのです…。
これを標準モジュール用に直したいのですが、
頭の部分を色々変更しただけでは直りませんでした。。。
拝借する予定のコードは以下の通りです。
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim RT As Long
Dim mySh As Worksheet
Dim myRow As Long
Cancel = True
myRow = Target.Row
If Sh.Name <> "Sheet1" Then Exit Sub
RT = Val(InputBox("1=挿入" & Chr(10) & Chr(13) & _
"2=削除" & Chr(10) & Chr(13) & _
"3=キャンセル"))
If RT <> 3 And RT <> 0 Then
For Each mySh In Worksheets
mySh.Select
Rows(myRow).Select
Select Case RT
Case 1
Selection.Insert Shift:=xlDown
Case 2
Selection.Delete Shift:=xlUp
Case 3
End Select
Next mySh
End If
Sh.Select
End Sub
参考書と見比べておりますが、実は大半の意味を理解できずにおります…。
少し手直しする程度では動きませんか？
もし大幅な変更が必要であれば、あきらめたいと思います。
(教えて頂くにも、あまりにも無知で申し訳ないので。。。)
私一人が使うブックであれば、忘れずにシートのグループ化を行い
作業をすれば問題ないのですが、別の人間も使用し、
その者が度々グループ化を忘れ(そして行の挿入も忘れ)る為、今回の
自動化を望んだ次第です。
以上、皆様大変お忙しいかと存じますが、
何卒ご助力の程、よろしくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
