Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10588 / 13644 ツリー ←次へ | 前へ→

【20924】IMEのモードをひらがなにする 知ろう途 04/12/25(土) 9:33 質問[未読]
【20927】Re:IMEのモードをひらがなにする [名前なし] 04/12/25(土) 13:33 回答[未読]
【20940】Re:IMEのモードをひらがなにする 知ろう途 04/12/27(月) 8:26 お礼[未読]
【20964】Re:IMEのモードをひらがなにする [名前なし] 04/12/29(水) 0:24 発言[未読]

【20924】IMEのモードをひらがなにする
質問  知ろう途  - 04/12/25(土) 9:33 -

引用なし
パスワード
   まだまだ発展途上の身でして、入力規則でひらがなモードに出来るという便利な機能を知ったので早速マクロ記録してみました。

Sub aIMEhira()

  With ActiveCell.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop _
    , Operator:=xlBetween
    .IMEMode = xlIMEModeHiragana
  End With

End Sub

そこで疑問が浮上したのですが、Excel起動時にIMEのモードをひらがなにすることは出来るのですか?

IF 出来る Then
Excel起動時に ツールバーのマクロ.xls というファイルを開くようにしているのでOpenイベントにコーディングしようと思います。

Else: 上記のコードをCells.Selectを用いてファイル毎に入力規則を設定するしかないかなと思っています。
End If

ご教授お願いします。。

【20927】Re:IMEのモードをひらがなにする
回答  [名前なし]  - 04/12/25(土) 13:33 -

引用なし
パスワード
   ▼知ろう途 さん:
>そこで疑問が浮上したのですが、Excel起動時にIMEのモードをひらがなにすることは出来るのですか?

これでどうでしょうか。
Private Sub Workbook_Open()
If IMEStatus = vbIMEModeOff Then
 SendKeys "%{kanji}", True
End If
If IMEStatus <> vbIMEModeHiragana Then
  SendKeys "{kana}", True
End If
End Sub

【20940】Re:IMEのモードをひらがなにする
お礼  知ろう途  - 04/12/27(月) 8:26 -

引用なし
パスワード
   [名前なし] さん返事が遅くなりました。
おかげさまで出来ました。ありがとうございます!
このような事まで出来る事すら知りませんでした。

こういったキーの選択を操作するようなマクロを紹介しているようなサイトはあるのですか? 探してみようと思いますがもしお薦めがありましたら教えて下さい。

【20964】Re:IMEのモードをひらがなにする
発言  [名前なし]  - 04/12/29(水) 0:24 -

引用なし
パスワード
   ▼知ろう途 さん:
>こういったキーの選択を操作するようなマクロを紹介しているようなサイトはあるのですか? 探してみようと思いますがもしお薦めがありましたら教えて下さい。

必要な時に検索して探してそれっきりなので、特にお薦めできるようなサイトは
知らないです。お役に立てず申し訳ないです。

SendKeysと処理したいことをキーワードにして検索すれば、そこそこ引っかかるかと。

10588 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free