[[20101213110402]]　『ユーザーフォームについて教えてください』（中年）　ページの最後に飛ぶ

『ユーザーフォームについて教えてください』（中年）

 現在以下のコードで対応しているのですが、１０列進んだ後元の位置に戻り２行下げてまた続行したいのですがこんな動きはできるでしょうか？
 Private Sub CommandButton1_Click()
   Dim r As Integer
   Dim c As Integer
      r = ActiveCell.Row
      c = ActiveCell.Column
    ActiveCell.Value = TextBox1.Value
      TextBox1.Value = Empty 
      TextBox1.SetFocus
      Cells(r, c + 1).Select
 End Sub
 Excel2003,WindowsXP

 下記の二つが前提条件ですが、
 　TextBox1 は必ず空でない
 　その行にはこれ以外のデータが書かれていない

 こんな感じでどうでしょうか。

    If Application.WorksheetFunction.CountA(ActiveCell.EntireRow) = 10 And c >= 10 Then
        Cells(r + 2, c - 9).Select
    Else
        Cells(r, c + 1).Select
    End If

 (Mook)

 Mook様、凄いです。理想の動きになりました。
 応答がないので諦めかけていました。
 本当にありがとうございました。
 （中年）

コメント返信：

[ 一覧(最新更新順) ]

[[20101213110402]] 『ユーザーフォームについて教えてください』（中年） ページの最後に飛ぶ

[[20101213110402]]　『ユーザーフォームについて教えてください』（中年）　ページの最後に飛ぶ