Excel VBA質問箱 IV

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

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


71690 / 76738 ←次へ | 前へ→

【9541】Re:列に現れる文字や数字の種類
質問  ムーミン E-MAIL  - 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を固定値にしているのでいいのですが、
実際はデータ量も多いので都度調べながら固定値指定していては
汎用性がないので、その種類を一気に調べて何処かに持たせたい
のです。

宜しくお願い致します。
0 hits

【9534】列に現れる文字や数字の種類 ムーミン 03/12/8(月) 9:44 質問
【9535】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 9:48 回答
【9539】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 9:55 発言
【9540】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 10:08 回答
【9541】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 10:20 質問
【9551】Re:列に現れる文字や数字の種類 ichinose 03/12/8(月) 15:01 回答
【9552】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 15:06 お礼
【9553】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 15:10 回答
【9554】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 15:14 お礼

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