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)　

このブログの人気の投稿

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

※PowerShell初心者 ※下の方に画像が持つExif情報を列挙する方法もあります。 例えば、あるJPG画像（C:\IMG_0001.JPG）のカメラ機器のモデル名とExifの撮影日時に関する情報が欲しいとします。 1. PowerShellでは、Get-ItemPropertやGet-ChildItemを使いFileInfoプロパティ取ることができます。 $path = "C:\IMG_0001.JPG" Get-ItemProperty $path | Select-Object * | Format-List $path = "C:\IMG_0001.JPG" Get-ChildItem $path | Format-List -property * 結果: しかし、Get-ItemPropert等を使い取ることができるFileInfoプロパティには必要な情報がありません。 そこで、 GetDetailsOf を使い、ファイルプロパティの詳細情報から必要な情報を取得します。 PSPath : Microsoft.PowerShell.Core\FileSystem::C:\IMG_0001.JPG PSParentPath : Microsoft.PowerShell.Core\FileSystem::C:\ PSChildName : IMG_0001.JPG PSDrive : C PSProvider : Microsoft.PowerShell.Core\FileSystem Mode : -a---- VersionInfo : File: C:\IMG_0001.JPG InternalName: OriginalFilename: FileVersion: FileDescription: Product: ...
Read more »

AppleScript 改行 コード 置換

改行を置換 returnキーはLF、ASCII character (10)と\nはLF、ASCII character (13)と\rはCR、controlキー + returnキーはラインブレーク   (* テスト文字列を変数にセット *) set str to "1LINE(LF)" & ( ASCII character (10)) & "2LINE(CR)" & ( ASCII character (13)) & "3LINE(LineBrake) 3LINE_2" log " ★生 str: " & str & " ★ " (* ★生 str: 1LINE(LF) 2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*LF 置換 *) set LFstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\n//g'" log " ★ LF 置換 str: " & LFstr & " ★ " (* ★ LF 置換 str: 1LINE(LF)2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*CR 置換 *) set CRstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\r//g'" log " ★ CR 置換 str: " & CRstr & " ★ " (* ★ CR 置換 str: 1LINE(LF) 2LINE(CR)3LINE(LineBrake) 3LINE_2 ★ *)   (* ラインブレーク置換 *) set LAINBLAKEstr ...
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 »

blender4.1 レンダリング画像を左右反転する方法

イメージ
＞方法: コンポジティングを使用する レンダリング: 通常通りにシーンをレンダリングします。 コンポジティング: コンポジティングノードを使用して、レンダリング結果を左右反転させることができます。 「コンポジティング」タブに移動し、「Use Nodes」を有効にします。 「Image」ノードを追加し、レンダリング結果を接続します。 「Transform」ノードを追加し、X軸のスケールを-1に設定します。 最後に「Composite」ノードに接続します。 コンポジティングノードでの反転のしかたを初心者にもわかるように詳しく教えて . GPT-4o mini Blenderのコンポジティングノードを使用して画像を左右反転させる方法を、初心者向けに詳しく説明します。以下の手順に従ってください。 ステップ1: シーンをレンダリングする シーンを作成: Blenderでシーンを作成し、レンダリングしたいオブジェクトを配置します。 レンダリング: F12キーを押してシーンをレンダリングします。レンダリングが完了すると、画像が表示されます。 ステップ2: コンポジティングタブに移動 コンポジティングタブを開く: 上部のタブから「コンポジティング」を選択します。 ノードを使用する: 「Use Nodes」にチェックを入れます。これにより、ノードエディタが表示されます。 ステップ3: ノードを設定する レンダー結果ノードを追加: 右クリックして「Add」メニューを開き、「Input」から「Render Layers」を選択します。これがレンダリング結果を取得するノードです。 変換ノードを追加: 再度右クリックして「Add」メニューを開き、「Distort」から「Transform」を選択します。これが画像を変換するためのノードです。 コンポジットノードを追加: もう一度右クリックして「Add」メニューを開き、「Output」から「Composite」を選択します。これが最終的な出力ノードです。 ステップ4: ノードを接続する ノードを接続: 「Render Layers」ノードの出力（右側の出力ポイント）を「Transform」ノードの入力（左側の入力ポイント）に接続します。 「Transform」ノードの出力を「Composite」ノードの入力に接続します。 ステッ...
Read more »

書字方向　横書方向変換スクリプト　左書きから右書きへ（コピペ用途）

左横書きを右横書きへ簡易変換します．（コピペ用途） 変換処理はウェブブラウザだけで完了．ネットワーク通信が発生しないので安心．注，複数行の場合は一行になりそう．また，句読点（符号），顔文字の正確な変換は１００％無理っぽ． 変換する文字列（横左方向→） テスト 変換した文字列（←横右方向） 書字方向　横書方向変換スクリプト　HTMLソース JavaScriptコード 変換する値（横左方向→） <form name="form1"> <textarea cols="50" name="textarea1" rows="5" value="1">テスト</textarea> </form> <input onclick="clickBtn1()" type="button" value="変換" /> <input onclick="clickBtn2()" type="button" value="クリア" /> <p>変換した値（←横右方向）</p> <p id="rtl" style="background-color: lightgrey; box-sizing: border-box; color: darkslategrey; line-height: 1.6; overflow: auto; padding: 1rem; text-align: right;"></p> <script> function clickBtn1(){ // 値を取得 const ta1 = document.form1.textarea1.value; const reversed = [...ta1].reduceRight((p, c) => p + c);// 配列に変換し右から左へたたみ込む。 document.getElementById(...
Read more »

ヤバい！JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた！！！

イメージ
注文翌日にはブツが届き、梱包も本体にもおおむね満足している。通電も映像も設定も問題はない。メーカー対応は未知数だが品物はクールだ。さらに詳しくは下に... 何かと怪しさ満点のJAPANNEXT IPS液晶モニターのJN-IPS2716WQHD 27型 WQHD ディスプレイをアマゾンで注文してみたレポ。２０１６・５・５ JN-IPS2716WQHD 27型 WQHD モニター 60Hz対応ワイド液晶ディスプレイ （2560×1440 ) HDMI/DVIポート搭載 アマゾンが発送するので品物が届かないという不安は無さそうなのでお遊びで注文してみたが...
Read more »

VBA 文字列から英数字以外を削除する

=IF(LEN(ASC(D3))=LENB(ASC(D3)),ASC(D3),文字列から英数字以外を削除する(D3)) 'カスタム関数　文字列から英数字以外を削除する(セル)　文字列から英数字以外を削除する Function 文字列から英数字以外を削除する(文字列 As String) As String Dim 戻り値 As String Dim キャラクタ As String Dim Likeパターン As String Dim インクリメント As Integer Likeパターン = "[A-Z.a-z 0-9]" 戻り値 = "" For インクリメント = 1 To Len(文字列) キャラクタ = Mid(文字列, インクリメント, 1) If キャラクタ Like Likeパターン Then 戻り値 = 戻り値 & キャラクタ End If Next 文字列から英数字以外を削除する = 戻り値 End Function
Read more »