Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9218 / 76738

←次へ　｜　前へ→


	【73084】ユーザーフォームから転記したいのですが

もろ - 12/11/6(火) 22:38 -


	引用なし

	パスワード

初心者ですが今エクセルで患者さまデータを作成しており、ユーザーフォームを使って患者さま情報を一目みてわかるようにしています。オートフィルターとスクロールバーを同期させてテキストバックスに反映させるようにしているのですが、ユーザーフォームに入力すれば直接セルに入力できるようにするにはどうしたら良いでしょうか。記述は下記のとおりです。

Private Sub ScrollBar1_Change()
SelectRow→サブルーチン

For i = 1 To 65
Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
Next
End Sub

Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = CountRows()→Functionのプロシージャ
ScrollBar1.LargeChange = ScrollBar1.Max \ 10 + 1
ScrollBar1.Value = 1

SelectRow→サブルーチン

For i = 1 To 65

Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
Next
End Sub

Sub SelectRow()
Dim iRows As Long

iRows = 0
For i = 5 To ActiveSheet.UsedRange.Rows.Count
If Not Rows(i).Hidden Then→表示されている行のみカウント
iRows = iRows + 1
If iRows = ScrollBar1.Value Then→相対位置を判定
ActiveSheet.Rows(i).Select

Exit For
End If
End If
Next i

End Sub

Function CountRows() As Long
Dim iRows As Long
iRows = 0
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Not Rows(i).Hidden Then
iRows = iRows + 1
End If
Next i
CountRows = iRows→戻り値を設定
End Function
具体的な記述があればありがたいです！

0 hits

▼

【73084】ユーザーフォームから転記したいのですが もろ 12/11/6(火) 22:38

≪