TextBoxのデータをsheetに転記する方法

1 TextBoxのデータをsheetに転記する方法

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

taka

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

TextBoxのデータをsheetに転記する方法

【TextBoxのデータをsheetに転記する方法】

先日、ExcelVBAの勉強を始めたばかりの同僚に聞かれて説明したのですが、まだ本ブログで紹介をしてい無かったので今回ブログに書こうと思いました。

ExcelVBAで初めてユーザーフォームでデータを追加する時にぶつかる一つの壁になると思いますが説明を見れば割と理解しやすいコードになっていますのでこの記事が少しでも役に立てれば光栄です。

用意するユーザーフォーム

TextBoxのデータをシートに転記する方法という事でユーザーフォームを使用します。今回は下記のようなフォームを用意します。

※Labelの【氏名】と【住所】は特に必須ではありません。

ユーザーフォームについてはこちら

E-VBA

ユーザーフォームについて1

ユーザーフォームについて1ユーザーフォームはExcelVBAの機能として標準設置されています。ユーザーフォームを使えばExcelで作成したと思えないプログラムができます。...

E-VBA

ユーザーフォームについて2【コントロールについて】

ユーザーフォームについて2【コントロールについて】ユーザーフォームのコントロールについて、VBAのユーザーフォームでは様々なコントロールが用意されています。コン...

データを追加するコード

今回のデータを追加するコードですが、今回はコマンドボタンで登録をするという方法を取ります。

今回使用するコードはこちらになります。

Private Sub CommandButton1_Click()
With Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = TextBox1.Value
.Offset(1, 1) = TextBox2.Value
End With
End Sub

Private Sub CommandButton1_Click()

With Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)

.Offset(1, 0) = TextBox1.Value

.Offset(1, 1) = TextBox2.Value

End With

End Sub

これは本当に最低限データを追加するためだけのコードです。※エラーチェックなどの機能はありません。

コードの解説

ではコードの解説を始めます。

今回の流れは

Withを使う
データがある最終行を取得する
データを追加する

この3ステップを踏んでいきます。

1.Withを使う

まずコードの簡略化をするために【Withステートメント】を使用します。

With

With

Withステートメントは簡単に説明すると宣言しておいて繰り返すことを簡略することです。

鈴木.歩く
鈴木.走る
鈴木.ジャンプ

という命令を

鈴木は【With】
歩く
走る
ジャンプ
した。【End With】

のようにするイメージになります。

Withステートメントについてはこちら

E-VBA

オブジェクトの命令をまとめる【Withステートメント】

オブジェクトの命令をまとめる【Withステートメント】オブジェクトの命令をまとめる事ができる【Withステートメント】、オブジェクトの命令をまとめると言われてもいま...

2.データがある最終行を取得する

データを追加するにはデータの最終行を取得する必要があります、そのコードがこちら。

With Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)

1	With Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)

これは【sheet1のA列を下から見ていってデータがある所】で止まるという意味のコードです。

そしてWithでこのコードを宣言しておくことでWithの範囲内ではこのコードは今後不要になります。

データの最終行の取得についてはこちら

E-VBA

データのある最終行を取得する方法

データのある最終行を取得する方法データのある最終行を取得する方法もしVBAでデータを登録していくシステムを作りたいと思った場合、データがある最終行を取得し...

3.データを追加する

上記のままでは最終行を取得しても、そこにデータを追加するのでは最終行でずっとデータを上書きをし続けるだけになってしまいます。データがある行の下に追加していかないといけないのです。

データの最終行の下を取得するのがOffsetプロパティです。

OffSetプロパティについてはこちら

Withで最終行取得まで省略しているので下記のコードだけでOKです。

.Offset(1, 0) = TextBox1.Value
.Offset(1, 1) = TextBox2.Value
End　With

.Offset(1, 0) = TextBox1.Value

.Offset(1, 1) = TextBox2.Value

End　With

このように記述することによって【sheet1のA列を下から見ていってデータがある所の一個下【Offset(1, 0)】のデータはTextBox1のデータ】というコードが完成します。

赤文字がWithのコードです。

まとめ

今回のデータの追加のコードはデータを追加するコードの中でよく紹介されているコードです、ExcelVBAを始めたばかりの人は必ずこのコードを通っていくと思います。そして長い期間使用するコードでもありますので是非覚えてExcelVBAをさらに勉強していってください。

※なるべく解りやすく書いたつもりですが解りにくい所がありましたら指摘があれば訂正します。

下にサンプルファイルを用意してありますのでご利用ください。

データの追加

1 file(s) 15.11 KB

Download

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

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

カテゴリーで絞る

月で探す

TextBoxのデータをsheetに転記する方法

taka

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

TextBoxのデータをsheetに転記する方法

【TextBoxのデータをsheetに転記する方法】

用意するユーザーフォーム

データを追加するコード

コードの解説

1.Withを使う

2.データがある最終行を取得する

3.データを追加する

まとめ

データの追加

フォロー・チャンネル登録お願いします

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

Sponsored Link

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

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

TextBoxのデータをsheetに転記する方法

【TextBoxのデータをsheetに転記する方法】

用意するユーザーフォーム

データを追加するコード

コードの解説

1.Withを使う

2.データがある最終行を取得する

3.データを追加する

まとめ

データの追加

フォロー・チャンネル登録お願いします

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

Sponsored Link

共有:

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

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

意外と知らない!?VBEでもできる便利な一括コメントアウト方法

システム開発者は要注意!?対処済みですか?個人情報保護法改正のポイント

VBA【Stopステートメント】処理を中断する

グラフを作成する 1

VBAでsheet操作3【sheetの名前変更】

VBA 【Option Explicit】について

ユーザーフォームに時計をつけてみる

sheetをPDFで保存するコード1

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

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