ExcelVBA【実践】データベースで従業員・顧客管理システム作成！検索・更新・追加・削除ボタンで簡単操作！【解説】後編

[@chanryo_eff]

※MsgBoxは、戻り値が不要な場合は「（）」不要でした💦ついつい他の言語の癖で😂
【リメイク版】こちらの方が見てほしいです！😊
ruclips.net/video/ZY7ebf2fXGk/видео.html
【配布あり】こちらでExcel講座をまとめています！
it-yobi.com/course/?pageNo=1&orderNo=2&categoryNo=10&link=4
●---Excel【基礎】---●
Excelを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
ruclips.net/p/PLuUrleRMhKDc1thXw-EmZAU34vhLrKnm3
●---Excel【実践】---●
実際に開発しながら解説しています！
詳しくは再生リストにて！
ruclips.net/p/PLuUrleRMhKDf4BrAPNt5lfJ7bGCcgCQUw
●---Excelその他---●
他にもデータベースなど再生リストを用意！
ruclips.net/channel/UCy5cpoeTKqZ2cDzWX8NB3Ggplaylists
●---Googleスプレッドシート【基礎】---●
Googleスプレッドシートを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
ruclips.net/p/PLuUrleRMhKDe5kCiV88fRUuxsMvZ5asJC
00:00​　今回の内容について
00:10​　前編の振り返り
00:49​　今回の作成内容について
02:14​　作成（振り返り）
02:33​　作成（追加ボタン）
13:08​　作成（削除ボタン）
19:41​　完成
21:34​　プログラム振り返り
22:21​　まとめ

[@たりかま]

まさに探していた動画です！仕事で、作りたいと思っていたので本当にありがたいです。VBAの勉強していない人でも作れるように説明してくれる動画、すごいです！前半の動画から何回も視聴しています！ありがとうございます♪

[@chanryo_eff]

そう言っていただけて何よりです！
ありがとうございます😆

[@たりかま]

@@chanryo_eff こちらこそです🎵
返信まで頂けて嬉しいです♪
これからもお勉強させて頂きます。

[@井之上周平]

凄い！！

[@chanryo_eff]

ありがとうございます😊

[@masamasataki7164]

私も長年の課題が本当にシンプルに解決。ありがとうございました！

[@chanryo_eff]

そう言っていただけて嬉しいです！！😂
ありがとうございます！
また気になることや実現したいことがありましたら、コメントください！😊

[@井之上周平]

初めの設定が大変そうですが、私の求めている検索・更新・追加の作業が1シートで出来てしまうこのシステム、最高です✨頑張って作ってみてみようと思います！
写真も検索・更新・追加も可能ですか？

[@chanryo_eff]

コメントありがとうございます！
写真などはこのシステムでは難しいですね💦
抽出方法としてこちらの動画が参考になるかもです！
it-yobi.com/excel-p-no204/?link=4

[@みちまさ-l2n]

すごくシンプルでわかりやすいです！検索というのでfindなどをつかうのかなと思いましたが、
応用がきくし、勉強になりました。

[@chanryo_eff]

ありがとうございます！
動画作成当時は単純にfindが抜けていました💦
VBA出身でないため、他の言語でも使えるような書き方になりがちですね😂

[@ctxmm917]

おかげさまで長年の課題が1日で理解できました。ありがとうございました。

[@hero88901]

とても参考になりました。
ありがとうございます。
複数の同じ番号を同時に検索したい場合はどうしたら宜しいですか。

[@chanryo_eff]

ありがとうございます。
数行で回答できる内容でもないため、概要欄に記載しています個別講座をご検討いただけますと幸いです。

[@内山友徳]

すごいわかりやすかったです！
ありがとうございます！
追加の部分に質問があります🙇‍♂️
動画内では従業員Noは10000から連続した数字が続く場合だと思うのですが、10,12,17,,,,,のようにバラバラに続いていく場合はどの部分を変えればいいでしょうか、、、教えてください！！

[@chanryo_eff]

コメントありがとうございます！
動画の場合、自動採番されるようになっていますが、バラバラの場合は、どのように採番されるのでしょうか？
特に決まっていない場合、
プログラム内の自動採番を入力している値に変更すれば実現できるかと思います！

[@kohdai621]

質問があります。
従業員番号を自動で割り当てるのではなく、従業員番号もこちらで入力後、、従業員一覧に追加していくには、どのようにしたらよいのでしょうか。もしよろしければ教えて頂きたいです。

[@chanryo_eff]

コメントありがとうございます！
今週の日曜日に投稿する予定の内容が、従業員番号も手動入力できる内容になっていますので、参考になるかもです😊

[@MG-zn6yo]

VBA初心者なのですが、質問よろしいでしょうか
追加項目の一番左の列(動画内でいう、従業員番号)が人の名前で行う場合は、newNo=worksheet(”○○”).Cells(no.”○”).Valueの所が「型が一致しません(エラー13)」と表示されてしまいます。
解決策や他の方法などはありますでしょうか？
教えていただきたいです。
よろしくお願いします。

[@chanryo_eff]

コメントありがとうございます！
変数には型というものが存在します。
newNoを宣言しているのは、Dim newNo As Longになります。
この意味は、「newNoはLongという型で使用する」になります。
ここで、Longについてネットで調べると整数と出てくるかと思います。
つまり、newNoは整数を入れる専用の入れ物ということです。
そこに、名前を入れようとしたので、「数字じゃない」となりエラーになりました。
対策は、Longではなく、文字列用の型にする必要があります。
ちなみに、文字列用の型はStringになります！

[@MG-zn6yo]

@@chanryo_eff
返信ありがとうございます。
longをstringに変えた場合newNo=newNo+1のところにも同じようなエラーが表示されました。これは1番左の列が数字列でないため式が当てはまらないと言う解釈でよろしいのでしょうか？
また、正しく起動するためにはどうすれば良いのかを相談させていただきたいです。
よろしくお願いします。

[@chanryo_eff]

文字列に+1することはできないからという解釈で大丈夫です。
エラーメッセージの内容を確認すると理解が深まると思います。
正しく起動するためには、
まずはどのような仕様にしたいのかを決めないといけません。
申し訳ないですが、カスタマイズについてはヒントまでの対応としています🙇‍♂️

[@MG-zn6yo]

@@chanryo_eff 返信ありがとうございます。
わかりました。
ありがとうございます。

[@佐藤澄江-r2p]

VBA初心者です。同じように何度もチェックし記述しているのですが、追加（）のnewNo = Worksheets("従業員一覧).Cells(no, "A").Valueの行に黄色が入り型が一致しませんになります。　他のボタンはすべて出来ました。　どうしてもどこが違っているのか分からないのですが、ご教示ください。

[@chanryo_eff]

内容を見ないと確認ができないため、追加のプログラム内容をこちらに貼っていただいても良いでしょうか🙇‍♂️

[@佐藤澄江-r2p]

@@chanryo_eff
すみません。コメントを書いたのも初めてだったのですが、先ほどプログラム内容を返信させていただいたものは送れておりますでしょうか？
送信済み内容を確認できなかったので、もしまだ送れておりませんでしたら、公開コメントの方に送らせていただければと思います

[@chanryo_eff]

申し訳ございません💦
プログラムはどちらに送られたのでしょうか？？
確認ができません😂

[@佐藤澄江-r2p]

@@chanryo_eff ご返信ありがとうございます。もう一度こちらに貼り付けてみたいと思います。
データはこちらで作ったものになり、シート名は異なります。長い内容になってすみません。
どうぞよろしくお願い致します。
Sub 新規登録2()
'一番下の空までひたすら見て行く。
Dim no As Long
Dim newNo As Long

no = 2


Do While Worksheets("加盟店一覧表").Cells(no, "A").Value ""

newNo = Worksheets("加盟店一覧表").Cells(no, "A").Value
no = no + 1


Loop

'空のところに来たタイミングでループを抜けだしnewNo + 1

newNo = newNo + 1

'新しい番号が打たれたところに新しい情報を入れていく
With Worksheets("検索・更新・追加・削除")

'追加登録作業する前に必要項目が空でないかチェックします
If .Range("AQ4").Value = "" Or _
.Range("B7").Value = "" Or _
.Range("L7").Value = "" Or _
.Range("AA7").Value = "" Or _
.Range("AK7").Value = "" Or _
.Range("AS7").Value = "" Then
MsgBox ("必須項目に空欄があります")
End
End If



'加盟店No
Worksheets("加盟店一覧表").Cells(no, "A").Value = newNo
'業種
Worksheets("加盟店一覧表").Cells(no, "B").Value = .Range("B7").Value
'個・法
Worksheets("加盟店一覧表").Cells(no, "C").Value = .Range("J7").Value
'法人名
Worksheets("加盟店一覧表").Cells(no, "D").Value = .Range("L7").Value
'代表者
Worksheets("加盟店一覧表").Cells(no, "E").Value = .Range("U7").Value

'〒
Worksheets("加盟店一覧表").Cells(no, "F").Value = .Range("AA7").Value
'所在地1
Worksheets("加盟店一覧表").Cells(no, "G").Value = .Range("AD7").Value
'所在地2
Worksheets("加盟店一覧表").Cells(no, "H").Value = .Range("AK").Value
'TEL
Worksheets("加盟店一覧表").Cells(no, "I").Value = .Range("AS7").Value
'FAX
Worksheets("加盟店一覧表").Cells(no, "J").Value = .Range("AY7").Value
'Mail
Worksheets("加盟店一覧表").Cells(no, "K").Value = .Range("BE7").Value

'従業員数
Worksheets("加盟店一覧表").Cells(no, "L").Value = .Range("BM7").Value
'工事担当者数
Worksheets("加盟店一覧表").Cells(no, "M").Value = .Range("BQ7").Value
'従業員年代
Worksheets("加盟店一覧表").Cells(no, "N").Value = .Range("BU7").Value
'始業時間
Worksheets("加盟店一覧表").Cells(no, "O").Value = .Range("BY7").Value
'終業時間
Worksheets("加盟店一覧表").Cells(no, "P").Value = .Range("CB7").Value
'定休日
Worksheets("加盟店一覧表").Cells(no, "Q").Value = .Range("CD7").Value

'取引先
Worksheets("加盟店一覧表").Cells(no, "R").Value = .Range("B9").Value
'工事単価
Worksheets("加盟店一覧表").Cells(no, "S").Value = .Range("AS9").Value

'エリア
Worksheets("加盟店一覧表").Cells(no, "T").Value = .Range("AU11").Value
'案件
Worksheets("加盟店一覧表").Cells(no, "U").Value = .Range("AU12").Value

'創業年
Worksheets("加盟店一覧表").Cells(no, "V").Value = .Range("AU4").Value
'創業年数
Worksheets("加盟店一覧表").Cells(no, "W").Value = .Range("AY4").Value

'契約締結日
Worksheets("加盟店一覧表").Cells(no, "X").Value = .Range("CA11").Value
'有無
Worksheets("加盟店一覧表").Cells(no, "Y").Value = .Range("CF11").Value
'提出
Worksheets("加盟店一覧表").Cells(no, "Z").Value = .Range("CH11").Value

'工事保険証
Worksheets("加盟店一覧表").Cells(no, "AA").Value = .Range("CA12").Value
'有無
Worksheets("加盟店一覧表").Cells(no, "AB").Value = .Range("CF12").Value
'提出
Worksheets("加盟店一覧表").Cells(no, "AC").Value = .Range("CH12").Value

'建設許可証
Worksheets("加盟店一覧表").Cells(no, "AD").Value = .Range("CA13").Value
'有無
Worksheets("加盟店一覧表").Cells(no, "AE").Value = .Range("CF13").Value
'提出
Worksheets("加盟店一覧表").Cells(no, "AF").Value = .Range("CH13").Value

'工事責任者氏名
Worksheets("加盟店一覧表").Cells(no, "AG").Value = .Range("F12").Value
'携帯
Worksheets("加盟店一覧表").Cells(no, "AH").Value = .Range("L12").Value
'Mail
Worksheets("加盟店一覧表").Cells(no, "AI").Value = .Range("R12").Value
'LINE
Worksheets("加盟店一覧表").Cells(no, "AJ").Value = .Range("Z12").Value
'資格
Worksheets("加盟店一覧表").Cells(no, "AK").Value = .Range("AF12").Value
'写し提出
Worksheets("加盟店一覧表").Cells(no, "AL").Value = .Range("AQ12").Value

'工事担当者氏名
Worksheets("加盟店一覧表").Cells(no, "AM").Value = .Range("F13").Value
'携帯
Worksheets("加盟店一覧表").Cells(no, "AN").Value = .Range("L13").Value
'Mail
Worksheets("加盟店一覧表").Cells(no, "AO").Value = .Range("R13").Value
'LINE
Worksheets("加盟店一覧表").Cells(no, "AP").Value = .Range("Z13").Value
'資格
Worksheets("加盟店一覧表").Cells(no, "AQ").Value = .Range("AF13").Value
'写し提出
Worksheets("加盟店一覧表").Cells(no, "AR").Value = .Range("AQ13").Value

'面接者氏名
Worksheets("加盟店一覧表").Cells(no, "AS").Value = .Range("F11").Value
'携帯
Worksheets("加盟店一覧表").Cells(no, "AT").Value = .Range("L11").Value
'Mail
Worksheets("加盟店一覧表").Cells(no, "AU").Value = .Range("R11").Value
'LINE
Worksheets("加盟店一覧表").Cells(no, "AV").Value = .Range("Z11").Value
'資格
Worksheets("加盟店一覧表").Cells(no, "AW").Value = .Range("AF11").Value
'写し提出
Worksheets("加盟店一覧表").Cells(no, "AX").Value = .Range("AQ11").Value

'D面接担当者
Worksheets("加盟店一覧表").Cells(no, "AY").Value = .Range("AM4").Value
'評価
Worksheets("加盟店一覧表").Cells(no, "AZ").Value = .Range("BC4").Value
'評価理由
Worksheets("加盟店一覧表").Cells(no, "BA").Value = .Range("BE4").Value
'登録日
Worksheets("加盟店一覧表").Cells(no, "BB").Value = .Range("AQ4").Value

'一覧表シートにここまで移したら　NewNoを入れる
.Range("B4").Value = newNo



End With

MsgBox ("新規登録完了")

End Sub

[@佐藤澄江-r2p]

@@chanryo_eff 1分前にもう一度送ってみたのですが、確認できましたでしょうか？