2013年10月15日

予算

昨日、車の選定で予算を決めずに迷走したので予算を決めようと思います。

月々4万前後払うのならなんとかなりそう・・・・

ということは、4万×60回払として=240万円が総額の予定で考えようと思う

次に新車or中古車の選定になるけど

ハリアーは生産中止なので新車は無理だし240万だとヴェルファイアやアウトランダーPHEVも消えちゃうなぁ〜

ぬぅ〜

悩む・・・・(笑)

買い物は悩んでいる時が一番楽しいのでもう少し悩んでみます。

それではオヤスミナサイ^ー^b

【関連する記事】
posted by mako at 00:14| Comment(0) | | このブログの読者になる | 更新情報をチェックする

2013年10月14日

車購入計画始動!!!

車を買おうと色々悩んでおります。

現在、候補に上がっているのが

ハリアー
ハリアーハイブリッド
レクサスのRXシリーズ
エスティマ
アウトランダーPHEV
エスティマ
ヴェルファイア

など、このBlogのように車種選定もかなりの迷走っぷりです(笑)

ハリアー系が多いのは前々からハリアーが好きなので・・・・
ただ、ハリアーは高級車のイメージが有り
もしかしたら仕事で使う可能性がかなりある・・・・
となると、クレームで怒られに行くのに高級車で乗り付ける奴なんて・・・・

ぜってー許してもらえねぇw

とか、色々と悩み中です・・・・

それではまた明日わーい(嬉しい顔)
posted by mako at 02:41| Comment(0) | | このブログの読者になる | 更新情報をチェックする

2013年10月13日

角丸検索ボックスとサイト内検索の実装

角丸の検索BOXをよく見かけるので色々参考にして作ってみました。
kensaku.bmp

参考サイト
ttp://www.synck.com/
ttp://www.reindel.com/spruce_search_box_css/

で早速ですがCSS部分です。(青文字部分は消して使って下さい)

/* 検索BOX
----------------------------------------------------------- */
#searchbox {
    width: 201px;
    height: 31px;
    background-image: url(../images/bg_search_box.gif); 角丸検索窓の画像
}


#searchbox #s {
    float: left;
    padding: 0;
    margin: 6px 0 0 6px;
    border: 0;
    width: 159px;
    background: none;
    font-size: .8em;
    color: #a9a9a9; ←文字の色指定
}
#searchbox #go {
    float: right;
    margin: 3px 4px 0 0;
}

ここからHTML部分
*/*/*/*/*/*/*HTML部分*/*/*/*/*/*/**/*/*/*/*/*/*/
<div id="searchbox">
<form id="search_form" method="GET" action="絶対パスか相対パス">
  <input name="q" id="s" type="text" onkeyup="incremental()" onFocus="onFocus(this);" onBlur="onBlur(this);" value="サイト内検索" size="25" class="searchbox" />
  <input type="image" value="検索" src="common/images/btn_search_box.gif"角丸虫眼鏡の画像 width="27" height="24" id="go" alt="Search" title="Search" />
</form>
</div>

http://www.synck.com/より
サイト内検索CGIをダウンロードして設置
さらに検索ボックスにフォーカス(カーソルが来た時に)が当たった時に
内部の文字が消えるスクリプトをダウンロードして設置すれば完成♪


posted by mako at 10:27| Comment(0) | WEB技術 | このブログの読者になる | 更新情報をチェックする

2013年10月12日

エクセル(excel)VBAでフォルダー内のファイル名一覧自動作成

早速ですが本題に
エクセルVBAでフォルダー内にあるファイル名一覧を自動取得してみたいと思います。


ここからソース
-*-*-*-*-*-*-*--*-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-*-*-*-*-**--*-*-*-*-*-*-*-*-*-*
Sub ファイル名一覧()
  '変数作成
  Dim Shell, フォルダパス
  'フォルダ選択ダイアログ表示
  Set Shell = CreateObject("Shell.Application")
  Set フォルダパス = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\")
  'ダイアログで選択した取得フォルダのパスをB1セルに書き込み
  Cells(1, 2).Value = フォルダパス.items.Item.Path
  'ファイル名取得
  ファイル名 = Dir(フォルダパス.items.Item.Path & "\*.*")
  'ファイル名書き込み開始位置指定
  行番号 = 4
        'ファイル名取得ループ
        Do While ファイル名 <> ""
        'ファイル名取得
            Cells(行番号, 1).Value = ファイル名
        'ファイルサイズ取得
            Cells(行番号, 2).Value = FileLen(フォルダパス.items.Item.Path & "\" & ファイル名)
        'ファイル更新日取得
            Cells(行番号, 3).Value = FileDateTime(フォルダパス.items.Item.Path & "\" & ファイル名)
        '次の行に書き込み準備
            行番号 = 行番号 + 1
        '次のファイル名再取得
            ファイル名 = Dir()
        '条件が一致するまでDo whileに戻る
        Loop
  ' セルの幅自動調整
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells(1, 1).Select
End Sub
-*-*-*-*-*-*-*--*-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-*-*-*-*-**--*-*-*-*-*-*-*-*-*-*

元ネタは日経PCなのですが、ひと手間加えて
ダイアログでフォルダを選択できるように改造しましたわーい(嬉しい顔)
posted by mako at 14:11| Comment(1) | excelエクセル | このブログの読者になる | 更新情報をチェックする

2013年10月11日

値のみをコピーするVBA

今回は値のみのコピーをショートカットを組み込んで楽チンにできるようにしてみます。

まずはソースコード


Sub 値のみコピー()
'エラー処理ルーチンを有効にする
 On Error GoTo Err_コマンド0_Click
'正常終了処理
Exit_コマンド0_Click:
'値のみコピーを実行
    Selection.PasteSpecial Paste:=xlPasteValues
Exit Sub
'エラー処理ルーチン

Err_コマンド0_Click:
    MsgBox ("コピー元が選択されていません")
End Sub

あとは、マクロをショートカットキー登録で


オプションをクリックして







好きなショートカットに登録
私はCTRL+Vが通常の貼り付けなのでその流れで
SHIFT+CTRL+Vに設定しました。手(チョキ)
posted by mako at 21:24| Comment(0) | excelエクセル | このブログの読者になる | 更新情報をチェックする

2013年10月10日

ブログ開始

何も考えず軽い気持ちでブロクを立ち上げてみました^^;

自分に何ができるかまだわかりませんが・・・・

自分のBlog探しの旅が続いて瞑想しそうですw

まぁとりあえずこれからよろしくお願いします。
posted by mako at 01:51| Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。