Excel VBA質問箱 IV

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

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


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

71684 / 76732

←次へ　｜　前へ→


	【9541】Re:列に現れる文字や数字の種類

ムーミン

- 03/12/8(月) 10:20 -


	引用なし

	パスワード

▼INA さん：
>マクロの自動記録くらいは、試されたのでしょうか？

はい！以下のマクロを作成しました。

Dim r As Long, maxr As Long, allsu As Long
Dim cellpos As String, setpos As Long, setpos3 As Long, setpos6 As Long

Range("a65536").End(xlUp).Select
cellpos = Selection.Address()
allsu = Range("a1:" & cellpos).Rows.Count

setpos = 0
setpos3 = 0
setpos6 = 0

For r = 1 To allsu

　　If Range("a" & r).Value = "1" Then　　　　　　　　 '1の場合
　　　　setpos = setpos + 1
　　　　　　'MsgBox setpos
　　　　　　ElseIf Range("a" & r).Value = "3" Then　　'3の場合
　　　　　　　　　　　　setpos3 = setpos3 + 1
　　　　　　ElseIf Range("a" & r).Value = "6" Then　　'6の場合
　　　　　　　　　　　　setpos6 = setpos6 + 1
　　　　　　
　　End If
Next
Range("a" & allsu + 2).Value = 1
Range("b" & allsu + 2).Value = setpos
Range("a" & allsu + 3).Value = 3
Range("b" & allsu + 3).Value = setpos3
Range("a" & allsu + 4).Value = 6
Range("b" & allsu + 4).Value = setpos6
　　　　
'
End Sub

しかしながら、1,3,6を固定値にしているのでいいのですが、
実際はデータ量も多いので都度調べながら固定値指定していては
汎用性がないので、その種類を一気に調べて何処かに持たせたい
のです。

宜しくお願い致します。

1 hits

▼

【9534】列に現れる文字や数字の種類 ムーミン 03/12/8(月) 9:44