初めてのアクセス。知ってますか・・・。

マイクロソフトエクセルのまとめ記事はこちら


Microsoft Office ブログランキングへ

封筒印刷


この内容で封筒印刷等も実現できると思います。

よく使用する「長３封筒」「角２封筒」の大きさに合わせて、

配置を考えれば実現できそうです。

ここで少し高度な技を！

レポート上で数字を漢数字に変換してみましょう。

引用させてもらったサイト

こちら

下のような内容のコードを記載した標準モジュールを作成します。

Public Function NumToKanji(strNum As String) As String

'半角数字を漢字の数字に変換する

Dim strKanji As String

Dim strCharacter As String

Dim intPos As Integer

Dim iintLoop As Integer

Const cstrNum As String = "0123456789"

Const cstrKanjiNum As String = "０一二三四五六七八九"

'引数を１文字ずつ変換するループ

For iintLoop = 1 To Len(strNum)

'引数より１文字を取り出し

strCharacter = Mid$(strNum, iintLoop, 1)

'その１文字が半角数字か(cstrNumに含まれるか)チェック

intPos = InStr(1, cstrNum, strCharacter, vbBinaryCompare)

If intPos > 0 Then

'半角数字の場合は漢字に変換

strKanji = strKanji & Mid$(cstrKanjiNum, intPos, 1)

Else

'半角数字でなければそのまま

strKanji = strKanji & strCharacter

End If

Next iintLoop

'漢字の文字列を返り値に設定

NumToKanji = strKanji

End Function

そしてレポート内に「非連結」のテキストボックスを作成して、

コントロールソースに「=NumToKanji([住所1])」と記載します。

注意として、今使用している「住所1」のテキストボックスに

追記してはいけません。

エラーになります。（循環エラー）

必ず非連結の新しいテキストボックスを作成してください。

これをレポート上で表示すると下記のようになります。



赤枠の部分です。

それからこのテキストボックスは縦書きに設定しています。

この方が自然ですね。

もう一つ紹介しておきましょう。

数字はそのままで「−」だけ縦書きにしています。

これも標準モジュールを追加します。

引用させてもらったサイト

こちら

コードは下記です。

Public Function AddressVConv(S) As String

Dim i As Long, P As Long, C As String


If IsNull(S) Then Exit Function

S = Replace(S, "-", "｜")

AddressVConv = Space(Len(S) * 3)

P = 1

For i = 1 To Len(S) - 1

C = Mid$(S, i, 1)

If C & Mid$(S, i + 1, 1) Like "[0-9][0-9]" Then

Mid$(AddressVConv, P, 1) = C

P = P + 1

Else

Mid$(AddressVConv, P, 3) = C & vbCrLf

P = P + 3

End If

Next

Mid$(AddressVConv, P, 1) = Mid$(S, i, 1)

AddressVConv = RTrim$(AddressVConv)

End Function

新たな非連結のテキストボックスを作り、

コントロールソースに「=AddressVConv([住所1])」と記載します。



この結果が上の赤枠です。

このテキストボックスは横書きのままです。

配置でセンターにしているだけです。

一文字ごとに見ていき「−」があれば「｜」に変換し、

「−」でなければ改行を入れるという内容です。

先に紹介したコードは「半角数字」が見つかれば「漢数字」に

変換という内容でした。

今回は「−」だけ縦書きにするというものです。

どちらも捨てがたいものがあります。

お好みで使用されてはどうでしょうか。