- 締切済み
VBAの記述について
入力シートのA1セルに有と入っていたらシートAを印刷する、無と入っていたら印刷しない。 次にB1セルに有と入っていたらシートB、シートCを印刷する。無ならば印刷しない。 これをG1セルまで繰り返して終了するというVBAの記述をご教授いただきたいです。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- エクセルVBAの記述について教えて下さい。
エクセルVBAの記述について教えて下さい。 セルA1,B1,C1,D1,E1すべてにデータが入力されているかどうかを調べる記述を教えて下さい。 ちなみに・・・ 入力が不足しているときはmsgで『入力が不足しています』のダイアログ。 すべて入力されているときはmsgで『入力OK』のあとにCallで別のマクロを呼び込む ような記述が知りたいです。 どなたかご教授お願い致します。 【環境】 OS:Windows7 Excel:2003
- ベストアンサー
- その他MS Office製品
- エクセルVBAの記述について
OSはWin98、エクセル2000です。 次の処理をVBAで処理したいのですがうまく作動しま せん。 ご教授願います。 セルA1から下に向かって1から20までランダムに数 値が入ってます。 同じ数値は無く、数値も3行(セルA3)で終わる場合 も有ります。 この場合セルC1から下に向かって順にA1&A2、A 1&A3と記述したいのですが・・・ 例) A1に5、A2に7、A3に15、A4に10でしたら C1に57、C2に515、C3に510、C4に715 C5に710、以下・・・と記述 よろしくお願いします。m(_ _)m
- ベストアンサー
- オフィス系ソフト
- vbaにて並べ替えしたい。
並べ替えするには? ただいまVBA学習中です。 sheet1に次のような文字列がセルに入力されているとします。 3列で30行あります。 A列 B列 C列 1行 あ い う 2行 え お か ...以下30行まで続く。 これらを sheet2に A列 あ い う え お か のようにひとつの列へ縦にするにはどのような記述になりますか? 私なりの考え方ですが セルのスタート位置はシート1のA1とします。 シート1にて ・あ い う と順番に配列に格納 ・セルを左に2つ下に1つ移動 この動作を30回繰り返す(for next 使えばでいいですよね?) シート2に移動してA1から下方向へ 格納された文字列を入力する。 と、考えてみたものの記述の仕方がわかりません。 力貸してください。
- ベストアンサー
- オフィス系ソフト
- 入力したデータから2つの条件に合致した場合に
”有”、それ以外の場合は”無”と表示するエクセル関数表を作成することを考えています。 例えば次のようにB1~G4には、○、×、無、空白の4種類のデータが入ります。 B~Gに○または×、あるいは○と×がある場合は、”有” ”無”あるいは空白の場合は”無”と該当するA列に表示したいのですが、うまくいきません。 A B C D E F G 1 有 ○ 無 無 無 2 無 無 無 無 無 無 3 有 ○ 無 無 × 無 4 有 ○ × 無 無 無 A1セルには、IF(COUNTIF(B1:G1,"○or×")=0,"無","有") や IF(COUNTIFS(B1:G1,"○",B1:G1,"×")=0,"無","有") としてみましたが、うまくいきません、どうかご教授下さい
- ベストアンサー
- その他(業務ソフトウェア)
- エクセルVBAの記述で・・・OTL
エクセルVBAの記述で・・・OTL VBA初心者です。 まず、私が記述した内容を書きます。 Sub 実践練習() Dim tuika As String tuika = Application.InputBox( _ Title:="追加", _ Prompt:="追加する内容を入力して下さい。", _ Left:=650, _ Top:=100, _ Type:=2) If Worksheets("Sheet2").Range("G10").Value <> " FALSE " Then MsgBox "OKです", vbOKOnly + vbDefaultButton2, "追加完了" With Worksheets("Sheet2") .Range("G10").Value = tuika LastRow = Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1 Worksheets("Sheet3").Range("A" & LastRow).Value = Worksheets("Sheet2").Range("G10").Value End With Else MsgBox "入力が不足しています。", vbOKOnly + vbCritical, "入力ミス" End If End Sub() 完成させたいことは・・・ Sheet1に存在するInputbox(ボタン)を使用し、 Sheet2のG10にFALSE以外が入力されたときは、 MsgBox追加完了のダイアログを表示してSheet2のG10値をSheet3のA列に順番に転送させる。 もしFALSEが入力されてしまったら、 MsgBox入力ミスを表示させて、 Sheet2のG10の値(FALSE)を削除しなさい。 と、記述したいのです。 勿論、上記の記述は完成していません(泣 どなたか、ご教授の程、何卒宜しくお願い致します。 (上記の完成型をお待ちしてます m(_ _)m ) 【環境】 OS:WindowsXP Pro Excel:2003
- ベストアンサー
- その他MS Office製品
- エクセル VBA
最終行から順番に下へ同列で入力するVBAを教えて下さい。 EXCELのVBAで教えて下さい。 シート1のA列にはB列が入力されると自動入力されるNo.があり、C~G列もB列が入力されると自動入力されます。 B列には日付が、H列には3~4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH~N列をコピーして、シート3のA~G列に値のみの貼り付けを行い保存した後、シート3のA~G列をコピーして csvファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか? 宜しく御願い致します。
- ベストアンサー
- Visual Basic
- エクセルでのVBA IFを使って記述したい
エクセルで ブック名:「魚」 シート名:「秋刀魚」「鯖」「平目」 というファイルがあります。 シート名「秋刀魚」がアクティブの時のみ セルA1に「激安」と入力をしたいのですが、どのようにVBAを記述すればよいのでしょうか。 私なりにインターネットで調べたのですがわかりませんでした。 丸投げのようで申し訳ありませんが、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル操作について(VBA)
こんばんは。いつもお世話になってます。 エクセルの操作ですが、 シート1に A1セル 8:10 B1セル 12:05 C1セル 235(B1-A1の分換算) シート2に A1 7:01 B1 7:02 C1 7:03 D1 7:04 … … ○1 8:10 … … △1 12:05 と入力されているとして、 ○2から△2まで(236セル)、自動的に色がつくようにしたいのですが、 関数や条件付き書式等で対応できるでしょうか? VBAならなんとかできそうですか? よろしくお願いします。
- ベストアンサー
- その他MS Office製品
お礼
できました。親切にありがとうございました!