Excel VBA質問箱 IV

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

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


10217 / 13644 ツリー ←次へ | 前へ→

【23066】検索した列を固定列の次に表示したい ハヤブサ 05/3/12(土) 1:05 質問[未読]
【23068】Re:検索した列を固定列の次に表示したい [名前なし] 05/3/12(土) 2:25 回答[未読]
【23069】Re:検索した列を固定列の次に表示したい りすりす 05/3/12(土) 2:32 回答[未読]
【23070】Re:検索した列を固定列の次に表示したい ハヤブサ 05/3/12(土) 3:22 お礼[未読]

【23066】検索した列を固定列の次に表示したい
質問  ハヤブサ  - 05/3/12(土) 1:05 -

引用なし
パスワード
   こんばんは。
次のようなことをしたいのですが、どうすればいいでしょうか。
A列をウィンドウ枠固定にして、B列からZ列まで検索して該当する列を
A列の次に表示したい。

例えば、該当する列がW列なら

 A W X Y Z

2  


となって、カーソルをW1のセルにもってくるようにしたい。

よろしくお願いします。

【23068】Re:検索した列を固定列の次に表示したい
回答  [名前なし]  - 05/3/12(土) 2:25 -

引用なし
パスワード
   列 = Range("W1").Column
  
ActiveWindow.ScrollColumn = 列
Cells(1, 列).Select

【23069】Re:検索した列を固定列の次に表示したい
回答  りすりす  - 05/3/12(土) 2:32 -

引用なし
パスワード
   ▼ハヤブサ さん:
>こんばんは。
>次のようなことをしたいのですが、どうすればいいでしょうか。
>A列をウィンドウ枠固定にして、B列からZ列まで検索して該当する列を
>A列の次に表示したい。
>
>例えば、該当する列がW列なら
>
> A W X Y Z
>1
>2  
>3
>
>となって、カーソルをW1のセルにもってくるようにしたい。
>
>よろしくお願いします。

  Dim Kensakukekka As Range
 
  Set Kensakukekka = Range("B1:Z65536").Find("モジモジ")
  If Not (Kensakukekka Is Nothing) Then
   ActiveWindow.SplitColumn = 1
   ActiveWindow.Panes(2).Activate
   Kensakukekka.Activate
   ActiveWindow.Panes(2).ScrollColumn = Kensakukekka.Column
  End If

【23070】Re:検索した列を固定列の次に表示したい
お礼  ハヤブサ  - 05/3/12(土) 3:22 -

引用なし
パスワード
   リスリスさん、名前なしの方ありがとうございました。

10217 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free