|
ワークシートのクリアについてご指導お願いいたします。
以下の様な構文ですが、
Private Sub CommandButton44_Click()
Dim myRow As Long
With Application.WorksheetFunction
If .CountIf(Worksheets("DATA").Range("A2:J100"), Me.TextBox1.Text) > 0 Then
Worksheets("WAREA").Cells.ClearContents ←ここでワークシート"WAREA"のデータをクリアしています。
Worksheets("DATA").Range("A1").AutoFilter _
Field:=3, _
Criteria1:=">=" & Me.TextBox48.Text, _
Operator:=xlAnd, _
Criteria2:="<=" & Me.TextBox48.Text
Worksheets("DATA").Range("A1").CurrentRegion.Copy Destination:=Worksheets("WAREA").Range("A1")
' myRow = Worksheets("WAREA").Range("A1").CurrentRegion.Rows.Count
' Me.ListBox1.RowSource = "TEMP!A2:J100" & myRow
Worksheets("DATA").Range("A1").AutoFilter
Else
Exit Sub: Rem textbox1にリストに対する値がなかった場合の処理
End If
End With
End Sub
ワークシート"WAREA"のA〜AXの範囲でデータをクリアするにはどの様に指定が必要でしょうか・・?
-------------------------------------------------------------------------------------
また、もうひとつあるのですが、
ComboBoxのRowSourceの使い方についてですが、
今は、ComboBoxのプロパティのRowSourceに直接、A1:B1:C1:D1と指定しています。 ComboBoxのRowSourceのデータは”DATA”のA1:B1:C1:D1に格納してあります。
”DATA””WAREA””WAREA2”と3種類のワークシートがあり、”DATA”から”WAREA2”に変更したいと考えています。ここで、直接に”WARE2A”のA1:B1:C1:D1としてする場合はどの様にすればいいでしょうか・・?
また、ComboBoxのプロパティのRowSourceだけで可能なのでしょうか?
よろしくご指導お願いいたします。
|
|