暑い


暑い暑い暑い

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

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

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

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

日程:平成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'セル選択

米沢市 スクラップブッキング 講習のご案内

米沢市 生涯学習でスクラップブッキングの講習会が開催されます。

開催場所:置賜総合文化センター

開催日時:5/10、17、24、31 全4回コース 13:30〜15:30

参加費:4000円 教材費:4000円

申し込み:米沢鷹山大学事務局 21-6111



スクラップブッキングとは

写真をアルバムに貼りつけるだけでなく、台紙にイラストやコサージュ

ボタン、レース、英部新聞などで飾りつけし、より鮮明に思い出を残す

ことができます。


一味違った贈り物にも最適です。