前月平均 前月比4月16日4月15日
17599 102.0%17231 17958

このような形で日々前月平均の値と比べた値を表示するグラフを作っています。
例えば4/17のデータは「前月比」「4月16日」の間に『挿入』して、自動計算させます。

ここで質問です。
1.このときに自動計算する計算式を、
=F3/B3
としている場合に、G列にその日の値を挿入すると
計算式が
G3/B3になってしまいます。

これをF3のままにしておく方法はありませんか?
※「$」をつけてもずれてしまいます。。

2.挿入されたセルの書式設定が自動的に左のセルのものをコピーしてしまいます。自動的に右のセルと同じ書式にするような設定はごぞんじありませんでしょうか。。

以上です。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

興味ある質問なので考えてみました。

質問の意味を取り違えていなければ幸いです。
1.まず、前月比の列は「%」表示と想像しますが、標準にします。これで挿入された列も標準になります。
2.前月比の列には(前月平均がB列で3行目なら)
=TEXT(offset(B3,0,4)/B3*100,"#.#")&"%"
とします。表示は右寄せにします。下にコピーも可能です。B列から4右に行けばF列という意味です。
算式は、offsetでB3セルからの位置を指定しているだけです。列を挿入したとき値は「.%」になりますが、数値を入力すれば計算されます。
    • good
    • 0
この回答へのお礼

これで解決しました!!

お礼日時:2001/04/20 21:35

いちおうマクロの説明をしておきます。

(知ってる場合は無視してください)
VBEの画面の説明だと分かり辛いかと思いますのでマクロの編集で・・・。

[ツール] メニューの [マクロ] をポイントし、[新しいマクロの記録] をクリック。
[ツール] メニューの [マクロ] をポイントし、[記録終了] ツールバーの (記録終了) をクリック。
[ツール] メニューの [マクロ] をポイントし、[マクロ] をクリック。
[マクロ名] ボックスにMacro1を選択して「編集」をクリック

下記のようになってると思いますがいらないので回答NO.3のマクロをコピーして貼り付けたら
編集画面は閉じてエクセルの画面に戻ります。
-----------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2001/4/17 ユーザー名 : XXX
'

'
End Sub
-----------------------------------------------
実行させる場合は[ツール] メニューの [マクロ] をポイントし、[マクロ] をクリック。
[マクロ名] ボックスのoshietegooを選択して[実行]
    • good
    • 0

下記のマクロで


>前月平均 前月比 4月16日4月15日
>17599 102.0% 17231 17958
左上から順にA1、B1,C1、D1
左下から順にA2、B2,C2、D2 として

「前月比」「4月16日」の間に列を挿入して
C2にF3/B3の値が出ます。(書式をD2と同じにします)←D2=17231
C1には右のセルの日付の翌日が出ます。
休日かなにかで飛ぶ場合は4/20とか入力して変更してください。

全体的なものが良くわからないのでこんな感じになりました。
適当に替えてくださいね。

前月比とかも数式いれないとけないと思うのですが・・・nishi6さんがoffsetの
説明をされてるので省きます。
------------------------この下から------------------
Sub oshietegoo()

Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[1]+1"

Range("D2").Select
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C[3]/R[1]C[-1]"
Range("C1").Select
End Sub
----------------------------この上まで------------------------------
    • good
    • 0
この回答へのお礼

すみません、マクロというものをまったく理解していないのでまだぴんときません。もしかしてこちらの方が良いかもしれない・・・と思いましたが、なぜか巧くいきません。。ということで、次点にさせてください!

お礼日時:2001/04/20 21:36

新しい列を挿入するのではなく、既に入力されている列を


右側に一つずらしてコピーするのではどうですか?

> 前月平均 前月比 4月16日4月15日
> 17599 102.0% 17231 17958

であれば、

(1) 4/16と4/15の列を選択してコピー
(2) 4/15の列を選択して、貼り付け
(3) 元の4/16の列を選択して「削除キー」(内容のクリア)
(4) 先頭の行に 4/17 と入れる

という手順で。
    • good
    • 0
この回答へのお礼

有難うございました!確かにそういう手もありますね。でも、毎日の作業を考えると、nishi6さんの方法が便利だったりします。

お礼日時:2001/04/20 21:30

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Q【Excelの値が入っていないセルだけセルに色を付ける方法を教えてください】 また値が入っているセル

【Excelの値が入っていないセルだけセルに色を付ける方法を教えてください】

また値が入っているセルだけ色付けする方法も合わせて教えてください。

Aベストアンサー

セルの条件付書式で、セル=「値の条件」であるか否か、の判断で、
セルの色設定をすればよいです。

QA1セルに入力したら、入力時間をA2セルに自動挿入

こんにちはtmgmです。

Excelでちょっと困っています。
「A1セルに文字を入力したときの時間をA2セルに表示する」ということがやりたいのですが、
実際やってみるとなかなか出来ませんでした。

A2セルの書式をhh:mmなどにして、セルに=if(A1<>"",NOW(),"")と書きました。
これで一応A1セル入力でA2セルに時間は挿入されますが、Excelの自動計算機能により、一度閉じてまた開いた場合や他のセルで自動計算を行うような入力をした際などに時間が更新されてしまいます。
時間が更新されてしまってはだめなんです。

かといってツール→オプションから自動計算を手動にすると、その他の計算(例えばSUM関数など)の自動計算に影響がでて、使い勝手が違ってくるし。。。。


どうすればよろしいんでしょうか?
お分かりになる方ご返答宜しく御願い致します。

Aベストアンサー

VBAで。

シート名を右クリックしてコードの表示を選び、出てきたVBE画面(何か書かれていたら消して)に書きます。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
 For Each r In Target
  If r.Column = 1 Then
    r.Offset(0, 1).Value = Format(Now, "hh:mm:ss")
  End If
 Next r
End Sub

試すのはテスト環境で。

Qエクセル セルの値を変えると自動でテキストボックスの値も変えれないか?

エクセルって非常に便利ですね。セルの値を変えると自動で再計算して結果も変わるなんてうまく出来てると感心します。

そこで、例えばデータが変わると平均値も変わりますが、その平均値を
テキストボックスに書いている場合、テキストボックスの値も自動で変わってくれたらすごく便利なのですが、実現できないでしょうか?

Aベストアンサー

任意のセル一つの値なら表示できますが数式は入力できません。

A1からA10の平均は=SUM(A1:A10)/10ですがこの式は入れても動きません。A11に=SUM(A1:A10)/10と式をいれテキストボックスを選択して上の数式バーに=A11と入力すればA11の平均値が変われば同じように変わります。

Q検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロ

検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロを教えてください。
エクセルの6行目から約19000行目まで、A列には1からの番号、B列に薬名、C列に剤形、D列にコードが入力されている薬台帳があるのですが、この台帳から薬名を検索して、最初にヒットしたA列の番号をセルB3に表示したいのです。
どなたかよろしくお願いします。

Aベストアンサー

>標準モジュールに貼り付けたのですが、動いてくれません。

動作しないのは、まるまる提示のコードを実行しようとしているか、あなたの質問に不備があるか、です。
当然のことながら、「What:="薬名"」の"薬名"の部分は検索したい薬名に正確に修正しないとダメです。
それでも動作しないなら、質問に記載されていない事項があるためです。

たとえば、新規ブックに、A6:A10に1から順に番号を振り、B10にでも「薬名」と入れて、提示したコードを貼り付け実行すれば、B3に5と表示されます。やりたいことと違う場合は再度質問を読み直されることをお勧めします。

Qセルの計算結果で負の値を正の値にする方法は

セルの計算結果で-25,000と出る負の数を、
25,000の正の数にしたいのですが、
方法を教えていただけませんか?
おわかりの方、よろしくお願いします。

Aベストアンサー

絶対値関数を指定しては?
=ABS(計算式)


人気Q&Aランキング

おすすめ情報