2014-08-01から1ヶ月間の記事一覧

ExcelVBAにてファイル保存ダイアログを使ってcsv/xlsで保存させる

拡張子をみて保存形式を切り替えてくれる Dim vntFileName As Variant 'ファイルを保存するダイアログを開きます vntFileName = _ Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Name _ , FileFilter:="エクセルファイル(*.xls),*.xls" &…

ExcelVBAでIE操作 キャッシュ無効でNavigate

Flagsに4を指定 Const navNoReadFromCache = 4 ... objIE.Navigate "https://www.yahoo.co.jp", navNoReadFromCache なぜ4なのかはここの定義参照 typedef enum BrowserNavConstants { navOpenInNewWindow = 0x1, navNoHistory = 0x2, navNoReadFromCache = …

AndroidでCanvasにキレイに拡大縮小した画像を描画する方法

ギザギザしてるなーとおもったら こうじゃなくて canvas.drawBitmap(bitmap, matrix, background);こう //現在のセーブカウントを保持(カウント=0) int count = canvas.getSaveCount(); //セーブ(カウント=1) canvas.save(); //ResourceからBitmapを…

CKEditorのセキュリティのためのタグ除去機能をOFFにする

config_cmsd.js に config.allowedContent = true;を追記 ネタ元 http://cms.al-design.jp/phpbb/viewtopic.php?f=11&t=2569

ExcelVBAで動いているExcelが32bitか64bitか判断する

#ifで Function GetExcelProcessBit() As String #If Win64 Then GetExcelProcessBit = "64" #Else GetExcelProcessBit = "32" #End If End Function

ExcelVBAで動いているWindowsが32bitか64bitか判断する

Function GetProcessBit() As String Dim colItems As Object Dim itm As Object Set colItems = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery("Select * From Win32_OperatingSystem") GetOSProcessBit = "32" For Each itm In col…

Windows8のスカイプを起動しないようにする

スタートアップはタスクマネージャに存在するネタ元 http://soft.livedoor.biz/archives/1543066.html

IP偽造

無料でアメリカやイギリスなどを経由して自分のIPアドレスを隠せるソフト「SafeIP」 http://gigazine.net/news/20130221-safe-ip/ Chromeの拡張でいいならなら Chrome Web Store - Stealthy https://chrome.google.com/webstore/detail/stealthy/ieaebnkibon…

静的クラス(共有メンバ)を使ってVBのどこからでも使えるデータ格納場所を作成する

Shared とつけるだけです。 Public Class config 'インスタンス化しなくて良いように共有メンバとして宣言する。 Private Shared _pdf_filename As String = "" 'PDFファイル名を格納します。 Public Shared Property pdf_filename() As String Get Return _…

webサイトのリンク切れチェックツール Sitemap Link Manager

無料版と有料版があるが、リンク切れチェックは無料版で十分。コメント化している部分もリンク切れチェックするなど余計なところもあるが、実用に耐えうる http://www.asterworld.com/ja/product/018/download.html