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("入力")

このブログの人気の投稿

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 »

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

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

イメージ
プロパティの詳細を一括でリストで書き出すPowerShellスクリプト 完成したスクリプトは 別ページ にて完成編として公開しています。 PowerShellで画像のプロパティを書き出す PowerShellで詳細プロパティの値を取得する（フォルダーを指定して複数ファイルを対象） $shell=New-Object -Com Shell.Application Get-ChildItem D:\Pictures\EOS` D30 -recurse | Where-Object {-not $_.PSIsContainer} | ForEach-Object {$folderobj=$shell.NameSpace($_.DirectoryName);$item=$folderobj.ParseName($_.name);$folderobj.GetDetailsOf($item, 22 )} > test.txt 凡例 任意指定 　　 ` はpath記述でスペースをエスケープ 　　　　　　 22 はプロパティ詳細の説明のタイトル項目の番号（末尾に一覧番号あり） オプション 　 -recurse はサブフォルダも含む 　　　　　　 > は上書き、 >> は追記 別の書き方として、次の「 若手基盤系SEの日記。 」さんのスクリプトでも同じ結果が得られます。 Get-ChildItemはオプションの指定で、拡張子やファイル名、ファイルサイズなどで検索して結果が得られます。 以下参考にしたサイト様 PowerShellで詳細プロパティの値を取得する（フォルダーを指定して複数ファイルを対象） 若手基盤系SEの日記。 大量のWordファイルのページ数を簡単に集計する方法（Powershell） http://blog.livedoor.jp/ryanorano/archives/2015-05-13.html # 指定されたパス配下のファイルのファイル名とページ数をCSV出力する。 # 変数 $path = " D:\temp " $output = $path + " /output.csv " # 指定されたパス配下...
Read more »

ダウンロードページの作り方／githubのページ

  <!doctype html> <html xmlns="http://www.w3.org/1999/xhtml"> <head>     <meta charset="utf-8">     <title>Download SourceTree for free</title>     <link href="http://yui.yahooapis.com/2.8.1/build/reset/reset-min.css" rel="stylesheet" type="text/css" />     <link href="http://yui.yahooapis.com/2.9.0/build/fonts/fonts-min.css" rel="stylesheet" type="text/css" />     <link href="../css/main.css" rel="stylesheet" type="text/css" />     <link rel="icon" type="image/png" href="../favicon.ico">     <script type="text/javascript" src="http://use.typekit.net/klz7bax.js"></script>     <script type="text/javascript">try{Typekit.load();}catch(e){}</script>     <script src="//cdn.optimizely.com/js/235907696.js"></script> </...
Read more »

マウスキーボードセンターのバージョンアップ後の認識しない問題を解決

イメージ
マウスキーボードセンターに新しバージョンがある旨の通知が来た。 バージョン2からバージョン3.2にアップグレードした後、 今までに認識していた デバイスが認識しない時の解決策。 マウスキーボードセンターに通知される方法やリンク（英語ページ）をたどってもで解決しない場合 1-1.認識しなくなったデバイスをデバイスマネージャーからアンインストールする 1-2.マイクロソフト本家のダウンロセンターからデバイスドライバーをダウンロードする 1-3.ダウンロードしたプログラムを管理者として実行する 解決方法 1-1.認識しなくなったデバイスをデバイスマネージャーからアンインストールする デバイスは電源オンの状態で繋いだまま作業を進める ソフトウェアも削除するかを選択するダイアログが出た場合は削除するを選択する 対象のデバイスが汎用ドライバーが出来ようされてるのを確認する 1-2.マイクロソフト本家のダウンロセンターからデバイスドライバーをダウンロード Sculpt Ergonomic Mouse*をクリックしてページに移動　*私の場合 Sculpt Ergonomic Mouseページをスクロールしてソフトとドライバーをダウンロード ウインドウズバージョンと言語を指定してダウンロード 1-3.ダウンロードしたプログラムを管理者として実行する MouseKeyboardCenter_***bit_JPN_3.***.exeを右クリック 管理者として実行する インストールが完了すると以前認識していたデバイスが認識されている
Read more »

Blender: 辺の長さを数値で指定するアドオン

イメージ
二つのアドオンが見つかりましたが、開発者は同じの方のようです。 二つ試しましたが、どちらも便利に使うことができます。とても重宝します。 距離が入力できるアドオン（2.7用） ブレンダーで設定した単位が反映、 単位（m,cm,mm） を入力値で指定 可能 、入力値に スケールは 反映されない 。 mesh_edges_length.py (ver1) mesh_edges_length_unstable.py （ver2） ダウンロード blender_addons/mesh_edges_length.py at master · peppelinux/blender_addons · GitHub 距離と角度が入力できるアドオン（2.7用） ブレンダーで設定した単位が反映、 単位（m,cm,mm） を入力値で指定 不可能 、入力値に スケールが反映 される。 mesh_edges_length_angle_yi.py ブレンダーフォーラム [Addon] Directly Set Length(edge) and Angle(edges) [v0.2] 日本語の情報 Blender Addon Review: 辺の長さを数値入力で設定できるアドオン（Directly Set Length(edge) and Angle(edges)） – CGrad Project お気に入りの設定
Read more »

エクセル　VBA　マウスカーソルの移動とクリック

セルの固定をしていると　うまくいかない　ので放棄した #If VBA7 And Win64 Then 'マウスカーソルの位置を取得するAPI Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'マウスイベントを取得するための決まり文句的なもの Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare PtrSafe Sub mouse_event Lib "user32" ( _ ByVal dwFlags As Long, _ Optional ByVal dx As Long = 0, _ Optional ByVal dy As Long = 0, _ Optional ByVal dwDate As Long = 0, _ Optional ByVal dwExtraInfo As Long = 0 _ ) #Else '32bit用 'マウスカーソルの位置を取得するAPI Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'マウスイベントを取得するための決まり文句的なもの Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare Sub mouse_event Lib "user32" ( _ ByVal dwFlags As Long, _ Optional ByVal dx As...
Read more »

PowerShell: 詳細情報から取得した日付のフォーマット

イメージ
ファイルのプロパティ詳細情報の撮影日時（ID:12）と取得日時（ID:129）を取って日付フォーマットを変えるときに＝DateTimeオブジェクトにする時にエラーが出る。 Get-Dateでも [System.DateTime] ::Now（短縮[DateTime]）でもエラーが出る。 Get-Date : パラメーター 'Date' をバインドできません。値 "‎2017/‎01/‎07 ‏‎9:11" を型 "System.DateTime" に変換できません。エラー: "文字列は有効な DateTime ではありませんでした。" 発生場所 C\:詳細情報から取得した日付のフォーマット.ps1:41 文字:10 + Get-Date $date_org + ~~~~~~~~~ + CategoryInfo : InvalidArgument: (:) [Get-Date]、ParameterBindingException + FullyQualifiedErrorId : CannotConvertArgumentNoMessage,Microsoft.PowerShell.Commands.GetDateCommand 値 "‎2017/‎01/‎07 ‏‎9:11" を型 "System.DateTime" に変換できません。エラー: "文字列は有効な DateTime ではありませんでした。" 発生場所 C\:詳細情報から取得した日付のフォーマット.ps1:43 文字:1 + [DateTime]$date_org + ~~~~~~~~~~~~~~~~~~~ + CategoryInfo : InvalidArgument: (:) []、RuntimeException + FullyQualifiedErrorId : InvalidCastParseTargetInvocationWithFormatProvider 原因は撮影日時（ID:12）と取得日時（ID:129）の日付には何かの制御文字が入っているのでDa...
Read more »