Excel VBA質問箱 IV

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

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


21127 / 76732 ←次へ | 前へ→

【61008】Re:この質問の続きで・・・
発言  chicyu  - 09/4/2(木) 20:19 -

引用なし
パスワード
   Yukiさんさっそくありがとうございます。

Application.Goto Reference:=Range("A1"), Scroll:=True

こんな感じで書いたらいいのですよね。
でもrangeの後の指定をどのように書いたらいいのでしょうか?
その時々によって変わるので…。

Sub idou()
  Dim N As Long
  N = ActiveSheet.Range("N2") '
  Dim iti As Range
  Set iti = Columns(9).Find(what:=N, after:=Range("I1"))

  If iti Is Nothing Then
  MsgBox "見つかりません"
  Exit Sub
  Else
  iti.Activate
  End If
  Set iti = Nothing
End Sub

今こんな感じでやっています。これで指定した所を上から3列目に
表示できたらいいなと思うのですが・・・。

ほんと勉強不足でごめんなさい。

0 hits

【60982】ページを指定して移動するには? chicyu 09/3/31(火) 8:07 発言
【60983】Re:ページを指定して移動するには? 超初心者 09/3/31(火) 8:42 発言
【60984】Re:ページを指定して移動するには? chicyu 09/3/31(火) 9:46 発言
【60985】Re:ページを指定して移動するには? つん 09/3/31(火) 10:23 発言
【60986】Re:ページを指定して移動するには? chicyu 09/3/31(火) 11:47 発言
【60988】Re:ページを指定して移動するには? つん 09/3/31(火) 13:06 発言
【60989】Findメソッドの引数の注意事項? つん 09/3/31(火) 14:09 発言
【60992】Re:ページを指定して移動するには? chicyu 09/4/1(水) 6:36 発言
【60994】Re:ページを指定して移動するには? つん 09/4/1(水) 6:46 発言
【60995】Re:ページを指定して移動するには? chicyu 09/4/1(水) 20:41 発言
【60997】Re:ページを指定して移動するには? つん 09/4/1(水) 22:14 発言
【60998】Re:ページを指定して移動するには? chicyu 09/4/2(木) 6:58 お礼
【60999】この質問の続きで・・・ chicyu 09/4/2(木) 7:01 発言
【61000】Re:この質問の続きで・・・ Yuki 09/4/2(木) 8:07 発言
【61008】Re:この質問の続きで・・・ chicyu 09/4/2(木) 20:19 発言
【61010】Re:この質問の続きで・・・ つん 09/4/2(木) 22:53 発言
【61012】Re:この質問の続きで・・・ chicyu 09/4/3(金) 6:37 発言
【61013】Re:この質問の続きで・・・ Yuki 09/4/3(金) 7:14 発言

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