VBAフィルタされた行を選択

Quick Edit Pencil
フィルター後の見えている行だけを選択する
オッケーなコード 
Dim r As Range
Set r = ActiveSheet.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
r.Select
Debug.Print Selection.Rows.Count

肝は　.SpecialCells(xlCellTypeVisible)　

このブログの人気の投稿

memo: ショートカットファイルを直接削除する

ショートカットファイルを直接削除する C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup （一部カタカナ表示あり） C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp （一部カタカナ表示あり） レジストリから削除する　regedit コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run グループポリシー 「コンピューターの構成」→「Windowsの設定」 ＞light＜ ＞dark＜ ＞night-bule＜ ＞vibrant-ink＜ ＞wed＜
Read more »

https://gemini.google.com/search?q=%5B%5BOralHistory%5D%5D

＞light-monochrome＜ ＞light＜ ＞dark＜ javascript:(function(searchstr) { var input = document.querySelector('input[data-test-id="search-input"]'); if (input) { input.value = ""; input.value = searchstr; input.dispatchEvent(new Event('input')); input.dispatchEvent(new Event('change')); } else { alert('入力フィールドが見つかりませんでした。'); } })("代入するテキスト"); javascript:(function(searchstr) { var input = document.querySelector('input[data-test-id="search-input"]'); if (input) { input.value = ""; // 既存の値をクリア input.value = searchstr; // 新しいテキストを代入 input.dispatchEvent(new Event('input')); // 入力イベントを発火させる input.dispatchEvent(new Event('change')); // 変更イベントを発火させる } else { alert('入力フィールドが見つかりませんでした。'); } })("代入するテキスト"); javascript:(function() { var inp...
Read more »

二号線を東へ

イメージ
---- EXIF ---- Image Description               : Exif_JPEG_PICTURE Make                            : RICOH Camera Model Name               : GR DIGITAL 2 Orientation                     : Horizontal (normal) X Resolution                    : 72 Y Resolution                    : 72 Resolution Unit                 : inches Modify Date   ...
Read more »

簡単　らじるらじるの聴き逃し番組、NHKラジオのストリーミングを保存・ダウンロードする方法　2019

イメージ
パソコン初心者でも簡単に保存・ダウンロードできる方法を紹介 ウェブブラウザと１つの無料ソフトだけでダウンロードが可能 パソコンはWindowsでもMacでもオッケー 使用するソフトは古くからある無料のVLC media playerを使います。 目次 ようこそ VLC media player （ ダウンロード ） （ インストール ） ダウンロード・保存の準備 （ m3u8ファイルのURLを取得する方法 ） （ NHKゴガクのm3u8ファイルのURLを取得する方法 ） ダウンロード・保存の実行 （ VLC media playerでストリーミングを変換／保存・名前を付けて任意の場所に保存 ） m3u8ファイルURLをブックマークレットで取得する （ 3mu8ファイルのURLと保存名をリストするBookmarkletの紹介 ） 補足 （ ブックマークレットの中身 ） （ 一括ダウンロード　コマンドラインとFFmpeg ） （ NHKラジオ聞き逃しJSONの取得、語学のxmlの取得 ） ようこそ データ通信料を節約したい。 聞き逃し番組をオフラインで聞きたい。 スマホや携帯プレイヤーに入れて聞きたい。 mp3、mp4でダウンロード。 本記事の内容は私的利用に限ります。 VLC media player （ダウンロード） VLCメディアプレイヤーの公式ダウンロード - VideoLAN VLC media playerダウンロードは窓の杜からも可能です。 「VLC media player」定番の無料メディアプレイヤー - 窓の杜 （インストール） インストール方法は、次の解説サイトをご紹介しておきます。 VLC Media Playerのダウンロードとインストール方法 - ぼくんちのTV 別館 Googleの検索リンクも貼っておきます。 VLC media player インストール方法 - Google 検索 ダウンロード・保存の準備 （m3u8ファイルのURLを取得する方法） ラジオ番組の保存・ダウンロードの肝は個別番組のm3u8ファイルのURLを取得する事です。 取得に特別なアプリは不要です。 インターネットブラウ...
Read more »

googleスプレッドシートで名前範囲内のデータが更新された時にタイムスタンプを更新

function onEdit(e) { var sheet = e.source.getActiveSheet(); var range = e.range; var namedRange = e.source.getRangeByName("YourNamedRange"); // 名前付き範囲を指定 var timestampSheet = e.source.getSheetByName("YourTimestampSheet"); // タイムスタンプを表示するシートを指定 var timestampCell = timestampSheet.getRange("A1"); // タイムスタンプを表示するセルを指定 // 名前付き範囲内のセルが編集された場合 if (range.getA1Notation() === namedRange.getA1Notation() || (range.getRow() >= namedRange.getRow() && range.getRow() < namedRange.getLastRow() && range.getColumn() >= namedRange.getColumn() && range.getColumn() < namedRange.getLastColumn())) { if (timestampCell) { var currentDate = new Date(); var formattedDate = Utilities.formatDate(currentDate, Session.getScriptTimeZone(), "yyyy/MM/dd HH:mm"); timestampCell.setValue("Last Update Date: " + formattedDate); // 書式を指定してタイムスタンプを設定 } } } 名前付き範囲が複数ある場合 func...
Read more »

百済寺 梵字池 パノラマ

イメージ
NIKON E4500 + Fisheye Converter FC-E8 Exposure Time : 1/131 , F Number : 4.2 , ISO : 100 Date/Time Original : 2003:09:18 16:48:55 (画像合成) Software : PTGui Pro (www.ptgui.com) Projection : Equirectangular , Field of view : 360 x 180 (Cubic VR コンバーター) Software : Pano2VR (gardengnomesoftware.com) Format : Flash VR
Read more »