タイトル通りです。 文字の均等割り付けは最初の文字だけ有効です。 2個以上あった場合、2個目以降は均等されていません。 フォルダにあるワードファイルを全部開きます。 Sub テキストボックス内置換し均等割付() Dim PATH As String PATH = "C:\hogehoge\kakunin&qu...
上記タイトル通りです。 今日の日付とキーワード(この場合は「kuma」)が含まれているファイルを開き、シートのA1セルの文字をmsgboxで出します。 ファイルを探す方法は、エクセルレジェンドの田中先生のマクロを参考にさせていただきました。 Sub test() Dim path As String, buf As S...
↓「作業用」シートを用意していただき、A1セルに「シート名」とご入力なさってください。 ↓作業用ファイルにシート名を書き出した後、シート名を並べ替え、それに併せてシートを並べ替えました。 もう少しスマートな方法があるのかもしれませんが、取り急ぎ備忘まで。 Sub シートを並べ変える() With ActiveWorkb...