| |
GENです。
非常に早急なご返事ありがとうございます。
内容をもう少し具体的に書きますと下記のような書き方だと、ダイアログを開くとデータの先頭セルを表示することとなってしまいます。ここをさわることで、前回ダイアログ終了前の表示をおこなうことができるのでしょうか。
とりあえず、「ブックは、閉じないならば、Public変数にフォームを閉じるときの値を一時保存しておけばいい」という回答を参考にもう少し考えてみます。
Sub Hyouji(Myline As Integer)
'ダイアログにデータを表示する
Dim MyRows As Integer
MyRows = Form編集.Scroll移動.Value + 3
Cells(MyRows, 1).Activate 'レコードの先頭セルの取得
'セルの値をコントロールに表示する
Form編集.Textタイトル.Text = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
Form編集.Textアーティスト.Text = ActiveCell.Value
If MaxLine = 0 Then 'レコードが存在しない場合
Form編集.Label行数 = "1/1"
Else 'レコードが存在する場合
Form編集.Label行数 = Form編集.Scroll移動.Value _
& "/" & Myline
End If
End Sub
>Excelブックそのものを閉じるかどうかによって、変わってくると思います。
>ブックは、閉じないならば、Public変数にフォームを閉じるときの値を一時保存し
>ておけばいいと思います。
>ブックを閉じるならば、どこかのシートのどこかのセルに書き込んでおくことかと
>思います。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
