スポンサーサイト

一定期間更新がないため広告を表示しています

Windows10 Creators Update で追加されたペイント3Dを使ってみた

Windows10 Creators Update で追加されたペイント3Dを使ってみました。無料でここまで出来るとは・・・ひまわりを切り取って3D回転させてみました

ワードアート 変形 縦書き 印刷方法

1) 「ワードアート」を挿入します。
2) 「文字列の効果」の「変更」から「四角」を選択します。
3) 「文字列の方向」から「横書き(日本語文字を左へ90度回転)」を選択します。
4) 「回転」から「右へ90度回転」を選択します。

ちらしずし


卵焼きは、魚のだしから・・・・本格的に

郵便番号→住所

Function ZipCodeToAddress(strZipcode)
Dim objXMLHttp As Object, zipArr

'"-"ハイフンが入っていた場合は取り除く
strZipcode = Replace(strZipcode, "-", "")

Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
objXMLHttp.Open "GET", "http://zip.cgis.biz/csv/zip.php?zn=" & strZipcode, False
objXMLHttp.Send

'APIの結果を配列に代入する
zipArr = Split(Replace(objXMLHttp.responseText, """", ""), ",")

'正常な値が返ってきた場合は配列の要素数が15になる
If UBound(zipArr) = 15 Then
ZipCodeToAddress = zipArr(12) & zipArr(13) & zipArr(14)
Else
'郵便番号が間違っている場合や未入力の場合は、空文字を返す
ZipCodeToAddress = ""
End If

End Function

実行時エラー '1004': Range クラスの Select メソッドが失敗しました

アクティブでないワークシート内のセルを選択しようとすると次のエラーが表示されます。

Worksheets(2).Activate'アクティブシートにした後に
Range("A1").Select'セル選択