VBA マクロ実行ボタンをクリックする

Quick Edit Pencil
マクロ実行ボタン（フォームコントロール） 
Private Sub フォームコントロールのボタンを捕らえる()

'    ActiveSheet.Shapes ("情報取得ボタン")
    Dim btn As Button
    Set btn = ActiveSheet.Buttons(2)
    Debug.Print btn.Caption
    
End Sub

コマンドボタン（ActiveXコントロール　※古いバージョンのOfficeでは「コントロールツールボックス」）
'Application.Run "'集計.xls'!速報"
'Application.Run "'" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "'!入力.情報取得ボタン"
'Application.Run "'集計.xls'!速報取得"
Application.Run "'集計.xls'!Sheet1.ボタン 1_Click"
'Application.Run "'集計.xls'!情報取得ボタン"

Dim ws01 As Worksheet
Set ws01 = Worksheets("入力")

このブログの人気の投稿

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

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

エラーを解決　再解析ポイントバッファーにあるタグは無効です。

イメージ
OneDriveで良くあるエラー、PC上で同期が終わらない時や、ファイルやフォルダの移動や削除ができない時に有効。 解決方法はファイル権限の修復。Windowsのファイルシステムを修復します。 ディスクのプロパティの ツール タブから エラーチェック で チェック する 修復が必要なら、修復手順に従えば、ほぼ解決します。 cmdで　chkdsk /r /f　もできるけど、エクスプローラーからディスクのプロパティでするのが簡単。
Read more »

Powershell: プロパティの詳細情報インデックスと項目名の列挙

# プロパティの詳細情報インデックスと項目名の列挙 # https://www.google.co.jp/search?espv=2&q=getdetailsof+properties+titles+PowerShell&spell=1&sa=X&ved=0ahUKEwjSzKfYhM7QAhUJXbwKHc4SCfwQvwUIGSgA&biw=1418&bih=941 # https://blogs.technet.microsoft.com/jamesone/2008/12/09/borrowing-from-windows-explorer-in-powershell-part-2-extended-properties/ $objShell = New-Object -ComObject Shell.Application $objFolder = $objShell.namespace(“C:\”) 0..400 | foreach {“{0,3}:{1}”-f $_,$objFolder.getDetailsOf($Null, $_)} 0:名前 1:サイズ 2:項目の種類 3:更新日時 4:作成日時 5:アクセス日時 6:属性 7:オフラインの状態 8:利用可能性 9:認識された種類 10:所有者 11:分類 12:撮影日時 13:参加アーティスト 14:アルバム 15:年 16:ジャンル 17:指揮者 18:タグ 19:評価 20:作成者 21:タイトル 22:件名 23:分類項目 24:コメント 25:著作権 26:トラック番号 27:長さ 28:ビット レート 29:保護 30:カメラのモデル 31:大きさ 32:カメラの製造元 33:会社 34:ファイルの説明 35:マスター キーワード 36:マスター キーワード 37:プログラム名 38:継続時間 39:オンライン 40:再帰 41:場所 42:任意出席者アドレス 43:任意出席者 44:開催者住所 45:開催者名 46:アラーム時刻 47:必須出席者アドレス 48:必須出席者 49:リソース 50:会議の状態 51:...
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 »

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 »

blender4.1 マテリアルが設定されているオブジェクトの一覧を取得するスクリプト

GPT-4o mini Blender 4.1では、Pythonスクリプトを使用してシーン内のオブジェクトを操作することができます。以下のスクリプトは、特定のプレフィックスを持つマテリアルが適用されているメッシュオブジェクトの一覧を取得し、コンソールに表示するものです。 python コードをPython Consoleにコピーして使う。 import bpy # 検索するマテリアル名のプレフィックス material_prefix = "Material.020" # マテリアルが適用されているオブジェクトをリストアップ found_objects = False # オブジェクトが見つかったかどうかのフラグ for obj in bpy.data.objects: if obj.type == 'MESH': # メッシュオブジェクトのみを対象 for mat in obj.data.materials: if mat and mat.name.startswith(material_prefix): # プレフィックスで始まるか確認 print(f"オブジェクト名: {obj.name} に {mat.name} が適用されています。") found_objects = True if not found_objects: print(f"{material_prefix} で始まるマテリアルが適用されているオブジェクトは見つかりませんでした。") スクリプトの説明 モジュールのインポート: import bpy : BlenderのPython APIを使用するために、bpyモジュールをインポートします。 マテリアル名のプレフィックス設定: material_prefix = "Material.020" : 検索対象とするマテリアル名のプレフィックスを設定します。この例では「Material.020」で始まるマテリアルを探します。 オブジェクトのリストアップ: found_objects = False : オブジェ...
Read more »

Blender 辺の交差点に頂点を追加するアドオン

イメージ
エッジ（辺）の交点にVertex（頂点）を作るアドオン （キーワード: blender エッジ交差 頂点追加） tinyCAD Edge Tools Extensions:2.6/Py/Scripts/Modeling/mesh tinyCAD - BlenderWiki 辺を選択してWキーでチョイスする VTX V : extending two edges towards their calculated intersection point.   T : extending the path of one edge towards another edge. X : two edges intersect, their intersection gets a weld vertex. You now have 4 edges and 5 vertices.   EXM   XALL   V2X Vertex to Intersection. Select 2 edges. Invoke V2X. Places a new vertex at their intersection.   BIX Given two selected edges, this script creates the bisector of these edges. The edges are first checked for coplanarity.
Read more »