よく見るオンマウスでオンマウスと別の場所の画像が変わるのを実装してみた。

ちょっとがんばったから、絶対に忘れたくないんで書いておこう。すぐ婚naviとかでよく見るオンマウスしたら、別の場所が変わるやつ。これ右の画像内テキスト部分をオンマウスすると中央の画像自体が変更されてかつ、リンク先もかわってるって実装！！多…

2011-09-28

Googleサーバに上がっているJQueryやらMootoolsやらJavascriptのライブラリ

めっちゃ便利ヤン！！いままでJavascriptのライブラリ系を使用しようとすると、まずダウンロードして、配置して、コード書いてアップロードして・・・・・。こいつはそんなダウンロードや配置なんかを解消してくれます scriptsrc.net [http://scriptsrc.n…

2011-09-27

忘れたくないJsシリーズ

フェードインアウト var fadeimages=new Array(); //イメージのパスを設定 fadeimages[0]=["http://www.g-rare.co.jp/img/index_main_watch_category.jpg", "http://www.g-rare.co.jp/fs/galleryrare/c/watch", "_top"]; fadeimages[1]=["http://www.g-rare.…

2011-09-27

CSS3のグラデーション設定と角丸

-webkit-border-radius: 5px;/* 角丸Firefox用 -moz-border-radius: 5px;/* 角丸Safari,Google Chrome用 background: -moz-linear-gradient(top, #666666, #999999); background: -webkit-gradient(linear, left top, left bottom, from(#666666), to(#99999…

2011-09-09

VBAでの整数部分の切り捨てについて

ググっても少数以下の切り捨てしか出てこなかった。本当に苦戦苦戦しました。概要はいたってシンプル 1、切り捨てしたいケタ数で除算 2、int関数で小数部切り捨て 3、1で使用した桁数を乗算たぶん具象例見たほうがわかりやすいので、一回具象例かいとき…

2011-08-27

jQuery Mobileのスペースや背景色などできるだけデフォルトに戻したいあれこれ！

フォント系は気に入っているのでそのまま使ってるので背景色と無駄なスペースの削除について書きます。 jQuery Mobileを使用するときにCSSを読み込むと思うのですが、（jquery.mobile-●●.css）それを修正すると視覚的なところは変わる。スペース部分の除…

2011-08-24

僕的にめっちゃ決まるCSS3のグラデーション設定

text-shadow: 1px 1px 3px black;

2011-08-21

html5の新しい構造化タグを使ってみた。

html5

今回使ったのは以下のタグ・（ページまたはセクションのヘッダー領域を定義する）・（ページまたはセクションのフッター領域を定義する）・（ページまたはセクションのナビゲーション領域を定義する）・（ページまたはコンテンツの論理領域を定義す…

2011-08-21

IEの旧バージョンにhtml5を対応させてみた

html5

フォールバックです。実は全回書いたhtml5の新しい構造化タグを使ってみた。はIE9以下のバージョンだとうまく表示されない。なので、ヘッドタグにIE特有の条件付きタグを設置することで回避できる・・・・・・・・・はず <script type="text/javascript"> document.createElement("nav"…

2011-08-20

Access VBAでのファイル書き出し（入出力）

いたってシンプル Dim strFilePath As String Dim intFileNo As Integer Dim strData As String strFilePath = "Pathを含めたファイル名" intFileNo = FreeFile Open strFilePath For Output As #intFileNo Print #intFileNo, "書き出したい内容" Close intF…

2011-08-20

HTML5入門

html5

いきなりですが入門してみます。あんまりググってもおいしい記事やドキュメントは見つからず、どうやってブラウザがHTMLのバージョンを識別しているのかわからなかった。まずHTML5のソースを書くには DOCTYPEでhtml5である指定をすることです。ソースを…

2011-08-14

スマートフォン(スマフォ)向けサイト作成のためにまずやること

スマフォ

まず、PCサイトとスマフォ系サイトの横幅（サイズの）設定じゃないですかね。 PCとスマフォの違いを羅列するとたくさんありますが、何といってもスマフォとPCは以下が大きく違うのではないかなぁ・画面を縦、横にできる・サイトを表示する画面が小さい・…

2011-08-12

今更CSSでグラデーションをかけてみた。

割と簡単です。ただ、クロスブラウザに対応するために主要ブラウザごとに指定をかけないといけないので若干めんどくさい。ブラウザ単位の指定が全部違うので、早くCSS3が一般的になることを大いに祈っています。 div { filter:progid:DXImageTransform.…

2011-08-12

今更CSSで角丸の四角を作ってみた。

いよいよCSSを制するものがWebを制する時代が訪れそうです。デザインが苦手な私にとってはもってこい！！そして、Webレスポンスが高いサイトがこの世にたくさんでてくるのでしょう。うん、画像を大量につかうECサイトの昨今においては非常に良い傾向で…

2011-08-06

PC、スマートフォン、携帯端末で同一URLにアクセスしたときのページの切り替え

深いところまでこらなければめっちゃ簡単！！非常にシンプル！！エレガンスなコードを書きたい人には向かないかも・・・。僕の備忘録なんで、使いたい人は使ってください！まず以下の要件を順に遂行していく。 1.モバイルアクセスかPCアクセスか判別する…

2011-07-02

同じ構造のデータをまとめる

Access

クエリビューのマウス操作ではできないので、 SQLビューから作成する SELECT フィールド名 FROM テーブル1 UNION SELECT フィールド名 FROM テーブル2 必要であれば、ここからorderby句でソートしたり、DISTINCT句で重複削除するといいかもね。

2011-06-18

配列から要素を取り出す際のForループの使い方

vba

For i = LBound(temp) To UBound(temp) '制御処理 Next i

2011-05-23

新自分スタート！！

ひさびさのブログ更新です。書きたいことがないのではなく、書く時間がほとんどありません。というのも上司の計らいで役職につくことができました。こんな僕が役職ですwwもちろん、浮かれてはいません。ここからが勝負なんです。改めて「責任」の重みをひし…

2011-05-19

VBAで他データーベース（別ファイル）のマクロを実行してみた

Function 他のファイルのマクロ呼び出し() Dim objAccess As Object Set objAccess = CreateObject("Access.Application") Call objAccess.OpenCurrentDatabase("呼び出したいファイルの絶対パス") 'マクロの実行 objAccess.DoCmd.RunMacro "マクロ名" objAc…

2011-05-05

忘れないために

自分の備忘録 Function getBCategId(title As String) As String Dim db As DAO.Database Set db = CurrentDb Dim rs As DAO.Recordset Dim id As String Dim colmun As String Dim result As String result = "" Set rs = db.OpenRecordset("テーブル名") D…

2011-04-01

ワードプレスでショッピング(EC)サイトを作成(構築)してみた：パート2

wordpress

「書きます！！」っていってなかなか更新しないあたりがやっぱりウエンクオリティですねｗｗ。さて前回のパート1の続きです。とりあえず静的ページは完成したかと思うので今回はテンプレートの概念を理解しましょう。ワードプレスは以下のページをテン…

2011-03-17

AccessVBAからローカルにあるバッチファイルを呼び出す

Dim retVal retVal = Shell("cmd.exe /c ファイルのパス", vbNormalFocus)

2011-03-17

AccessVBAで複数行(改行)を含むテキストファイルを置換

htmlから特定のコメントアウトで囲まれた部分だけを削除したかった忘れるのは嫌なので書いてみた Dim re As RegExp Set re = New RegExp sPtn1 = "" With re .Pattern = sPtn1 ' パターン文字列を設定します。 .Multiline = True' 改行を含む。 .Global = T…