| |
▼まつ君 さん：
>▼IROC さん：
>>ブックの保護では駄目なのですか？
>普通はそう考えますよね。
Protect で制御可能
ThisWorkbook.Protect
で動的に制御するといいです
Sheet3をブロックする場合。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim b As Boolean
b = (StrComp(Sh.Name, "Sheet3") = 0)
ThisWorkbook.Protect Structure:=b
End Sub
[XL] ワークブック内のシートを並べ替える方法
http://support.microsoft.com/default.aspx?scid=kb;ja;812386
>すみません。１つ教えてください。
>ブックのシート構成が”基準”、”１工程”、”２工程”、”３工程”、”全工程”とあります。
>そこでシートの１工程から順番に４工程のシートまでを順番に選択するところまでをどう記述するのか割りません。
>
>subシート内容のコピー（）
>sheets("1工程”）.range("**:**").select
>selection.copy
>sheets("全工程").select
>range("a65536").end(xlup).select
>activesheet.paste
>同様にシート２工程・・・４工程とシートを切り替えます。
>その後のプログラムは同じです。
>シートネームを変数を使ってシートを切り替えるようにしたいのですが・・・
最初から４つと決めているなら
Dim i As Long
Dim w As Worksheet
For i = 1 To 4
If i = 1 Then Set w = Sheets("1工程")
If i = 2 Then Set w = Sheets("2工程")
If i = 3 Then Set w = Sheets("3工程")
If i = 4 Then Set w = Sheets("4工程")
ここに処理
Next i
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/1/19(水) 22:31 -
