Excel VBA質問箱 IV

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

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


29570 / 76732 ←次へ | 前へ→

【52441】Re:xlCellTypeConstantsで”CD”という文字
お礼  植木ねこ  - 07/11/14(水) 15:25 -

引用なし
パスワード
   ▼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

0 hits

【52433】xlCellTypeConstantsで”CD”という文字 植木ねこ 07/11/14(水) 11:34 質問
【52435】Re:xlCellTypeConstantsで”CD”という文... Jaka 07/11/14(水) 12:47 発言
【52441】Re:xlCellTypeConstantsで”CD”という文... 植木ねこ 07/11/14(水) 15:25 お礼
【52444】Re:xlCellTypeConstantsで”CD”という文... Jaka 07/11/14(水) 16:04 発言
【52511】すみません。間違ってました。 Jaka 07/11/16(金) 9:13 発言
【52577】Re:すみません。間違ってました。 植木ねこ 07/11/20(火) 11:59 お礼

29570 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free