【Excel】特定コードの文字のみ削除する

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

Read More

【Excel】現在のシート内にあるテキストボックスの書式を一括で変更する

Sub TextBoxFormat()

Dim myOb As Object

For Each myOb In ActiveSheet.TextBoxes

With myOb '書式設定
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

Next

End Sub

参考：この辺

Read More

現在のファイル名をクリップボードにコピー

Sub FileNameCopy()

Dim name As String
Dim CB As New DataObject

name = ActiveWorkbook.name

With CB
.SetText name
.PutInClipboard
End With

End Sub

※ Microsoft Forms 2.0 Object Libraryを参照設定

Read More

ワークシートを任意の枚数挿入

Sub SheetAdd()

Dim myMsg As String, myTitle As String
Dim AddNum As Integer

myMsg = “追加するシート枚数を入力” myTitle = “ワークシートを挿入”
AddNum = Application.InputBox(Prompt:=myMsg, Title:=myTitle, _
Default:=1, Type:=1)
ActiveWorkbook.Worksheets.Add _
after:=Worksheets(Worksheets.Count), _
Count:=AddNum

End Sub

Read More