縦書き数値、どうしてますか?


三流君のHP [サイトマップ] [VBA系] [ASP系] [コンビニ系] [愚痴系]
====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流PG 番外編 今日の一品 No.019 ]   2000/03/31 金曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流PG 番外編 今日の一品 は 隠し味として、 
軽めのVBA関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------

縦書き数値、どうしてますか?

下記の質問メールいただきました。*番外編No.17に対して ---------------- >> oApp.Selection.TypeText Text:=縦書用数値変換(Me![地積]) > 縦書用数値変換ってなんですか? えっと、契約書が縦書きで、数値を漢数字にしなければならなく、 変換しています。 *Access ---> Word の処理には関係無いです 混乱してしまった方、、、すみません。 例)番地1732 を 壱七参弐   (実際の業務では、千とか百とか付けないと行けないので、    担当者が書きなおしてるけど、、、) 下記が変換ルーチンです(ムダが多いけど、、) Function 縦書用数値変換(MOJI) As String Dim RET As String Dim loop_sw As Boolean Dim mcnt As Integer Dim wmoji As String Dim i As Integer Const SUJI = "1234567890" Const KANJI = "壱弐参四五六七八九〇" RET = StrConv(MOJI & "", vbWide) Rem ハイフンの調整 loop_sw = True While loop_sw = True mcnt = InStr(1, RET, "−") If mcnt = 0 Then loop_sw = False Else Mid(RET, mcnt, 1) = "ー" End If Wend Rem 数字の調整 For mcnt = 1 To Len(RET) wmoji = Mid(RET, mcnt, 1) For i = 1 To 10 If wmoji = Mid(SUJI, i, 1) Then Mid(RET, mcnt, 1) = Mid(KANJI, i, 1) Exit For End If Next i Next mcnt 縦書用数値変換 = Trim(RET) End Function 年賀状ソフトの数値-->漢数字変換ルーチン、、はどうやっているんだろう? 奥が深そう、、。 アルゴリズムに弱いやっぱ、三流だなぁ、、 と声が聞こえてきたところで、このへんで、、 今日も逃げ出す、、、最近サブ関数組めなくなった Ken3 でした。


質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
感想や質問・要望・苦情など 三流君へメッセージを送る。
時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。
あなたのお名前(ニックネーム):さん
返信は?: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい

(感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)

2000/05/13 SQL Count関数を使ってみる
2000/05/11 Access97 標準関数Midなどが使えない
2000/05/09 SendObjectのエンコード
2000/05/08 クエリーで〜以外とは
2000/04/27 Imagingコントロールを使ってみた
2000/04/25 Excel97 VBA イベントなど
2000/04/24 Access97で複数のプリンタを切替えて使用
2000/04/20 書式付きエクスポート DoCmd.OutputToで、できます
2000/04/19 Access97でExcel形式へExport時に書式設定を行いたい
2000/04/13 Access97でOutlook97/98とリンクする方法
2000/04/13 VBA Nameステートメント
2000/04/04 Accessでキー取得
2000/04/04 AccessでFile参照ダイアログ?
2000/04/03 縦書用数値変換改良
2000/04/01 Access Err テーブルを消したい
2000/03/31 縦書き数値、どうしてますか?
2000/03/29 VBA 手抜きで、処理後、explorerを開く
2000/03/28 Access --> Word へデータ
2000/03/24 名前一覧Excelの機能で、同じことできました
2000/03/23 Excel97 VBA セルに付けた名前一覧を作成する
2000/03/21 Excel セルに名前付け
2000/02/25 iniFileを読む GetPrivateProfileString
2000/02/15 Excel VBA Rangeオブジェクトとサンプル
2000/02/14 Access97 SizeMode/OLEサイズ で画像調整
2000/02/10 Access97 Pictureプロパティとサンプル
2000/02/09 Access97 集計クエリーで重複値をハジク
2000/02/07 Access97 サブフォームへ値をセット
2000/02/04 Access97 コントロールソース、チョットした使用法
2000/02/01 Access97 フォームフッター
2000/01/18 Access97 now()関数で有効期限処理、、、

←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社(アスキー、インプレス等)が共同運営するコンピュータの本・専門店 種類が豊富で探し易い※在庫ありが48時間以内発送


[三流君(TOP)]へ戻る。