Excel VBA質問箱 IV

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

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


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

29576 / 76732

←次へ　｜　前へ→


	【52435】Re:xlCellTypeConstantsで”ＣＤ”という文字

Jaka - 07/11/14(水) 12:47 -


	引用なし

	パスワード

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

2 hits

▼

【52433】xlCellTypeConstantsで”ＣＤ”という文字 植木ねこ 07/11/14(水) 11:34