段落番号などに利用する、丸付き数字って、①から⑳までしか無かったと思ってました。
50まであったんですね。
IMEパッドを起動してみると、なんとありました!
[文字カテゴリ]⇒[囲み CJK 文字/月]ここを選択すれば表示OK!
Mさん、ありがとうございます!
まだまだ知らないことばかりで・・・
段落番号などに利用する、丸付き数字って、①から⑳までしか無かったと思ってました。
50まであったんですね。
IMEパッドを起動してみると、なんとありました!
[文字カテゴリ]⇒[囲み CJK 文字/月]ここを選択すれば表示OK!
Mさん、ありがとうございます!
まだまだ知らないことばかりで・・・
パソコン内にあるファイルなどを検索しても思うようにヒットしくなった。
Windows7ではインデックスが作成されていないフォルダーにあるファイルの中身を検索できないようです。検索するには、設定が必要とのこと!
[フォルダーと検索のオプション]の中で
[ファイル名と内容を常に検索する]を選択して、OK。
う~ん、あまり変化がなさそうな・・・
「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に住所が表示されたわ~便利ね