Excel VBA質問箱 IV

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

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


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

56803 / 76738

←次へ　｜　前へ→


	【24679】条件を満たすセルの数を数えたいのですが…

音速ブルー - 05/5/2(月) 21:54 -


	引用なし

	パスワード

Ａ列には、３桁の整数が入っています。（２桁ということはありません、すべて半角です）
その中で、一の位（一番右）の数が３であるセルの個数をＢ１に表示させたいと考えています。
そして作ったのが、以下のコードです。
Sub 三数え()
　　Dim th As Integer
　　Dim n As Integer
　　Dim ttt As Object
　　Set ttt = Range(Cells(2, 1), Cells(65535, 1))
　　　　th = ttt.SpecialCells(xlCellTypeBlanks, Value.Right(, 1) = 3).Count
　　Cells(1, 2).Value = th
End Sub

おそらく、specialcellsプロパティとcountプロパティを使うのだろうと思うのですが、「右から１文字目が３」のセルの指定の仕方がわかりません。
どうぞよろしくお願いします。

0 hits

▼

【24679】条件を満たすセルの数を数えたいのですが… 音速ブルー 05/5/2(月) 21:54

≪