|
▼Jaka さん:
ありがとうございました!できました!
当方VBA初心者なのですが、
.Cells(.Cells.Count)
というのは私の持っている本2冊では調べられませんでした。
どうしてこれで、範囲の中の最初のセルを選んでくれたのか…
まだまだ勉強しなければいけませんね。
オブジェクトブラウザに日本語で定数の意味とかなんかを
載せてくれるといいのに、と思ってしまいます。
勉強法も模索中ですが、がんばります。
ありがとうございました。
>Find(xlCellTypeConstants)
> ↑
> 意味不明です。
>
>もう少しヘルプを読んでFindの書き方を学んでください。
>
>>数字の"23"は選択してくれるのですが
>は、
>Msgbox xlCellTypeConstants
>とすれば、原因がわかります。
>
>発想も大事だけどSpecialCellsの引数は使えません。
>書き方はこんなだけど、Findの引数 LookIn、LookAtは省略するとろくな事にならないと思います。
>色々実験してみてください。
>
> Dim saigocel As Range
> Dim saishocel As Range
> Dim SaveCel As String
> Set saishocel = Range("A1")
>
> With Range(saishocel, "A38")
> 'Set saigocel = .Find("*", After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlPart)
> Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
> SaveCel = saigocel.Address
> If Not saigocel Is Nothing Then
> Do
> saigocel.Select
> Set saigocel = .FindNext(saigocel)
> Loop Until saigocel.Address = SaveCel
> End If
> End With
|
|