Sheet1のA1にとある図形を配置したとします。それをSheet2のB3に図形も一緒に参照することはできないでしょうか?
単純に =Sheet1!A1 としたら 0 と返ってきました。(^^;

A 回答 (3件)

『=Sheet1!A1』ではセルの値は持ってこれても、図形は表示できないでしょう。



ワークシート関数や算式は・・・思い浮かびません。
何かある?


質問の意味(目的)を、Sheet2にSheet1の図形を貼り付け、Sheet1の図形の変更が、貼り付けたSheet2の図形に反映することなら
Sheet1の図形を含むセル範囲をコピーし、Sheet2で、Shift+編集で図のリンク貼り付けを実行すればSheet1とSheet2の図形は同じものになり、『=Sheet1!A1』と同じ意味合いと考えられるかもしれません。

ご参考に。
    • good
    • 0
この回答へのお礼

ありがとうございます。考えていたとおりに解決しました。本当にありがとうございます。

お礼日時:2002/04/08 08:33

1)Sheet1A1を起点として、図形を含む範囲を選択して


  右クリックで"コピー"を指定します
2)Sheet2のB3を選択して、Shiftキーを押しながら
  メニューバーの[編集]をクリックし、
  [図のリンク貼り付け]を選択します

以上で1で選択した範囲が図形として表示されます
Sheet1のA1の内容・図の内容を変更した場合
自動的にSheet2の貼り付けた内容も更新されます
    • good
    • 0
この回答へのお礼

ありがとうございます。うまく行きました。
#1の方と回答が一緒だったのでポイントを付けることが出来ませんで申し訳ありません。

お礼日時:2002/04/08 08:29

「カメラ」の機能はご存知ですか?



カメラはセルのイメージを参照する機能なんですが、通常の状態では表示されていません。以下の方法で表示してください。

ツールーバー上で右クリックしたときに表示されるメニューの一番下「ユーザー設定」をクリックし、「コマンド」タブを表示し、分類の中から”ツール”を選択すると、右のリストの下の方に「カメラ」が有りますので、ツールバーにドラッグ&ドロップして下さい。

参照したいセル(Sheet1!A1)を選択後、前述のカメラをクリックして(Sheet2!B3)を選択してください。
    • good
    • 0
この回答へのお礼

ありがとうございます。早速試してみましたが、またこれも色々な場面で使えそうです。

お礼日時:2002/04/08 08:31

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

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

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

Q図形の問題(円)

下記の図形の面積って求まりますか。

正方形ABCDの各頂点を中心に、、正方形の中側に4分の1の円(扇形)を書きます。
そうすると、正方形の中に、丸まった四角形のような形ができると思います。
この図形の面積です。

求まるとしたら、
・小学生でも解けますか?(小学生の範囲でという意味です)
・中学生でも解けますか?
・積分しないと解けないですか?

よろしくお願いします。

Aベストアンサー

こっちの方ですよね?
http://tokumath.com/situmon/kyuseki1.html
「正方形 扇形 問題」で見つけました。

解答は「解答を見る」をクリックしてください。
中学生なら理解可能な範囲の式しか使っていないように思います。

と言っても簡単ではありません。
私も何度も目にしている問題ですが、解答方法を覚えていませんでした。

QSheet1に元がありSheet2で分けたものをSheet1で選択する方法がないですか?

またまた、質問させてください。

Sheet1が元ファイルSheet2に分けたものがあります。

-----------------------------------------
Sheet1

  A  B  C  D
1 sb
2 sg
3 sh
4 sm
5 ko

-----------------------------------------
Sheet2

  A  B  C  D
1 sb  sg  sh sm
2 ko
3 
4
-----------------------------------------

Sheet2のA列のものだけSheet1で選択したいのですがなにか方法がないでしょうか?

Aベストアンサー

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1) = wS.Cells(i, "A")
End If
Next i
End With
End Sub

何とかお望みどおりにならないでしょうか?m(_ _)m

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = ....続きを読む

Q図形の赤い円の中心座標は計算で回答を得られますか?

添付した図形の赤い円の中心座標を求めたいのですが

計算で回答を得る事は可能なのでしょうか

大きな円の中心を(0,0)とすれば
CADを使えば(12.39、8.45)になるみたいなのですが
計算式で出せないものかと思案しています

よろしくお願い致します

Aベストアンサー

赤い円の条件として、
・直径20の円に接している。
・直径24の円と直径10の円の交点を通る。
って事で良いのでしょうか?


直径10の緑の円の中心は、(15, 0)

直径10の緑の円と、直径24の円の交点は、
(x-15)^2 + y^2 = 5^2
x^2 + y^2 = 12^2
の連立方程式を解き、
(11.47, 3.54)

この交点と同心円の中心Oのなす角をθとすると、
cosθ = 11.47 / 12
sinθ = 03.54 / 12

赤い円の中心(x', y')は、座標(15, 0)を、Oを中心に2θ回転した位置ですから、
(行列式は書きにくいですが…)

| x' | = | +cosθ -sinθ | | +cosθ -sinθ | | 15.0 |
| y' | = | +sinθ +cosθ | | +sinθ +cosθ | | 00.0 |

= 15 * cosθ^2-sinθ^2 + 0
= 15 * 2cosθsinθ + 0

= 15 * (11.47^2/12^2 - 03.54^2/12^2)
= 15 * (2 * 11.47/12 * 03.54/12)

= 12.40
= 08.46

とか。

赤い円の条件として、
・直径20の円に接している。
・直径24の円と直径10の円の交点を通る。
って事で良いのでしょうか?


直径10の緑の円の中心は、(15, 0)

直径10の緑の円と、直径24の円の交点は、
(x-15)^2 + y^2 = 5^2
x^2 + y^2 = 12^2
の連立方程式を解き、
(11.47, 3.54)

この交点と同心円の中心Oのなす角をθとすると、
cosθ = 11.47 / 12
sinθ = 03.54 / 12

赤い円の中心(x', y')は、座標(15, 0)を、Oを中心に2θ回転した位置ですから、
(行列式は書きにくいですが…)

| x' | = | +cosθ -sinθ | | +cos...続きを読む

Q【sheet1】と【sheet2】のリンクの表示について

【sheet1】
   A             B
1  リンドウ     コスモス
2   100       0(空欄)

【sheet2】
   A             B
1  =sheet1!A1      =sheet1!B1
2  =sheet1!A2      =sheet1!B2

とリンクしている場合、
コスモスの値が0(空欄)の場合、【sheet2】のB1セルの表示も空欄にする
<コスモスの表示はされない>という数式を作成するはできますでしょうか?
お教えくださいますようお願いします。

Aベストアンサー

B1=IF(Sheet1!B2,Sheet1!B1,"")
B2=IF(Sheet1!B2,Sheet1!B2,"")
または
B1=IF(OR(Sheet1!B2="",Sheet1!B2=0),"",Sheet1!B1)
B2=IF(OR(Sheet1!B2="",Sheet1!B2=0),"",Sheet1!B2)

前者の場合、Sheet1!B2の内容が文字列だと#VALUE!エラーに、
後者の場合、Sheet1!B2の内容が例えば abc のような文字列でも
そのまま表示されてしまいます。


なお、No.1さんのご回答ですとSheet1!B2=0の場合は
空欄にならずに表示されます。

Q数学の図形の証明がわかりません。 「図のように円Oに直線AB,ACが接している。AB=ACを示せ」

数学の図形の証明がわかりません。
「図のように円Oに直線AB,ACが接している。AB=ACを示せ」
という問題なのですが、どのように証明するのかさっぱりわかりません・・
解説お願いします。

Aベストアンサー

△ABOと△ACOにおいて
  AO=AO(∵共通)
  BO=CO(∵円Oの半径)
∠ABO=∠ACO=90°(∵円の接線と接点を通る半径のなす角)
よって
△ABO≡△ACO(∵直角三角形の斜辺と他の一辺がそれぞれ等しい)
ゆえに

QエクセルVBAでSheet1.ActivateとSheet(n).Activate

エクセル2000です。
VBAでの疑問点を教えてください。

Sub test1()
Sheet1.Activate
MsgBox ActiveSheet.Name
End Sub

これは問題なく作動します。

Sub test2()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheet(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub

これは「SubまたはFunctionがていぎされていません」というエラーになります。

もちろん、
Sub test3()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub
のように書けばOKなのは存じておりますが、これではSheet名に係らず、左から順番となってしまいます。

Sub test4()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets("Sheet" & n).Activate
MsgBox ActiveSheet.Name
Next
End Sub
のように明確にシート名として記述すればOKなのですが、それでは、Test1のSheet1.Activate が通って、Sheet(n).Activate が通らないのはなぜでしょう?
しょうもない質問でごめんさない。

エクセル2000です。
VBAでの疑問点を教えてください。

Sub test1()
Sheet1.Activate
MsgBox ActiveSheet.Name
End Sub

これは問題なく作動します。

Sub test2()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheet(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub

これは「SubまたはFunctionがていぎされていません」というエラーになります。

もちろん、
Sub test3()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets(n).Activate
MsgBox ActiveSheet.Name
Nex...続きを読む

Aベストアンサー

Sheet1 は Sheet1 という(Worksheet を継承した)オブジェクトなんです。

Sheets(n) や Sheets("Sheet" & n) は

Sheets コレクションのなかの n 番目、"Sheet" & n というシートということです。Sheets(index)プロパティで Worksheet オブジェクトを返します。

Sheet(n) はそもそも Sheet というオブジェクトがないのでエラーになってしまうというわけです。

Q三角形の図形に円を

図形の勉強をはじめるときによく見かけると思うのですが、任意の長さの正三角形の中に、下段に3個・中段に2個・上段に1個の同じ直径の円が描いてあります。下段・中段・上段いづれの円も正三角形の両辺に接線しています。この合計6個の円の描き方が全く分からないのですが、どのようにに考えれば良いのでしょうか。何方か詳しい方アドバイスをお願いします。

Aベストアンサー

辺の長さは測れない、ということですか?
辺の長さがわかれば、円の半径は(正三角形の1辺)/(4+2√3)になるので、各辺からその長さだけ離して各辺に対する平行線を3本引いて小さな正三角形DEFを作れば、D,E,F,DEの中点,EFの中点,FDの中点が6つの円の中心になります。が、√3を含んでいるため、若干誤差がでます。

長さを測らないでするのであれば、
(説明のため、正三角形をABCとし、Aが上、Bが左下
 Cが右下にあるとします。また、AB,BC,CAの
  中点をP,Q,Rとします。)
1.AQ,BR,CPを引く
2.例えば、BQを√3:2に分けるために
  Bから斜め右下に正三角形の1辺よりやや長めの
  直線BSを引きます。
3.Bにコンパスの針をおいて、BQの長さ分をBS上
  上にとって、その点をTとします。
  さらに、Bから1で引いた3直線の交点までの長さ
  をコンパスではかりとって、Tからその長さ分を
  BS上にとりその点をUとします。
 (BS上にはB→T→Uのように点が並びました)
4.UとQを結び、それに平行で点Tを通る直線を引き
  BCとの交点をVとします。
5.VQの半分の長さが円の半径になります。この長さ
  はVQの垂直二等分線によって求められます。
6.VQの半分の長さだけ各辺から離れているような
  各辺に対する平行線を引いて、正三角形を作る。
7.その正三角形の各頂点、および各辺の中点を中心と
  して、半径VQの半分の円をかく。

これでたぶんできるかと思いますが・・

辺の長さは測れない、ということですか?
辺の長さがわかれば、円の半径は(正三角形の1辺)/(4+2√3)になるので、各辺からその長さだけ離して各辺に対する平行線を3本引いて小さな正三角形DEFを作れば、D,E,F,DEの中点,EFの中点,FDの中点が6つの円の中心になります。が、√3を含んでいるため、若干誤差がでます。

長さを測らないでするのであれば、
(説明のため、正三角形をABCとし、Aが上、Bが左下
 Cが右下にあるとします。また、AB,BC,CAの
  中点をP,Q,Rとします。)
1....続きを読む

Qエクセル sheet1の表を一部sheet2に挿入したいのですが。。。

sheet1にこのような表を作りました。
  A   B   C   D   E   F
  数字  番号  カナ  氏名  番号  住所
   1   2   あ   阿   3    い
   4   5   う   有   6    い


sheet2に、
    A   B   C   D   E
    数字  番号  氏名  給与  1月
1    1    2   阿  給与1
2    1    2   阿  税金1
3    1    2   阿  給与2
4               税金2
5               給与3
6               税金3
7               給与4
8               税金4
9               給与合計
10               税金合計
11    4    5   有  給与1


1~10行が1名分で、下に同じものを後350人ぐらい続く表を作成しなければならにのですが、シート1の表をシート2に
挿入するにはどうすればよいですか?
宜しくおねがいします。

sheet1にこのような表を作りました。
  A   B   C   D   E   F
  数字  番号  カナ  氏名  番号  住所
   1   2   あ   阿   3    い
   4   5   う   有   6    い


sheet2に、
    A   B   C   D   E
    数字  番号  氏名  給与  1月
1    1    2   阿  給与1
2    1    2   阿  税金1
3    1    2   阿  給与2
4            ...続きを読む

Aベストアンサー

はじめまして。
別の方法を紹介します。

ちょっと長いですが、シート2のB2のセルに
=IF(ISERROR(VLOOKUP($A15,Sheet1!$A$2:$D$3,2,FALSE))," ",VLOOKUP($A15,Sheet1!$A$2:$D$3,2,FALSE))
と入力します。入力後C2のセルにB2の計算式をコピーします。
そして、C2のセルの計算式中の$A$2:$D$3,2,の「,2,」の部分を「,4,」に直します。(2箇所)
最後にB2とC2の計算式を必要なだけ下の行へオートフィルコピーを行います。

ただし、「$A$2:$D$3」の部分は、シート1に作成した実際の表の範囲を入力してください。(「$」マークは、計算式をコピーした際に列や行の指定がずれることを防ぐためのものです。)上記の例では、シート1の表の範囲は「A2:D3」を指定していることになります。
また、IFとISERRORを使っているのは、シート2のA列に何も入力しない時、空白の表示をさせるためです。

QWord2003の表のセルに図形描画で円を描く

Word2003の表のセルに図形描画で円を描くと、中央ぞろえしていた文字が上ぞろえになってしまう。
プロパティは中央ぞろえのまま。
1列目がうまく中央ぞろえのままでできても、2列めはうまくいかない。
  こんな風にしたいのに
 _____________
     
 あ○あ    aaa○ああ     
 ____________

 こんな風になる
 _________________________
        aaa ああ
  い○い    ○       
________________________

 たぶんオートシェープのプロパティを変えたらいいと思うけれど、よくわからない。
いままで、Windows98 Word98ではごく普通にできてたので、困っています。

Aベストアンサー

こんにちは。
これはたぶんWord2000から起ってるのだと思います。
1度、表の外(上か下)で円を描いて
その円の上で右クリック
レイアウトタブの中の詳細設定というボタンを
クリックします。
その中のと「アンカーを段落に固定する」というところの
チェックボックスにチェックを入れてください。
それから表の中に円をもっていけば大丈夫だと思います。

Qsheet1上のマクロでsheet2に画面を切り替えずに行を挿入させたい

Excel2002ユーザーです。

sheet1上で実行するマクロで、画面を切り替えることなく、
いわば水面下でsheet2の行1に空行を挿入させ、常に最新のデータ(Sheet1上にあるセルの値)を書き込んでいく、
ということをしたいのです。
古いデータは順次、下に送られる形です。

まずデータの書き込み以前に、挿入ができないのです。
sheet1上のマクロで、

Worksheets("sheet2").Rows("1:1").Select
Selection.Insert Shift:=xlDown

と書き込みましたがダメでした。
(実行時エラー'1004': RangeクラスのSelectメソッドが失敗しました)

Sheets("sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown

の場合、行挿入はOKですが、sheet2に画面が切り替わってしまいます。

常にsheet1の画面を表示させたままにしてこのようなことを行いたいのですが、
良きアイデア、アドバイスがありましたら御教授ください。

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

Excel2002ユーザーです。

sheet1上で実行するマクロで、画面を切り替えることなく、
いわば水面下でsheet2の行1に空行を挿入させ、常に最新のデータ(Sheet1上にあるセルの値)を書き込んでいく、
ということをしたいのです。
古いデータは順次、下に送られる形です。

まずデータの書き込み以前に、挿入ができないのです。
sheet1上のマクロで、

Worksheets("sheet2").Rows("1:1").Select
Selection.Insert Shift:=xlDown

と書き込みましたがダメでした。
(実行時エラー'1004': Rangeクラス...続きを読む

Aベストアンサー

Sheets("sheet2").Range("1:1").Insert Shift:=xlDown

としてください。


人気Q&Aランキング

おすすめ情報