[[20100725123323]]　『Call』（A-1）　ページの最後に飛ぶ

『Call』（A-1）

こんにちは

何度も使うので、以下のように　Callを使っています。

ある所で、ActiveCell(14, 3).End(xlUp).Offset(1, -2).Selectにして

18, 3　→　14, 3　使いたいのですが、Callをいかして

使用出来ますか？よろしくお願いします。（2000）

Private Sub 最終行()

            ActiveCell(18, 3).End(xlUp).Offset(1, -2).Select
End Sub

 14にするか、18にするか、何を以って判断するのですか？

 ＞ある所で、
 　　↑
 　これですか？　「ある所」では不明確なんですけど。。

 (半平太) 2010/07/25 13:36

説明不足ですみません。

CommandButton5の時は、ActiveCell(14, 3)にしたいのですけど

Callをいかして使用出来ますか？

他でも使いたいと思います。

 Private Sub 最終行() 
             ActiveCell(18, 3).End(xlUp).Offset(1, -2).Select
 End Sub

 Private Sub CommandButton2_Click()
             Application.GoTo Cells(21, 1), True
         Call 最終行
 End Sub

 Private Sub CommandButton5_Click()
            Application.GoTo Cells(57, 1), True
            ActiveCell(14, 3).End(xlUp).Offset(1, -2).Select
 End Sub

 引数で指定できる様にすればいいのではないですか。。。(そう云うことではない？）

  Private Sub 最終行(ある処1814 As Long)
              ActiveCell(ある処1814, 3).End(xlUp).Offset(1, -2).Select
  End Sub

  Private Sub CommandButton2_Click()
          Application.GoTo Cells(21, 1), True
          Call 最終行(18)
  End Sub

  Private Sub CommandButton5_Click()
          Application.GoTo Cells(57, 1), True
          Call 最終行(14)
  End Sub

 (半平太) 2010/07/25 14:20

まさにこれがしたかった事です。

半平太さん本当にありがとうございました。（A-1）

コメント返信：

[ 一覧(最新更新順) ]

[[20100725123323]] 『Call』（A-1） ページの最後に飛ぶ

[[20100725123323]]　『Call』（A-1）　ページの最後に飛ぶ