エクセルの学校：全文検索：Hyper Estraier：簡易リストボックス

Results of 1 - 1 of about 222 for 簡易リストボックス (0.005 sec.)

[[20040512073812]]: #score: 10961; @digest: 86cb8cf41aa82cc19b11a005b9a4e95f; @id: 6568; @mdate: 2004-05-16T00:36:04Z; @size: 3744; @type: text/plain; #keywords: ハヨ (14111), mana (9752), 腕に (7815), 郎先 (7299), 書") (6958), る腕 (6506), tenki (6501), 数). (5443), 生と (4917), 数& (4450), xlcelltypevisible (3977), セレ (3818), 先生 (3738), 馬鹿 (3634), 求書 (3426), 弥太 (3345), 件数 (3213), 絞込 (3016), 数= (2923), 請求 (2649), 事動 (1914), 呼ば (1802), xlvalues (1744), specialcells (1729), レク (1513), と呼 (1483), select (1466), operation (1356), skipblanks (1336), 太郎 (1315), pastespecial (1151), 絞り (1146); 『リストボックスが設定してある行のカウント』（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) ---- >「先生と呼ばれる腕にハヨなりたい」うまいっ! ユーモアのセンス抜群だんべセニョール。（弥太郎） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040512073812.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ