翻訳チェック用エクセルマクロ

英和・和英翻訳チェック時には、エクセルの両隣のセルに一文ずつ和文と英文とを並べて見比べながらチェックするのが効率的です。
そこで、エクセルに貼り付けた後にチェックしながらする処理として、「下セルと結合」、「セル削除」、「セル挿入」、および「上セルと結合」ボタンを作成しました。

ツール 翻訳

なお、マクロの内容は以下の通りです。

「セル挿入」

Sub セル挿入()

‘ セル挿入 Macro
‘ セルを挿入して下方向にシフトする


Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
End Sub

「セル削除」
Sub セル削除()

‘ セル削除 Macro
‘ セルを削除して上方向にシフトする


Selection.Delete Shift:=xlUp
End Sub

「下セルと結合」
Sub 下セルと結合()

‘ 下セルと結合 Macro
‘ 下セルの内容を結合する

‘ 選択セルをカウントして2以上ならばエラーを出す
Dim Num As Integer
Num = Selection.Count
If Num >= 2 Then
MsgBox “1つのセルだけを選択して下さい”, vbOKOnly + vbExclamation, “エラー”
Exit Sub
End If

‘ 選択したセルとその下のセルを選択
Range(Selection, ActiveCell.Offset(1, 0)).Select

‘ 選択したセル範囲の内容を結合
Dim objCell As Range
Dim strText As String
On Error Resume Next
Application.DisplayAlerts = False
strText = “”
For Each objCell In Selection
strText = strText & objCell.Text
Next
Selection.CONCATENATE = True
Selection.Value = strText
Application.DisplayAlerts = True

‘ 下のセルを選択して削除して上方向にシフトする
ActiveCell.Offset(1, 0).Delete Shift:=xlUp

‘ 選択範囲内の最上位のセルを選択
Selection(1).Select
End Sub

「上セルと結合」
Sub 上セルと結合()

‘ 上セルと結合 Macro
‘ 上セルの内容を結合する

‘ 選択セルをカウントして2以上ならばエラーを出す
Dim Num As Integer
Num = Selection.Count
If Num >= 2 Then
MsgBox “1つのセルだけを選択して下さい”, vbOKOnly + vbExclamation, “エラー”
Exit Sub
End If

‘ 選択したセルとその上のセルを選択
Range(Selection, ActiveCell.Offset(-1, 0)).Select

‘ 選択したセル範囲の内容を結合
Dim objCell As Range
Dim strText As String
On Error Resume Next
Application.DisplayAlerts = False
strText = “”
For Each objCell In Selection
strText = strText & objCell.Text
Next
Selection.CONCATENATE = True
Selection.Value = strText
Application.DisplayAlerts = True

‘ 下のセルを選択して削除して上方向にシフトする
ActiveCell.Offset(1, 0).Delete Shift:=xlUp

‘ 選択範囲内の最上位のセルを選択
Selection(1).Select
End Sub

○作者コメント
・本コンテンツを改良、変更、又は応用したコンテンツについて、本投稿のコメント欄に投稿して頂けると嬉しいです。
・本コンテンツについては、業としての利用を含み、自由に改変、複製、譲渡、公衆送信、及びその他の利用行為を行うことを許諾します。ただし、公序良俗に反する態様での利用行為については禁止します。
・私は、上記許諾範囲内において、本コンテンツに係る著作権、著作者人格権、及びその他のいかなる権利も行使しないことを約束します。
・本コンテンツ又は本コンテンツを改変などしたものの利用については、利用者が一切の責任を負い、作者は当該利用によって生じた結果についていかなる責任も負いません。

2+

コメントする