- ベストアンサー
実力がなくマクロがわかりません
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
少し気になるのは、C列の修正はしないのかなって思います。 今は、E列に数字が入った時だけです。C列の修正でJ列も変化するという方法も加えると、Target.Column<> 5 の所で分岐させます。 '//シートモジュール Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Value = "" Then Exit Sub If .Row < 2 Then Exit Sub If .Column <> 5 Then Exit Sub If Application.Count(.Offset(-1, -2).Resize(2)) <> 2 Then Exit Sub Application.EnableEvents = False If .Offset(-1, -2).Value = .Offset(, -2).Value Then .Offset(, 5).Value = .Offset(-1).Value + .Value Else .Offset(, 5).Value = .Value End If Application.EnableEvents = True End With End Sub なお、バージョンにもよりますが、フィールドテーブルにしておけば、数式はコピーされるはずです。マクロは実力でなくて、経験かな？
関連するQ&A
- 行ごとに判定するマクロについて教えて下さい
行ごとに判定するマクロについて教えて下さい。 下記のようなマクロで、添付ファイルのように、行ごとで E列からN列で違った数値がないか、入力されていないセルがないかを調べ ４つすべてのセルが同じ数値でない場合は塗りつぶしはされず O列にOKを表示しないようなマクロを組みたいのですが 現在のマクロだと、行ごとではなく、E3～N102セルまでの中で 同じ数値がないかを判断してしまっているため K11セルやK15セルのように数値が入力されていないにも関わらずO列の部分にOKが出てしまいます。 他の行に同じ数値が入っているのは関係なしにして 11行目なら11行目だけで 15行目なら15行目だけで、というように行ごに判定していくには どのようにすればいいでしょうか？ Sub 判定マクロ回転() Dim i As Integer, j As Integer Range(Cells(3, 15), Cells(102, 15)).ClearContents For i = 3 To 102 For j = 5 To 14 Cells(i, j).Interior.ColorIndex = 0 If WorksheetFunction.CountIf(Range("E3:N102"), Cells(i, j)) > 3 Then If Cells(i, j).Row Mod 2 = 1 Then Cells(i, j).Interior.ColorIndex = 6 Cells(i, 15) = "OK" Else If Cells(i, j).Row Mod 2 = 0 Then Cells(i, j).Interior.ColorIndex = 40 Cells(i, 15) = "OK" End If End If End If Next j Next i If WorksheetFunction.CountIf(Range("O3:O102"), "OK") > 99 Then MsgBox "データチェックOK(^O^)b" End If End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロ記述について
下記の処理をエクセルのマクロで行いたいのですが、どのように記述したよいか教えてください。 4行目から入力されている行まで下記の処理をマクロで行う。 １．J列のセル入力がCIRCLEの行で、B～E列の数値が同じセル間を結合する。 ２．K列のセル入力がCIRCLEの行で、F～I列の数値が同じセル間を結合する。 ３．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じ場合、B列をB列の数値ＸC列の数値とし、B～E列のセルを結合する。 ４．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じ場合、F列をF列の数値ＸG列の数値とし、F～I列のセルを結合する。 ５．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じでない場合、B列をB列の数値ＸC列の数値とし、B,C列のセルを結合する。又、D列をD列の数値ＸE列の数値とし、D,E列のセルを結合する。 ６．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じでない場合、F列をF列の数値ＸG列の数値とし、F,G列のセルを結合する。又、H列をH列の数値ＸI列の数値とし、H,I列のセルを結合する。 ７．J列のセル入力がSHAPEの行で、B～E列は何もしない ８．K列のセル入力がSHAPEの行で、F～I列は何もしない
- 締切済み
- Visual Basic
- エクセルでマクロを作りたいのですが上手くいきません
エクセルで会社で使うファイルを作成していますが、ファイルサイズが大きくなりすぎたので、こういうマクロが作れないかと調べていたのですが、やり方がわからないので困っています。 わからないのは、入力シートのＡ列にデータを入力して、シート2のＢ列に自動的に表示する ことを自動的にやってくれるマクロです。 今はＩＦ関数をシート2に入力している状態ですが、セルに関数を入れる方法だとファイルサイズが大きくなりすぎてしまいます。 （IF関数をあらかじめ入力しておくセル数がとてもたくさんある為） なお、入力シートＡ列がブランクの場合は、シート2のＢ列には何も表示されないようにしたいです。 大変困っております。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで…関数かマクロか？
エクセル2007を使っています。 3列のシートがあるとしますね。 それぞれの列は、「A 現金残高」、「B 収入」、「C 支出」とします。 たとえば、3行目から数値を入れるとします。 普通ならば、B3 （収入）のセルに 1000（円） と数字を打ち込めば、 A3 （現金残高）のセルに同じく 1000が入るよう、=B3 とすればいいと思います。 同様に、C3のセルに1000と入力すれば、 A3のセルには -1*（C3） とすることで、現金残高が収入と支出によって、 プラスマイナスされるようにし、あとで各列を∑すれば済みますね。 でも、いま僕がやりたいのは、 たとえば現金残高 A3のセルに -1000 と入力すると、自動的に C3のセルに 1000 と 表示され、A3に 1000 と入力すると、 B3のセルに 1000と表示されるようにしたいのです。 要するに、現金残高に入力した数値がプラスかマイナスかによって、 数字が表示されるセルを個別に指定し、指定したセルに計算結果を表示させたいわけです。 IF関数で、数値のプラスマイナスは判断できますが、任意のセルを指定させる方法が わかりません。 「もし…だったら 『任意のセルに』○○せよ」 というような指定はできるのでしょうか？ もしくは、マクロを使わないとできないのでしょうか？ いろいろサイトも調べてみましたが、力不足で回答にたどり着くことができませんでした。 よろしくご教授お願いいたします。
- ベストアンサー
- その他MS Office製品
- 可視セルを関数に組み込むマクロ
Z列に関数を入力するマクロを組みたいです。 最初に、A-D列のみ表示し、E-Y列はグループ化して非表示にしており、 A、B、C、D、Z 列のみ表示されています。 セルZ1に、A1、B1を引数とする関数を入力します。 次に、グループ化を解除し、E-H列のみ表示し、A-D列、I-Y列をグループ化して非表示にし、 E、F、G、H、Z列のみ表示します。 マクロを実行すると、セルZ１に、E１、F１を引数とする関数が入力されるようにしたいです。 グループ化は4列ずつ行い、画面に表示されるのは常に５列のみで、 Z列には、「表示されている第1列と第2列」のセルを引数とする関数を入力するように したいのです。 Z列から見て、表示されている列が変わっていくため、RC形式のセルの単純な相対表示では あらわせません。 よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- マクロでの条件判断について
A行に何かデータを入力した場合、同じ列のとなりの行のセルに入力時間を残したいと思い、 例 A1：あ B1：2006/5/9/16：00 A2：い B2：2006/5/10/18：00 以下のマクロを教えて頂いたのですが、 Private Sub Worksheet_Change(ByVal Target As Range) '///A列のセル以外ならマクロ終了/// If Target.Column <> 1 Then Exit Sub '///1行目のセルならマクロ終了/// If Target.Row = 1 Then Exit Sub '///内容がブランクならB列のセルをブランクにする。/// If Target.Value = "" Then Target.Offset(0, 1).Value = "" Else Target.Offset(0, 1).Value = Format(Date + Time, "yyyy/mm/dd hh:mm:ss") End If End Sub A列以外にもC列に入力した値の入力時間をD列にE列に入力した値の入力時間をF列にと、全部で6箇所値を入力したとなりのセルに入力時間が出るようにしたかったのですが、 '///A列のセル以外ならマクロ終了/// If Target.Column <> 1 Then Exit Sub の部分を '///A,C列のセル以外ならマクロ終了/// If Target.Column <> 1 Or Target.Column <> 3 Then Exit Sub のように変更してまずはA列とC列に値を入れて挑戦したのですが、時間が表示されなくこまっておりました。 解決方法をご存知のかたがいらっしゃいましたら、ぜひよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 【マクロ】クリックすると空白を含む列を非表示に
上司にExcelのデータが見づらいと言われて困っています。 下記のようなマクロやVBAを教えていただけないでしょうか？ 例えば、 A2のセルをクリックすると、その行（2行目）から空白セルを検索して、そのセルを含む列を非表示にして、データが入っている列だけを表するようなマクロってないでしょうか？ （要は、C2とE2が空白セルのとき、A2をクリックして、A/B/D/F～の列だけ表示されるようになるマクロです。 同様に3行目でも、空白セルがB3、C3なら、A3をクリックした時、A/D/E…列だけ表示されて、B・C列が非常時になるような。） 似たような機能があれば、A2クリックでなく別にボタン等を作っても構いません。 ややこしくて、申し訳ございませんが、本当に困っているので、 どうかよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- マクロで可視セルのみの削除
Ａ行に数字を入れ、Ｂ行にＡ行同列セルの数字に対して 数値を返す数式を入れています。 Ｂ行は非表示にしています。 （Ｃ・Ｄ行、Ｅ・Ｆ行・・・とも同じ処理） 数字を入力する範囲（Ａ、Ｃ、Ｅ・・・）を選択し、 入力されている数字を消去するようマクロを組みました。 （範囲選択→ツールの編集→ジャンプ→可視セルを選択後、Delete） これはうまく作動します。 が、数式が壊れるのを防ぐ為、念には念を・・・と、 入力範囲部分はセルの書式設定で保護ロックを外し、 シートを保護しました。 そうすると、保護されているからだめ！と エラーが出て、マクロが作動しません。 （可視セル選択部分にデバッグがでます。） ・非表示のセルがある ・一部を除きシートを保護している 状態で、マクロで可視セルのみ削除することは不可能なんでしょうか？ 宜しくお願いします。
- ベストアンサー
- Windows NT・2000
- 参照した数値を関数に代入し計算する方法
手動で数字を入力するセル(C1)に入れた数字と同じ数字を 規則的に数字が書いてある（例;1～100）A列から探し A行の隣に書いてあるB行の数字（A1だったらB1）を 参照し関数の入っているセル(E1)にBの値を入れてExcelで 計算するような方法（マクロになるようなら貼り付ければできる形）を 教えて下さい(B1の値が直接使えないならD1というA行の隣から探した Bの数字を表示するセルを作る形でも可） 例えばC1に10といれA行から10と書かれているA6のセルを検索し その隣のB6のセルから20という数値を参照し、E1に書いてある 例えば=IF(X(B6)<45,Y(例;F1)*1.5,IF(45<X(B6),Y(例;F1)*2)) のような関数のXに代入する感じです（Y(F1)の数字は適当なセルの値） 上手く説明できていないかもしれませんが宜しくお願いいたします
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
Ｊ列、Ｋ列に入力されている行まで下記処理を行うマクロの記述を教えてください。 Ｊ列のセルの文字列がにＳＨＡＰＥの場合、その行のＢ～Ｅ列のセルの色を黄色にする。 Ｋ列のセルの文字列がにＳＨＡＰＥの場合、その行のＦ～Ｉ列のセルの色を黄色にする。
- 締切済み
- Visual Basic