Sub getOs()
Dim osName As String
'OSの名前とバージョン
osName = Application.OperatingSystem
'表示
Debug.Print "OS：" & osName
End Sub
実行するとイミディエイトに表示される
Sub getExcelVersion()
Dim excelVer As String
'Excelのバージョン
excelVer = Application.Version
'表示
Debug.Print "Excel Version：" & excelVer
End Sub
実行するとイミディエイトに表示される//保存 //id=保存時の名前,value=保存する値 localStorage.setItem(id,value); //読み込み var id = localStorage.getItem(id); //削除 localStorage.clear();clearを実行すると、全部消えるっぽい。
<script language="javascript">
function doLoad(){
var aaa = localStorage.getItem('aaa');
if(aaa == ""){
alert("ローカルストレージにはデータがありません");
} else {
document.getElementById("text1").value = aaa;
alert("ローカルストレージから読み込みました");
}
}
function doSave(){
var aaa = document.getElementById("text1");
if(aaa.value == ""){
} else {
localStorage.setItem('aaa',aaa.value);
alert("ローカルストレージに保存しました");
}
}
function doDelete(){
localStorage.clear();
alert("ローカルストレージをクリアしました");
}
</script>
div#box1 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotate(45deg);
}
マイナス角度を設定すると左側に回転する
div#box2 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotate(-45deg);
}
縦向きに回転する。天地を逆さまにするイメージかな～
div#box3 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotateX(180deg);
}
横向きに回転する。回転扉みたいだね～
div#box4 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotateY(180deg);
}
右向きに回転する。XYZの指定が無い時と同じ動作なのかな。
div#box5 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotateZ(45deg);
}
要素を回転させる場合は、上下左右の余白も考慮してあげないと、重なってしまう。
sample{
-webkit-transform: rotate(180deg);
-moz-transform: rotate(180deg);
-o-transform: rotate(180deg);
-ms-transform: rotate(180deg);
}
子要素を回転表示させると親要素からはみ出して表示する。
div#oya{
margin:0;padding:0;width:100%;
background-color:#666;}
div#box6 {
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotate(45deg);
}
親要素からはみ出した部分を非表示にする。
div#oya2{
margin:0;padding:0;width:100%;
background-color:#666;overflow:hidden;}
div#box7{
margin:0px;padding:0;
width:50px;height:50px;
background-color:#ccc;
-webkit-transform:rotate(45deg);
}
/* デバイスピクセル比率2 表示幅2048px以下かつ横向き 新iPad向け */
@media only screen
and (max-width: 2048px)
and (-webkit-min-device-pixel-ratio:2)
and (orientation: landscape) {
}
/* デバイスピクセル比率2 表示幅1536px以下かつ縦向き 新iPad向け */
@media only screen
and (max-width: 1536px)
and (-webkit-min-device-pixel-ratio:2)
and (orientation: portrait) {
}
ちなみにiPhone4(S)向けはこんな感じ。
/* デバイスピクセル比率2 iPhone4向け 横向き */
@media only screen
and (max-width: 960px)
and (-webkit-min-device-pixel-ratio:2)
and (orientation: landscape) {
}
/* デバイスピクセル比率2 iPhone4向け 縦向き */
@media only screen
and (max-width: 640px)
and (-webkit-min-device-pixel-ratio:2)
and (orientation: portrait) {
}
あとは順番だね～
Public Function decodeUnicode(ByVal inputString As String) As String
'REM//=================================================================
'REM//プロシージャ名：入力文字列Unicode(%uXXXX形式)を復号する
'REM//-----------------------------------------------------------------
'REM//[引数]
'REM//<inputString> 入力文字列 %uXXXX(XXXX=16進数)
'REM//-----------------------------------------------------------------
'REM//[戻り値]
'REM//<string型> 復号した文字列
'REM//-----------------------------------------------------------------
'REM//[説明]
'REM//１バイト文字は、そのままではLenB関数で判別できない為、
'REM//StrConv関数で一時的に変換してから、LenB関数でバイト数を取得する
'REM//１バイト文字は、Unicode変換無し。そのまま出力する
'REM//=================================================================
decodeUnicode = ""
If Trim(inputString) = "" Then
Exit Function
End If
Dim strB As String
strB = ""
Dim intLen As Integer
intLen = Len(inputString)
'--現在位置
Dim crntPos As Long
crntPos = 1
Do While crntPos < intLen
'--開始2文字
If Mid(inputString, crntPos, 2) = "%u" Then
'--4桁取得する。
Dim wrk As String
wrk = Mid(inputString, crntPos + 2, 4)
If IsNumeric("&h" & wrk) Then
strB = strB & ChrW("&h" & wrk)
Else
strB = strB & Mid(inputString, crntPos + 2, 4)
End If
crntPos = crntPos + 6
Else
'--1文字だけ取得する
strB = strB & Mid(inputString, crntPos, 1)
crntPos = crntPos + 1
End If
Loop
decodeUnicode = strB
End Function
Public Function encodeUnicode(ByVal inputString As String) As String
'REM//=================================================================
'REM//プロシージャ名：文字列をhtml表示用のUnicode(%uXXXX形式)に符号化する
'REM//-----------------------------------------------------------------
'REM//[引数]
'REM//<inputString> 入力文字列
'REM//-----------------------------------------------------------------
'REM//[戻り値]
'REM//<string型> %uXXXX(XXXX=16進数)
'REM//-----------------------------------------------------------------
'REM//[説明]
'REM//１バイト文字は、そのままではLenB関数で判別できない為、
'REM//StrConv関数で一時的に変換してから、LenB関数でバイト数を取得する
'REM//１バイト文字は、Unicode変換無し。そのまま出力する
'REM//=================================================================
encodeUnicode = ""
If Trim(inputString) = "" Then
Exit Function
End If
Dim strB As String
strB = ""
Dim intLen As Integer
intLen = Len(inputString)
Dim LoopCnt As Integer
For LoopCnt = 1 To intLen
If LenB(StrConv(Mid(inputString, LoopCnt, 1), vbFromUnicode)) > 1 Then
strB = strB & "%u" & Hex(AscW(Mid(inputString, LoopCnt, 1)))
Else
strB = strB & Mid(inputString, LoopCnt, 1)
End If
Next
encodeUnicode = strB
End Function