孔明の忘備録

2011年12月5日月曜日

CSSリンクタグの優先順位

CSSリンクタグの優先準備（備忘録）

a:link,a:visited{
Text-Decoration: none;
color : blue;
}
.lnk a:link,a:visited{
Text-Decoration: none;
color : blue;
}
a:hover{
Text-Decoration: none;
color : red;
}
.lnk a:hover{
color : green;
text-decoration : underline;
}
a:active{
Text-Decoration: none;
color : blue;
}
.lnk a:active{
Text-Decoration: none;
color : blue;
}

*LINK→VISITED→HOVER→ACTIVEの順に記述すること。
そうでないとうまく動作されない。

2011年11月25日金曜日

Facebook プロフィールバナー

１．Facebook バナーをアクセスします。（Facebookログインが必要です）

２．「プロフィール用バナー」をクリックします。

３．＋Blogger　のアイコンをクリックします。

４．Bloggerの画面に切り替わります。（Bloggerログインが必要です）

５．「ウィジェットを追加」をクリックします。

６．Bloggerのレイアウトの画面が表示されますので、好みの場所にガジェットをドラッグします。

７．右上の「保存」をクリックします。

2011年9月4日日曜日

ピカサウェブアルバムのスライドショー作成

ピカサウェブアルバムのスライドショー作成

１．スライドショーを作成したいアルバムをクリック

２．右側のサイドバーの「このアルバムへのリンク」をクリック

３．「スライドショーを埋め込む」をクリック
するとダイアログボックスが表示される。

４．「コピーしてウェブサイトに貼り付けてください。」のソースコードを全選択→全コピー

５．ブログ・ホームページ作成ソフトなどに貼り付け。

2011年8月16日火曜日

Excel非表示シートを簡単操作で再表示（VBA）

非表示になったシートがたくさんあるワークブックは、シートの再表示を何度も操作するのは面倒臭い。

…ので、ネットで調べてみるとこんなマクロが！

--------------------------------------------------------------------------

Sub UnHideSheets()

Dim objSheet As Object

Dim intRet As Integer

For Each objSheet In ActiveWorkbook.Sheets

If objSheet.Visible = False Then

intRet = MsgBox("シート『" & objSheet.Name & "』を再表示しますか？", vbYesNo)

If intRet = vbYes Then objSheet.Visible = True

End If

Next

End Sub

--------------------------------------------------------------------------

このVBAを実行するとシートの再表示をダイアログで確認しながら再表示可。

上記のSubプロシージャを、VBE（Visual Basic Editor）を起動して標準モジュールに貼り付ければOK。

あとはマクロ実行するなり、よく使用するのであればボタン登録してもいい。

ちなみに非表示になっているシートの全表示をするのであれば、for～next間を

If objSheet.Visible = False Then objSheet.Visible = True

のみにすればいい。