Webstjam

海外からのファイルで、存在はしてるのに表示されない、検索も出来ない謎の文字があったので作成。 A列の2行目以降にチェックしたい文字列を置いて、B列に結果を返すかたち。 文字コードはCODE関数で調べる。

Sub TextBoxFormat() Dim myOb As Object For Each myOb In ActiveSheet.TextBoxes With myOb '書式設定 .HorizontalAlignment = xlCenter .VerticalA...

Sub FileNameCopy() Dim name As String Dim CB As New DataObject name = ActiveWorkbook.name With CB .SetText name .PutInClipboard End With End...

Sub SheetAdd() Dim myMsg As String, myTitle As String Dim AddNum As Integer myMsg = “追加するシート枚数を入力” myTitle = “ワークシートを挿入” AddNum = Applicatio...