Vista・ビスタ・びすた・・・

いつまで「Vista・ビスタ・びすた…」なのか、もうWindows10 が発売されている・・・ (-_-;)

丸付き数字

2012年03月25日 | ◆Windows8、8.1

段落番号などに利用する、丸付き数字って、①から⑳までしか無かったと思ってました。
50まであったんですね。

IMEパッドを起動してみると、なんとありました!
[文字カテゴリ]⇒[囲み CJK 文字/月]ここを選択すれば表示OK!

Mさん、ありがとうございます!

まだまだ知らないことばかりで・・・


検索時ヒットしない?

2012年03月14日 | ◆Windows8、8.1

パソコン内にあるファイルなどを検索しても思うようにヒットしくなった。
Windows7ではインデックスが作成されていないフォルダーにあるファイルの中身を検索できないようです。検索するには、設定が必要とのこと!

[フォルダーと検索のオプション]の中で

[ファイル名と内容を常に検索する]を選択して、OK。

う~ん、あまり変化がなさそうな・・・


郵便番号を入力して隣のセルに住所を表示する

2012年03月12日 | ◆Excel

「B2」に郵便番号を入力すると、自動で「C2」に住所が表示されるようにするには?
と、お友達から聞かれました。

ネットにありました!!

IMEのプロパテイの辞書/学習の Microsoft IME 郵便番号辞書 のシステム辞書にチェックが入っていることを確認。
(Windows7では、特に設定は必要でありませんでした。)

シートモジュール(ワークシートのシートタブを右クリック-コードの表示で出てくる画面)に、以下を貼り付けます。

'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
 '範囲は、A2~A100 に郵便番号を入力する場合
 If Intersect(Target, Range("A2:A100")) Is Nothing Then Exit Sub
 If Target.Count > 1 Then Exit Sub
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   With Target.Offset(0, 1).Validation
   .Delete
   .Add Type:=xlValidateInputOnly
   .IMEMode = xlIMEModeHiragana
   End With
   If Target Like "###-####" Then
    Target.Offset(0, 1).Select
    SendKeys Target.Value
    SendKeys "{ }"
    SendKeys "{ENTER}{ENTER}"
    SendKeys "{Left}"
   End If
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

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

で、B2に「336-0932」と入力したとたん、C3に住所が表示されたわ~便利ね