シート上のエディットボックス

Quiz

｢フォーム｣ツールバーの｢エディットボックス｣をワークシート上で利用するにはどうすればいいでしょうか？
　
２ステップあります。１ステップ目が分かれば、２ステップ目は比較的簡単です。
　
マクロじゃなくて一般機能で可能です。
　
　
　
　
　
　
　
　
　
　
答えは・・・。

ステップ１

ダイアログシートにエディットボックスを配置し、それをコピーしてワークシートに貼り付ける。

ステップ２

エディットボックスを右クリックして、｢コントロールの書式設定｣ダイアログの｢保護｣タブの"文字列のロック"を外す。シートに保護をかける。（セルのロックはお好きなように。）
　
例えば、こんなマクロ↓を作っておいて、アドインに入れてメニューバーやツールバーから実行できるようにしておけば、、、ちょっと面白いかも。

Sub AddEditBox()
　　Dim edtA As Excel.EditBox
　　Dim bkA As Workbook
　　Dim dlgA As DialogSheet

　　Application.ScreenUpdating = False
　　Set bkA = Workbooks.Add
　　Set dlgA = bkA.DialogSheets.Add
　　Set edtA = dlgA.EditBoxes.Add(342, 135, 126, 18)
　　edtA.LockedText = False
　　edtA.Copy
　　bkA.Close SaveChanges:=False
　　Application.ScreenUpdating = True
　　ActiveSheet.Paste
End Sub

　
※.Excel World の 2006年7月13日 00:15 の日記をコピーしています。
http://excel.sns.fc2.com/excel/