A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
カンペならイッパイ転がってるよ~、、、
ユーザフォーム入門 - 住所入力フォームを作成する(4) ~ ワークシートへの転記他
(Excel 2000)
http://www.moug.net/tech/exvba/0090037.html
No.2
- 回答日時:
こんにちは!
>エクセルでデータ入力用のフォームは作ることができたのですが
とありますが、どのようなフォームになっているか判りませんので
テキストボックスを3個配置し、
テキストボックス1が「分類」
テキストボックス2が「図書名」
テキストボックス3が「冊数」の数値
をそれぞれ入力し、コマンドボタンでSheetに上から順次表示させるユーザーフォームだとします。
仮に1行目が項目行で2行目以降のA~D列にデータを列記する場合の一例です。
コマンドボタンのコードに
Private Sub CommandButton1_Click()
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = .Row - 1
.Offset(, 1) = TextBox1
.Offset(, 2) = TextBox2
.Offset(, 3) = TextBox3.Value
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
といった具合ではどうでしょうか?
※ コード内の
> .Row - 1
の部分で番号調節を行います。
仮に項目行が4列目で5行目からデータを列記する場合は
> .Row - 4
となります。
参考になりますかね?m(_ _)m
No.1
- 回答日時:
作成されたデータ入力用のフォームが、どのような物なのか分かりませんが、
仮に、添付の図のような環境だとします。
ユーザフォームのコードは、以下のように感じになります。
--------------------------------------------------
''------------------------------
'' フォームの初期化
''------------------------------
Private Sub UserForm_Initialize()
'' 分類のセット
cmbGroup.AddItem "文庫本"
cmbGroup.AddItem "週刊誌"
cmbGroup.AddItem "月刊誌"
'' 冊数のセット
txtNumber.Value = 1
txtNumber.Locked = True
End Sub
''------------------------------
'' 冊数スピンボタン[▲]押下時
''------------------------------
Private Sub spnNumber_SpinUp()
txtNumber.Value = txtNumber.Value + 1
End Sub
''------------------------------
'' 冊数スピンボタン[▼]押下時
''------------------------------
Private Sub spnNumber_SpinDown()
If txtNumber.Value > 1 Then
txtNumber.Value = txtNumber.Value - 1
End If
End Sub
''------------------------------
'' 新規登録ボタン押下時
''------------------------------
Private Sub cmdAdd_Click()
Dim ws As Worksheet
Dim ret As Range
Dim iRow As Long
'' 確認メッセージ
If MsgBox("登録しますか?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If
'' 入力チェック
If cmbGroup.Value = "" Then
MsgBox "分類を選択してください"
Exit Sub
End If
If Trim(txtTitle.Value) = "" Then
MsgBox "タイトルを入力してください"
Exit Sub
End If
'' 対象のワークシートをセット
Set ws = ThisWorkbook.Worksheets("蔵書一覧")
'' 重複チェック
Set ret = ws.UsedRange.Find( _
What:=txtTitle.Value, _
After:=ws.Range("C2"), _
LookAt:=xlWhole, _
SearchOrder:=xlByRows)
If Not ret Is Nothing Then
MsgBox "タイトル『" & txtTitle.Value & "』は既に登録されています。"
Exit Sub
End If
'' 新規行の追加
iRow = ws.UsedRange.End(xlDown).row + 1
ws.Cells(iRow, 1).Value = ws.Cells(iRow - 1, 1).Value + 1
ws.Cells(iRow, 2).Value = cmbGroup.Value
ws.Cells(iRow, 3).Value = txtTitle.Value
ws.Cells(iRow, 4).Value = txtNumber.Value
'' 書式のセット
ws.Range(ws.Cells(iRow - 1, 1), ws.Cells(iRow - 1, 4)).Copy
ws.Range(ws.Cells(iRow, 1), ws.Cells(iRow, 4)).PasteSpecial _
Paste:=xlPasteFormats
Application.CutCopyMode = False
ws.Cells(1, 1).Select
End Sub
--------------------------------------------------
上記コードでは、適当に入力チェックや重複チェックを入れてありますが、
これらは仕様によりますので、必要に応じて行ってください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCELでシート1で作ったデータをシート2にデータを蓄積させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
【Access】規定のシートを「デ...
-
フォームの高さを数値で指定し...
-
Access2003 フォーム入力中に...
-
ACCESS クロス集計クエリの抽...
-
デフォルトでチェックボックス...
-
ファイルへのアクセスエラーが...
-
アクセスのレコードをフォーム...
-
AccessのOLEオブジェクトのファ...
-
Accessのフォームで開く時のウ...
-
Accessのフォームを改ページしたい
-
ACCESSでオートメーションエラー
-
access vba 開いていないフォー...
-
Accessで、フォームからフォー...
-
Excelのデータフォームの設定変更
-
MSワード 年齢を計算表示でき...
-
【急いでおります!】Access200...
-
Access テキストボックスの通貨型
-
フォームなどに半角カナで入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
フォームの高さを数値で指定し...
-
Accessで、フォームからフォー...
-
帳票フォームのなかにリストを...
-
MSワード 年齢を計算表示でき...
-
デフォルトでチェックボックス...
-
Accessフォームを開くときに決...
-
ACCESSでオートメーションエラー
-
アクセス フォームをリクエリ...
-
Accessのフォームで開く時のウ...
-
アクセスで複数列にまたがる同...
-
アクセスで同じフォームを違う...
-
ACCESS クロス集計クエリの抽...
-
フォームなどに半角カナで入力...
-
エクスポートされたエクセルの...
-
access vba 開いていないフォー...
-
大至急!アクセスのフォームを...
-
エクセルで各セルをダブルクリ...
-
アクセスのレコードをフォーム...
おすすめ情報