ステージ追加や処理速度やバグなどを修正した新バージョンのDLはこちら→http://cgi30.plala.or.jp/chikada/vba/acd.shtml　　その他の作品、ドラクエバトル→sm13272718　みんなでアトランチス→sm13465748

ExcelをHTMLに変換して使ってる、見栄えはいいし、編集楽だしね 問題は「ふりがな」が残って検索できないとかサイズが無駄に大きくなること 例） Excelで「今日は晴れ」と入力、HTMLで保存 HTMLの「今日は晴れ」をメモ帳などにコピペすると 「今日キョウは晴ハれ」となってしまう ふりがなを消すマクロ動かしてから保存すれば解決した Sub Ruby_Del() '' マクロ実行中の画面描写をOFF Application.ScreenUpdating = False '' A列を選択　（A:A＝選択列番号） Columns("A:A").Phonetics.Delete // '' シート全体を選択する場合　（AAA＝シート名） // Sheets("AAA").Phonetics.Delete // '' A1セルを選択する Range("A1").Select '' 画面の更新を

昨日眠かったので。。。 数字と小数点を抜き出すマクロ（アドイン）を作った エラー処理は一つもしていないので、なんとかしたい。 インプットボックスからセルの範囲を取得できるなら そのほうがわかりやすい気がする。かも。 '__________ ■ ThisWorkbook.clsの内容 __________ Option Explicit '***** アドインのインストール時 Private Sub Workbook_AddinInstall() '***** アドイン用コマンドバーを追加 Dim Menubar As CommandBar Set Menubar = Application.CommandBars.Add(Name:="数値抽出アドイン") '***** コマンドボタンを設定 With Menubar.Controls.Add(Type:=msoControlButton)