argius note

プログラミング関連

トップ > MS

ExcelVBAで同じ名前のシートを1つのファイルにまとめるマクロ

MS

まただいぶ間が空いてしまいました。

あいかわらずExcelから離れられない環境にいます。
今回は、複数のExcelブックから同じ名前のシートを集めて保存するVBAマクロを書きました。
VBAマクロを書くのは久しぶりです。

続きを読む

Windows ネットワーク接続を2クリックで再起動する仕掛けを作る

MS

今回はWindowsのTIPSです。


Windows8でしょっちゅうWi-Fi接続が不安定になるので、スタートに再起動ボタンを作っていました。
だいぶ前に作ったのですが、ここに書いていなかったので、書いておくことにします。

※ここでの再起動とは、「無効→有効」を操作することを指しています。

続きを読む

ipconfigが使えない環境でIPアドレスを知りたい (WMIを使う)

MS

小ネタです。ほぼ引用です。
Windows Management Instrumentation(WMI)を使って、ipconfigが権限が無くて使えない場合に、類似情報を参照する方法です。
WMIも権限が無かったら使えませんけどね。

参考リンク（そのもの？）

環境

"$PSVersionTable"でPowerShellのバージョン情報を参照できます。


PowerShellの場合

C:\>powershell -Command "Get-WMIObject Win32_NetworkAdapterConfiguration"

DHCPEnabled      : False
IPAddress        :
DefaultIPGateway :
DNSDomain        :
ServiceName      : XXXX
Description      : (XXXX)
Index            : 1

（以下繰り返し）

整形の必要が無ければ、ワンライナーでOK。


VBSの場合

PowerShellが使えない場合、WMIが使えればVBSでもOKだと思います（環境が無いので未確認）。
実行すると、メッセージボックスが表示されます。

Set objWmi = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWmi.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
strMsg = ""
For Each objItem in colItems
  strMsg = strMsg & "ServiceName: " & objItem.ServiceName & ", IP Address: "
  For Each objAddress in objItem.IPAddress
    strMsg = strMsg & objAddress & " "
  Next
  strMsg = strMsg & vbNewLine
Next
msgbox strMsg

PowerShellをまともに？使ったのは初めて。

C#でHTTP経由でJSONを取得して値を取り出す

MS

サンプル作ったらボツになったのでここに書くことにします。


HTTPで結果をJSONで返すWebサービスがあって、そこにコンソールアプリからアクセスするというものです。
なお、C#はほぼ初心者で、特に.NETはAPIがほとんど分かりません。MSDNとか検索で調べた結果をまとめたものです。
エントリの最後にコードの最終版を載せています。


やりたいこと。

  • コンソールアプリ
  • コマンドライン引数をパラメータにする（URLエンコード）
  • HTTPアクセス
  • JSON解析(静的)
続きを読む

Windows7でExcel2010,Word2010の読み取り専用

MS

Windows7でExcel2010,Word2010の読み取り専用

Windows7のExcel2010では、WindowsXPのExcel2003のときと読み取り専用の設定方法が少し変わっています。
なお、WindowsVista、Excel2007、Word2007は手持ちが無いので分かりません。ご了承ください。

続きを読む