The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
どうも、takaです。
今回はだいぶニッチな内容ですが・・・
千葉銀行の払い戻し用紙を印刷できるファイルを作成しました＼(◎o◎)／！←
まぁ個人的な物なのでここに載せようか悩みましたが、事務員の方なら毎日書く払い戻し用紙の面倒さがお分かり頂けるかと思います・・・
今回はそんな面倒な仕事を多少助けてくれるものを作成したつもりですので是非ご活用下さい(^’^)
一応印刷部分の処理をサンプルコードとして載せておきますので参考までに(^.^)
使用方法
このプログラムでは千葉銀行の払い戻し用紙に対して以下の項目を入力することが出来ます。
- 会社名
- 代表者名
- 店番号
- 口座番号
- 払い戻し金額
の5点です。
注意点
本プログラムは、EPSON PX105で動作確認をいたしました、プリンターによっては印字がズレてしまうかもしれません。
本プログラムは、EPSON PX105で動作確認をいたしました、プリンターによっては印字がズレてしまうかもしれません。
↓対応用紙はこちら
↓使用時のイメージ
コードを一部を公開
千葉銀行払い戻し用紙のExcelファイルを構成しているプログラムの処理の一部を公開します！
Excelファイルのコードにもパスワードなどは付けていないので、ご自由に改修してください(^^♪
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | '↓値に対しての処理******************************************* Dim str As String Dim i As Long '↓店番号の処理------------ With TextBox2 str = .Value For i = 1 To Len(str) Worksheets("印刷").Cells(2, i + 11).Value = Mid(str, i, 1) Next i End With '↓口座番号に対しての処理----------- With TextBox3 str = .Value For i = 1 To Len(str) Worksheets("印刷").Cells(2, i + 15).Value = Mid(str, i, 1) Next i End With '↓金額に対しての処理*----------------- With TextBox1 str = "\" & .Value w = 22 - Len(str) For i = 1 To Len(str) Worksheets("印刷").Cells(5, w + i).Value = Mid(str, i, 1) Next i End With Worksheets("印刷").Range("A2").Value = TextBox4.Value Worksheets("印刷").Range("A4").Value = TextBox5.Value '************************************************************** '印刷 Worksheets("印刷").PrintOut |
ダウンロード
ちばぎん払い戻し 40.90 KB
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す