CEL1034. ワークシートの特定範囲表示
　
PR@___________________________________________________________________
___________________________________________________________________@PR

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
モニターの前で仕事をする不健康なあなたが970円で苦痛から開放される方法
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
【SE、パソコン関係者、初心者必見】パソコンと向き合ってばかり。
肩こり腰痛、目の疲れ、偏頭痛、ストレス、更に無理なスケジュールで徹夜の
連続、常に寝不足。もしそんな悩みがたった【９７０円】で解決したら？
１日中パソコンの前の私には手放せません！　
疲れがウソのようになくなった！⇒ http://www.1ktn.com/rd.php?aid=943

----------------------------------------------------------------------

　　《　楽 天　パソコン・周辺機器　》

 　  ☆  TVも見られる一体型PCが4万円台！
　   ☆  microSDカード2Gが980円！？

　　　　　　　　　http://www.paso-navi.com/cs1/a.cgi?pc

___________________________________________________________________@PR
PR@___________________________________________________________________
■お値打ち広告サービス■その１→ 　http://www.nan-paso.com/koukoku.htm
その２→　http://shop-link.net/k/cgi/k.cgi?adress=webmaster@nan-paso.com
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■
----------------------------------------------------------------------
 Excelに関するＱ＆Ａを毎日１問お届けする読みやすいメールマガジンです！

　　　□──┐
　　　│ Ａ │
　┌─┼──○　  　　  □　知って得する！Excel基本塾　□
　│１│　
　└─△
　　　　　Produced by なんぱそドットコム（　http://www.nan-paso.com　）
　　　独自配信:5301  melon:5839 　  melten:2160
　     melma:746　　  mag2:5060　　　                     計 19,106人
----------------------------------------------------------------------
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■
【「表示（Ｖ）」→「文字のサイズ（Ｅ）」→「等幅（Ｆ）」にして見てね】
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■

CEL1034. ワークシートの特定範囲表示（岡山県itaさんより）


WindowsXP
ワークシートの特定範囲の表示をマクロで下記のように書き込みましたが、
行は92行迄なのですが、いくらでも上下にスクロールできてしまいます。
何が原因なのか、お解りの方のお知恵を拝借できないでしょうか？

Private Sub Workbook_Open()
'特定表示
Dim winsize As Range

Set winsize = Range("A1:ha95")
Worksheets(1).ScrollArea = "A1:al92"
With ActiveWindow
.WindowState = xlNormal
.Top = 0
.Left = 0
.Height = winsize.Height
.Width = winsize.Width
.EnableResize = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With

End Sub


？？？？？？？？？？？？？？？？？？？？？？？

Ａ：

（兵庫yuhkiさんの見解）

マクロ初級者の兵庫yuhkiです。
どのシートがアクティブになっているかで動きが変わってきます。
ご提示のマクロでは、スクロール範囲は、一番最初のワークシートが設定され
ています。
ですので、起動したときに2番目以降のワークシートが表示されている場合、
スクロールできてしまうことになります。
もし、一番最初のワークシートだけで処理されたい場合は、最初に
Worksheets(1).Activate
と追加してあげるか、起動したとき、アクティブになっているシートで処理
されたいのであれば、
Activesheets.ScrollArea = "A1:al92"
とされてはいかがでしょうか？
ではでは。


■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■
----------------------------------------------------------------------
【編集】　　　　　　兵庫yuhki
【運営】　　　　　　なんぱそドットコム 愛知nave  http://www.nan-paso.com
【掲載Ｑ＆Ａ】　　　「何パソ（何でもパソコン110番）」Ｑ＆Ａより抜粋
【質問希望の方】　　＜何パソ購読＞　http://www.nan-paso.com/mpc110.htm
【ご意見・ご感想】　webmaster@nan-paso.com
【バックナンバー】　http://backno.mag2.com/reader/Back?id=0000062465
【広告掲載問合せ】　http://www.nan-paso.com/koukoku.htm
【配信システム】　  まぐまぐ メルマガ天国  Melma
　　　　　　　　　　めろんぱん  独自配信
【マガジン解除】    http://www.nan-paso.com/ekihon_kaijyo.htm
【相互広告MAMM】　　http://www.otoku-pro.com/cgi-bin/click/click.cgi?id=mamm
【免責事項】　　　　記載されております内容に誤りがあったために生じた
　　　　　　　　　　損害等について当方は一切責任を負いかねます。
　　　　　　　　　　あらかじめ、ご了承ください。
----------------------------------------------------------------------
 このメルマガに掲載された記事を許可なく転載又は引用することを禁じます
■□■□■□■□■Copyright(C) 2000-2008 nan-paso.com■□■□■□■□■