千葉銀行の払い戻し用紙用のExcelファイルを作成しました

1 使用方法
2 コードを一部を公開
- 2.1 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

使用方法

このプログラムでは千葉銀行の払い戻し用紙に対して以下の項目を入力することが出来ます。

会社名
代表者名
店番号
口座番号
払い戻し金額

の5点です。

注意点
本プログラムは、EPSON PX105で動作確認をいたしました、プリンターによっては印字がズレてしまうかもしれません。

↓対応用紙はこちら

↓使用時のイメージ

コードを一部を公開

千葉銀行払い戻し用紙のExcelファイルを構成しているプログラムの処理の一部を公開します！

Excelファイルのコードにもパスワードなどは付けていないので、ご自由に改修してください(^^♪

'↓値に対しての処理*******************************************
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

'↓値に対しての処理*******************************************

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

Download

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

千葉銀行の払い戻し用紙用のExcelファイルを作成しました

taka

最新記事 by taka (全て見る)

使用方法

コードを一部を公開

ダウンロード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

使用方法

コードを一部を公開

ダウンロード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBAでアクティブシート以外を削除する

VBAセルの範囲に数式が使われているか取得する

ExcelのBookを×で閉じれなくする方法

ユーザーフォーム上にグラフを表示させる方法

アクティブブック以外を閉じる方法

VBA ユーザーフォームのデザインを考えてみる2(コマンドボタンエフェクト)

VBA ユーザーフォームのデザインを考えてみる(アニメーション効果作成)

VBAでマウスポインターの形を変える方法

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル