この記事では、エクセルでピクセルとmm(ミリメートル)の相互換算方法について解説していきます。
ポイントは、以下の通りです。
・1mmは約3.7795275591ピクセルで換算可能
・数式とマクロの両方で換算できる
エクセル操作は1つ1つ追っていけば必ずうまくできるため、ぜひ本記事を参考にスキルアップにつなげてくださいませ♪
エクセルでピクセルからmm(ミリメートル)への換算方法【1ピクセルは何ミリ?】
それでは以下のサンプルを用いてピクセルからmmへの換算方法を確認していきます。
※厳密にミリ単位で指定したい場合は、設定自体を見直すとよく、これは1ピクセルは約0.2645833333mmに相当します。
A列のピクセル数をB列のmmに換算するため、B3セルに以下の数式を入力します。
=A3*0.2645833333

ENTERで処理を確定させます。
さらに、B3セルの右下にカーソルを合わせてダブルクリックすると、オートフィルでB列全体に数式が反映されます。
これで、A列のピクセル数がB列のmm値に換算されました。
エクセルでmmからピクセルへの換算方法【1mmは何ピクセル?】
続いては、mmからピクセルへの換算方法を確認していきます。
1mmは約3.7795275591ピクセルに相当します。
A列のmm値をB列のピクセルに換算するため、B3セルに以下の数式を入力します。
=A3*3.7795275591
ENTERで確定後、オートフィルでB列全体に反映させましょう。
これにより、A列のmm値がB列のピクセル数に換算されます。
ピクセルからmmへの換算マクロ
ピクセルからmmへの換算をマクロで自動化する方法を見ていきます。以下のコードをVBAエディタに貼り付けて実行しましょう。
Sub ConvertPixelToMm()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Cells(i, 2).Value = Cells(i, 1).Value * 0.2645833333
Next i
End Sub
このマクロは、A列のピクセル数をB列のmmに自動換算します。
lastRow変数でA列の最終行を取得し、forループでA列のピクセル数に0.2645833333を掛けてB列に代入しています。
マクロを実行すると、B列全体にmm値が表示されます。
mmからピクセルへの換算マクロ
最後に、mmからピクセルへの換算をマクロで自動化する方法を確認します。
以下のコードをVBAエディタに貼り付けて実行してください。
Sub ConvertMmToPixel()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Cells(i, 2).Value = Cells(i, 1).Value * 3.7795275591
Next i
End Sub
このマクロは、A列のmm値をB列のピクセル数に自動換算します。
lastRow変数でA列の最終行を取得し、forループでA列のmm値に3.7795275591を掛けてB列に代入しています。マクロを実行すると、B列全体にピクセル数が表示されます。
まとめ エクセルでのピクセルとmm(ミリ)の変換方法【単位換算】
以上で、エクセルでピクセルとmmの相互換算方法を解説しました。
換算係数を使った数式とマクロの両方で簡単に計算できます。ぜひ実際のデータで試してみてくださいね。