今だからこそ

今だから思う、周りのいけんの大切なこと。

暑い


暑い暑い暑い

情報処理技術基本セミナー(ワード・エクセル基礎)

厚生労働省委託 米沢市実践型地域雇用創造事業主催で

情報処理技術基本セミナーを下記の日程で開催します。

内容:ネットワークの基本的なこと、ワード、エクセルの基礎
   タイピングなどが学べます。

日程:平成27年7月18日(土)〜10月31日(土)毎週(火・土)
    全28回 祝日は除く

教材費・講習料:無料 無料でこんなことが学べるチャンスをのがすな!!

初歩的な基礎から学習しますので、ちょっと不安な方もご安心して

ご応募ください。

申し込みは0238-28-0175まで・・・

郵便番号→住所

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'セル選択