こんばんは。土日も深夜もなくエクセルと格闘中でございます。
どなたか、どうか、お助けください・・・。

エクセルの達人?と思われる人から送られてきたエクセルファイル

 ・Exel 2000で、マクロ設定がYesで有効、無効にできる程度のセキュリティ
  がっかっています

完全に文章とグラフで仕上げられた美しい報告書です。
ですが、データをいじって修正したいのに、ファイルのどこを
さがしても、元データらしきシートも表もないのです。

 ファイルはこれだけメールで送信されてきて、フォルダ内に
 他に何もリンクしているファイル・シートもないのですが、

元データはどうやったらいじれるのでしょう????

エクセルのグラフといえば、単純に集計表を作って、それから
グラフ化するのですが、元となる表は別シートなどに普通あるかと
思うのです。
ですが、この報告書、達人すぎて何一つ元データや表にあたるものが
見当たりません。

●エクセルのマクロ設定によって?恐らく元データ表をグラフに変換
 してあるか?、、、私の知らない高度なテクニックをご存知の方!

●ぜひ、グラフしかついていない、マクロ設定のファイルのどこに
 元データが隠れているのか?
 どうやったら元データを表レベルで修正できるのか?

教えてください!どうかよろしくお願いいたします。

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

A 回答 (2件)

ツール(T)→オプション→表示


を見てください。ウインドウオプションのチェックを
改ページ、数式以外がONになっていますか?

グラフを右クリックで元データーを表示してください。
元データーの場所が表示されます。

場合によっては、元データの文字を透明、白にしたり
保護パスワードを掛けられたりしているかもしれません。

とりあえず、様子がわかりませんが、ここまで。
    • good
    • 0
この回答へのお礼

ありがとうございます。作成者に問い合わせるまで気がつかなかった
のですが、、、、

な、なんと、!スゴク高度な技かと思っていましたが、

 エクセルに、わざわざ文章とグラフを画像化したものを
 貼りつけてレポートにまとめているということでした。

そんな方法でエクセルを使うなんて、初めて見たので
さすがに、そんなこととは思いもよりませんでした・・・。

とんでもない オチ になってしまって、すみません。
回答者の皆様、お騒がせいたしました m(_ _)m

お礼日時:2001/12/16 15:07

こんにちは



 以下のページもご参考になるのでは?

【エクセル技道場】-シート-シートの非表示/再表示
http://www2.odn.ne.jp/excel/waza/sheet.html#SEC8

参考URL:http://www2.odn.ne.jp/excel/waza/sheet.html#SEC8
    • good
    • 0
この回答へのお礼

ありがとうございます。作成者に問い合わせるまで気がつかなかった
のですが、、、、

な、なんと、!スゴク高度な技かと思っていましたが、

 エクセルに、わざわざ文章とグラフを画像化したものを
 貼りつけてレポートにまとめているということでした。

そんな方法でエクセルを使うなんて、初めて見たので
さすがに、そんなこととは思いもよりませんでした・・・。

とんでもない オチ になってしまって、すみません。
回答者の皆様、お騒がせいたしました m(_ _)m

お礼日時:2001/12/16 15:06

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

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

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

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

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

Qフェッチでデータが上書きされます

こんにちは。perl + html + mysqlのコーディングで悩んでいるので質問させてください。
複数フィールド+複数件(例えば13フィールド+3件)のデータがテーブルに存在する時、SELECT文でそのデータを取得したいとします。
分からない所はフェッチの部分なのですが、

$i=0;
while($selectdata[$i]=$sth->fetchrow_arrayref(
$i++;
}

----[中略]-----

for($i=0;$i<$rows;$i++){
print "[SELECTデータ->$i]\n";
for($j=0;$j<13;$j++){
print "$selectdata[$i][$j]\n";
}
print "<BR>\n";
}

表示されたデータが3件とも、3番目のデータが表示されます。
フェッチで取得したデータを配列にいれる段階で、上書きしているような気がするのですが、具体的にどこが悪いか分かりません。
ご教授お願いいたします。

こんにちは。perl + html + mysqlのコーディングで悩んでいるので質問させてください。
複数フィールド+複数件(例えば13フィールド+3件)のデータがテーブルに存在する時、SELECT文でそのデータを取得したいとします。
分からない所はフェッチの部分なのですが、

$i=0;
while($selectdata[$i]=$sth->fetchrow_arrayref(
$i++;
}

----[中略]-----

for($i=0;$i<$rows;$i++){
print "[SELECTデータ->$i]\n";
for($j=0;$j<13;$j++){
print "$selectdata[$i][$j]\n";
}
...続きを読む

Aベストアンサー

いや、
>$i=0;
>while($selectdata[$i]=$sth->fetchrow_arrayref(
>$i++;
>}
これを

my @selectdata;
while ( my $array_ref = $sth->fetchrow_arrayref ) {
push @selectdata, [ @{$array_ref} ];
}

みたいな感じで受け取ったリファレンスを一旦デリファレンスして、
その要素を含む新しい無名配列を生成すれば良いと思いますけど。

Qエクセルのマクロで検索・抽出したデータを修正及び更新して元データに反映

エクセルのマクロで検索・抽出したデータを修正及び更新して元データに反映させたい。

Sheet1に元データが行単位で入力されています。。
  A   B    C    D    E F
1 日付顧客名契約料担当回収日回収金額
2
3
|
50

Sheet2で複数条件でフィルタオプションをマクロで実行し結果を表示ています。
  A    B    C   D    E
1 日付~ 日付マデ 顧客名 担当者
2 1/1   2/28     高橋      --------->検索条件
3
4 日付顧客名担当回収日回収金額
5 -------------------------------------->抽出結果
6 -------------------------------------->抽出結果
7 -------------------------------------->抽出結果

マクロは下記の通りです。

Public Sub 検索()
Dim myRow1 As Long, myRow2 As Long
'----Sheet1とSheet2のA列で最終行を捜します。
myRow1 = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
myRow2 = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
'----Sheet2のA5以下が入力されていたらクリアします。
If myRow2 >= 5 Then
Sheets("Sheet2").Range("A5:P" & myRow2).ClearContents
End If
'----フィルタオプションの設定で抽出します。
'----元データはSheet1、抽出条件はSheet2のA1:D2、抽出先はSheet2のA4:E4です。
Sheets("Sheet1").Range("A1:F" & myRow1).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet2").Range("A1:D2"), _
CopyToRange:=Sheets("Sheet2").Range("A4:E4"), _
Unique:=False

End Sub

抽出結果の各セルデータを必要に応じて変更・修正(選出結果を直に)をしそれを元データ
に反映(上書き?)させるようなマクロを作成したいです。

どなたかご指導よろしくお願いいたします。

うまく説明できないので画像を添付します。

エクセルのマクロで検索・抽出したデータを修正及び更新して元データに反映させたい。

Sheet1に元データが行単位で入力されています。。
  A   B    C    D    E F
1 日付顧客名契約料担当回収日回収金額
2
3
|
50

Sheet2で複数条件でフィルタオプションをマクロで実行し結果を表示ています。
  A    B    C   D    E
1 日付~ 日付マデ 顧客名 担当者
2 1/1   2/28     高橋      --------->検索条件
3
4 日付顧客名担当回収日回収金額
5 ---...続きを読む

Aベストアンサー

質問者のレベルではChangeイベントはちょと難しいかも。。(^^;;;

で、Sheet2に抽出後、修正データを入れ、
それが正しいかどうか確認した後に、Sheet1へ転記する方がいいかも。

'------------------------------------------------ 
Sub 更新()
 Dim R1 As Long
 Dim R2 As Long

For R2 = 5 To Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
 For R1 = 2 To Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

 If Sheets("Sheet1").Cells(R1, "A") = Sheets("Sheet2").Cells(R2, "A") And _
   Sheets("Sheet1").Cells(R1, "B") = Sheets("Sheet2").Cells(R2, "B") And _
   Sheets("Sheet1").Cells(R1, "D") = Sheets("Sheet2").Cells(R2, "C") Then

   Sheets("Sheet1").Cells(R1, "E") = Sheets("Sheet2").Cells(R2, "D")
   Sheets("Sheet1").Cells(R1, "F") = Sheets("Sheet2").Cells(R2, "E")
   Exit For
 End If

 Next R1
Next R2
End Sub
'-------------------------------------------

一行のコードが長くなるのでRangeのValueプロパティは省いてあります。


それから処理の流れには関係ないことですが、
シートを扱うために変数を使うとコードが短くすっきりなります。
  Dim WS1 As Worksheets
  Set WS1 = Worksheets("Sheet1")
最初でこのようしておくと、
以後、Worksheets("Sheet1")の代わりにWS1を使えるということです。

以上です。
 

質問者のレベルではChangeイベントはちょと難しいかも。。(^^;;;

で、Sheet2に抽出後、修正データを入れ、
それが正しいかどうか確認した後に、Sheet1へ転記する方がいいかも。

'------------------------------------------------ 
Sub 更新()
 Dim R1 As Long
 Dim R2 As Long

For R2 = 5 To Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
 For R1 = 2 To Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

 If Sheets("Sheet1").Cells(R1, "A") = Sheets("Sheet2").Cells(R2, "A") An...続きを読む

QiPhone「データの取得方法」について

こんにちは。先々月くらいにiPhoneを購入した者です。
iPhoneの「データ取得方法」について質問があります。
予想外にパケット通信料の請求が多かったため、サファリや天気など通信
を必要とするアプリを使用しないようにし、「データの取得方法」をフェ
ッチの15分ごとに変更しました。ただ、「データの取得方法」のプッシュ
とフェッチの違いがよく分かっておらず、プッシュをONにしたままが通信
の節約になるのか、それともフェッチの15分間隔(若しくは30分)が良い
のか分かりません。メールの量は送受信併せて1日30~40で、使わない時
は全く使いません。ただ緊急を要するメールもあるので手動でのメール
取得は考えていません。
前述したように、プッシュとフェッチどちらがパケットの節約になるのか
教えていただきたいと思います。その他パケット通信節約のための小ネタ
などがあれば教えてください。
よろしくお願い致します。

Aベストアンサー

ExchangeServerやMobileMeなど、サーバ側から自動的に送られてくるメールがプッシュメール、通常のメールのように自分から取りに行くメールがフェッチです。
プッシュであれば一定時間ごとにメールボックス確認に行く手間がないため、その分安くはなります。
が。通常のメールをプッシュで使うことはできないので、基本的に選択肢はあってないようなものです。
ExchangeServerやMobileMe使ってなければ、回答としては変わらないってことになります。

ただ、基本的に通信をおこないまくる携帯なので、パケット通信はかかるもんだと思っておいたほうがいいです。

Qエクセルでマクロを使用してシート2の表から行単位でシート1の表の指定位

エクセルでマクロを使用してシート2の表から行単位でシート1の表の指定位置に値を表示させたい

シート2の
A列に番号(連番)
B列に商品名(数字とアルファベットの組み合わせ)
C列に仕入先(数字4桁)
D列にメーカー(数字4桁)
E列に区分(数字とアルファベットの組み合わせで3ケタ)
が入っていて約5,000行のデータが有ります。

シート1にレイアウトした表があって
シート1のB4にシート2のA2の値(番号連番)
シート1のB5にシート2のB2の値(商品名)
シート1のB6にシート2のC2の値(仕入先)
シート1のB7にシート2のD2の値(メーカー)
シート1のB8にシート2のE2の値(区分)
が表示されるようにしてあります。

マクロを利用して、作成したシート1のボタンを押すと
シート1のセルB4の番号欄が1から2(シート2のA3の値)に繰り上がり、
シート1の表のA列の番号と同じ行のそれぞれの値を
上記の規則で表示させるようにできますか?

シート1のB4が2になるとシート1の3行目をさしますので
シート1の表には、
シート1のB4にシート2のA3の値(連番)
シート1のB5にシート2のB3の値(商品名)
シート1のB6にシート2のC3の値(仕入先)
シート1のB7にシート2のD3の値(メーカー)
シート1のB8にシート2のE3の値(区分)
が表示されます。

シート1のボタンをクリックするごとにB4のセルは3,4,5,6と繰り上がり
シート2のA列の番号と一致した行のそれぞれの値を表示させていく。

エクセルでマクロを使用してシート2の表から行単位でシート1の表の指定位置に値を表示させたい

シート2の
A列に番号(連番)
B列に商品名(数字とアルファベットの組み合わせ)
C列に仕入先(数字4桁)
D列にメーカー(数字4桁)
E列に区分(数字とアルファベットの組み合わせで3ケタ)
が入っていて約5,000行のデータが有ります。

シート1にレイアウトした表があって
シート1のB4にシート2のA2の値(番号連番)
シート1のB5にシート2のB2の値(商品名)
シート1のB6にシート2...続きを読む

Aベストアンサー

こんばんは!
参考になるかどうか判りませんが・・・
ごく単純にやってみました。

↓の画像でSheet1にコマンドボタンを一つ貼り付けます。

デザインモードで貼り付けたコマンドボタン上でダブルクリックし
↓のコードを貼り付けてみてください。

Private Sub CommandButton1_Click()
Cells(4, 2) = Cells(4, 2) + 1
If Cells(4, 2) = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row Then
Cells(4, 2) = 1
End If
End Sub

そして、Sheet1のB5セルに
=IF(B4="","",VLOOKUP($B$4,Sheet2!A:E,ROW(A2),0))

という数式を入れ、オートフィルB8セルまで下へコピーすると
画像のような感じになります。

これで何とか希望に近い形にならないでしょうか?

以上、参考になれば良いのですが
他に良い方法があれば読み流してくださいね。m(__)m

こんばんは!
参考になるかどうか判りませんが・・・
ごく単純にやってみました。

↓の画像でSheet1にコマンドボタンを一つ貼り付けます。

デザインモードで貼り付けたコマンドボタン上でダブルクリックし
↓のコードを貼り付けてみてください。

Private Sub CommandButton1_Click()
Cells(4, 2) = Cells(4, 2) + 1
If Cells(4, 2) = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row Then
Cells(4, 2) = 1
End If
End Sub

そして、Sheet1のB5セルに
=IF(B4="","",VLOOKUP($B$4,Sh...続きを読む

QPL/SQL内の共通関数の引数にフェッチしたレコードごと渡すのは可能?

カーソルでレコードを検索し、フェッチします。
その後、INSERTする共通関数を呼ぶのですが、
フェッチしたレコードの値でINSERTしたいのです。
引数で1コずつ渡すと数が多いので、フェッチしたレコードごと引数で渡せないかと
それって可能ですか?

Aベストアンサー

こんにちは。

 共通関数の引数にカーソルのレコード型(cursor_name%ROWTYPE)を
使用すればよいと思います。
ただこの場合は、汎用性に乏しいのですが・・・。

 よって個人的にはINSERT先のテーブル名のレコード型が
お勧めです。[テーブル名%ROWTYPE]
 カーソルのレコードから移し変える処理が必要になりますが、
登録処理が簡単に記述できますネ。
(INSERT INTO TAL_NAME VALUE record_type;)

Qデータシートから各シートへデータを貼り付けるマクロ

いつもお世話になっております。
現在、データシートから各シートへデータを入力するマクロを作成しようとしています。

ブックの一枚目のシートにデータシートがあり
データシートは以下のようになっています

A   B     C     D     E    F   G
No  社員番号 氏名   所属   日付  数値1 数値2
1 1 123  ○○××  AAA  2016/1  30   20
2 2 123  ○○××  AAA  2016/2  40   15
3 3 123  ○○××  AAA  2016/3  20   90
. .
. .
. .
12 12   123  ○○××  AAA  2016/12  70   50
13 12   345  □□△△  BBB  2016/1   20   60
14 12   345  □□△△  BBB  2016/2   40   10
.
.
.

タイトル行は実際には存在しません
各シートは所属別に分かれていて各所属人数はまちまちです。

データシートを上から順に調べ、各シートの該当社員の該当セルへを貼付したいです。
コピーする範囲は7項目×12月分の全ての部分(最初の人で言えばA1:G12の範囲)
貼り付ける範囲は各シートに社員毎に表があるのでセルとしては社員番号の右上(Offset(該当セル,-1,1)へ貼付)

流れとしては
まず一枚目のB列を上から順に12個飛ばしで取得する(最初はB1)
Offset("B1",0,-1,12,7)の範囲をコピーする
次に4枚目のワークシートから調べていく(2,3枚目は別の必要なデータがあるため)
4枚目のワークシートのB列を調べ、取得した値と一致すればOffset(該当セル,-1,1)の位置に貼付
なければ検索を続け、そのシートに該当する社員番号がなければ次のシートへ
これを最終シートまで繰り返し、また一枚目のワークシートの検索からはじめる

といった処理をしたいと考えています。

自力で考えたものが下のものです

-------------------------------------------
Sub テスト()

Dim results As Variant, i As Long, j As Long, k As Long

With Worksheets(1)
Do Until Cells(i, 2) = ""
Worksheets(1).Range.Offset(Cells(i, 2), 0, -1, 12, 7).Copy
For j = 4 To Worksheets.Count
Sheets(Sheets(j).Name).Select
For k = 1 To 100
If Worksheets(1).Cells(i, 2) = Worksheets(j).Cells(k, 2) Then
Worksheets(j).Active.Range.Offset(Cells(k, 2), -1, 1).PasteSpecial Paste:=xlPasteValues

End If
Next k
Next j

i = i + 12
Loop
End With
End Sub
----------------------------------------------

そもそもこんな単純なものではないとは思っていて、根本的に間違っているかもしれません。
実際に「アプリケーション定義 または オブジェクト定義のエラーです。」
と表示され実行できません。
どこから手をつけていいかわからないため、ご教授いただければと思います。
宜しくお願いいたします。

いつもお世話になっております。
現在、データシートから各シートへデータを入力するマクロを作成しようとしています。

ブックの一枚目のシートにデータシートがあり
データシートは以下のようになっています

A   B     C     D     E    F   G
No  社員番号 氏名   所属   日付  数値1 数値2
1 1 123  ○○××  AAA  2016/1  30   20
2 2 123  ○○××  AAA  2016/2  40   15
3 3 123  ○○××  AAA  2016/3  20   90
. .
....続きを読む

Aベストアンサー

No.1です。
コードがコピペできないのでこちらで確認していないのですが

行うことはNo.1で書いたことと同じです。

使用している変数の値を確認する → 問題の行の直前にMsgBoxで表示させて確認する。
その値が適切なパラメータとなっているか確認する
 →Worksheets(j)なら、Msgbox Worksheets(j).Name でシート名を表示させてみるとか

No.1ではループの最初で問題が起こりましたが、今回が何回かループしてから問題が起こるのかもしれませんね。

# VBEには、ステップ動作とか、ウォッチウィンドウとかデバッグ用の機能も搭載されていますので、確認してみて下さい。

Qデータハザードについて(パイプライン)

こんにちは。コンピューターアーキテクチャのパイプラインの項目の勉強をしていて、データハザードについて分からない問題があったので、質問させていただきます。

以下の二つのパイプラインの動作がよくわかりません。


基本的にはフォワーディングによって解決するデータハザードですが、メモリアドレス生成のときはフォワーディングは間に合わないので、結果の格納(W)が終わらないと命令フェッチ(F)ができないそうです。つまり
add r1, r2 .r3    F D E W
lw r4, dpl(r1)         F X X DEW

となるそうです。しかし
ld r2, c(r1)
subi r1, r1, 4
のように「ロード命令の次に算術命令」という順番ですと、ハザードは生じないそうです。


下の場合は上と違いr1のデータを更新するだけなのでフォワーディングによって改善ができるという解釈でよろしいのでしょうか?
上は本に書いてあったものなのですが、下のはインターネットから調べたものなのであっていない可能性があるので質問しました。

ちなみに両者ともロード命令の場合なのですが、ストア命令でも同じような振る舞いになるのでしょうか?

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

こんにちは。コンピューターアーキテクチャのパイプラインの項目の勉強をしていて、データハザードについて分からない問題があったので、質問させていただきます。

以下の二つのパイプラインの動作がよくわかりません。


基本的にはフォワーディングによって解決するデータハザードですが、メモリアドレス生成のときはフォワーディングは間に合わないので、結果の格納(W)が終わらないと命令フェッチ(F)ができないそうです。つまり
add r1, r2 .r3    F D E W
lw ...続きを読む

Aベストアンサー

「データハザード」ってのは, 端的にいうと「ある命令で得られた結果をそのあとの命令で使うために, 前の命令が終わるまで『あとの命令』の実行を止めなきゃならない」って状態.

ここに挙がっている例だと, 上のやつは add で得られた r1 を次の lw で使うから, 「r1 が得られるまで lw を実行できない」ということになる. ところが下の場合には ld の結果である r2 はそのあとで使わないから, ここで見えている分についてはハザードは生じていない (さらにあとの命令で r2 を使っていたら, ld とのタイミングでハザードが起きるかもしれん). あるいは,
ld r1, c(r2)
subi r1, r1, 4
なら明らかにハザードが起きる.

そして, はっきりいうと「ロードの場合はメモリからレジスタにデータを移すので算術命令のデータがメモリに書き込まれるまではストールしてしまう」というのは何をいっているのかよくわからん. もっというと「算術命令のデータがメモリに書き込まれる」とか「算術命令がメモリにデータを書き込む」とかの意味がわからん. どういうこと? どうせ MIPS かなんかの RISC なんだろうから, そもそも「算術命令の結果」がメモリに書き込まれることはありえないよ.

それぞれの命令を実行するために「確定していなければならないデータ」がなんなのか, そしてそれらが「どのタイミングで確定するのか」を確認してください. ここの例だと「add の結果がどこで出てきてどのタイミングにフォワーディングできるのか」とか「メモリアドレスをどのタイミングで生成するのか」とか, です.

とはいえ, 上の例で「どのステージが同時に起きているのか」がわからないんだよね.... add の D と lw の F が同じクロックと思っていい?

参考URL:http://akademeia.info/index.php?%A5%D1%A5%A4%A5%D7%A5%E9%A5%A4%A5%F3%A5%CF%A5%B6%A1%BC%A5%C9

「データハザード」ってのは, 端的にいうと「ある命令で得られた結果をそのあとの命令で使うために, 前の命令が終わるまで『あとの命令』の実行を止めなきゃならない」って状態.

ここに挙がっている例だと, 上のやつは add で得られた r1 を次の lw で使うから, 「r1 が得られるまで lw を実行できない」ということになる. ところが下の場合には ld の結果である r2 はそのあとで使わないから, ここで見えている分についてはハザードは生じていない (さらにあとの命令で r2 を使っていたら, ld とのタイミングで...続きを読む

QExcel2000マクロ_全てのシートに対して埋込グラフのタイトルをシート名にする

何方か、回答をお願いします。
下記のマクロは全てのシートに対して埋込グラフのタイトルをシート名にする物ですが
ChartObjectsメソッドは失敗しましたと出るときが有ります。
On Error GoTo が効いてErrHandlerに行くときも有るのでよく分かりません。
有識者の方々のもっと良いコードを教えて下さい。
(1つのシートに対してグラフは0~3個です。)

Sub シート名グラフ名()

Dim mysheet As Worksheet
For Each mysheet In Worksheets

On Error GoTo ErrHandler

With mysheet.ChartObjects(1).Chart
.ChartTitle.Text = mysheet.Name
End With

With mysheet.ChartObjects(2).Chart
.ChartTitle.Text = mysheet.Name
End With

With mysheet.ChartObjects(3).Chart
.ChartTitle.Text = mysheet.Name
End With
ErrHandler:
Next mysheet
End Sub

何方か、回答をお願いします。
下記のマクロは全てのシートに対して埋込グラフのタイトルをシート名にする物ですが
ChartObjectsメソッドは失敗しましたと出るときが有ります。
On Error GoTo が効いてErrHandlerに行くときも有るのでよく分かりません。
有識者の方々のもっと良いコードを教えて下さい。
(1つのシートに対してグラフは0~3個です。)

Sub シート名グラフ名()

Dim mysheet As Worksheet
For Each mysheet In Worksheets

On Error GoTo ErrHandler

With mysheet.ChartOb...続きを読む

Aベストアンサー

こんばんは。

ためしに、元のコードに付け足してみました。
不必要なものは、削除してしまってください。

Sub グラフ名前調査() 'グラフをアクティブにしておく
Dim strName As String
Dim ChartName As String
Dim myChart As Object
Dim i As Integer
Dim t As String
strName = StrConv(TypeName(Selection), vbUpperCase)
If strName = "CHARTAREA" Or _
  strName = "GRIDLINES" Or _
  strName = "PLOTAREA" Then
  ChartName = ActiveChart.Name '名前
  i = ActiveChart.Parent.Index 'インデックス
  t = ActiveChart.ChartTitle.Caption 'タイトル
 
  MsgBox "名前:" & ChartName & vbCrLf & _
     "インデックス: " & CStr(i) & vbCrLf & _
     "タイトル:" & t
End If
End Sub

こんばんは。

ためしに、元のコードに付け足してみました。
不必要なものは、削除してしまってください。

Sub グラフ名前調査() 'グラフをアクティブにしておく
Dim strName As String
Dim ChartName As String
Dim myChart As Object
Dim i As Integer
Dim t As String
strName = StrConv(TypeName(Selection), vbUpperCase)
If strName = "CHARTAREA" Or _
  strName = "GRIDLINES" Or _
  strName = "PLOTAREA" Then
  ChartName = ActiveChart.Name '名前
  i = ActiveChart.Parent.Ind...続きを読む

Q「スーパーフェッチ」と「プリフェッチ」の違い

Vistaで「スーパーフェッチ」機能とはよく使用するアプリケーションをメモリにプリロードするとありますが、XPの「プリフェッチ」機能にも似たような記載がありました。
この両者の機能で決定的な違いは何処でしょうか?
ご存知あれば教えて頂ければ幸いです。

Aベストアンサー

どのデータをプリロードするかを選択する戦略が賢くなったということです.

XPでは単に最も最近使ったデータを優先的に選んでいましたが,Vistaでは今までの履歴を学習してより最適な(次に必要になりそうな)データを選ぶようになりました.

参考URL:http://pc.watch.impress.co.jp/docs/2007/0226/mobile366.htm

Q【Excel マクロ】別シートの表へそれぞれ1行おきにデータを貼り付けしたい

Excelで、以下の(例)ようにSheet1のK列(品種)の値を、Sheet2のD列(数量)に1行おきに貼り付けをマクロでおこないたいです。
コードを教えてください。

例)

【Sheet1】              【Sheet2】
  K列                 D列
1  品種               1  品種  
2                  2
3 赤                3 
4                   4  赤
5  青       →→→      5
6                   6  青
7  白                7
8                   8  白
9                   9
・  ・                ・
・  ・                ・
<K列の値をコピー> → <D列に値を1行ずらして、1行おきに貼り付け>

実際のデータは、500件くらいあります。

Excelで、以下の(例)ようにSheet1のK列(品種)の値を、Sheet2のD列(数量)に1行おきに貼り付けをマクロでおこないたいです。
コードを教えてください。

例)

【Sheet1】              【Sheet2】
  K列                 D列
1  品種               1  品種  
2                  2
3 赤                3 
4                   4  赤
5  青       →→→      5
6   ...続きを読む

Aベストアンサー

No1です。
sh2.Cells(row + 1, "D").Value = sh1.Cells(row, "K").Value

sh2.Cells(row + 6, "D").Value = sh1.Cells(row, "K").Value
に変えてください。


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

人気Q&Aランキング