2013-03-01から1ヶ月間の記事一覧

Windows 8で、「PC設定の変更」が開かない

os

[os]困った。なんか調子悪いよなぁ。コマンドプロンプトから shutdown -s -f -t 0かなり時間がかかりながらもなんとかシャットダウン。その後起動したら、ログイン後画面が真っ黒けに。windowsボタン押したらメトロUIが開いてくれて、そこからデスクトップを…

IE で Flash を無効にする

[tool] 「インターネットオプション」を開く 「プログラム」タブを選択 下の方にある「アドオンの管理」ボタンをクリック アドオン一覧から「Shockwave Flash Object」を選択して無効にする ネタ元 http://www.lifehackslite.com/hacks/2008-03/279.html

Excel VBAで、ユーザーフォームをモードレス表示している間に処理させる お待ちください処理

[excel][vba]excel2000以上なら ユーザーフォームにvbModeless指定でいけるDoEvents() はOSに溜まった仕事をさせる関数 Dim flag As Boolean Private Sub CommandButton1_Click() If MsgBox("中止しますか?", 292) = vbYes Then flag = True End Sub Privat…

ファイル選択ダイアログGetOpenFilenameの初期フォルダを指定するには.DefaultFilePath を指定した後開放して再度CreateObject()する

[wsh][vbs]一度=NothingしてからCreateObjectしないと設定が反映されない Dim xlApp Dim defPath Set xlApp = CreateObject("Excel.Application") defPath = xlApp.DefaultFilePath If FileFilter = "" Then FileFilter = "すべてのファイル,*.*" If FilterI…

Collectionが使えない代わりにDictionaryを使う

[WSH][VBS]VBScriptではCollectionが使えないらしい Dictionary オブジェクトの宣言と代入 Dim hash Set hash = CreateObject("Scripting.Dictionary") hash.Add "a", 1 hash.Add "b", 2ネタ元 http://vbscript.g.hatena.ne.jp/cx20/20100131/1264906231

ファイル選択ダイアログはExcelを使うのがベターという状況

[WSH][VBS]Excelの機能を呼び出すのが一番いいらしい。変なの。ネタ元 http://froghand0104.blogspot.jp/2010/10/blog-post_24.html '1ファイル選択ファイル Dim Excel, xlBaseFilePath Set Excel = CreateObject("Excel.Application") xlBaseFilePath = Exc…

フォルダ選択

[vbs][wsh] '----------------------------- 'デスクトップのパスを取得 '----------------------------- Public Const CNST_STR_DESKTOP = "Desktop" Dim s_DesktopPath Set objWShell = CreateObject("WScript.Shell") s_DesktopPath = objWShell.SpecialF…

Excel経由でWin32APIを使ってファイルをダウンロードするVBScript

[wsh][vbs]URLと保存先フォルダを指定する例ExecuteExcel4Macroを使う '-------------------------------------- '指定されたURLのファイルをダウンロード '-------------------------------------- Sub SubDownLoad(strURL,saveFolder) Dim saveFilePath Di…

windows8でHyper-Vを使ってみる

[tool]Windows7にはあったVirtualPCの代わりのもの。XP modeが無いので、使いたいならこれでXPをインストールして使うしか無い。 インストール方法 1.画面右上をポイントして(画面右側からスワイプして)チャームを表示し、 「設定」をクリック(またはタ…

vc6プロジェクトをvc2008や2010プロジェクトに変換すると、ディレクトリ階層が引き継がれないのでプロジェクトから消えてしまう。なので手動で再度追加する必要がある

[tool] フォルダを掘って整理していたりすると、めんどくさいことになる。どうやらソースは同じ階層のフォルダにおくのが原則となったみたい。コードが散らばるのがダメなのかな?

ExcelVBAで、チェックボックスにチェックした状態を保存する方法

[excelvba] コントロールツールボックスを使った場合は、チェックボックスのプロパティウィンドを表示し、その中の「Linked Cell」欄にセル($C$2 など)を入力。 フォームの中のチェックボックスの場合、プロパティのControlSource欄にセル($C$2 など)を入…

wshでスマートな方法でCSVファイルを読み込む

wsh

[wsh]OLEDBを使うといいらしい。しかし32/64bit等環境の違いが原因で、動かないかも。ネタ元 http://www7b.biglobe.ne.jp/~lunlumo/prog/sample/read_csv.html

windows7 64bit 環境 WSHでMicrosoft.Jet.OLEDB.4.0使おうと思ったら「プロパイダーが見つかりません」と出る

os

[os]ここから64bit用の再配布パッケージを入れればいいっぽいhttp://www.microsoft.com/ja-jp/download/details.aspx?id=13255 が、32bitのofficeインストールしているとx64はインストールできない。 うーん手詰まり。 ネタ元 http://www.ailight.jp/Blog/sh…

突如の終了宣言となったGoogleリーダーからlivedoor Readerに引越しする手順

Googleリーダーでエクスポートして、livedoorReaderから追加するだけ ネタ元 http://nanapi.jp/31252/

隣のセルを参照した条件付き書式にするには「数式を使用して~」を使う

[excel] 例(1)色付け範囲を選択。 (2)「条件付き書式」→「新しい書式ルール」 →「数式を使用して~」を選択→数式欄に=OR($B1="え",$B1="お") →書式→塗りつぶしタブで黄色を選択→OK ネタ元 http://oshiete.goo.ne.jp/qa/6385740.html

セルの数式エラーを判定するには IsError()

[excelvba] エラーのあるセルの内容にアクセスしようとするとマクロ止まっちゃうので、ちゃんと分岐する必要あり。 If IsError(ActiveCell.Value) Then MsgBox "エラーです" Else MsgBox "正常です" End If ネタ元 http://www.moug.net/tech/exvba/0100047.h…

ffftpで大量のファイルダウンロードをすると途中で失敗しがちな問題対策

[tool]「NLST -R を使って高速に再帰検索」をOFFEREDにしたらすこし調子良くなった。サーバーによって対応しているいないがあるらしい。ネタ元 http://q.hatena.ne.jp/1153387527 http://www2.biglobe.ne.jp/~sota/ffftp-qa/qa-13.html ※追記FileZilla使った…

「事を行うにあたって、いつから始めようかなどと考えているときには、すでに遅れをとっているのだ。」

[心に残る名言] クインティリアヌス ローマの修辞学者弁論家の教育 3/クインティリアヌス/森谷宇一/戸高和弘

ファイル書き出しでWriteを使うと文字列でダブルクォーテーションがついちゃう。Printならつかない

[excelvba]Writeステートメントは出力する際にダブルクォーテーションで文字を囲みます。そうしないと正常に出力されません。エクセルのセルを出力する際も勝手にダブルクォーテーションで囲まれて出力されます。Printの場合はそのまま出力されるためダブル…

Windows8が正常に起動しなくなったら「リフレッシュ」すると助かるかも

OS

なぜか急にちょっとでも操作するとブルーバックになってしまう現象が発生。いくらリセットしても治らないので「リフレッシュ」をやってみたら直った。 でもアプリを軒並み再インストールしなくてはいけないなど、デメリットもあります。ネタ元 第8回 Windows…

ワークシートの最終行、最終列を取得するのはけっこう難しい!

UsedRangeだけではNGなケースも。 <S6> 書式付きセルを除外する (UsedRange) With ActiveSheet.UsedRange MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column End With ネ</s6>…

シートの切り替えができないようにするには「シート見出しを非表示」が有効

強引に切り替えできなくするよりタブの非表示が楽 ActiveWindow.DisplayWorkbookTabs = False ネタ元 http://okwave.jp/qa/q2211213.html

Windows8で本当に(完全に)シャットダウンするには「Shiftキーを押しながらシャットダウンを選択」

OS

シャットダウンを選んでも実は本当にシャットダウンにはなっていない。なんど再起動してもブルーバックなどおかしな状態になるのだったら、一度完全シャットダウンをやってみるといいかもネタ元 http://hachi.depolog.com/archives/51363846.html

iMac のモニタの明るさを調節するにはシステム環境設定>ディスプレイ

mac

左上のリンゴマーク>システム環境設定>ディスプレイを開くある「明度」を調整するネタ元 http://okwave.jp/qa/q3418748.html

winPCにpingするときは<PC名>.local

mac

win側からはpingが通るのにmacからpingが通らなくて困った。.localつけたら通った。そういうものなのかな?

macからwindowsをリモート操作(リモートデスクトップ)

mac

Mac OS XからWindowsをリモート操作できるマイクロソフト製ソフト http://www.forest.impress.co.jp/docs/review/20101104_404237.html Windows ベースのコンピューターに接続できない http://mac2.microsoft.com/help/office/14/ja-jp/rdc/item/a776418a-89…

セルの中身をパスワード的なアスタリスク(*)のみの表示にする

セルに文字列や数値が入力された時、パスワードを入力した時のように***と表示させる方法 セル範囲を選択 Ctrl+1 (メニュー[書式]-[セル]) [表示形式]タブの[分類]を[ユーザー定義]に [種類]に **;**;**;** と入力 Enter ネタ元 http://www2.odn.ne.jp/excel…