| |
▼ダイジ さん：
>始めまして。
>オートフィルタで抽出した状態で、一番右側にある「伝票番号」を取得し
>ユーザーフォームのテキストボックスに表示するには
フィルタかけて「見えるセル」（可視セル）だけで操作する、
ということですね
Private Sub UserForm_Initialize()
Dim What As String: What = "ジュース"
With Worksheets("原簿")
.AutoFilterMode = False
With .Cells(1).CurrentRegion
.AutoFilter 2, What
If .Columns(2).SpecialCells(xlVisible).Count > 1 Then
TextBox1.Text = _
Intersect(.Cells, .Offset(1)). _
SpecialCells(xlVisible).Item(1, 1).Value
End If
End With
.AutoFilterMode = False
End With
Worksheets("帳票").Activate
End Sub
[原簿]シートの [A1]セルを含むCurrentRegion をフィルタ範囲を対象
として、その B列にフィルタをかけ、
可視行が2行以上あったら（1行目は必ずタイトル行で可視行です）、
タイトル行を除くオートフィルタ範囲のうちの 可視行だけをとりだしたら、
その.Item(1,1) すなわち(1行目、1列目) が取得しようとしているセルに
なります。
|
|
kanabun
- 11/5/20(金) 20:49 -
