|
ゆう さん、こんにちわ。
>worksheet2に描かれた縦線があります。
>
>そして、worksheet1に戻って、また、worksheet2を見た時に、
>始めに描かれていた縦線が消えるようにするにはどのようにしたらよいのでしょうか・・。
Bordersということは、縦罫線ですよね。
複数のシートがある、または複数のブックを開いていたりする場合は、Sheet_ActivateよりもWorkbook_SheetActivateでシートの移動を確認しながら処理したほうがらくだと思います。
↓Thisworkbookに全部書きます。
'//////////////////////////////////////////
Dim sh2 As Object
'
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set sh2 = Sh 'さっきまでアクティブだったシートを取得する
End Sub
'
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet2" And sh2.Name = "Sheet1" Then
'たて線を消す
With sh.UsedRange
.Borders(xlEdgeRight).LineStyle = xlLineStyleNone
.Borders(xlEdgeLeft).LineStyle = xlLineStyleNone
.Borders(xlInsideVertical).LineStyle = xlLineStyleNone
End With
End If
Set sh2 = Nothing '用が終わったので解放
End Sub
'//////////////////////////////////////////
こんな感じです。
|
|