Excel マクロ！ 入力シート作成！前編

[@RXU03325]

とっても面白くてためになります。ありがとうございます。数字は入力できました。ところでセル内になある数式を移行するにはどうしたらいいですか

[@akios8492]

コメントありがとうございます！
.Valueのところを.Formulaに変更してください。
例）
Worksheets("データベース").Cells(x + 1, 2).Value = Worksheets("入力シート").Cells(2, 2).Value
↓
Worksheets("データベース").Cells(x + 1, 2).Formula = Worksheets("入力シート").Cells(2, 2).Formula

[@RXU03325]

@@akios8492 ありがとうございます。

[@RXU03325]

やってみました。が、相対参照の式がうまく反映されません。なぜでしょうか？
（追記）わかりました。入力する側のセルを文字列にして数式を入れておけばOKでした。この方法でいいですか？

[@akios8492]

「入力する側のセルを文字列にして数式を入れておけばOKでした。」
これは、その都度、計算式を文字列で入力するということですか？
もし、可能でしたらどこのセルにどのような計算式が入っているか教えていただけるともう少しイメージがわきます！
よろしくお願いいたします。

[@RXU03325]

@@akios8492 ありがとうございます
データベースは横　入力シートは縦ですよね
データベースシートの同一行の一列目のセルと、二列目のセルを足し、結果を三列目に入れたい時、
入力シートの三行目にその（相対参照）の式を入れます。
そうすると、そのまま移動させた時にデータベースの三列目には違った相対参照の式が挿入されてしまったのです。
そこで、入力シートの三列目のセルを文字列にして、移動させると結果が出ました
と、いうことなんですが

[@あおばがしゅん]

worksheets("データベース").Cells(x+1.4).Value=worksheets("入力シート") .Cells(2.4).Value
まで動画の通りに作ってみましたが
マクロで実行をすると
データベースシートの先頭行の『郵便番号』の文字が消えるだけで
データがうまく反映されません
解決策はありますか？

[@akios8492]

ご視聴ありがとうございます。
もしかするとCells(〇, 〇)の部分が「,」ではなく「.」になっていませんか？
コメント欄のプログラムが「.」になってしまっているので確認をお願いします。

[@あおばがしゅん]

@@akios8492 なるほどです👀
解決しました✋
ありがとうございます😌

[@secondname7461]

6:45 のところまでできるんですけど実行しようとすると、エラー"424"が出て「オブジェクトが必要です。」と出て前に進めないです。
デバッグ見ても
x=Worksheets("データベース").Cells(Row.count,1).End(xlUp).Row に黄色いラベルがはられていて何度も動画通りに見直してしたはずなのにこうなってしまう意味がわからないです(泣)
何か解決方法ないでしょうか？

[@akios8492]

x=Worksheets("データベース").Cells(Row.count,1).End(xlUp).Row の「.Cells(Row.count, 1)」部分を
「.Cells(Rows.count, 1)」に変更してみてください！

[@secondname7461]

@@akios8492 ありがとうございます！
その通りにしたらうまく動きました！！
これからもがんばります！
ところでこの動画の続編はあるんですか？
ユーザーフォームとは少し違って便利なところもあるからいろいろな活用法を知りたいです！

[@akios8492]

@@secondname7461 続編はまだ録画していません。。。
続編では、Excelの「データの入力規則」を利用して部署を選択できるようにすることと、同じく「データの入力規則」を利用して郵便番号を常に半角英数字で入力する方法を説明する予定でした！
特にマクロは利用しませんが、もしご希望があれば近いうちにアップロードできるようにします！