[[20040512073812]]　『リストボックスが設定してある行のカウント』（mana）　ページの最後に飛ぶ

『リストボックスが設定してある行のカウント』（mana）

 こんちちは　また質問させてください
 A列、B列、C列に簡易リストボックスが1000行まで設定してあります
 データをオートフィルターで絞込んだあと　マクロで行数をカウントしたいのですが
 リストボックスが空欄を選択していても　行数としてカウントしてしまいます

 Range("A2").Select 
 件数 = ActiveCell.CurrentRegion.Rows.Count
 Sheets("請求書").Range("D22") = "お買い上げは" & 件数 & "件です"

 ↑では"お買い上げは1000件です"になってしまいます　
 どのように記述すればよいのでしょうか ？
 よろしくお願いいたします

 試してみておくんなはれ。
    ほな...（弥太郎）
 '-------------------
     Range("A2").Select
    件数 = ActiveCell.CurrentRegion.Rows.Count
    件数 = Range("a2:a" & 件数).SpecialCells(xlCellTypeVisible).Count

    MsgBox "お買いあげは" & 件数 & "件です"

（弥太郎）先生　出来ました！　

 ありがとうございました　また質問させていただきます（mana)

 また詰まってしまいました
 データをオートフィルターで絞込んだあとマクロボタンで値だけcopy→pasteしたいのですが
 絞り込んだデータをセレクトする方法わかりません

 Sub tenki()

    Range("B5:I9").Select
    Selection.Copy
    Sheets("請求書").Select
    Range("D25").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A4").Select
 End Sub

 上記の自動記録の何所を修正すればよいのでしょうか(mana)

 Range("b5:i9")とは絞り込む前の範囲でっか？
 Range("b5:i9").SpecialCells(xlCellTypeVisible).Select
 でイケルと思いますわ。
 　　（弥太郎）

 弥太郎先生おはようございます

 ＞Range("b5:i9")とは絞り込む前の範囲でっか？
 オートフィルターを使い手動でデータを絞り込んだ後にボタンで転記を行いたいと思います

 Sub tenki()

    Sheets("請求書").Rows("25:1000").ClearContents
    Sheets("sheet1").Select
    Range("A2").Select

    Range("B3:I1000").SpecialCells(xlCellTypeVisible).Select

    Selection.Copy
    Sheets("請求書").Select
    Range("D25").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").Select

 End Sub

 上記のコードで転記に成功しました　
 これで問題はないのですけれども
 ただ これだと常に1000行目までセレクトしてしまいますよね
 最初に教えていただいた　
 件数 = ActiveCell.CurrentRegion.Rows.Count
 件数 = Range("a2:a" & 件数).SpecialCells(xlCellTypeVisible).Count
 を使って件数ぶんの行数をセレクトできないのでしょうか
 (mana)

 おはようございます。
 ところでmanaさん、その<<弥太郎先生>>っちゅうんはやめてくれしまへんか。

 川柳にこんなんがおましたワ。
 「先生と呼ばれる程は馬鹿でなし」

 ホンマは馬鹿に相違おまへんねんけど、そうあからさまに強調されると、なんやら
 こう、胸を抉られる思いがしますワ。（笑）

 余談はさておいて、これでどうでっか？
 　　　　馬鹿ナ（弥太郎）
 '---------------------------------
  Sub tenki_1()

    Dim n As Long

    Sheets("請求書").Rows("25:1000").ClearContents
    Sheets("sheet1").Select
    n = Range("b3").CurrentRegion.Rows.Count
            '↑この行挿入
    Range("B3:I" & n).SpecialCells(xlCellTypeVisible).Copy
            '↑この行変更
    Sheets("請求書").Select
    Range("D25").PasteSpecial Paste:=xlValues
    Range("A1").Select

 End Sub

 こんばんはmanaです　失礼しました
 ご忠告に従いこれからは 弥太郎さんと呼ばせていただきます
しかし
 教わる立場の者が教える人を先生と呼ぶのは礼儀だと 泣き父が申しておりました。

 コードは無事動きました　ありがとうございました

 「先生と呼ばれる腕にハヨなりたい」（mana)

 >「先生と呼ばれる腕にハヨなりたい」
 うまいっ！
 ユーモアのセンス抜群だんべセニョール。
 　　　　（弥太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20040512073812]] 『リストボックスが設定してある行のカウント』（mana） ページの最後に飛ぶ

[[20040512073812]]　『リストボックスが設定してある行のカウント』（mana）　ページの最後に飛ぶ