excelシートに
こんな感じです。
A1 B1 C1

A2 B2 C2

A3 B2 C3

A5 B5 C5

A1,B2,C3に500,000 / 600,000 / 700,000と数字がはいっています。
A5 B5 C5に A1,B2,C3の数字に×1.05した結果を表示させたいのです。

VBAで書くにはどうしたらよいでしょうか?

Cells( , )*1.05
Cells( , )←このセルの指定を=ExcelのA1→B2→C3をというように変化させたいのです。
offsetなどを使ってみてもうまくいきません。


よろしくお願い致します。


next

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

A 回答 (4件)

>For j=1 To i-1


>Cells(i+1,j).value = cells(j,j).value*1.05
>Next j

例えば、ご質問のケースでは3行×3列なのでi=4です。
5行目に結果を表示させたいとのことなので、行の指定をi+1(=5)とし、1列から3列まで入力するためにjを1から3(=i-1)まで回しました。

順を追っていくと、
Cells(5,1)にCells(1,1)×1.05の結果を書く。
Cells(5,2)にCells(2,2)×1.05の結果を書く。
Cells(5,3)にCells(3,3)×1.05の結果を書く。
です。

この記述だと、斜めの入力セル数が3個に限らず、99個まで対応できます。どのような状況で利用されるのか、ご質問では推測できませんでしたので、汎用性が高いほうで記述しました。やっていることはNo.1の回答の方と同じです。
    • good
    • 0

上記のケースですと、


For i = 1 To 100
If Cells(i, i).Text = "" Then Exit For
Next i
と書いて、行数(または列数)をカウントします。この場合はi-1です。
そのあと、
For j=1 To i-1
Cells(i+1,j).value = cells(j,j).value*1.05
Next j
でOKです。
    • good
    • 0
この回答へのお礼

さっそく EXCELに移してみると ちゃんと結果がでました!!ありがとうございます。
For i = 1 To 100
If Cells(i, i).Text = "" Then Exit For
Next i
これは、A1 B2と 空欄になるまでセルを移動しなさいという意味ですよね?
For j=1 To i-1
Cells(i+1,j).value = cells(j,j).value*1.05
Next j

これは、、あまり意味がわかりませんでした。でも ちゃんと結果がでますし、、
たとえば、 iが1の時は、jは 1から0までと言う意味ですか?
cells(2,1)にcells(1,1)に1.05をかけた結果を表示せよという意味ですか?

お礼日時:2001/12/08 23:41

こんなかんじではないでしょうか?


ココで使っている ConvertFormula はR1C1形式の参照⇔A1形式の参照のように変換してくれます。なので、ここでは通常 Cells(cnt, cnt) になるところをRange("A1")のような形式に変換しています。



Dim cnt As Integer

For cnt = 1 To 3

Range(Application.ConvertFormula( _
Formula:="R5C" & cnt, _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, _
toabsolute:=xlRelative)).Value = Range(Application.ConvertFormula( _
Formula:="R" & cnt & "C" & cnt, _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, _
toabsolute:=xlRelative)).Value * 1.05

Next cnt
    • good
    • 0
この回答へのお礼

pesoさんありがとうございます。以前 インプットボックスでの範囲指定で、A1からB3というように 指定したいといった質問をしたのを覚えてくださっていてくれたのでしょうか?

今回は、そんな配慮が感じられる回答と推察いたしました。でもちょっと わたしには難しくてよくわかりませんでした。残念です。

お礼日時:2001/12/08 23:46

こんにちは。

maruru01です。
こんな感じでしょうか。

Dim i As Long

For i = 1 To 3
  Cells(5, i) = Cells(i, i) * 1.05
Next i

では。
    • good
    • 0
この回答へのお礼

maruru01さん またまた 回答ありがとうございました。
私の 弱い頭でわかる回答でした。

(うう 上の2件についても理解したかったです)

お礼日時:2001/12/08 23:48

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人が検索しているワード

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

Q「斜め」を英語で何といいますか?

「斜め」を英語で何といいますか?
イギリス人のひとは「斜め」という言葉をひと言で表わせる単語はないと言っていました。
diagonal
はどうですか?
また、文章にすると、どうなるか教えて下さい。

八百屋の斜め向かいに金物屋があります。
An ironmonger is located diagonally accross from a greengrocer.

はどうですか?

よろしくお願いします。

Aベストアンサー

Gです。 こんにちは!

こちらではこの斜め向かいと言う表現は、kitty cornerと言う言い方をします.

この単語の使い方は

A is located kitty corner(kitty-corner) from Bと言う形で使います. 

A hardware store is located kitty corner from a greengrocer (vegitable/fruit store).

アメリカにはいわゆる八百屋を言う物は巣でな亡くなっており、このgreengrocerと言う単語はわからない人はいると思います. しかし、この単語からたぶん野菜や果物を売るところだろうとは推測するとは思いますが、 よって、あえて、vegitable/fruit storeと書きました. この言い方であれば、誤解される事は無いでしょう.

また、ironmongerと言う言い方はアメリカではしないで、hardware storeと言います.

これでいかがでしょうか。 分かりにくい点がありましたら、補足質問してください。

Gです。 こんにちは!

こちらではこの斜め向かいと言う表現は、kitty cornerと言う言い方をします.

この単語の使い方は

A is located kitty corner(kitty-corner) from Bと言う形で使います. 

A hardware store is located kitty corner from a greengrocer (vegitable/fruit store).

アメリカにはいわゆる八百屋を言う物は巣でな亡くなっており、このgreengrocerと言う単語はわからない人はいると思います. しかし、この単語からたぶん野菜や果物を売るところだろうとは推測するとは思いますが...続きを読む

Q=IF(ISNA(VLOOKUP($A1,sheet2!$A$1:$B$12,2,FALSE)),"",VLOOKUP($A1,sheet2!$A$1:$B $

いつもお世話になってます。
以下の関数式について、お時間がありましたらどうぞご教示ください。

=IF(ISNA(VLOOKUP($A1,sheet2!$A$1:$B$12,2,FALSE)),"",VLOOKUP($A1,sheet2!$A$1:$B $12,2,FALSE))

「シート2の範囲指定した表にA1セルの値と同じ値の右隣になる値を返せ。ただし該当なき場合は空白とせよ。」

純粋になんでこのような構文になるのかが解りません。

1.ISNAってそもそもなんでしょう?
2.同じ式を繰り返すのはなぜ?
(模範式で、このように同じ式を繰り返す構文があまり無いように思えたのです。)

・参考となる他所のページがあれば教えて下さい。
・素人です。お手柔らかにお願いします。

(エクセル2003)

Aベストアンサー

1.ISNAってそもそもなんでしょう?
ISで始まる情報関数の一つで、#N/A!エラーのみを判定する関数
結果はTRUE(真),FALSE(偽)のいずれかになります。
エラー判定のIS関数には他に
ISERR:#N/A!を除くすべてのエラーを判定する関数
ISERROR:すべてのエラーを判定する関数
があります。

2.同じ式を繰り返すのはなぜ?
ISNAの判定する値がセルでなく数式の結果だからです。
A2=VLOOKUP($A1,sheet2!$A$1:$B$12,2,FALSE)
なら
A3=IF(ISNA(A2),"",A2)
ということになります。A2のように計算の為のセルを省略する為に
=IF(ISNA(数式),"",数式)のように同じ数式を2回繰り返しになってます。

Q「斜め前40度」「後ろ斜め20度」を英語でいうと

「斜め前40度」や「後ろ斜め20度」を英語ではどう表現するのでしょうか?
diagonally forward 40 degreeは変ですよね。
よろしくお願いします。

Aベストアンサー

    時計の文字で表します。例えば

    1。真正面 twelve o'clock
    2。真うしろ six o'clock
    3。右真横 three o'clock
    4。左真横 nine o'clock
この調子で、方向が言えます。
     There is a flying object at one thirty.「時計の1時半の方向に飛行物体が一つあります」真正面から右へ45度の方向
I see an unidentified ship at ten.「船籍不明の船舶が10時の方向(=左前方60度)に見えます」
    など。

QA1に数字の1を入力するとB1の値がA1に表示、A2に数字の2を入力するとB2の値がA2に表示

エクセル初心者です

セルのA1に数字の1を入力するとB1の値がA1に表示、A2に数字の2を入力するとB2の値がA2に表示されるようなものを作りたいのですが・・・
どなたかご教授お願いします

例えば、A1に1を入れるとB1の値"北海道"がA1に表示され、A2に2を入れるとB2の値"青森"がA2に表示といった感じでです

宜しくお願いいたします

Aベストアンサー

No3,5,6です。
補足要求をしましたが時間がないので、No6での以下の理解、

B4がROOT,C4が♭9,D4が9,E4がm3,F4がM3~M4がM7
置き換え対象はB6:W11の範囲

ということでいいのなら以下で出来ます。

1.シートのタブを右クリックし、コードの表示を選択
2.出てきたVBエディター(白い画面)に下記をコピペ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Intersect(Target, Range("B6:W11")) Is Nothing Then Exit Sub
x = Target.Value
Application.EnableEvents = False
Target.Value = Range("A4").Offset(0, x)
Application.EnableEvents = True
End Sub

3.AltキーとF11キーを一緒に押してワークシートへもどります。

Q文中で英語が斜めに表記されているのはなぜ?

いつも大変お世話になっておりますm(_ _)m
どうぞよろしくお願い申し上げます。

文中に、よく部分的に斜めになっている言葉がありますが、どういう場合に斜めにするのでしょうか?
固有名称や強調という以外に、何かの定義のようなものはあるのでしょうか?

Aベストアンサー

活字が斜めに打ちだされるのは斜体(イタリック)と呼ばれます。日本語ではあまり用いられないようです。一般的な使用パターンが見受けられます。また、学術雑誌などの場合、基本的に一般的な使用法に準ずる形で、投稿マニュアルによって使用箇所が厳密に定められていることがあります。

一般的な使用法については、英語版のWikipediaを参考にしますと、次のようになります。
http://en.wikipedia.org/wiki/Italic_type
・語句の強調。
・書名、雑誌名、新聞名。これに対して、ある本がいくつかの章や論文/記事からなるとき、各章や各論文/記事の名前を挙げる際には、立体(まっすぐのもの)で書かれます。ウェブサイトの引用などおそれに準じます。
・船の名称。
・外国語。
・単語をとりあげるとき。たとえば、
・新しく専門用語などとして導入するとき。
・生物の2名法。おおまかにはドメイン>界>門>綱>目>科>属>種の順に分類が細かくなりますが、属および種のみ斜体で書きます。科以上の名前は立体で書きます。
・物理量や数学の変数として用いられる記号。

そのWikipediaのページにも書かれていますが、いくつかよく知られた規則があります。

(1) 文全体が斜体になっているとき、その中でまた斜体を使わなければならないときは、立体に戻ります。たとえば、『The complete capuchin: The biology of the genus Cebus』という書名だと、書名なので斜体で書かなければなりません。一方、この書名のなかに含まれているCebusという語は生物の属名(オマキザル属)なので、これも斜体で書かなければなりません。結果、The complete capuchin: The biology of the genusまでは斜体で、Cebusは(斜体の斜体ということで、戻って)立体となります。

(2) タイプライターや手書きで原稿を書くときは、下線を引いて印刷時にそこが斜体になることを指示します。e-mailなど下線もイタリックも使えない場合は、> < や * * などを使うようです。

なので、固有名詞だからといって必ずしも斜体になるわけではありません。上で挙げた例でも、投稿マニュアルによっては、斜体でない場合があります。全体的にいって、使用する場面はかぎられています。また、基本的に活字の話なので、手書きには立体も斜体も関係ありません。

活字が斜めに打ちだされるのは斜体(イタリック)と呼ばれます。日本語ではあまり用いられないようです。一般的な使用パターンが見受けられます。また、学術雑誌などの場合、基本的に一般的な使用法に準ずる形で、投稿マニュアルによって使用箇所が厳密に定められていることがあります。

一般的な使用法については、英語版のWikipediaを参考にしますと、次のようになります。
http://en.wikipedia.org/wiki/Italic_type
・語句の強調。
・書名、雑誌名、新聞名。これに対して、ある本がいくつかの章や論文/...続きを読む

Qエクセルについてなのですが、 例えば指定の範囲内に A B B C A B C A B B C D

エクセルについてなのですが、

例えば指定の範囲内に
A B B C A B C A B B C D B D
と並んだセルからAとDの合計を出したい時はどのようにすればいいのですか?

COUNTIFSだったら複数条件を満たした数を表示するので希望とは違います。
希望はA or Dの合計を出したいのです。

Aベストアンサー

こんにちは!

COUNTIFS関数はAND条件になりますので、今回の質問には適しません。

=COUNTIF(範囲,"A")+COUNTIF(範囲,"D")
のように「A」のセル数と「D」のセル数をコツコツと足し算するのが
間違いないと思います。m(_ _)m

Q英語⇒日本語訳をして下さる方を探してます。

英語⇒日本語訳をして下さる方を探してます。いわゆる翻訳ではなく、大まかな訳で良いのです。英語の原書を斜め読みして大体の内容が把握出来れば良いのですが、どこに求人すれば良いのか判りません。どなたか情報を下さい。

Aベストアンサー

一般論ですが、

大きな街なら、タウンページを調べると、翻訳家・翻訳事務所/会社などの項目があることも。
ネット検索しても見つかると思います。

原書の種類によっては、専門のところに頼んだり、ということも必要でしょうが、
問い合わせたところで、紹介してもらえることもあるかと思います。

料金体系などは、そこそこで色々あるとは思いますが、

ただ、知り合いから頼まれて、自分で請け負うこともあるので、その経験から言うと、
「英語の原書を斜め読みして大体の内容が把握出来れば良い」のなら、
お安いかと言うと、確かに、完成原稿を作る手間はありませんが、
責任もって、「大体の内容」を伝えるためには、「斜め読み」なんかできませんから、
納期などは極端に短くできませんし、時間・分量に見合った料金にはなってしまいます。

いや本当に斜め読みでよくて、知りたいのはこれとこれだけだから、と言われて、
その条件でやると、後から実はこれも知りたかった、とか、ここが違う、と、
トラブルになることも。なので、これなら、簡単でしょ、と、依頼者がいう翻訳は、
あまり、受けたくない仕事である可能性が高かったりします。(そんなに、簡単なら、
自分でやれ、と言いたくなることも。それで商売している人は言わないでしょうが、
私の場合は、本職でないので、言葉遣いはともかく、本当に言ったりします^^)

期待していたほど、ザッとでいいから、速く安く、とはいかなかった、ということ
があるのは、むしろ、当たり前、という覚悟は必要かと思います。
これも、そこそこの契約条件や料金体系次第ですが…

人材派遣会社で、そういう専門職の短期派遣をやっているところもありますし、
大学の学生課に、アルバイトの求人を、という手もあります。

ここんところは、来てくれる人の質(細かく気にし出すと、専門事務所などでも
本当に納得できる質のものが得られるかは、完全に保証されている訳では
ありませんが)にも、よるので、普通に翻訳というか要旨をまとめることを、
丸ごと投げるのには、気になる所もありますが、

そうではなく、家や会社などにきてもらって、対面で、教えてもらう仕事として、
まず、半日とか一日の仕事として依頼して、問題の本を読んでもらって、
自分の手におえるか負えないかを考えてもらったり、自分の知りたいことを
伝えて、その場で解る分は、大体の内容を伝えてもらったりすれば、
質問者さんにも、それで間に合うかどうか、の、見当は付きやすいでしょうし、
うまくいけば、半日ですむかもしれませんし、丸投げしても大丈夫か、
それとも、同じ形で、何日か来てもらう方がいいか、みたいな判断が
できるかもしれません。また、来てくれた人が、お手上げだ、の場合でも、
次の人を紹介してもらえることもあるかもしれません。

翻訳事務所などに頼む場合も、対面での相談料みたいなものが設定して
あるところなら、同じような形で、本を持ち込んでみて、相談してみるのが、
やりやすいでしょうし、万が一、その場で解決する程度のことだったと
しても、気まずい思いをすることもありません。その中で、互いに都合のよい
解決法が得られるかもしれません。

一般論ですが、

大きな街なら、タウンページを調べると、翻訳家・翻訳事務所/会社などの項目があることも。
ネット検索しても見つかると思います。

原書の種類によっては、専門のところに頼んだり、ということも必要でしょうが、
問い合わせたところで、紹介してもらえることもあるかと思います。

料金体系などは、そこそこで色々あるとは思いますが、

ただ、知り合いから頼まれて、自分で請け負うこともあるので、その経験から言うと、
「英語の原書を斜め読みして大体の内容が把握出来れば良い」のなら、
お...続きを読む

Qエクセルの列表示を1,2,3,からA,B,C,に戻したい。

初期状態では、エクセル行は1,2,3,~、列はA,B,C,~となっていると思いますが、先日知り合いからもらったエクセルファイルは列も1,2,3,~となっていました。
どうしたら、A,B,C,~に戻せますでしょうか?
教えて下さい。

Aベストアンサー

「ツール」→「オプション」→「全般タブ」で「R1C1参照形式を使用する」のチェックを外して下さい

Q「斜め上方から徐々に」は?

「斜め上方から」はfrom slanting upper で良いでしょうか?

Why is it for saving to insert a drill into the material by degrees from slanting upper?
「斜め上方から徐々にドリルを材料に入れて(切り込んで)いく事が、なぜ節約になるのでしょうか?」

という作業上の問合わせ文なのですが、この英語で通じているでしょうか。

Aベストアンサー

以下は、英国人ならこう答えます、という例としてお読みください。不明な点は、ご面倒ですが補足質問をお願い致します。

ビジネス上のお問い合わせ文とのことですので、「I would be most grateful if you could explain why cutting the material gradually from the top with the drill at an angle towards the bottom saves cost?」のように尋ねると良いと思いました。
ただ、節約が何の節約かよく判らなかったので、仮にコスト削減と解釈しておきました。御不明の点がありましたら、補足質問をご面倒ですがお願い致します。

Qエクセルの列番号(上のA,B,C,D…)が数字になってしまいました。

エクセルの列番号(上のA,B,C,D…)が数字になってしまいました。
気が付いたら、縦横ともに列番号、行番号ともに数字になっています。
どうしたら列番号が元のアルファベッドに戻るのでしょうか?
セル参照とかする時非常にわかりずらいのですが……
特にどこかの設定を触ったとかってないのですが、勝手に変わっちゃったってこともないと思うんですけど……
ウィンドウズVisutaのエクセル2007です。
どなたかわかるかたいらっっしゃいますか?

Aベストアンサー

http://www.geocities.jp/laut6/r1c1/r1c1.html
チェックを外し、現在開いているファイルを保存します。この設定は各ファイルに保存されるのですが、一番最初にこのR1C1参照形式のファイルを開いたりブックのウィンドウがない状態でR1C1形式のファイルを開いてしまうと、デフォルト設定が自動的にR1C1形式に変更され、それ以降開くファイルはすべてR1C1形式に変更されてしまいます。気づかずに上書き保存すると後が大変です。

R1C1/A1の参照形式がファイルを開くと変更される
http://support.microsoft.com/kb/405338/JA/

Excel で R1C1/A1の参照形式がファイルを開くと変更される
http://support.microsoft.com/kb/405338/ja


ちなみに、R1C1参照形式は
http://bbs.pc21.nikkeibp.co.jp/keyword-245
で解説されているように使用します。


人気Q&Aランキング