エクセル散布図グラフで値が未記入のセルを飛ばして、
その前後の値間で線を引く方法が確かあったように記憶しているのですが
忘れてしまいました。
空白セルに何か記号を入れたらよかったような気がするのですが。

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

A 回答 (1件)

こんにちは!



>未記入のセルを飛ばして
完全な空白であれば、グラフを選択後 
 メニューの ツール オプション グラフタブ
 空白セルのプロット 「補完してプロット」

数式で=""等が入っているデータ値の場合
 =NA() でOKです。
    • good
    • 0

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qダイヤモンドの硬さがなぜできる?

 ダイヤモンドは硬度10で、地球上で一番硬いということですが、それについて質問です。
 ダイヤモンド以外はダイヤモンドよりも硬くないわけですが、ダイヤモンドよりも硬度の低い物(やわらかい物)でいくら圧力を加えても、炭素が硬度10にはならないと思うのです。
 なぜ硬度10の硬さができるのでしょうか?

Aベストアンサー

ダイヤモンドは高圧で固められているから硬いというわけではなく、高圧によって、化学構造が変化して、硬い物質(ダイヤモンド)に変化したと考えるべきです。
たとえばグラファイトを高圧にしても、化学構造が変化しなければ、ダイヤモンドのように硬くはなりません。

ダイヤモンドが硬い理由は結晶全体が強固な共有結合で、三次元的につながっているためであると説明されます。

このような構造はダイヤモンドを構成している炭素原子の特性とも関係してきます。
炭素以外の原子でこのような構造を作ることができるものは限られているために、ダイヤモンドよりも硬い物質が(あるのかもしれませんが)知られていないということだと思います。

参考URL:http://www2.yamamura.ac.jp/chemistry//chapter4/lecture5/lect4052.html

Q入力セルが空白の時 隣りと隣のセル(こちらも入力セル)を空白にできるかどうか?

こういったことできないでしょうか。

 A1  B2  C3
9:00  ~  10:00 と場合に

A1とC3に直接値を入力しています。

A1セルに値がはいらないとき B2のチルダも C3の値も 空白になってくれると
よいなと思うのですが 良い方法はありますでしょうか。

ご存知の方ご教示いただければ助かります。

Aベストアンサー

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
With Target
If .Row = 1 Then
If .Value <> "" Then
If Range("C3") <> "" Then
Range("B2") = "~"
End If
Else
Range("B2,C3").ClearContents
End If
Else
If .Value <> "" Then
Range("B2") = "~"
Else
Range("B2").ClearContents
End If
End If
End With
End If
End Sub '//この行まで//

※ A1セルがC3セルより大きな値になった場合などの細かいエラー処理はしていません。

こんな感じをお望みなのでしょうか?m(_ _)m

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) ...続きを読む

Qグラフのプロパティ(名前?)について

エクセルで作成されたグラフには[Book1]Sheet1グラフ1・グラフ2・グラフ3・・・と名前が作成した順についていきますが、この名前を任意に変更することは出来ないのでしょうか。
例えば、1番目に作ったグラフをグラフ3に、2番目に作ったグラフをグラフ1に・・・といったようにグラフを作ってしまった後から変更したいのですが可能でしょうか?
どなたかご存じの方がいらっしゃいましたら、ぜひ、ご教授ください。

Aベストアンサー

Sub グラフ名取得マクロ()
Dim cn As String
Dim i, k As Integer

i = 1
k = 1

cn = ActiveChart.Name
ActiveWorkbook.ActiveSheet.Cells(i,k).Activate
Cells(i, k).Value = cn
End Sub

簡単にですが・・・。
iとkには任意の数字(i=行数、k=列数)を入れて、グラフを選択している状態で実行してください。
グラフを選択していないとエラーですよ。簡単に、なのですみません・・・。

Qマクロによって、既に値の入っているセルや空白のセルに値を追加して入れたい

こんにちは

宜しければお力をお貸しください。
A1などのセルにユーザー定義によって数字の1を(1)として入力してあり、B1も(2),C1が空白のセルだとします。

この時、A1:C1の範囲を選択しマクロを実行することで、A1=(1)①、B1=(2)②、C1=③と指定の範囲の既に入力されている値を変えずに追加で丸数字で連番を振る方法を教えて頂きたいです。

Aベストアンサー

No7です。
>条件2の設定で選択したセル1が”(2)”や”(3)”の時でも同様に(2)①、(3)①と表示されるのでしょうか?あまり詳しくないためバカなことを聞いていたらすみません…。

はい。そうなります。
以下のマクロを標準モジュールで登録し、実行してください。
---------------------------------------------------
Option Explicit

Public Sub Macro1()
Dim maru As Variant
maru = Array("○", "①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩", "⑪", "⑫", "⑬", "⑭", "⑮", "⑯", "⑰", "⑱", "⑲", "⑳")
Dim sh1 As Worksheet
Dim shw As Worksheet
Dim sName As String
Dim sa As String
sName = ActiveSheet.Name '選択されているシート名
Set sh1 = Worksheets(sName) '選択されているシートをsh1で参照する
sa = Selection.Address '選択されたセル領域を取得
Worksheets.Add after:=Worksheets(Worksheets.Count) '作業用のシートを末尾に追加(作業完了後削除する)
Set shw = Worksheets(Worksheets.Count) '作業用のシートをshwで参照する
shw.Activate '作業用のシートをactivateする
Dim tmp As Variant
Dim i As Long
tmp = Split(sa, ",") 'セルは複数選択されているので","で分割する
For i = 0 To UBound(tmp)
Range(tmp(i)).Value = True '選択されたセルの該当箇所へTRUEを設定(但し作業用シートへ設定)
Next
ActiveCell.SpecialCells(xlLastCell).Select '選択されたセルの最後のセルへ移動
Dim row, col, endRow, endCol, ctr As Long
endRow = Selection.row '選択されたセルの最後のセルの行を取得
endCol = Selection.Column '選択されたセルの最後のセルのカラムを取得
ctr = 0
For row = 1 To endRow '1列から最後のセルの行まで繰り返し
For col = 1 To endCol '1カラムから最後のセルのカラムまで繰り返し
If Cells(row, col) = True Then '選択されたセルの位置なら
ctr = ctr + 1 '番号をカウントアップ
If ctr <= UBound(maru) Then '番号が20以内なら
If ctr = 1 Then '番号が1(先頭のセル)なら
sh1.Cells(row, col) = sh1.Cells(row, col) & maru(ctr) 'そのセルの内容+①を設定
Else
sh1.Cells(row, col) = maru(ctr) '②~⑳を設定
End If
Else
sh1.Cells(row, col) = maru(0) '番号が20を超えているので○を設定
End If
End If
Next
Next
Application.DisplayAlerts = False 'シート削除時の警告を出さないようにする
Worksheets(Worksheets.Count).Delete '作業用のシートを削除
Application.DisplayAlerts = True 'シート削除時の警告を出すようにする(元に戻す)
sh1.Activate '選択されたシートに戻す
End Sub
--------------------------------------------------------------
セルを選択した状態で、上記のマクロを実行してください。
セルの書式は標準にしておいてください。
選択したセルの最初のセルは(1)、(2)、(3)などの文字を格納しておいてください。
入力時、(1)と入力すると-1になってしまうので、'(1)と入力してください。
(1)の前にシングルクオート「'」を付けます。そうすれば、-1と表示されません。

No7です。
>条件2の設定で選択したセル1が”(2)”や”(3)”の時でも同様に(2)①、(3)①と表示されるのでしょうか?あまり詳しくないためバカなことを聞いていたらすみません…。

はい。そうなります。
以下のマクロを標準モジュールで登録し、実行してください。
---------------------------------------------------
Option Explicit

Public Sub Macro1()
Dim maru As Variant
maru = Array("○", "①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩", "⑪", "⑫", "⑬", "⑭", "⑮", "⑯", "⑰", "⑱", "⑲", "⑳")...続きを読む

Qエクセルのグラフ作成時に、複合グラフになり困っています。

エクセルのグラフ作成時、データの範囲選択後、グラフウィザードの1/4で、標準グラフ(棒グラフ)などが作成できません。「現在のグラフは、複合グラフであり、利用できるグラフの種類と一致しません」と右下にでます。前回エクセルで複合グラフを作ったときに、何か設定を変えてしまったのでしょうか?  どなたか、教えてください。

Aベストアンサー

> 現在のグラフは、複合グラフであり、利用できるグラフの種類と一致しません

「標準のグラフ」に設定したのではないでしょうか?
このメッセージが出たとしてもグラフの種類で好きなグラフをクリックすれば選べると思いますが、、、、

標準のグラフをデフォルトにしたいなら下記で。
(Excel2000でのやり方なので他のバージョンだと多少違うかも)

1)一度、複合グラフを作ってから、グラフを選択して右クリック-「グラフの種類」
2)「ユーザー設定」タブで「選択元」を「ユーザー定義」
3)グラフの種類から「標準」を選択し下にある削除ボタンを押下

Qあるセルの値が空白の時は空白に

いつもお世話になります。
WINDOES XP EXCELL2003

G2のセルに下記の数式を入れています。
=SUM(B2*D2)

この時G2のセルに値が入力されていないと
#NAME?
と表示されます。
私の力で
=IF(=B2””,””,( =SUM(B2*D2))
としましたが
相変わらずうまく行きません。
G2に入力されていないときは値を返したくない数式をどうすればいいかご教授いただけませんか。
宜しくお願いします。

Aベストアンサー

=IF(B2="","",SUM(B2*D2))
ところでSUM(B2*D2)、というのはおかしな式です。ただのB2*D2(積)、かまたはSUM(B2:D2)(総和)、のまちがいでは?

Qウェブサイトにグラフの比較表を作りたい。

自分のウェブサイトに折れ線グラフを比較する表を作りたいと思っております。

イメージとしては左側にグラフA、グラフB、グラフC・・・とたくさんのボタンが縦にあって
その右側にその折れ線グラフを表示するウィンドウがあります。
グラフのボタンを押すとそのグラフが表示されたり非表示になったりして複数のグラフを比較することができる。
そういったグラフ比較表を作りたいのですが、どのように作ればよいのかが分かりません。

HTMLの本を読んでみましたが、どうやらそれでは作れなそうだと判りました。
Flashというものを勉強すれば作れるようになるでしょうか?

是非アドバイスをいただけたらありがたいです。

Aベストアンサー

>グラフのボタンを押すとそのグラフが表示されたり非表示になったりして複数のグラフを比較することができる。
 単純に、表示されるグラフが変わるだけですよね。複数のグラフを並べるので゛はなく!!

 なら普通に目次と内容を書けばよいだけですが?
<section>
 <h2>グラフ色々</h2>
 <section id="g1">
  <h2>グラフ1</h2>
  <p><img src="" width="" height="" alt=""></p>
 </section>
 <section id="g2">
  <h2>グラフ2</h2>
  <p><img src="" width="" height="" alt=""></p>
 </section>
 <section id="g3">
  <h2>グラフ3</h2>
  <p><img src="" width="" height="" alt=""></p>
 </section>
・・・【中略】・・・
 <div id="menue">
  <ol>
   <li><a href="#g1">グラフ1</a></li>
   <li><a href="#g1">グラフ1</a></li>
   <li><a href="#g1">グラフ1</a></li>
・・・【中略】・・・
  </ol>
 </div>
</section>
として、スタイルシートで
#idを左にfixedで固定してしまう。
複数を並べるとなるとjavascriptで内容を書き換えなければならないでしょう。

>グラフのボタンを押すとそのグラフが表示されたり非表示になったりして複数のグラフを比較することができる。
 単純に、表示されるグラフが変わるだけですよね。複数のグラフを並べるので゛はなく!!

 なら普通に目次と内容を書けばよいだけですが?
<section>
 <h2>グラフ色々</h2>
 <section id="g1">
  <h2>グラフ1</h2>
  <p><img src="" width="" height="" alt=""></p>
 </section>
 <section id="g2">
  <h2>グラフ2</h2>
  <p><img src="" width="" height="" alt=""></p>
 </section>
...続きを読む

Qエクセルで、ある列に不規則にある「連続した空白セルの最後尾セル」に空白の数を表示したい

エクセル(2003)を使ってます。

下のような表があるとします

   A       B
1  年月日  鈴木太郎
2  2008/1/1   鈴木
3  2008/1/2     
4  2008/1/3   鈴木
5  2008/1/4     
6  2008/1/5     
7  2008/1/6     
8  2008/1/7     
9  2008/1/8   鈴木

      ↓     


   A       B
1  年月日  鈴木太郎
2  2008/1/1   鈴木
3  2008/1/2    1
4  2008/1/3   鈴木
5  2008/1/4     
6  2008/1/5     
7  2008/1/6     
8  2008/1/7    4
9  2008/1/8   鈴木

B2~B9(実際にはB1500くらいまで…)の"鈴木"と"鈴木"の間にある連続した空白セルの
最後尾セルに空白の数を表示したいのです。
※ちなみにB列は同じ名前"鈴木"しか入ってません。

ご指導のほうよろしくお願いします。m(_ _)m

エクセル(2003)を使ってます。

下のような表があるとします

   A       B
1  年月日  鈴木太郎
2  2008/1/1   鈴木
3  2008/1/2     
4  2008/1/3   鈴木
5  2008/1/4     
6  2008/1/5     
7  2008/1/6     
8  2008/1/7     
9  2008/1/8   鈴木

      ↓     


   A       B
1  年月日  鈴木太郎
2  2008/1/1   鈴木
3  2008/1/2    1
4  2008/1/3   鈴木
5  2008...続きを読む

Aベストアンサー

とりあえず、今思い付いた内容を回答します。

「Sheet1」のシートが当質問の変換前の表であるものとします。

・「Sheet2」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を下及び右にコピーします。
 =IF(Sheet1!A2="","",ROW())

・「Sheet3」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を右にコピーします。
 =IF(Sheet1!A1="","",Sheet1!A1)

・「Sheet3」のA2セルに下記式を入力後、「Sheet1」にデータがある範囲までA2の式を下及び右にコピーします。
 =IF(Sheet1!A2="",IF(Sheet2!A2="","",Sheet2!A2-MAX(Sheet2!A$1:Sheet2!A1)-1),Sheet1!A2)

・「Sheet3」のA列の書式は、当該の日付形式に設定します。

「Sheet3」のシートが当質問の変換後の表になります。

こんな感じではいかがでしょうか。

とりあえず、今思い付いた内容を回答します。

「Sheet1」のシートが当質問の変換前の表であるものとします。

・「Sheet2」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を下及び右にコピーします。
 =IF(Sheet1!A2="","",ROW())

・「Sheet3」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を右にコピーします。
 =IF(Sheet1!A1="","",Sheet1!A1)

・「Sheet3」のA2セルに下記式を入力後、「Sheet1」にデータがある範囲...続きを読む

Qダイヤモンドに関する映画

こんにちは。ダイヤモンドに関する映画を探しています。
今のところ、ブラッドダイヤモンド、ブレイクアウトと、世界中にI Love You(Harry Winstonでの購入シーンがあった)を見ましたが、他にありますか?ダイヤモンド、ダイヤモンド商人、高級ジェリーショップ(Tiffany以外)で、他に映画がありましたら、教えてください!

Aベストアンサー

こんにちは!
「ブラッドダイヤモンド」のようにダイヤを主題にではなく、「世界中がアイ・ラヴ・ユー」のように小道具として出てくる…というだけでもいいのですか??
またダイヤ単体ではなくて、「ダイヤと他の宝石を使ったジュエリー」でもかまいませんでしょうか?

まずは
「マリー・アントワネットの首飾り」(2001)
「ルパン」(2005)
です。
史実でも有名な首飾り事件をモチーフにしており、大小合わせてとはいえ500個以上ものダイヤがふんだんにあしらわれ、「現代の感覚でもおおよそ30億円(Wikipedia調べ)」という首飾りが登場します。
「ルパン」ではこれのレプリカを作ったのはカルティエです。首飾りのみならず、王妃のジュエリー類や冠などもカルティエ・コレクションからの貸し出しだったそうです。宝石以外の室内装飾や調度類も見物です。

「メイド・イン・マンハッタン」(2002)
作中二人が恋に落ちるのがありえない、ファンタジーでも度が過ぎると叩かれまくったファンタジー恋愛映画ですが、二人のダンスシーンでジェニファー・ロペスが身につけている豪華なジュエリーはハリー・ウィンストンのネックレスとイヤリングなんだそうです。
「プリティ・ウーマン」でもオペラを見に行くときにドレスに合わせたネックレスをプレゼントされますが、あれもルビーとダイヤだそうです。

「10日間で男を上手にフル方法」(2003)
10日間で男にフラれるハウツー記事を書けと言われた雑誌記者と、10日間で女をオトせたら大手ダイヤモンド会社の担当にしてやる、と言われた広告代理店の男の駆け引きの話で、タイトルほどヒドくはなかった。
NYの華やかスポットがしょっちゅう出てくるのですが、頂点は主人公がパーティのシーンで身につけるハリー・ウィンストンのジュエリー。総90カラット弱だそうで、とても素敵です。

「ラスト、コーション」(2007)
冒頭にも大きなダイヤとおぼしき指輪をつけた女性たちが出てきますが、物語を大きく動かすのがカルティエ制作の6カラットのピンクダイヤの指輪。
公開当時、「激しいセックスシーンが見どころ」と言われたそうですが、露出が激しいというより暴力的なセックスを含むのでご注意。

「シャネル&ストラヴィンスキー」(2009)
作中のココ・シャネルが身につけているものが全て本物のシャネル。当時のものではなくて、シャネルとカール・ラガーフェルドの全面協力による再現だそうです。
特にクライマックスである再演シーンにてココ・シャネルが身につけているダイヤをふんだんにちりばめたネックレスがはっきり見て取れます。
同じ全面協力でも「ココ・アヴァン・シャネル」でダイヤが出てきたかどうか、ちょっとリストにありません。
同じくシャネル制作のダイヤモンド・ネックレスは「ゴスフォード・パーク」(2001)でも登場します。イギリス貴族のマナーハウスが舞台で、凝り性の監督によってしつらえられているので豪華です。でも貴族本人たちが主役というわけでもないので、ダイヤはちらりです。

「ナイン」(2009)
ニコール・キッドマン演じる女優が、総カラットで数十以上と言われるゴージャスなブレスレットとイヤリングをじゃらじゃら言わせています。ショパールだそうです。
主人公であるダメグズ男の周りにはなぜかきらきらしい女性がいっぱいいて、彼女らが身につけているジュエリーもかなりのものです。

「白雪姫と鏡の女王」(2012)
映画体の出来よりも、后に食われ気味の白雪姫の眉毛ばっかり気になる映画ですが、この作中でジュリア・ロバーツと白雪姫が身につけているティアラ、グレース・ケリーが公妃になったあとで実際に身につけたものを撮影に借りたんですって!ご利益ありそう。ヴァン・クリーフ&アーペルだそうです。
グレース・ケリーが主演の映画でも「上流社会」で大きなダイヤの婚約指輪が出てくるそうです。私はまだ未見ですが、実際にレーニエ公から贈られたカルティエの婚約指輪を作中でも婚約指輪として扱ったという…計10カラット以上だそうで、見ているこちらもため息ものの豪華なダイヤです。
来年公開予定の映画の中にグレース・ケリーを主題にしたものがあって、この婚約指輪ほか、グレース・ケリーが身につけたダイヤのジュエリーがカルティエによる再現で登場するそうです。

他にも未見のものでは。
イングリッド・バーグマンの「汚名」で身につけているネックレスがハリー・ウィンストンのものだそう。
オードリー・ヘップバーンの「おしゃれ泥棒」でもダイヤのジュエリーが出てきます。
#3もふれていらっしゃいますが、「紳士は金髪がお好き」。
ダイヤモンド会社社長からマリリン・モンローが贈られたダイヤのネックレスが出てくるはずです。このカナリアイエロー・ダイヤ、数百年インドの王家所有のあとオーストリアのマリア・テレジアが所有していたという世界でも有名なダイヤのひとつなのです。マハラジャの領地名にちなみ「The Moon of Baroda(バローダの月)」と呼ばれ、24カラットもあります。
実生活でも宝石コレクターだったエリザベス・テイラーの「別離」。ダイヤモンドではなかったかもしれませんが、実際に夫のどなたかから贈られた見事なジュエリーが出てくるそう。
エリザベス・テイラーは死後、遺品となった宝石コレクションがクリスティーズのオークションにかけられています。その中でももっとも注目を集めたのが大粒のダイヤモンドの指輪です。
オークションに際し「The Elizabeth Taylor Diamond」と名付けられた指輪は33カラットを超え、その品質もDカラーのフローレスという破格のもの。
http://www.christies.com/elizabethtaylor/saleroom_legendary_jewels.aspx
それともう一つ、2度結婚したバートンがテイラーに贈ったことから「Taylor-Burton Diamond」と呼ばれるようになった69カラット超のダイヤモンドも、もしダイヤモンドにご興味があればご覧ください。

こんにちは!
「ブラッドダイヤモンド」のようにダイヤを主題にではなく、「世界中がアイ・ラヴ・ユー」のように小道具として出てくる…というだけでもいいのですか??
またダイヤ単体ではなくて、「ダイヤと他の宝石を使ったジュエリー」でもかまいませんでしょうか?

まずは
「マリー・アントワネットの首飾り」(2001)
「ルパン」(2005)
です。
史実でも有名な首飾り事件をモチーフにしており、大小合わせてとはいえ500個以上ものダイヤがふんだんにあしらわれ、「現代の感覚でもおおよそ30億円(Wikipedia...続きを読む

Q空白セルを含む最終行変動データ行列で、特定の二つの列の空白セルのみに○を入力するマクロコードを教えて

空白セルを含む最終行変動データ行列で、特定の二つの列の空白セルのみに○を入力するマクロコードを教えて下さい。

Aベストアンサー

こんばんは!

>特定の二つの列・・・
とは具体的にどの列か判らないので、A・B列としてみました。

空白セルとは数式などによって空白に見えるセルではなく、何もデータがないセルだとします。

Sub Sample1()
Dim j As Long, lastRow As Long
For j = 1 To 2
lastRow = WorksheetFunction.Max(lastRow, Cells(Rows.Count, j).End(xlUp).Row)
Next j
If lastRow > 1 Then
On Error Resume Next '//←念のため//
Range(Cells(1, "A"), Cells(lastRow, "B")).SpecialCells(xlCellTypeBlanks).Value = "○"
End If
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんばんは!

>特定の二つの列・・・
とは具体的にどの列か判らないので、A・B列としてみました。

空白セルとは数式などによって空白に見えるセルではなく、何もデータがないセルだとします。

Sub Sample1()
Dim j As Long, lastRow As Long
For j = 1 To 2
lastRow = WorksheetFunction.Max(lastRow, Cells(Rows.Count, j).End(xlUp).Row)
Next j
If lastRow > 1 Then
On Error Resume Next '//←念のため//
Range(Cells(1, ...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング