エクセルを開いて文字を打つ際、いきなりローマ字入力したい

Question

素のエクセルを開いて文字を打つ際、いきなりローマ字で入力することはできるのでしょうか。

エクセルを開いた後に「半角/全角」を押せばいいとか、「入力規則の設定を変更すればいい」とかではなく、素のエクセルを開いた時に最初からローマ字入力する方法を知りたいのです。

入力規則で入力方法を変更したファイルを開くとローマ字から始めることはできるようですが、設定変更したファイル（例えば設定変更したファイルをデスクトップに保存したものを開くといったこと）ではなく素のエクセルを開いて任意のセルにローマ字入力する方法はないのでしょうか。

WindFaller · Accepted Answer

こんばんは。

>エクセルを開いた時には「タスクバー」右端のアイコンは「Ａ」になっています。
>これを「あ」の状態で開きたいのです。

最初に、#4についてのフォローアップをさせていただきます。ご質問者さんは、試してみないうちに、自分の推測で判断されたようです。インスタンスという用語はご存知でしょうか。

インスタンスとは、鯛焼きの型（モールド）があれば、同じ形の鯛焼きがいくつもできます。同じ形に出来上がった、食べられる方の鯛焼きのことを、インスタンスといい、鯛焼き型のほうを、クラスと呼びます。#4さんのXlStartに入れたテンプレートはその元の型を意味しています。

XlStart フォルダーに入れたものは、テンプレートとして、新しく生成させるブックのインスタンスを作り、IMEがコントロールされるのであって、その都度、設定されたファイルを開けるのではありません。新規のブックに適用されます。ただし、既存のブックには適用されないのではないかと思います。

それをより具体的にしたものが、VBAで可能です。しかし最近は、こうしたコードをお教えしても、興味を示さない人が多いようです。アドインにしてしまえば、その機能だけに着目しますので、そのコード自体は気にならないはずですが、コードをみると恐れをなしてしまうかもしれません。（アドインにするためには、もう少しコードを加えなくてはなりませんが）

#4さんと同じ発想には基づいていますが、それをVBAでインスタンスを取り付けるわけです。新規ブックでも、既存のブックでも、それ自体には影響はしませんし、一切いじる必要性がありません。

参考：
[XL95]日本語入力システムのオン/オフを制御する方法
https://support.microsoft.com/ja-jp/help/407890

これを、そのまま取り付けても、
>素のエクセルを開いて任意のセルにローマ字入力する方法はないのでしょうか。
ご希望のようにはならないのです。そこで、個人用マクロブックに、クラスのインスタンスを設けるという形になります。別に個々のファイルを書き換える必要はありません。
たかが、このためにこんな長いコードが必要かと思われるでしょうが、プログラムというものはこんなものだということです。たったひとつのボタンを押す行為を、自動で行うようにするためには、こういうことも必要なのです。

'//32bit 用です。
''標準モジュール
Public myClass As New Class1
　Public Declare Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As Long) _
　　　　 As Long
　Public Declare Function ImmReleaseContext Lib "imm32.dll" _
　　　　 (ByVal hWnd As Long, ByVal himc As Long) As Long
　Public Declare Function ImmSetOpenStatus Lib "imm32.dll" _
　　　　 (ByVal himc As Long, ByVal b As Long) As Long
　Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
　　　　 lpClassName As String, ByVal lpWindowName As String) As Long

Sub Auto_Open()
　Set myClass.App = Excel.Application
End Sub

''Class1

Public WithEvents App As Application

Private Sub App_NewWorkbook(ByVal Wb As Workbook)
　ImeActivate
End Sub

Private Sub App_SheetActivate(ByVal Sh As Object)
ImeActivate
End Sub

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
ImeActivate
End Sub

Private Sub App_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
　ImeActivate
End Sub

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
ImeActivate
End Sub

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
　 With ActiveSheet　　'入力セルを認識させる
　　　On Error Resume Next
　　　 ActiveCell.Activate
　　　 ActiveCell.Select
　　　On Error GoTo 0
　 End With
　　ImeActivate
End Sub

'必要に応じてイベントマクロを増やします。

Function IMEControl(ByVal nMode As Long)
　　　Dim ClassName As String, WindowName As String
　　　Dim hWnd As Long, IMC As Long, ret As Long
　　　ClassName = "XLMAIN"
　　　'WindowName = Application.Caption　'不要
　　　hWnd = FindWindow(ClassName, vbNullChar)
　　　IMC = ImmGetContext(hWnd)
　　　ret = ImmSetOpenStatus(IMC, nMode)
　　　ret = ImmReleaseContext(hWnd, IMC)
End Function
Sub ImeActivate()
If VBA.IMEStatus = vbIMEModeOff Then
　　 Call IMEControl(1)
End If
End Sub

WindFaller · Answer

>やはり、上書き保存になってしまうようです。
おっしゃっている質問要項は、完全に可能だということは申しておきます。

ここら辺は、一応、VBAとしての上級レベルに該当しますから、クラス-インスタンスの仕組み自体を理解しないと、よく分からないかもしれません。アドインを提供という手もないのではないのですが、この手のアドインは、今の私の故障しているPCでは、少し荷が重すぎます。いつ、アクセスが不能になるか、あぶない状態です。

個人用マクロブック自体は、お分かりになっているようではあっても、上書き保存が、何を対象にしているかすら、こちらでは正直なところ、不明なのです。

新規ブックに対して、何かの変更を加えれば、「上書き」というよりも、「名前をつけて保存する」ことを求められますし、「個人用マクロブック」自体も、書き加えれば、一度は、保存を求められるのは当然ではありますが、それ一度だけです。一旦、「個人用マクロブック」を保存して、再起動していただくか、もしくは、Auto_Open を一度実行していただくようにするわけです。

PERSONAL.XLSB 等のプロジェクトエクスプローラー（特殊な内容ですので、詳しい説明は省略します）の画像をつけておきます。なお、Book1側は、似たような内容ですが、これは、別のマクロです。PERSONAL.XLSB は、もちろん、XlStart フォルダー(C:\Users\[My ID]\AppData\Roaming\Microsoft\Excel\XLSTART\ の場所にあるファイルのことです。

WindFaller · Answer

フィードバックしていただきありがとうございます。
一般的には、私のような書き込みは、無視されるのを承知で書いています。

XlStart のフォルダの中に入れて、Excelを再起動した時に、初めて、機能が働き、インスタンスが生成されるという仕組みです。それは、私が書いたコードでも同じなのですが、「個人用マクロブック」(Personal.xlsb)に組み込むということをして、見えないマクロを、立ち上げるブックに機能を付け足すという役目をさせる、というような機能なのです。

>上書き保存されてしまいますが、
今、お使いになるブックや新規のブックには、機能が働いた（IME ON)だけで、そこには何も残らないはずです。したがって、マクロつきのブックとかは、一切関係がなく、上書きということにはならないはずです。

構造的には以下のようになります。
[ウィンドウの選択]ボタンを押しますと、
---------------------------
新規ブック.XLSX
既存のブック.XLSX
---------------------------
PERSONAL.XLSB(非表示）--ここにマクロが搭載され、上記のブック全体に及ぼす
===============

IMEを起動させる方法には、COMアドインの、xll（拡張子） やExcel-DNAでの便利な方法が隠されているとは思うのですが、今のところ、私の技術は不勉強なもので、コードを提示できる古い手段に頼ってしまいます。

ちなみに、こうした基本機能を改変する技術というのは、ほとんど、どの機能でも、難易度が非常に高いのです。あえて、私の今回のコードをおすすめするつもりはありませんが、もう少し検証してみたらいかがかと思います。言葉の反応から、何か誤解が潜んでいるような気がします。

mike_g · Answer

次の手順をお試しあれ。
１．新規ブックを開く
２．全選択ボタン(列記号Ａの左側、かつ、行番号１の上側の四角い部分)をチョーン
３．[データ]→[データツール <データの入力規則>]
４．[日本語入力]タブ画面において、"コントロールなし"→"ひらがな"に変更
５．[OK]をパシーッ
６．上の操作を全シートで実施したブックをテンプレートとして保存
７．Excel 起動時に当該テンプレートを開かせる

Excel 2002 使用して頃は、テンプレートを XLStartフォルダに置いておけば、上記のステップ７が動作したものだが、Excel 2013 では試したことがないし、試すつもりもない。興味ないから。XLStartフォルダの存在可否も知らない。

mike_g · Answer

貴方の「ローマ字入力」の意味は所謂「直接入力」のことですか？
此処で言う「直接入力」とは、日本語に変換しない半角英数記号を入力することです。
ひょっとして"全角"文字の「ローマ字入力」のことかも知れないので、確認しています。

私も同じ環境だけど、Excel に限らず、メモ帳等も、新規にそれらを開いた時点では"半角"文字の「ローマ字入力」モードになっています。
もしそれで良ければ、
[タスクバー]右端の[あ]([Ａ]かも)アイコン(添付図参照)をマウスで右クリックして、
[プロパティ]→[詳細設定]→[全般]の画面における各設定が何と表示されているかをお知らせください。私のものと比較して、何が異なるかを見ますから。

tatsu99 · Answer

excelのバージョン、windowsのバージョンが不明ですが、
下記のURLは参考になりませんでしょうか。
http://inakamura.main.jp/main/archives/1204#Excel2010_IMEWindows_8

https://answers.microsoft.com/ja-jp/windows/forum/windows_8-ime/excel%E8%B5%B7%E5%8B%95%E6%99%82%E3%81%AB%E6%97%A5/ffd08e4f-5285-4e15-86d3-9abd92f1339f?msgId=762dc55c-6d67-43e5-93db-8f2856421d5e

kouchyon · Answer

エクセルは文書ファイルではないので、無理です

エクセルを開いて文字を打つ際、いきなりローマ字入力したい

こんばんは。

>やはり、上書き保存になってしまうようです。

フィードバックしていただきありがとうございます。

次の手順をお試しあれ。

貴方の「ローマ字入力」の意味は所謂「直接入力」のことですか？

excelのバージョン、windowsのバージョンが不明ですが、

エクセルは文書ファイルではないので、無理です

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング