エクセル豆知識（入力規則）

忘れていたので、追加しておきます。

データに入力する際に間違いをしない設定です。

※作業担当者に注意してね！ではダメです。

１、A列に、数値（整数）のみ入力

　　A列を選択、データ＝＞入力規則　＝＞整数　＝＞　次の値がおおきい　＝＞　０

　　正の整数のみ入力可能になります。

２、B列に、日付のみ入力

　　B列を選択、データ＝＞入力規則　＝＞日付　＝＞　次の値以上　＝＞　＝Today()

　　今日以上の日付のみ入力可能になります。

３、C列に、半角のみ入力（英数字）

　　C列を選択　データ＝＞入力規則　＝＞日本語入力　＝＞　無効

４、D列に、半角のみ入力（半角ｶﾅ＋英数字）

　　VBAの力を借ります。シート名のタブを右クリック、コードの表示をクリック、VBエディター

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Value = WorksheetFunction.Asc(StrConv(Application.GetPhonetic(Target.Value), vbkatakanahalf))
End If
End Sub

５、E列に、全角ひらがな

　　VBAの力を借ります。シート名のタブを右クリック、コードの表示をクリック、VBエディター

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Target.Value = StrConv(Application.GetPhonetic(Target.Value), vbHiragana)
End If
End Sub

VBAのChangeイベント、Application.GetPhonetic関数があります。

６、E列に名前を入力すると、F列に全角ひらがなのフリガナ（多分、使い方はこちら）

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Target.Offset(0, 1).Value = StrConv(Application.GetPhonetic(Target.Value), vbHiragana)
End If
End Sub