- ベストアンサー
エクセルＶＢＡで
hajihajiの回答
- hajihaji
- ベストアンサー率20% (20/100)
VBAに関してはここの方がよいかも
- 参考URL：
- http://www.moug.net/
関連するQ&A
- EXCELのデータベース利用について（VBA）
VBA初心者の者です。 下記の様なEXCELファイルを作りたいのですが、どのようにすれば良いのか まったくわかりません。 ACCESSでの構築が簡単なのかもしれませんが、データ量がそれほど多くないことと 職場にACCESSがないため、可能であればEXCELで構築したいと考えています。 私自身、プログラムの知識がなく、EXCEL VBAのサイトを確認するのですが、いまいち どうすれば良いのかわかりません。 ぜひご教授の程よろしくお願いします。 3つのシートの構成は以下になります。 【入力シート】 A1セルに文字列（A～Z）入力欄 【○○データシート】 A列に A～Z の文字列 B列に 001～100までの数値 C列に 001～100までの数値 D列に 001～100までの数値 E列に 001～100までの数値 例） A列 B列 C列 D列 E列 1 A 001 2 B 001 002 003 004 3 C 003 4 D 002 003 【▽コマンドシート】 A列に 001～100までの一意の数字 B列に 文字列（コマンド） C列に 文字列（コマンド詳細） 例） A列 B列 C列 1 001 xx blank 2 002 xxx△ xxx 3 003 xxxx x○ 4 004 xxxxx xxx 【欲しいVBA】 １、入力シートのA1セルに○○データシートのA列に該当するA～Zの 文字列を入力。 ２、○○データシートのB列～F列までの数値を参照 ３、2の数値において▽コマンドシートのA列に記載ある番号と紐づけを行い、 ▽コマンドシートのB列、C列に記載がある文字列を入力シートのB列、C列にコピー ※コピー時は▽コマンドシートの書式や体裁情報も含めてコピー。 例としては以下になります。 入力シートの A1セルにDを入力した場合は 入力シート A列 B列 C列 1 D xxx△ xxx 2 xxxx x○ 3 以上、ご教授よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- vbaで特定の文字を加算して項目に数値を表示したい
下のようなエクセルがあり、特定の文字ごとに加算してその横のセル数値を入れて表示するマクロを作りたいのですがうまくいきません。 xxxxの数や、その項目数は注文によって数が違うのでうまくいきません 解決策がわかる方いらっしゃいましたらご協力よろしくお願い致します。 ◆注文 xxxxx xxxx xxx xxxx ◆注文 xx xxx xxxx xxxx xx ◆注文 xxx xxxxx xx xxx この表を ◆注文 1 xxxxx 1 xxxx 1 xxx 1 xxxx ◆注文 2 xx 2 xxx 2 xxxx 2 xxxx 2 xx ◆注文 3 xxx 3 xxxxx 3 xx 3 xxx という風にしたいです。どうかよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- マクロでセル値をAND
xxx3xx3x x2x313x1 2x2132xx sheet1 x2x122xx 1xx22x3x x1x33321 sheet2 xxx1xxxx xxx22xxx xxx333xx sheet3 上記のようなデータがあり、各文字はセル１つずつに入っています。 sheet3はsheet1とsheet2のANDであり、片側がxならばsheet3ではx、 違う数値同士ならばsheet2の値を活かす としています。 これを実現するマクロの例を１つ挙げて頂ければと思います。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルのセルに記述した式をVBAで読込む方法
エクセルのセルに ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ という式を埋め込んでおいて （式はａ，ｂ，ｃの数値は定数、ｘはマクロ側でいろいろな数値を指定されます。） ＶＢＡのマクロに ε＝ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ のように式を埋め込む方法はないでしょうか。 例えば ｎ＝．．．． ｘ＝ｓｉｎ（ｎ＊３．１４／１８０） ε＝ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ Ｒａｎｇｅ（”Ｄ２”）．ｖａｌｕｅ＝ε この中段の行にエクセルのセルの式を呼び出したいのです。 この式はセルにはいろいろな２次式、３次式が任意に組み込まれ、ＶＢＡを実行するたびに埋め込まれた式に自動的に記述し直すようにしたいのです。 （数式の結果の数値を入れるのではなくて式を入れたいのです） 可能でしょうか。その場合どのようなコードが考えられるでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルＶＢＡで
いつもお世話になります。 変数A(1),A(2)・・・A(n)で小さい順にB(1),B(2)・・・B(n)と置き換える事は可能でしょうか？ セルにAnをいれて、並び替えをしてからBnにいれる方法は分かるんですが。VBA上で可能でしょうか？ 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBA作成に関して
VBA作成についてお願いいたします． たとえば各セルに以下のような数値があるとします A B C 1 150 2 2 145 6 3 237 7 4 254 6 5 結果としてC5セルに A1*B1+A2*B2+A3*B3+A4*B4の計算をし表示するVBAを作りたいと思っています． このくらい少ない場合はよいのですが，列が多くなるといちいち計算式を書くのは大変ですし，このあたりをVBAで作れないかと悩んでいます． つまり 例表示すると Range("A1").Value とあった場合("A1")の１を２，３，．．．と増やしていく（あるいは減らしていく）VBAは作成可能ですか？ どうも調べたかぎりでは見あたらないようなので． この表現で質問の意図は伝わったでしょうか？ ご存じの方よろしくお願いいたします．
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡの記述について
ＯＳはＷｉｎ９８、エクセル２０００です。 次の処理をＶＢＡで処理したいのですがうまく作動しま せん。 ご教授願います。 セルＡ１から下に向かって１から２０までランダムに数 値が入ってます。 同じ数値は無く、数値も３行（セルＡ３）で終わる場合 も有ります。 この場合セルＣ１から下に向かって順にＡ１＆Ａ２、Ａ １＆Ａ３と記述したいのですが・・・ 例） Ａ１に５、Ａ２に７、Ａ３に１５、Ａ４に１０でしたら Ｃ１に５７、Ｃ２に５１５、Ｃ３に５１０、Ｃ４に７１５ Ｃ５に７１０、以下・・・と記述 よろしくお願いします。m(_ _)m
- ベストアンサー
- オフィス系ソフト
- エクセル上のＶＢＡ
当方、ＶＢＡまるっきり初心者です（触りはじめて３日くらい）。 エクセルはある程度理解しているつもりですが… バージョンはエクセル２０００です。 他シートのセルのひとつに入力すれば、 別シートのセルがそれを参照したうえで 値として表示出来るようにならないでしょうか。 今のところ、以下のような状況です。 step01 sheet1のセルＡ１に任意の数値（整数限定です）を入力。 step02 sheet2のセルＡ１に、sheet1のセルＡ１の数値を用いて MOD関数で余りを出す。 step03 sheet2のセルＢ２に以下のＶＢＡによって step02の余りを値として表示。 Private Sub Worksheet_Change(ByVal Target As Range) Range("b2").Value = Range("a1") End Sub これだとsheet1の数字を変えても、 sheetの切替後sheet2のセルＢ２に 表示される値が変わってくれません。 最初の入力（step01の入力）をおこなえば sheet2のセルＢ２まで値が変わってくれるような方法を 教えていただけないでしょうか。 拙い説明で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBAについて教えて下さい。
VBAについて2点ほど質問があります。 (1)複数セル(例：A2:A40）に入力されている文字列を一括で数値に変換するVBAはありますか？ (2)複数セル(例：A2:A40）に日付と時間が入力されていて(例：2019/09/12 16:00)、それを一括で日付と時間それぞれ別々のセルへ表示させるVBAはありますか？ 現状、1つのセルしか変換できず複数一度には難しいのでしょうか？ お分かりの方いましたら、是非ご教示お願い致します。
- ベストアンサー
- Excel（エクセル）
- Excel VBA の作り方について【初心者】
Excel VBA の作り方について質問させてください。 A1セルに「営業部【山本】」と入力されています。 B1セルに「01:35:24」(タイム)と入力されています。 (1)D1セルに「山本」を抜き出して表示 (2)E1セルに「95」(分数)で表示 (3)A2以降で同じ作業の繰り返し(最終入力列まで) というVBAを作成しております。 Sub macro1() '行数確認 nr = Range("A1048576").End(xlUp).Row For i = 1 To nr '名前抜き出し x = Range("A1").Offset(i - 1) j1 = InStr(x, "【") j2 = InStr(x, "】") Range("D1").Offset(i - 1) = Mid(x, j1 + 1, j2 - j1 - 1) '分表示 x = Range("B1").Offset(i - 1) Range("E1").Offset(i - 1) = Int(x * 24 * 60) Next i End Sub ここまではプログラムが完成しています。 この後、 (4)C列セルに入力されている数値をF列セルにそのまま入力 したい場合には、どの部分にどのようなプログラムを追加すればよいでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
回答ありがとうございます。 参考にさせていただきます。