- 締切済み
エクセルのマクロを教えてください。
マクロの初心者です。 特に変数が全く使えず、下記もどのように記載していいのかわからないため教えていただけないでしょうか。 ユーザーフォームのtextbox2に開始番号があります。 textbox3に本数があります。 sheet1のB12セルには開始番号が入ります。 開始番号から本数分+1したものを順番にセルに入っていくようにしたいです。 ただ、入れたいセルが横→左下（開始番号の列）→横→左下（開始番号の列）・・・としたいため、どのように書いていいのかわかりません。 地道に書くのであれば、下記のようになると思うのですが、変数を使って書く場合はどのようになるのか教えていただけないでしょうか。 Worksheets("Sheet1").Range("B12").Value = TextBox2.Value If TextBox3.Value = 2 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 ElseIf TextBox3.Value = 3 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 ElseIf TextBox3.Value = 4 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 Worksheets("Sheet1").Range("G13").Value = TextBox2.Value * 1 + 3 ElseIf TextBox3.Value = 5 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 Worksheets("Sheet1").Range("G13").Value = TextBox2.Value * 1 + 3 Worksheets("Sheet1").Range("B14").Value = TextBox2.Value * 1 + 4 ・ ・ ・ End If
- RT123456789
- お礼率6% (1/16)
- Visual Basic
- 回答数6
- ありがとう数0
- みんなの回答 （6）
- 専門家の回答
みんなの回答
- kkkkkm
- ベストアンサー率66% (1745/2621)
- kkkkkm
- ベストアンサー率66% (1745/2621)
- imogasi
- ベストアンサー率27% (4737/17070)
- kon555
- ベストアンサー率51% (1849/3570)
コードへの細かい指摘は置いといて、まず概念的な説明からいきます。 VBAに限らず『プログラム』というのは、マニュアルや作業手順書のようなものです。どの順番で何をするか、どこの数値をどうするか、という手順の列挙です。 日本語の分からない外国人作業者に、彼(または彼女)の分かる言葉で書いたマニュアルを渡して作業させるようなもの、と思って下さい。 例えば貴方の下記の書いたコードを日本語に翻訳すると 「If TextBox3.Value = 2 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1」 ↓ 「もし"TextBox3"の値が2ならば、ワークシート1のG12セルの値を、"TextBox2"の値に1を掛け1足した数にしろ」 となります。 このように考えたとき、変数というのは『作業者に用意させるメモ帳』にあたります。 例えば貴方の書いたコードでは、「TextBox2.Value * 1+〇」という指示が繰り返し出てきます。日本語では「"TextBox2"の値に1を掛け、〇足した数にしろ」の部分です。貴方はここの〇の部分が変わっていくので、その分全て記述しようとしています。 どれだけの数値を見込むかにもよりますが、無限にマニュアルを書く必要が出てきます。 しかし例えば下記のようになっていても、作業手順としては成立しますよね？ 1.メモ帳Aに"TextBox3"の数を記録する。 2.メモ帳Bに『1』という数字を書き込む 3.ワークシート1のG12セルの値を、TextBox2の値に1を掛けメモ帳Bの数を足した数にする。 4.メモ帳Bの数に1を足す。 5.メモ帳Bの数とメモ帳Aの数が等しくなるまで、手順3～4を繰り返す。 このような手順にすれば、どれだけ数値が巨大になっても対応可能です。つまりマニュアルとして合理的なわけです。 VBA的に書くとFor文で可能です。 https://valmore.work/excel-vba-for/ もちろんこのままでは延々と「ワークシート1のG12セルの値」という部分を書き換え続けてしまうので、ここも変数を使って都度指示を変更する必要があります。 セル指定をRangeではなくCellsで指定する事で、これも簡単に対応できます。 https://www.sejuku.net/blog/28260
補足
kon555さん 回答ありがとうございます。 細かく記載いただいてほんとにありがとうございます。 教えていただいたページの内容を理解するのもちょっと時間かかりそうですので、ますはお礼まで。 よろしくお願いします。
- imogasi
- ベストアンサー率27% (4737/17070)
>数分+1したものを 「もの」は何を意味するのか？連続した番号の１つの数か？ 「もの」は濫用しない方がよい。 ーー 初心者なのに、なぜUserFormを、ユーザーの指定内容を採るのに 使うのか。Inputboxやシートのセルに（開始番号を）入れさせる方式でよいのでは？ こういうコントロールを使うのは、イベントという仕組みや、コントロールの情報を採るという勉強が必要で、中級以後でよいのでは。 もっとWEBに出てくる、コントロールの使用例題を勉強すべきでしょう。 ＞入れたいセルが横→左下（開始番号の列）→横→左下（開始番号の列）・・・とし よくわからない。実例を数行挙げれば、よく読者に伝わるのでは。 実例は、一つのケースしか表現できなくても、その方が考え方を正確に伝えられるというケースを、エクセルの質問の回答経験から学びました。 VBAのコードよりその表現技能を磨く方が、大切と思う。 そうしないとWEBを調べて勉強できない。 ＝＝ 全体にごたごたしている印象で、そうしなければならない感が湧かない。 ＞TextBox2.Value * 1 + 3 などは、１回 n=TextBox2.Value としてその後はｎを使って表現するのだ。 それが普通の変数の使い方です。ただし TextBox2.Valueはたとえ数字でも数字文字列が返されるものなので、n=Val(TextBox2.Value)として、数値化しておくことになる。 また連番は 本件＝前者＋１のように表現して繰り返す場合が多く、＋１、＋２、＋３の書き方は稀かと？ エクセル関数の学習だけでは、この変数に当たるものが、式の中で使えない不便さがある。それで使わないままに今に至ったのかも。でもエクセル出現以前からコンピュータプログラムは組まれていて、変数はメモリの情報を扱うときの、まず使う概念です。エクセルからコンピュータ―利用・学習を始めるとすると、その基礎的なことが飛ばされてしまうのかなと感じた次第です。
補足
imogasiさん 回答、コメントありがとうございます。 指摘、コメントが胸に突き刺さります。うまく表現できていないこと含め申し訳ありません。 現場での報告書や書類関係を簡単に作業者が記載できるようにマクロを使い始めました。私自身が使うのであれば、エクセルシート自身に数式を入れて使用するのですが、パソコン自体に不慣れな作業者が入力するので、間違いが起きないようにユーザーフォームを使用するようにしています。 ただ、まわりに聞ける人もおらず、ネットで調べながら切り貼りして使用しているのが現状です。そのうえでどうしてもわからないことがあれば、このように投稿させていただき、それを見ながら勉強させていただいております。 2個を1セットで製作しているため、横に対しては+1した連番を振る必要があり、1セットが終われば行を下にずらして入力されるようにしたいです。 texbox2に「15」、textbox3に「4」が入っていた場合はB12セルに「15」、G12セルに「16」、B13セルに「17」、G13セルに「18」と入力されるようにしたいです。 変数の使い方もありがとうございます。トライしてみます。 よろしくお願いします。
- Ultra-Hetare
- ベストアンサー率38% (204/526)
この目的なら「if」文ではなく 「switch case 」を使ったほうが可読性が良くなります。 あと、算術式の優先順位は確かに「*」が「+」より高いですが、 先々色々な計算式を書くのであれば、VBAの仕様による 優先順位に頼らず()を使用して、プログラマが明示的に 優先順位を指定したほうが良いでしょう。 更に申し上げれば、このプログラムの部分的な意味は 理解できますが、全体として何故このロジックが必要なのかが 分かりません。 そこがわかれば、もっと簡潔かつBUG発生率の低い構文を 提示できるかも知れません。 またまた、更に申し上げれば、 「マクロの初心者です」であれば、 フォームを使用せず、 全部セルに記述して、テストしてからフォームを使うほうが、 間違えた際の手戻りが少ないと思います。
補足
Ultra-Hetareさん 回答、コメントありがとうございます。 もの作りの報告書で使用したいと思っています。 2本1セットで加工するため同じ行に2つのロット№を入力されるようにしたいと思って投稿させていただきました。 2本セットで横方向にロット№が並び、次のセットで下の行に移る感じです。説明が下手で申し訳ありません。 正直、自分で使用するのみであればエクセルシートに数式を入れておいてそれで使用するのですが、パソコン自体にかなり不慣れな作業者が入力するので、フォームを使用した入力の方法を行っています。 私自身、マクロ自体もよくわからず、ネットで調べたものを切り貼りしながらトライ＆エラーで作っていっている感じです。まわりにも聞ける人がおらず、どうししても困った際にこのように投稿させてもらっています。教えていただいたものを理解できるように調べながら勉強させていただいています。 長い返信申し訳ありません。 よろしくお願いいたします。
補足
imogasiさん 引き続き回答、コメントありがとうございます。 1)に関しては調べると*1とValが出てきました。*1の方が覚えやすく、今後も使っていけそうかなと思い使用していました。ただ、アドバイス頂いたようにValを使っていけるように頑張ります。 2)引き続きつたない説明でご迷惑おかけして申し訳ありません。 製造現場での作業報告書の作成を簡単に出来ないかとの取り組みがそもそもの発端です。 やりたいのはロット№を必要な行に必要な分だけ入力できるようにしたいです。 1個1個入力したらいいのですが、開始のロット№と何本製作するかを入力し、コマンドボタンを押せば必要な分だけロット№が報告書に入力されるようにと思って作っています。 テキストボックスが2個あるのは開始番号（textbox2）と、何本製作するか(textbox3)になります。 報告書に準備されているロット№の入力枠は12個までです。 それに関しては12より大きい数字を入れたらexit subとなるようにすればいいのかと思っています。 実行前は記載していただいた通り入力前は空欄です。 コマンドボタンを押して入力するようにしていますが、コマンドボタンを押すといったん入力に必要な場所（ロット№を入れる予定の最大12個の枠、B列とG列）をクリアするようにしています。 また、以降に書いていただいている指摘はごもっともで、ほんとに申し訳ないです。 表現が下手なくせに、具体的に細かく書いていないことで、回答者の皆さんにご迷惑おかけしています。 泥臭くても良いので、出来るだけ細かくしっかりと記載するように注意します。 普段人に説明するときに注意していることが、全く出来ていません。 シンプルに伝えられないなら、泥臭くてもしっかりと。申し訳ありません。 重ね重ね申し訳ないのですが、長期連休中に続きを行うことが出来ません。 質問を投稿するタイミングを間違えました。 本日最終日でバタバタしており、最初の回答いただいた分もまだ咀嚼出来ていない状態です。 休み明け改めて内容確認する必要があります。 ほんとにいろいろ申し訳ありません。また、いろいろありがとうございます。 よろしくお願いします。