|
申し訳ありません。
当方winXP、Excel2003の環境です。
状況としてはユーザーフォーム1のコマンドボタンからRefEditのついた
ユーザーフォーム2を呼び出し、RefEditで選んだ範囲を他のシートにコピペする、
という感じです。
ユーザーフォーム1にはコマンドボタンが3つあり(2つを選択、1つは閉じる)、
選択するコマンドボタンを押すとそれぞれに対応したユーザーフォームが現れます。(このユーザーフォーム1のコマンドボタンに***.show
Me.Hideとなってます)
ユーザーフォーム2にはRefEditとコマンドボタン(ただのokボタン、コードは下記)しかないもので、ここで閉じてもまだIMEのロックはかかりません。RefEditの機能を使ってセル範囲選択を呼び出し処理をするとIMEが固定されます。コマンドボタンを押すと下記のコードが実行されます。
Application.ScreenUpdating = False
Range(Me.RefEdit1.Value).Copy
Sheets("作業用").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a1").Select
Sheets("一覧").Select
Application.CutCopyMode = False
Range("a1").Select
Me.Hide
End Sub
Me.Hideを最初はunload Meにしてたのですが結果は一緒でした。
ちなみにコピペするセルはすべて書式は数値になってます。
またRefEditのプロパティのIMEModeは0-fmIMEModeNoControlになってます。
|
|