エクセルVBAでチェックボックスのONOFFでボタン表示を変える方法

こんにちは～。「デザインもできるシステムエンジニア」のあつもり(@atumori17)です。今日も「時間クリエーター」としてノー残業をめざしますっ！

全10回の連載でエクセルのデータ編集に便利な機能を詰め込んだランチャーアプリを作っていきます。今回はその第3回目です。

前回は「セル内の文字列を操作して全角文字を半角に一括変換する方法」を紹介しました。

エクセルVBAでセル内の文字列を操作して全角文字を半角に一括変換する方法

全角を半角への変換はASC関数、半角から全角への変換はJIS関数を使って、ワークシート内でもできるのですが、毎回入力するのは面倒ですよね。VBAを使えば別のエクセルファイルでも使える汎用的なプログラムが作れるのでとっても便利ですよ。

asatte.biz

2017-06-25 17:59

今回は「チェックボックスのONOFFでボタン表示を変える」テクニックをご紹介していきます。

1 なぜチェックボックスを使うのか
2 ユーザーフォームにチェックボックスとラベルを追加する
3 チェックボックスがONOFFされたときの処理を追加する
- 3.1 前回作った「全角→半角」のソースコードの修正
4 修正したソースコード
5 アプリケーションの動作確認をする
6 まとめ
7 時短のおつまみ
8 [連載記事全10回] エクセルVBAで文字列変換ツールを作る

なぜチェックボックスを使うのか

なぜチェックボックスを使うのかというと、チェックボックスを使うことで見た目のデザインがすっきりするんですね。

前回「全角文字を半角文字」に変換するボタンを作りましたが、今回は逆に「半角文字を全角文字」に変換する機能を追加します。

そのとき、「半角文字を全角文字」に変換するボタンを新たに付け加えてもよいのですが、ボタンが増えて見栄えが悪いと思いませんか？

この先、さらに機能を追加していくことを考えたら、なおさらボタン数は少ないほうが見やすいと思います。

そこでチェックボックスの登場というわけです。チェックボックスのONOFFで「全角→半角」「全角→半角」を切り替えることができれば見た目がすっきりしますよね。

ユーザーフォームにチェックボックスとラベルを追加する

それではさっそく前回使ったプログラムにチェックボックスを追加していきます。前回作った「一括変換.xls」を開きます。

UserForm1を開いて新たにチェックボックスを追加します。ツールボックスからチェックボックスをクリックした後に、ユーザーフォーム上の置きたい場所までドラッグします。

続いてラベルを作ります。さきほどと同じようにしてツールボックスでラベルをクリックしてからユーザーフォーム上の適当な位置までドラッグします。

ラベルを右クリックしてプロパティを開き、captionを「半角→全角」にします。

ラベルが「半角→全角」になりました。

チェックボックスがONOFFされたときの処理を追加する

チェックボックスをダブルクリックしてVisual Basic Editorを開きます。CheckBox1_Click()プロシージャの下に以下のコードを書きます。

    'チェックボックスの値でボタンの文字を変える
    If CheckBox1.Value = True Then
        CommandButton2.Caption = "半角→全角"
    Else
        CommandButton2.Caption = "全角→半角"
    End If

'チェックボックスの値でボタンの文字を変える

If CheckBox1.Value = True Then

CommandButton2.Caption = "半角→全角"

Else

CommandButton2.Caption = "全角→半角"

End If

CheckBox1.Value

CheckBox1.valueでチェックボックスの値を取得します。値がある場合はtrue、ない場合はfalseを返します。つまりチェックがONならtrue、OFFならfalseを返します。

ここではtrueの場合、ボタンの表示を「半角→全角」にし、Falseの場合は、ボタンを「全角→半角」にしています。

前回作った「全角→半角」のソースコードの修正

今度は前回作った「全角→半角」のソースコードの一部を変更します。といっても大幅に変更するわけではありません。始めのほうに数行追加するだけです。

それではCommandButton1_Click()プロシージャに移ります。

変更前

　'全角から半角に変換
　selConv = vbNarrow

1 2	'全角から半角に変換　selConv = vbNarrow

変更後

    If CheckBox1.Value = True Then
        '半角から全角に変換
        selConv = vbWide
    Else
        '全角から半角に変換
        selConv = vbNarrow
    End If

If CheckBox1.Value = True Then

'半角から全角に変換

selConv = vbWide

Else

'全角から半角に変換

selConv = vbNarrow

End If

チェックボックスのチェックがONならselConv変数に「vbWide」、OFFなら「vbNarrow」を入れています。

ここで一度selConv変数に変換の種類を入れていますが、実際に変換するのは下記のコードになります。

strCelldata = StrConv(strCelldata, selConv)

1	strCelldata = StrConv(strCelldata, selConv)

strConv(変換する文字、変換の種類）

変換の種類に先ほどselConv変数に入れた、「vbWide」または「vbNarrow」が入ります。

修正したソースコード

修正したソースコードは以下になります。

'全角から半角に変換
Private Sub CommandButton2_Click()

Dim tmp
Dim Col As Long
Dim Row_Start As Long
Dim Row_End As Long
Dim strCelldata As String
Dim y As Long
Dim selConv As String

    If CheckBox1.Value = True Then
        '半角から全角に変換
        selConv = vbWide
    Else
        '全角から半角に変換
        selConv = vbNarrow
    End If

    '処理開始行
    Row_Start = 2
    
    '最終行を取得
    With ActiveSheet.UsedRange
     Row_End = .Rows(.Rows.Count).Row
    End With

    'キャンセルが押された場合は処理を終了する
    On Error GoTo myError
    tmp = Application.InputBox("列を選択して下さい", "列の選択", Type:=8).Address
    Range(tmp).Select
    
    '選択した列番号
    Col = Selection.Column
                       
    For y = Row_Start To Row_End
        strCelldata = Cells(y, Col).Value
        '全角から半角に変換する
        strCelldata = StrConv(strCelldata, selConv)
        Cells(y, Col).Value = strCelldata
    Next y
    
myError:

End Sub