Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4296 / 76735

←次へ　｜　前へ→


	【78063】Re:複数のシートで列の挿入を同期させたい

β - 16/3/18(金) 21:05 -


	引用なし

	パスワード

▼困っていますさん：

>私一人が使うブックであれば、忘れずにシートのグループ化を行い
>作業をすれば問題ないのですが、別の人間も使用し、
>その者が度々グループ化を忘れ(そして行の挿入も忘れ)る為、今回の
>自動化を望んだ次第です。

ということなら、マクロ内で全シートをグループ化して処理。
最後にグループ化解除をしましょうか。

Sub そのメニュー()
　　Dim RT As Long
　　Dim w As Variant
　　Dim sh As Worksheet
　　Dim x As Long
　　
　　If ActiveSheet.Name <> "Sheet1" Then
　　　　MsgBox "Sheet1 でのみ操作ができます"
　　　　Exit Sub
　　End If
　　
　　RT = Val(InputBox("1=行挿入" & Chr(10) & Chr(13) & _
　　　　　　　　　　　　"2=行削除" & Chr(10) & Chr(13) & _
　　　　　　　　　　　　"3=列挿入" & Chr(10) & Chr(13) & _
　　　　　　　　　　　　"4=列削除" & Chr(10) & Chr(13) & _
　　　　　　　　　　　　"5=キャンセル"))
　　　　　　　　　　　　
　　If RT <> 5 And RT <> 0 Then
　　
　　　　ReDim w(1 To Worksheets.Count)
　　　　For x = 1 To Worksheets.Count
　　　　　　w(x) = Worksheets(x).Name
　　　　Next
　　　　
　　　　Worksheets(w).Select
　　　　
　　　　 Select Case RT
　　　　
　　　　　　Case 1: Selection.Insert Shift:=xlDown
　　　　　　Case 2: Selection.Delete Shift:=xlUp
　　　　　　Case 3: Selection.Insert Shift:=xlToRight
　　　　　　Case 4: Selection.Delete Shift:=xlToLeft
　　　　　　
　　　　End Select
　　　　
　　　　Sheets(1).Select
　　　　　　
　　End If
　　
End Sub

0 hits

▼

【78061】複数のシートで列の挿入を同期させたい 困っています 16/3/18(金) 19:26