センチをポイントに変換し、セルの高さを設定(CentimetersToPoints) : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





Excel VBAで入力されたCmをポイントに変換し、セルの行高さを設定します。

Excelシート画面

変更前のExcelシート
変更前シート

CmをPointに変換するユーザーフォーム
Cmに入力し「変換」ボタンをクリックすると、変換したポイントを下のテキストボックスに表示し、2行目と3行目の高さを変更します。
センチメートルをポイント変換

変更後のシート。行高さが変わっています。
行高さ変更シート

スポンサーリンク





Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim ln As Single
    
    '数値かどうか確認
    If IsNumeric(TextBox1.Text) Then
        'cmをポイントに変換
        ln = Application.CentimetersToPoints(TextBox1.Text)
        
        TextBox2.Text = ln
        
        'セルの高さを変更
        ActiveSheet.Rows("2:3").RowHeight = ln
    Else
        Beep
    End If
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved